Масштабирование. Геометрическое моделирование

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ComCtrls, Menus, ExtCtrls, StdCtrls, Spin;

type

TForm1 = class(TForm)

StatusBar1: TStatusBar;

SpinEdit1: TSpinEdit;

Image1: TImage;

RadioButton1: TRadioButton;

RadioButton2: TRadioButton;

Shift: TShiftState; X, Y: Integer);

Y: Integer);

<{ Private declarations }

<{ Public declarations }

ar

Form1: TForm1;

implementation

{$R *.DFM}

procedure p1;

begin

form1.refresh;

form1.canvas.pixels[xi,yi]:=clred;

for i:=0 to 628 do

end;

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure TForm1.SpinEdit1Change(Sender: TObject);

begin

h:=SpinEdit1.value;

end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

end;

procedure TForm1.RadioButton1Click(Sender: TObject);

begin

Image1.visible:=false;

p1;

end;

procedure TForm1.RadioButton2Click(Sender: TObject);

begin

refresh;

Image1.visible:=true;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

end;

end.