Расчёт статически определяемых стержневых систем неравного сечения на растяжение-сжатие (стр. 9 из 10)

else s1:=1; if ComboBox4.Text='Влево' then s2:=-1

else s2:=1; if ComboBox5.Text='Влево' then s3:=-1

else s3:=1; m:=0.001; if ComboBox6.Text='м' then m:=0.001; if ComboBox6.Text='см' then m:=0.0000001; if ComboBox6.Text='мм' then m:=0.000000001; if ComboBox6.Text='м' then begin

Form1.Label7.Caption:='метрах';

Form1.Label16.Left:=672;

end;

if ComboBox6.Text='см' then begin

Form1.Label7.Caption:='сантиметрах';

Form1.Label16.Left:=704;

end;

if ComboBox6.Text='мм' then begin

Form1.Label7.Caption:='миллиметрах';

Form1.Label16.Left:=704;

end;

image2.Canvas.Brush.Color:=clWhite; image2.Canvas.Brush.Style:=bsSolid; image2.Canvas.Rectangle(0,0,600,667); end;

procedure TForm1.N5Click(Sender: TObject); begin close; end;

procedure TForm1.N3Click(Sender: TObject); var f:TextFile; p:string; begin if OpenDialog1.Execute then

begin

N2.Click;

AssignFile(f,OpenDialog1.FileName);

Reset(f);

ReadLn(f,p);

edit1.Text:=p;

ReadLn(f,p);

edit2.Text:=p;

ReadLn(f,p);

edit3.Text:=p;

ReadLn(f,p);

edit4.Text:=p;

ReadLn(f,p);

edit5.Text:=p;

ReadLn(f,p);

edit6.Text:=p;

ReadLn(f,p);

edit7.Text:=p;

ReadLn(f,p);

edit8.Text:=p;

ReadLn(f,p);

edit9.Text:=p;

ReadLn(f,p);

edit10.Text:=p;

ReadLn(f,p);

edit11.Text:=p;

ReadLn(f,p);

edit12.Text:=p;

ReadLn(f,p);

ComboBox1.Text:=p;

ReadLn(f,p);

ComboBox2.Text:=p;

ReadLn(f,p);

ComboBox3.Text:=p;

ReadLn(f,p);

ComboBox4.Text:=p;

ReadLn(f,p);

ComboBox5.Text:=p;

ReadLn(f,p);

ComboBox6.Text:=p;

if combobox1.Text='1' then begin

a:=1;

Edit2.Visible:=false;

Edit3.Visible:=false;

Edit5.Visible:=false;

Edit6.Visible:=false;

Form1.Label9.Visible:=false;

Form1.Label10.Visible:=false;

Edit2.Text:='1';

Edit3.Text:='1';

Edit5.Text:='0';

Edit6.Text:='1';

end;

if combobox1.Text='2' then begin

a:=2;

Edit2.Visible:=true;

Edit3.Visible:=false;

Edit5.Visible:=true;

Edit6.Visible:=false;

Form1.Label9.Visible:=true;

Form1.Label10.Visible:=false;

Edit3.Text:='1';

Edit6.Text:='0';

end;

if combobox1.Text='3' then begin

a:=3;

Edit2.Visible:=true;

Edit3.Visible:=true;

Edit5.Visible:=true;

Edit6.Visible:=true;

Form1.Label9.Visible:=true;

Form1.Label10.Visible:=true;

end;

if combobox2.Text='1' then begin

b:=1;

Edit8.Visible:=false;

Edit9.Visible:=false;

Edit11.Visible:=false;

Edit12.Visible:=false;

ComboBox3.Visible:=true;

ComboBox4.Visible:=false;

ComboBox5.Visible:=false;

Combobox4.text:='';

Combobox5.text:='';

Edit8.Text:='1';

Edit9.Text:='1';

Edit11.Text:='1';

Edit12.Text:='1';

end;

if combobox2.Text='2' then begin

b:=2;

Edit8.Visible:=true;

Edit9.Visible:=false;

Edit11.Visible:=true;

Edit12.Visible:=false;

ComboBox3.Visible:=true;

ComboBox4.Visible:=true;

ComboBox5.Visible:=false;

Combobox5.text:='';

Edit9.Text:='1';

Edit12.Text:='1';

end;

if combobox2.Text='3' then begin

b:=3;

Edit8.Visible:=true;

Edit9.Visible:=true;

Edit11.Visible:=true;

Edit12.Visible:=true;

ComboBox3.Visible:=true;

ComboBox4.Visible:=true;

ComboBox5.Visible:=true;

end;

if ComboBox3.Text='Влево' then s1:=-1

else s1:=1;

if ComboBox4.Text='Влево' then s2:=-1

else s2:=1;

if ComboBox5.Text='Влево' then s3:=-1

else s3:=1;

m:=0.001;

if ComboBox6.Text='м' then m:=0.001;

if ComboBox6.Text='см' then m:=0.0000001;

if ComboBox6.Text='мм' then m:=0.000000001;

if ComboBox6.Text='м' then begin

Form1.Label7.Caption:='метрах';

Form1.Label16.Left:=672;

end;

if ComboBox6.Text='см' then begin

Form1.Label7.Caption:='сантиметрах ';

Form1.Label16.Left:=704;

end;

if ComboBox6.Text='мм' then begin

Form1.Label7.Caption:='миллиметрах ';

Form1.Label16.Left:=704;

end;

CloseFile(f);

end;

image2.Canvas.Brush.Color:=clWhite; image2.Canvas.Brush.Style:=bsSolid; image2.Canvas.Rectangle(0,0,600,667); Form1.Memo1.Clear;

Button1.Click;

end;

procedure TForm1.N4Click(Sender: TObject); var f:TextFile; p:string; begin if SaveDialog1.Execute then begin

if ExtractFileExt(SaveDialog1.FileName)='' then

AssignFile(f,SaveDialog1.FileName+'.txt')

else

AssignFile(f,SaveDialog1.FileName);

Rewrite(f);

p:=edit1.Text;

WriteLn(f,p);

p:=edit2.Text;

WriteLn(f,p);

p:=edit3.Text;

WriteLn(f,p);

p:=edit4.Text;

WriteLn(f,p);

p:=edit5.Text;

WriteLn(f,p);

p:=edit6.Text;

WriteLn(f,p);

p:=edit7.Text;

WriteLn(f,p);

p:=edit8.Text;

WriteLn(f,p);

p:=edit9.Text;

WriteLn(f,p);

p:=edit10.Text;

WriteLn(f,p);

p:=edit11.Text;

WriteLn(f,p);

p:=edit12.Text;

WriteLn(f,p);

p:=ComboBox1.Text;

WriteLn(f,p);

p:=ComboBox2.Text;

WriteLn(f,p);

p:=ComboBox3.Text;

WriteLn(f,p);

p:=ComboBox4.Text;

WriteLn(f,p);

p:=ComboBox5.Text;

WriteLn(f,p);

p:=ComboBox6.Text;

WriteLn(f,p);

CloseFile(f); end; end;

procedure TForm1.N8Click(Sender: TObject); begin form2.ShowModal; end;

procedure TForm1.N9Click(Sender: TObject); begin form3.ShowModal; end;

procedure TForm1.N10Click(Sender: TObject); begin form4.ShowModal; end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end;

end;

procedure TForm1.Edit10KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit9KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit8KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit7KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit6KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit12KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit11KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char); begin case key of

'0'..'9': ;

#8: ;

'.', ',': Key := #44;

else

key := #0; end; end;

procedure TForm1.ComboBox1KeyPress(Sender: TObject; var Key: Char); begin if key <> '' then key:=#0; end;

procedure TForm1.ComboBox2KeyPress(Sender: TObject; var Key: Char); begin if key <> '' then key:=#0; end;

procedure TForm1.ComboBox3KeyPress(Sender: TObject; var Key: Char); begin if key <> '' then key:=#0; end;

procedure TForm1.ComboBox4KeyPress(Sender: TObject; var Key: Char); begin if key <> '' then key:=#0; end;

procedure TForm1.ComboBox5KeyPress(Sender: TObject; var Key: Char); begin if key <> '' then key:=#0; end;

procedure TForm1.ComboBox6KeyPress(Sender: TObject; var Key: Char); begin if key <> '' then key:=#0; end;

end.

unit Unit2;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Menus;

type TForm2 = class(TForm)

MainMenu1: TMainMenu;

N1: TMenuItem;

N2: TMenuItem;

N3: TMenuItem;

N4: TMenuItem;

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Label4: TLabel;

Label5: TLabel;

Label6: TLabel;

Button1: TButton;

Button3: TButton;

Button4: TButton;

Button5: TButton;

Button6: TButton;

Button7: TButton;

ColorBox1: TColorBox;

ColorBox2: TColorBox;

ColorBox3: TColorBox;

ColorBox4: TColorBox;

ColorBox5: TColorBox;

ColorBox6: TColorBox;

Button2: TButton;

Label7: TLabel;

procedure N2Click(Sender: TObject);

procedure N3Click(Sender: TObject);

procedure N4Click(Sender: TObject);

procedure FormActivate(Sender: TObject);

procedure Button4Click(Sender: TObject);

procedure Button5Click(Sender: TObject);

procedure Button6Click(Sender: TObject);

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button7Click(Sender: TObject);

private

{ Private declarations } public

{ Public declarations } end;

var Form2: TForm2;

implementation

uses Unit1, Unit3;

{$R *.dfm}

procedure TForm2.N2Click(Sender: TObject); begin Form2.Label1.Visible:=true; Form2.Label4.Visible:=true; Form2.ColorBox1.Visible:=true; Form2.ColorBox4.Visible:=true; Form2.Button1.Visible:=true; Form2.Button4.Visible:=true; Form2.Label2.Visible:=false; Form2.Label5.Visible:=false; Form2.ColorBox2.Visible:=false; Form2.ColorBox5.Visible:=false; Form2.Button2.Visible:=false; Form2.Button5.Visible:=false; Form2.Label3.Visible:=false; Form2.Label6.Visible:=false; Form2.ColorBox3.Visible:=false; Form2.ColorBox6.Visible:=false; Form2.Button3.Visible:=false; Form2.Button6.Visible:=false; Form2.Button7.Visible:=true; Form2.Label7.Visible:=false; end;

procedure TForm2.N3Click(Sender: TObject); begin Form2.Label1.Visible:=false; Form2.Label4.Visible:=false; Form2.ColorBox1.Visible:=false; Form2.ColorBox4.Visible:=false; Form2.Button1.Visible:=false; Form2.Button4.Visible:=false; Form2.Label2.Visible:=true; Form2.Label5.Visible:=true; Form2.ColorBox2.Visible:=true; Form2.ColorBox5.Visible:=true; Form2.Button2.Visible:=true; Form2.Button5.Visible:=true; Form2.Label3.Visible:=false; Form2.Label6.Visible:=false; Form2.ColorBox3.Visible:=false; Form2.ColorBox6.Visible:=false; Form2.Button3.Visible:=false; Form2.Button6.Visible:=false; Form2.Button7.Visible:=true; Form2.Label7.Visible:=false; end;

procedure TForm2.N4Click(Sender: TObject); begin Form2.Label1.Visible:=false; Form2.Label4.Visible:=false; Form2.ColorBox1.Visible:=false; Form2.ColorBox4.Visible:=false; Form2.Button1.Visible:=false; Form2.Button4.Visible:=false; Form2.Label2.Visible:=false; Form2.Label5.Visible:=false; Form2.ColorBox2.Visible:=false; Form2.ColorBox5.Visible:=false; Form2.Button2.Visible:=false; Form2.Button5.Visible:=false; Form2.Label3.Visible:=true; Form2.Label6.Visible:=true; Form2.ColorBox3.Visible:=true; Form2.ColorBox6.Visible:=true; Form2.Button3.Visible:=true; Form2.Button6.Visible:=true; Form2.Button7.Visible:=true; Form2.Label7.Visible:=false; end;

procedure TForm2.FormActivate(Sender: TObject); begin Form2.Label1.Visible:=false; Form2.Label4.Visible:=false; Form2.ColorBox1.Visible:=false; Form2.ColorBox4.Visible:=false; Form2.Button1.Visible:=false; Form2.Button4.Visible:=false; Form2.Label2.Visible:=false; Form2.Label5.Visible:=false; Form2.ColorBox2.Visible:=false; Form2.ColorBox5.Visible:=false; Form2.Button2.Visible:=false; Form2.Button5.Visible:=false; Form2.Label3.Visible:=false; Form2.Label6.Visible:=false; Form2.ColorBox3.Visible:=false; Form2.ColorBox6.Visible:=false; Form2.Button3.Visible:=false; Form2.Button6.Visible:=false; Form2.Button7.Visible:=false; Form2.Canvas.MoveTo(0,0); Form2.Canvas.LineTo(260,0); Form2.Label7.Visible:=true; Form2.ColorBox1.Selected:=Form1.Color; Form2.ColorBox2.Selected:=Form1.Edit1.Color; Form2.ColorBox3.Selected:=Form1.Memo1.Color; Form2.ColorBox4.Selected:=Form1.Label1.Font.Color; Form2.ColorBox5.Selected:=Form1.Edit1.Font.Color; Form2.ColorBox6.Selected:=Form1.Memo1.Font.Color; end;

procedure TForm2.Button4Click(Sender: TObject); begin Form2.ColorBox1.Selected:=clBtnFace; Form2.ColorBox4.Selected:=clBlack; Button1.Click; end;

procedure TForm2.Button5Click(Sender: TObject); begin Form2.ColorBox2.Selected:=clWhite; Form2.ColorBox5.Selected:=clBlack; Button2.Click; end;

procedure TForm2.Button6Click(Sender: TObject); begin Form2.ColorBox3.Selected:=clWhite; Form2.ColorBox6.Selected:=clBlack; Button3.Click; end;

procedure TForm2.Button1Click(Sender: TObject); begin if Form2.ColorBox1.Selected = Form2.ColorBox4.Selected then MessageDlg('Цвет фона и текста одинаковы и будут сливаться. Сделайте другой выбор',mtError,[mbOK],0) else begin Form1.Color:=Form2.ColorBox1.Selected; Form1.Label1.Color:=Form2.ColorBox1.Selected; Form1.Label2.Color:=Form2.ColorBox1.Selected; Form1.Label3.Color:=Form2.ColorBox1.Selected; Form1.Label4.Color:=Form2.ColorBox1.Selected; Form1.Label5.Color:=Form2.ColorBox1.Selected; Form1.Label8.Color:=Form2.ColorBox1.Selected; Form1.Label9.Color:=Form2.ColorBox1.Selected; Form1.Label10.Color:=Form2.ColorBox1.Selected; Form1.Label11.Color:=Form2.ColorBox1.Selected; Form1.Label12.Color:=Form2.ColorBox1.Selected; Form1.Label13.Color:=Form2.ColorBox1.Selected; Form1.Label14.Color:=Form2.ColorBox1.Selected; Form1.Label15.Color:=Form2.ColorBox1.Selected; Form1.Label18.Color:=Form2.ColorBox1.Selected; Form1.Label19.Color:=Form2.ColorBox1.Selected; Form2.Color:=Form2.ColorBox1.Selected; Form2.Label1.Color:=Form2.ColorBox1.Selected; Form2.Label2.Color:=Form2.ColorBox1.Selected; Form2.Label3.Color:=Form2.ColorBox1.Selected; Form2.Label4.Color:=Form2.ColorBox1.Selected; Form2.Label5.Color:=Form2.ColorBox1.Selected; Form2.Label6.Color:=Form2.ColorBox1.Selected; Form2.Label7.Color:=Form2.ColorBox1.Selected; Form3.Color:=Form2.ColorBox1.Selected; Form1.Label1.Font.Color:=Form2.ColorBox4.Selected; Form1.Label2.Font.Color:=Form2.ColorBox4.Selected; Form1.Label3.Font.Color:=Form2.ColorBox4.Selected; Form1.Label4.Font.Color:=Form2.ColorBox4.Selected; Form1.Label5.Font.Color:=Form2.ColorBox4.Selected; Form1.Label8.Font.Color:=Form2.ColorBox4.Selected; Form1.Label9.Font.Color:=Form2.ColorBox4.Selected; Form1.Label10.Font.Color:=Form2.ColorBox4.Selected; Form1.Label11.Font.Color:=Form2.ColorBox4.Selected; Form1.Label12.Font.Color:=Form2.ColorBox4.Selected; Form1.Label13.Font.Color:=Form2.ColorBox4.Selected; Form1.Label14.Font.Color:=Form2.ColorBox4.Selected; Form1.Label15.Font.Color:=Form2.ColorBox4.Selected; Form1.Label18.Font.Color:=Form2.ColorBox4.Selected; Form1.Label19.Font.Color:=Form2.ColorBox4.Selected; Form1.Button1.Font.Color:=Form2.ColorBox4.Selected; Form2.Label1.Font.Color:=Form2.ColorBox4.Selected; Form2.Label2.Font.Color:=Form2.ColorBox4.Selected; Form2.Label3.Font.Color:=Form2.ColorBox4.Selected; Form2.Label4.Font.Color:=Form2.ColorBox4.Selected; Form2.Label5.Font.Color:=Form2.ColorBox4.Selected; Form2.Label6.Font.Color:=Form2.ColorBox4.Selected; Form2.Label7.Font.Color:=Form2.ColorBox4.Selected; Form2.Button1.Font.Color:=Form2.ColorBox4.Selected; Form2.Button4.Font.Color:=Form2.ColorBox4.Selected; Form3.Color:=Form2.ColorBox1.Selected; end; end;

procedure TForm2.Button2Click(Sender: TObject); begin if Form2.ColorBox2.Selected = Form2.ColorBox5.Selected then MessageDlg('Цвета полей и текста одинаковы и будут сливаться. Сделайте другой выбор',mtError,[mbOK],0) else begin Form1.Edit1.Color:=Form2.ColorBox2.Selected; Form1.Edit2.Color:=Form2.ColorBox2.Selected; Form1.Edit3.Color:=Form2.ColorBox2.Selected; Form1.Edit4.Color:=Form2.ColorBox2.Selected; Form1.Edit5.Color:=Form2.ColorBox2.Selected; Form1.Edit6.Color:=Form2.ColorBox2.Selected; Form1.Edit7.Color:=Form2.ColorBox2.Selected; Form1.Edit8.Color:=Form2.ColorBox2.Selected; Form1.Edit9.Color:=Form2.ColorBox2.Selected; Form1.Edit10.Color:=Form2.ColorBox2.Selected; Form1.Edit11.Color:=Form2.ColorBox2.Selected; Form1.Edit12.Color:=Form2.ColorBox2.Selected; Form1.Edit1.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit2.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit3.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit4.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit5.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit6.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit7.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit8.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit9.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit10.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit11.Font.Color:=Form2.ColorBox5.Selected; Form1.Edit12.Font.Color:=Form2.ColorBox5.Selected; Form1.ComboBox1.Color:=Form2.ColorBox2.Selected; Form1.ComboBox2.Color:=Form2.ColorBox2.Selected; Form1.ComboBox3.Color:=Form2.ColorBox2.Selected; Form1.ComboBox4.Color:=Form2.ColorBox2.Selected; Form1.ComboBox5.Color:=Form2.ColorBox2.Selected; Form1.ComboBox6.Color:=Form2.ColorBox2.Selected; Form1.ComboBox1.Font.Color:=Form2.ColorBox5.Selected; Form1.ComboBox2.Font.Color:=Form2.ColorBox5.Selected; Form1.ComboBox3.Font.Color:=Form2.ColorBox5.Selected; Form1.ComboBox4.Font.Color:=Form2.ColorBox5.Selected; Form1.ComboBox5.Font.Color:=Form2.ColorBox5.Selected; Form1.ComboBox6.Font.Color:=Form2.ColorBox5.Selected; end; end;

procedure TForm2.Button3Click(Sender: TObject); begin if Form2.ColorBox3.Selected = Form2.ColorBox6.Selected then MessageDlg('Цвета полея и текста одинаковы и будут сливаться. Сделайте другой выбор',mtError,[mbOK],0) else begin Form1.Memo1.Color:=Form2.ColorBox3.Selected; Form1.Memo1.Font.Color:= Form2.ColorBox6.Selected end end;

procedure TForm2.Button7Click(Sender: TObject); begin ColorBox1.Selected:=clBtnFace; ColorBox2.Selected:=clWhite; ColorBox3.Selected:=clWhite; ColorBox4.Selected:=clBlack; ColorBox5.Selected:=clBlack; ColorBox6.Selected:=clBlack; Form1.Color:=clBtnFace; Form1.Label1.Color:=clBtnFace; Form1.Label2.Color:=clBtnFace; Form1.Label3.Color:=clBtnFace; Form1.Label4.Color:=clBtnFace; Form1.Label5.Color:=clBtnFace; Form1.Label8.Color:=clBtnFace; Form1.Label9.Color:=clBtnFace; Form1.Label10.Color:=clBtnFace; Form1.Label11.Color:=clBtnFace; Form1.Label12.Color:=clBtnFace; Form1.Label13.Color:=clBtnFace; Form1.Label14.Color:=clBtnFace; Form1.Label15.Color:=clBtnFace; Form1.Label18.Color:=clBtnFace; Form1.Label19.Color:=clBtnFace; Form1.Label1.Font.Color:=clBlack; Form1.Label2.Font.Color:=clBlack; Form1.Label3.Font.Color:=clBlack; Form1.Label4.Font.Color:=clBlack; Form1.Label5.Font.Color:=clBlack; Form1.Label8.Font.Color:=clBlack; Form1.Label9.Font.Color:=clBlack; Form1.Label10.Font.Color:=clBlack; Form1.Label11.Font.Color:=clBlack; Form1.Label12.Font.Color:=clBlack; Form1.Label13.Font.Color:=clBlack; Form1.Label14.Font.Color:=clBlack; Form1.Label15.Font.Color:=clBlack; Form1.Label18.Font.Color:=clBlack; Form1.Label19.Font.Color:=clBlack; Form1.Edit1.Color:=clWhite; Form1.Edit2.Color:=clWhite; Form1.Edit3.Color:=clWhite; Form1.Edit4.Color:=clWhite; Form1.Edit5.Color:=clWhite; Form1.Edit6.Color:=clWhite; Form1.Edit7.Color:=clWhite; Form1.Edit8.Color:=clWhite; Form1.Edit9.Color:=clWhite; Form1.Edit10.Color:=clWhite; Form1.Edit11.Color:=clWhite; Form1.Edit12.Color:=clWhite; Form1.Edit1.Font.Color:=clBlack; Form1.Edit2.Font.Color:=clBlack; Form1.Edit3.Font.Color:=clBlack; Form1.Edit4.Font.Color:=clBlack; Form1.Edit5.Font.Color:=clBlack; Form1.Edit6.Font.Color:=clBlack; Form1.Edit7.Font.Color:=clBlack; Form1.Edit8.Font.Color:=clBlack; Form1.Edit9.Font.Color:=clBlack; Form1.Edit10.Font.Color:=clBlack; Form1.Edit11.Font.Color:=clBlack; Form1.Edit12.Font.Color:=clBlack; Form1.ComboBox1.Color:=clWhite; Form1.ComboBox2.Color:=clWhite; Form1.ComboBox3.Color:=clWhite; Form1.ComboBox4.Color:=clWhite; Form1.ComboBox5.Color:=clWhite; Form1.ComboBox6.Color:=clWhite; Form1.ComboBox1.Font.Color:=clBlack; Form1.ComboBox2.Font.Color:=clBlack; Form1.ComboBox3.Font.Color:=clBlack; Form1.ComboBox4.Font.Color:=clBlack; Form1.ComboBox5.Font.Color:=clBlack; Form1.ComboBox6.Font.Color:=clBlack; Form1.Button1.Font.Color:=clBlack; Form1.Memo1.Color:=clWhite; Form1.Memo1.Font.Color:=clBlack; Form2.Color:=clBtnFace; Form2.Label1.Color:=clBtnFace; Form2.Label2.Color:=clBtnFace; Form2.Label3.Color:=clBtnFace; Form2.Label4.Color:=clBtnFace; Form2.Label5.Color:=clBtnFace; Form2.Label6.Color:=clBtnFace; Form2.Label7.Color:=clBtnFace; Form2.Label1.Font.Color:=clBlack; Form2.Label2.Font.Color:=clBlack; Form2.Label3.Font.Color:=clBlack; Form2.Label4.Font.Color:=clBlack; Form2.Label5.Font.Color:=clBlack; Form2.Label6.Font.Color:=clBlack; Form2.Label7.Font.Color:=clBlack; Form2.Button1.Font.Color:=clBlack; Form2.Button2.Font.Color:=clBlack; Form2.Button3.Font.Color:=clBlack; Form2.Button4.Font.Color:=clBlack; Form2.Button5.Font.Color:=clBlack; Form2.Button6.Font.Color:=clBlack; Form2.Button7.Font.Color:=clBlack; Form3.Color:=clBtnFace; end;

end.

unit Unit3;

interface

uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type TForm3 = class(TForm)