Реферат Ескіз і специфікація типових об'єктів управління графічного інтерфейсу

stify"> procedure label32MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure label32MouseLeave (Sender: TObject);

procedure label33Click (Sender: TObject);

procedure label33MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure label33MouseLeave (Sender: TObject);

procedure label34Click (Sender: TObject);

procedure label34MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure label34MouseLeave (Sender: TObject);

procedure label35Click (Sender: TObject);

procedure label35MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure label35MouseLeave (Sender: TObject);

procedure label36Click (Sender: TObject);

procedure label36MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure label36MouseLeave (Sender: TObject);

procedure label37Click (Sender: TObject);

procedure label37MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure label37MouseLeave (Sender: TObject);

procedure label4Click (Sender: TObject);

procedure Button8Click (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure RadioButton1Enter (Sender: TObject);

procedure RadioButton2Enter (Sender: TObject);

procedure RadioButton3Enter (Sender: TObject);

procedure RadioButton4Enter (Sender: TObject);

procedure RadioButton5Enter (Sender: TObject);

procedure Button1Click (Sender: TObject);

procedure Edit1KeyPress (Sender: TObject; var Key: Char);

procedure Button2Click (Sender: TObject);

procedure Timer2Timer (Sender: TObject);

procedure ProgressBar1MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure ProgressBar1MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure ProgressBar1MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure ListBox1DblClick (Sender: TObject);

procedure btn1Click (Sender: TObject);

procedure btn2Click (Sender: TObject);

procedure btn3Click (Sender: TObject);

procedure btn4Click (Sender: TObject);

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

Y: Integer);

procedure image7MouseMove (Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure image7MouseUp (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure btn5Click (Sender: TObject);

procedure Button3Click (Sender: TObject);

procedure RadioButton6Click (Sender: TObject);

procedure RadioButton7Click (Sender: TObject);

procedure Button5Click (Sender: TObject);

procedure Edit2Click (Sender: TObject);

procedure Edit3Click (Sender: TObject);

procedure Edit4Click (Sender: TObject);

procedure Button4Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

heade: Theade;

endex: integer;

st: string;

koll, i: integer;

k: LongInt=0;

changeposition: Boolean=false;

img: array of TImage;

sr: TSearchRec;

f, q: integer; Unit1, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11;

{$ R * .dfm} Theade.FormCloseQuery (Sender: TObject; var CanClose: Boolean); Push: word;:=Me...