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

en

RichEdit1.Lines.LoadFromFile (dir + ' Довідка Шаблон.rtf');

if TreeView1.Selected.Text = 'Установка цін' then

RichEdit1.Lines.LoadFromFile (dir + ' Довідка Цени.rtf'); end; end;

procedure TForm5.SpeedButton2Click (Sender: TObject);

begin Close; end; end.

unit Unit6;

interface

uses

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

Dialogs, ExtCtrls, StdCtrls, unit1, Buttons, ComCtrls, Unit7, jpeg;

type

TForm6 = class (TForm)

Panel1: TPanel; SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton;

SpeedButton3: TSpeedButton; SpeedButton5: TSpeedButton;

SpeedButton6: TSpeedButton; SpeedButton4: TSpeedButton;

SpeedButton14: TSpeedButton; SpeedButton15: TSpeedButton;

SpeedButton16: TSpeedButton; Panel2: TPanel;

UpDown2: TUpDown; UpDown1: TUpDown; SpeedButton11: TSpeedButton;

Image1: TImage; SpeedButton7: TSpeedButton; SpeedButton8: TSpeedButton;

SpeedButton9: TSpeedButton; procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton16Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure SpeedButton14Click (Sender: TObject);

procedure SpeedButton15Click (Sender: TObject);

procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton6Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

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

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

procedure Panel2MouseDown (Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure SpeedButton11Click (Sender: TObject);

procedure SpeedButton9Click (Sender: TObject);

procedure SpeedButton8Click (Sender: TObject);

private

procedure CmFocusChanged (var Msg: TCmFocusChanged);

message cm_FocusChanged;

{Private declarations}

public

{Public declarations}

end;

var Msg1: TCmFocusChanged; Form6: TForm6; c: string;

implementation

{$ R *. dfm}

procedure TForm6.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 TForm6.CmFocusChanged (var Msg: TCmFocusChanged);

begin Msg1: = Msg; end;

procedure TForm6.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 TForm6.SpeedButton14Click (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 + ' Іконки поворотний1.bmp'); end; end;

procedure TForm6.SpeedButton15Click (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 + ' Іконки поворотний1.bmp'); end; end;

procedure TForm6.SpeedButton16Click (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 TForm6.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 TForm6....