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)