rid2.Cells [6,1]: = floattostr (zen);
Form8.StringGrid2.Cells [4,1]: = ton;
for f: = 0 to ComponentCount - 1 do
if (Components [f] is TCombobox) then
(Components [f] as TCombobox). Items.Clear; Close; end;
end else begin
Showmessage ('Вікно можна тонувати тільки один раз! ');
Close; end; end;
procedure TForm17.ComboBox1Change (Sender: TObject);
begin
if ComboBox1.Text = 'R Silver 20' then begin
ton: = ComboBox1.Text;
senton: = t1; end;
if ComboBox1.Text = 'R Silver 35' then begin
ton: = ComboBox1.Text;
senton: = t2; end;
if ComboBox1.Text = 'R Silver 50' then begin
ton: = ComboBox1.Text;
senton: = t3; end;
if ComboBox1.Text = 'R Grey 10' then begin
ton: = ComboBox1.Text;
senton: = t4; end;
if ComboBox1.Text = 'R Blue 15' then begin
ton: = ComboBox1.Text;
senton: = t5; end;
if ComboBox1.Text = 'R Gold 15' then begin
ton: = ComboBox1.Text;
senton: = t6; end;
if ComboBox1.Text = 'R Green 10' then begin
ton: = ComboBox1.Text;
senton: = t7; end;
if ComboBox1.Text = 'R Bronze 10' then begin
ton: = ComboBox1.Text;
senton: = t8; end;
if ComboBox1.Text = 'HP Natural 20' then begin
ton: = ComboBox1.Text;
senton: = t9; end;
if ComboBox1.Text = 'HP Natural 35' then begin
ton: = ComboBox1.Text;
senton: = t10; end;
if ComboBox1.Text = 'HP Bronze 35' then begin
ton: = ComboBox1.Text;
senton: = t11; end;
if ComboBox1.Text = 'HP Blue 35' then begin
ton: = ComboBox1.Text;
senton: = t12; end;
if ComboBox1.Text = 'HP Green 30' then begin
ton: = ComboBox1.Text;
senton: = t13; end; end;
procedure TForm17.ComboBox2Change (Sender: TObject);
begin
if ComboBox2.Text = 'Matt White' then begin
ton: = ComboBox2.Text;
senton: = r1; end;
if ComboBox2.Text = 'Matt Bronze' then begin
ton: = ComboBox2.Text;
senton: = r2; end;
if ComboBox2.Text = 'Matt Silver' then begin
ton: = ComboBox2.Text;
senton: = r3; end;
if ComboBox2.Text = 'Black Out' then begin
ton: = ComboBox2.Text;
senton: = r4; end; end;
procedure TForm17.ComboBox3Change (Sender: TObject);
begin
if ComboBox3.Text = '100 MIC Silver 20 ' then begin
ton: = ComboBox3.Text;
senton: = h1; end;
if ComboBox3.Text = 'Safety 2 MIL' then begin
ton: = ComboBox3.Text;
senton: = h2; end;
if ComboBox3.Text = 'Safety 4 MIL' then begin
ton: = ComboBox3.Text;
senton: = h3; end;
if ComboBox3.Text = 'Safety 7 MIL' then begin
ton: = ComboBox3.Text;
senton: = h4; end;
if ComboBox3.Text = 'Клас захисту А1' then begin
ton: = ComboBox3.Text;
senton: = h5; end;
if ComboBox3.Text = 'Клас захисту А2' then begin
ton: = ComboBox3.Text;
senton: = h6; end;
if ComboBox3.Text = 'Клас захисту А3' then begin
ton: = ComboBox3.Text;
senton: = h7; end;
if ComboBox3.Text = 'Скло 4мм' then begin
ton: = ComboBox3.Text;
senton: = h8; end; end;
procedure TForm17.SpeedButton1Click (Sender: TObject);
begin form22.Show; end; end.
unit Unit18;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Buttons, StdCtrls, Spin, jpeg, ExtCtrls, unit1, unit8;
type
TForm18 = class (TForm)
Image1: TImage; Label1: TLabel; Label2: TLabel; SpeedButton8: TSpeedButton;
RadioButton1: TRadioButton; RadioButton2: TRadioButton; ComboBox1: TComboBox;
SpinEdit1: TSpinEdit; CheckBox1: TCheckBox;
procedure SpeedButton8Click (Sender: TObject);
private
{Private declarations}
public
{Public declarations}
end;
var Form18: TForm18;
h100, h150, h200, h250, h300, h350, h400, h450, h500, h600, h700, h800: string;
implementation
{$ R *. dfm}
procedure TForm18.SpeedButton8Click (Sender: TObject);
Var f: textfile; k: integer; l, z: real;
begin l: = 0; z: = 0;
if Form8.StringGrid 2.Cells [2,1] = 'так' then begin
Showmessage ('На вікно можна ставити тільки один підвіконня! ');
Close; end else
if (RadioButton1.Checked <> true) and (RadioButton2.Checked <> true...
