Uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ColorGrd, ComCtrls, StdCtrls, Buttons, ExtCtrls, Menus, ExtDlgs;
Type
TForm1 = class(TForm)
mm1: TMainMenu;
a1: TMenuItem;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
pnl1: TPanel;
btn1: TSpeedButton;
btn2: TSpeedButton;
btn3: TSpeedButton;
btn4: TSpeedButton;
btn5: TSpeedButton;
btn6: TSpeedButton;
btn7: TSpeedButton;
btn8: TSpeedButton;
edt1: TEdit;
ud1: TUpDown;
pnl2: TPanel;
clrgrd1: TColorGrid;
bvl1: TBevel;
pnl3: TPanel;
pnl4: TPanel;
scrlbx1: TScrollBox;
img1: TImage;
stat1: TStatusBar;
dlgOPic1: TOpenPictureDialog;
dlg1: TSavePictureDialog;
lbl1: TLabel;
img2: TImage;
img3: TImage;
N7: TMenuItem;
N8: TMenuItem;
N9: TMenuItem;
N10: TMenuItem;
N11: TMenuItem;
rb1: TRadioButton;
rb2: TRadioButton;
Label1: TLabel;
procedure FormCreate(Sender: TObject);
procedure N2Click(Sender: TObject);
procedure ud1Click(Sender: TObject; Button: TUDBtnType);
procedure clrgrd1Change(Sender: TObject);
Procedure btn1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Procedure btn2MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Procedure btn3MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
Procedure btn4MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
