Реферат Розрахунок вартості пластикових віконних конструкцій і дверей

n12: TSpeedButton; SpeedButton13: TSpeedButton;

SpeedButton17: TSpeedButton; Label1: TLabel; Label5: TLabel; Label6: TLabel;

Label7: TLabel;

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure SpeedButton6Click (Sender: TObject);

procedure Panel2MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure ComboBox1Change (Sender: TObject);

procedure FormCreate (Sender: TObject);

procedure SpeedButton8Click (Sender: TObject);

procedure SpeedButton9Click (Sender: TObject);

procedure UpDown1Click (Sender: TObject; Button: TUDBtnType);

procedure UpDown2Click (Sender: TObject; Button: TUDBtnType);

procedure SpeedButton11Click (Sender: TObject);

procedure SpeedButton13Click (Sender: TObject);

procedure SpeedButton12Click (Sender: TObject);

procedure SpeedButton14Click (Sender: TObject);

procedure SpeedButton15Click (Sender: TObject);

procedure SpeedButton16Click (Sender: TObject);

procedure SpeedButton17Click (Sender: TObject);

procedure SpeedButton10Click (Sender: TObject);

procedure SpeedButton7Click (Sender: TObject);

procedure FormShow (Sender: TObject);

private

{Private declarations}

public

procedure CmFocusChanged (var Msg: TCmFocusChanged);

message cm_FocusChanged;

{Public declarations}

end; const n = 15;

var Form7: TForm7; j, pay1, okn, tek: integer; b1: TBitBtn; fail, put, Activ, odn: string;

Msg1: TCmFocusChanged; nam: string;

implementation

uses Unit9, Unit8;

{$ R *. dfm}

procedure TForm7.CmFocusChanged (var Msg: TCmFocusChanged);

begin Msg1: = Msg; end;

procedure TForm7.SpeedButton1Click (Sender: TObject);

begin

b1: = TBitBtn.Create (Self);

nam: = nam + '# Глухий';

with b1 do begin

b1.Hint: = '1 ';

Left: = 20;

Top: = 20;

Width: = 60;

Height: = 100;

Parent: = Panel2;

Glyph.LoadFromFile (dir + ' Іконки глухой.bmp'); end; end;

procedure TForm7.SpeedButton2Click (Sender: TObject);

begin

nam: = nam + '# Поворотний';

b1: = TBitBtn.Create (Self);

with b1 do begin

b1.Hint: = '2 ';

Left: = 20;

Top: = 20;

Width: = 60;

Height: = 100;

Parent: = Panel2;

Glyph.LoadFromFile (dir + ' Іконки поворотний.bmp'); end; end;

procedure TForm7.SpeedButton3Click (Sender: TObject);

begin

nam: = nam + '# Відкидний';

b1: = TBitBtn.Create (Self);

with b1 do begin

b1.Hint: = '3 ';

Left: = 20;

Top: = 20;

Width: = 60;

Height: = 100;

Glyph.LoadFromFile (dir + ' Іконки откідной.bmp');

Parent: = Panel2; end; end;

procedure TForm7.SpeedButton4Click (Sender: TObject);

begin

nam: = nam + '# балкон1';

b1: = TBitBtn.Create (Self);

with b1 do begin

b1.Hint: = '4 ';

Left: = 20;

Top: = 20;

Width: = 60;

Height: = 100;

Glyph.LoadFromFile (dir + ' Іконки балкон1.bmp');

Parent: = Panel2; end; end;

procedure TForm7.SpeedButton5Click (Sender: TObject);

begin

nam: = nam + '# балкон2';

b1: = TBitBtn.Create (Self);

with b1 do begin

b1.Hint: = '5 ';

Left: = 20;

Top: = 20;

Width: = 60;

Height: = 100;

Glyph.LoadFromFile (dir + ' Іконки балкон2.bmp');

Parent: = Panel2; end; end;

procedure TForm7.SpeedButton6Click (Sender: TObject);

begin

nam: = nam + '# Вхід';

b1: = TBitBtn.Create (Self);

with b1 do begin

b1.Hint: = '6 ';

Left: = 20;

Top: = 20;

Width: = 60;

Height: = 100;

Glyph.LoadFromFile (dir + ' Іконки вход.bmp');

Parent: = Panel2; end; end;

procedure TForm7.Panel2MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const

SC_DragMove = $ F012; {a magic number}

begin

ReleaseCapture;

if Msg1.Sender.ClassName = 'TBitBtn' then

msg1.Sender.perform (WM_SysCommand, SC_DragMove, 0);

end;

procedure TForm7.ComboBox1Change (Sender: TObject);

begin

...