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

e N3Click (Sender: TObject);

procedure N18Click (Sender: TObject); procedure N19Click (Sender: TObject);

procedure N11Click (Sender: TObject); procedure N13Click (Sender: TObject);

procedure N2Click (Sender: TObject); procedure SpeedButton3Click (Sender: TObject);

procedure SpeedButton1Click (Sender: TObject);

procedure SpeedButton4Click (Sender: TObject);

procedure SpeedButton7Click (Sender: TObject);

procedure SpeedButton6Click (Sender: TObject);

procedure SpeedButton5Click (Sender: TObject);

procedure SpeedButton2Click (Sender: TObject);

procedure Timer1Timer (Sender: TObject);

procedure SpeedButton11Click (Sender: TObject);

procedure N20Click (Sender: TObject); procedure FormCreate (Sender: TObject);

procedure SpeedButton13Click (Sender: TObject);

procedure SpeedButton9Click (Sender: TObject);

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

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

procedure SpeedButton8Click (Sender: TObject);

procedure SpeedButton14Click (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

var

CheckEvent: TEvent; Form1: TForm1; dir: string; kolok: integer;

prof, spak, mon, got: string; fiozam, fiozak, adres, data, itog, domtel, sottel: string;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit10, Unit12,

Unit15;

{$ R *. dfm}

procedure TForm1.N5Click (Sender: TObject);

begin form2.Showmodal end;

procedure TForm1.N16Click (Sender: TObject);

begin form3.Showmodal end;

procedure TForm1.N17Click (Sender: TObject);

begin form4.Showmodal end;

procedure TForm1.N7Click (Sender: TObject);

var dlg: Word; begin

dlg: = MessageDlg ('Ви

точно хочете вийти??? ', mtConfirmation, mbYesNoCancel, 0);

if dlg = mrYes then close; end;

procedure TForm1.N9Click (Sender: TObject);

begin form6.Showmodal; end;

procedure TForm1.N10Click (Sender: TObject);

begin form7.Showmodal; end;

procedure TForm1.N3Click (Sender: TObject);

begin Form1.PrintDialog1.Execute; end;

procedure TForm1.N18Click (Sender: TObject);

begin if Form1.SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile (SaveDialog1.FileName); end;

procedure TForm1.N19Click (Sender: TObject);

begin if form1.OpenDialog1.Execute then

RichEdit1.Lines.LoadFromFile (OpenDialog1.FileName); end;

procedure TForm1.N11Click (Sender: TObject);

begin form9.Showmodal; end;

procedure TForm1.N13Click (Sender: TObject);

begin form12.Showmodal; end;

procedure TForm1.N2Click (Sender: TObject);

begin form11.Show; end;

procedure TForm1.SpeedButton3Click (Sender: TObject);

begin RichEdit1.Paragraph.Alignment: = taLeftJustify; end;

procedure TForm1.SpeedButton1Click (Sender: TObject);

begin RichEdit1.Paragraph.Alignment: = taRightJustify; end;

procedure TForm1.SpeedButton4Click (Sender: TObject);

begin if FontDialog1.Execute then

RichEdit1.SelAttributes.Assign (FontDialog1.Font);

RichEdit1.SetFocus; end;

procedure TForm1.SpeedButton7Click (Sender: TObject);

begin if Form1.SaveDialog1.Execute then

RichEdit1.Lines.SaveToFile (SaveDialog1.FileName); end;

procedure TForm1.SpeedButton6Click (Sender: TObject);

begin if form1.OpenDialog1.Execute then

RichEdit1.Lines.LoadFromFile (OpenDialog1.FileName); end;

procedure TForm1.SpeedButton5Click (Sender: TObject);

var f: Integer;

begin for f: = 0 to ComponentCount - 1 do begin

if (Components [f] is TEdit) then (Components [f] as TEdit). Text: ='';

if (Components [f] is TMaskEdit) then (Components [f] as TMaskEdit). Text: ='';

if (Components [f] is TMemo) then (Components [f] as TMemo). Text: =''; end;

RichEdit1.Clear;

prof: =''; spak: =''; mon: =''; got: =''; got: =''; adres: =''; fiozam: =''; fiozak: ='' ;

Showmessage ('Введіть всі дані по замовленням! '); end;

procedure TForm1.SpeedButton2Click (Sender: TObject);

begin RichEdit1.Paragraph.Alignment: = taCenter; end;

procedure TForm1.Timer1Timer (Sender: TObject);

begin Label5.Caption: = 'Дата' + dateToStr (date);

Label11.Caption: = 'Номер замовлення:' + intToStr (nzak);

Label9.Caption: = 'Час' + TimeToStr (Time); end;

procedure TForm1.SpeedButton11Click (Sender: TObject);

begin if (Ed...