1. Darba uzdevums
Darba uzdevums: izveidot programmu, kas realizē 2D objekta (ar 5,6 vai 7 virsotnēm) transformācijas - rotāciju, pārbīdīšanu un mērogošanu.
2. Programmas kods
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, math;
type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
RadioGroup1: TRadioGroup;
Label1: TLabel;
Button2: TButton;
Edit1: TEdit;
Button3: TButton;
Button4: TButton;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
ComboBox1: TComboBox;
Edit5: TEdit;
Edit6: TEdit;
Procedure Draw();
Procedure Rotate();
Procedure Large();
Procedure Move();
procedure FormCreate(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
…
