;
Writeln (f, SpinEdit18.Value);
CloseFile (f);
Rewrite (f, s + ' Exprof101mm24.dat');
Writeln (f, SpinEdit19.Value);
Writeln (f, SpinEdit20.Value);
Writeln (f, SpinEdit21.Value);
CloseFile (f);
Rewrite (f, s + ' Exprof101mm32.dat');
Writeln (f, SpinEdit22.Value);
Writeln (f, SpinEdit23.Value);
Writeln (f, SpinEdit24.Value);
CloseFile (f); end else Exit;
ShowMessage ('Дані збережені успішно! '); end;
procedure TForm2.SpeedButton3Click (Sender: TObject);
begin
SpinEdit1.Value: = 58; SpinEdit2.Value: = 167;
SpinEdit3.Value: = 172; SpinEdit4.Value: = 67;
SpinEdit5.Value: = 175; SpinEdit6.Value: = 181;
SpinEdit7.Value: = 68; SpinEdit8.Value: = 195;
SpinEdit9.Value: = 201; SpinEdit10.Value: = 79;
SpinEdit11.Value: = 204; SpinEdit12.Value: = 212;
SpinEdit13.Value: = 152; SpinEdit14.Value: = 157;
SpinEdit15.Value: = 176; SpinEdit16.Value: = 165;
SpinEdit17.Value: = 170; SpinEdit18.Value: = 187;
SpinEdit19.Value: = 180; SpinEdit20.Value: = 188;
SpinEdit21.Value: = 0; SpinEdit22.Value: = 194;
SpinEdit23.Value: = 200; SpinEdit24.Value: = 0; end;
procedure TForm2.SpeedButton4Click (Sender: TObject);
begin form13.show; end;
procedure TForm2.SpeedButton6Click (Sender: TObject);
begin form21.Show; end;
procedure TForm2.SpeedButton7Click (Sender: TObject);
begin form22.Show; end; end.
unit Unit3;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm3 = class (TForm)
Image1: TImage; Label1: TLabel; Label2: TLabel; Label3: TLabel;
Label4: TLabel; Label5: TLabel; SpeedButton1: TSpeedButton;
procedure BitBtn1Click (Sender: TObject);
procedure SpeedButton1Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var Form3: TForm3;
implementation
{$ R *. dfm}
procedure TForm3.BitBtn1Click (Sender: TObject);
begin close end;
procedure TForm3.SpeedButton1Click (Sender: TObject);
begin close; end; end.
unit Unit4;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, jpeg, ExtCtrls;
type
TForm4 = class (TForm)
Image1: TImage; Label1: TLabel; Label3: TLabel; Label2: TLabel;
Label4: TLabel; Label5: TLabel; SpeedButton1: TSpeedButton;
procedure SpeedButton1Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var Form4: TForm4;
implementation
{$ R *. dfm}
procedure TForm4.SpeedButton1Click (Sender: TObject);
begin close; end; end.
unit Unit5;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, ExtCtrls, jpeg, unit1, Buttons;
type
TForm5 = class (TForm)
TreeView1: TTreeView; Timer1: TTimer; RichEdit1: TRichEdit; Image1: TImage;
Label3: TLabel; Label2: TLabel; Label1: TLabel; Bevel1: TBevel; Bevel2: TBevel;
SpeedButton2: TSpeedButton; SpeedButton1: TSpeedButton;
procedure Timer1Timer (Sender: TObject);
procedure SpeedButton2Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var Form5: TForm5;
implementation
{$ R *. dfm}
procedure TForm5.Timer1Timer (Sender: TObject);
begin
if TreeView1.Selected <> nil then begin
label3.Caption: = TreeView1.Selected.Text;
if TreeView1.Selected.Text = 'Рішення задач' then
RichEdit1.Lines.LoadFromFile (dir + ' Довідка Основні задачі.rtf');
if TreeView1.Selected.Text = 'УралСтройМантаж' then
RichEdit1.Lines.LoadFromFile (dir + ' Довідка УралСтройМонтаж.rtf');
if TreeView1.Selected.Text = 'Опис інтерфейсу' then
RichEdit1.Lines.LoadFromFile (dir + ' Довідка Інтерфейс.rtf');
if TreeView1.Selected.Text = 'Розрахунок вартості' then
RichEdit1.Lines.LoadFromFile (dir + ' Довідка Расчет.rtf');
if TreeView1.Selected.Text = 'Системні вимоги' then
RichEdit1.Lines.LoadFromFile (dir + ' Довідка Системні требованія.rtf');
if TreeView1.Selected.Text = 'Створення шаблонів' th...
