83 / 19 / 5
Регистрация: 01.02.2015
Сообщений: 655
|
|
05.04.2015, 13:26
[ТС]
|
2
|
есть две формы addition
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
| unit Addition;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Standart, StdCtrls, Buttons, ExtCtrls, Standart, Grids, Mask;
type
TAdditionalTab = class(TForm)
Bevel1: TBevel;
BitBtn1: TBitBtn;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
Shape1: TShape;
Image1: TImage;
Label1: TLabel;
MaskEdit1: TMaskEdit;
StringGrid1: TStringGrid;
Button1: TButton;
OpenDialog1: TOpenDialog;
Label2: TLabel;
Edit1: TEdit;
Button2: TButton;
procedure BitBtn1Click(Sender: TObject);
procedure BitBtn3Click(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
AdditionalTab: TAdditionalTab;
implementation
{$R *.dfm}
procedure TAdditionalTab.BitBtn1Click(Sender: TObject);
begin
StandartTab.Show;
AdditionalTab.Hide;
end;
procedure TAdditionalTab.BitBtn3Click(Sender: TObject);
begin
StandartTab.Close;
end;
procedure TAdditionalTab.Button1Click(Sender: TObject);
var x,y:integer;
begin
with StringGrid1 do
for x:=0 to ColCount-1 do
for y:=0 to RowCount-1 do
Cells[x,y]:='Cord.'+IntToStr(x)+'-'+IntToStr(y);
end;
procedure TAdditionalTab.Button2Click(Sender: TObject);
begin
OpenDialog1.FileName:='*.*';
if OpenDialog1.Execute then Edit1.Text:=OpenDialog1.FileName;
end;
procedure TAdditionalTab.SpeedButton1Click(Sender: TObject);
begin
if SpeedButton1.Down=True then
begin
Image1.Visible:=False;
Shape1.Brush.Color:=clRed;
end;
end;
procedure TAdditionalTab.SpeedButton2Click(Sender: TObject);
begin
if SpeedButton2.Down=True then
begin
Image1.Visible:=True;
Shape1.Brush.Color:=clLime;
end;
end. |
|
И standart
| Delphi | 1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
| unit Standart;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, ExtCtrls, Addition;
type
TStandartTab = class(TForm)
Panel1: TPanel;
Label1: TLabel;
Edit1: TEdit;
Memo1: TMemo;
RadioGroup1: TRadioGroup;
ScrollBar1: TScrollBar;
ComboBox1: TComboBox;
ListBox1: TListBox;
GroupBox1: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
CheckBox1: TCheckBox;
CheckBox2: TCheckBox;
MainMenu1: TMainMenu;
N1: TMenuItem;
N2: TMenuItem;
N3: TMenuItem;
N4: TMenuItem;
N5: TMenuItem;
N6: TMenuItem;
PopupMenu1: TPopupMenu;
N7: TMenuItem;
N8: TMenuItem;
procedure RadioGroup1Click(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure N3Click(Sender: TObject);
procedure N7Click(Sender: TObject);
procedure N8Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
StandartTab: TStandartTab;
implementation
{$R *.dfm}
procedure TStandartTab.Button1Click(Sender: TObject);
var
x:integer;
begin
Memo1.Clear; //Очистка содержимого Memo
Memo1.Lines.Add(Edit1.Text); //скопировать в Memo текст из Edit1
Memo1.Lines.Add(ComboBox1.Text); //скопировать в Memo текст из ComboBox
//скопировать в Memo1 выбранный текст из окна списка ListBox1
Memo1.Lines.Add('ListBox Строка #'+IntToStr(ListBox1.ItemIndex+1));
if RadioButton1.Checked then Memo1.Color:=clWhite;
if RadioButton2.Checked Then Memo1.Color:=clAqua;
end;
procedure TStandartTab.Button2Click(Sender: TObject);
begin
Close;
end;
procedure TStandartTab.Button3Click(Sender: TObject);
begin
if CheckBox1.State=cbChecked then StandartTab.Font.Style:=[fsItalic]
else StandartTab.Font.Style:=[ ];
if CheckBox2.State=cbChecked then StandartTab.Font.Color:=clPurple
else StandartTab.Font.Color:=clBlack;
end;
procedure TStandartTab.Button4Click(Sender: TObject);
begin
StandartTab.Hide; // Спрятать форму
Addition.Show;// Показать форму
end;
procedure TStandartTab.N3Click(Sender: TObject);
begin
Close;
end;
procedure TStandartTab.N7Click(Sender: TObject);
var
x:integer;
begin
Memo1.Clear; //Очистка содержимого Memo
Memo1.Lines.Add(Edit1.Text); //скопировать в Memo текст из Edit1
Memo1.Lines.Add(ComboBox1.Text); //скопировать в Memo текст из ComboBox
//скопировать в Memo1 выбранный текст из окна списка ListBox1
Memo1.Lines.Add('ListBox Строка #'+IntToStr(ListBox1.ItemIndex+1));
if RadioButton1.Checked then Memo1.Color:=clWhite;
if RadioButton2.Checked Then Memo1.Color:=clAqua;
end;
procedure TStandartTab.N8Click(Sender: TObject);
begin
if CheckBox1.State=cbChecked then StandartTab.Font.Style:=[fsItalic]
else StandartTab.Font.Style:=[ ];
if CheckBox2.State=cbChecked then StandartTab.Font.Color:=clPurple
else StandartTab.Font.Color:=clBlack;
end;
procedure TStandartTab.RadioGroup1Click(Sender: TObject);
begin
if RadioGroup1.ItemIndex=0 Then StandartTab.Color:=clSilver;
if RadioGroup1.ItemIndex=1 Then StandartTab.Color:=clBlue;
if RadioGroup1.ItemIndex=2 Then StandartTab.Color:=clYellow;
if RadioGroup1.ItemIndex=3 Then StandartTab.Color:=clRed;
end;
procedure TStandartTab.ScrollBar1Change(Sender: TObject);
begin
RadioGroup1.ItemIndex:=ScrollBar1.Position;
end;
end. |
|
если у кого то есть хоть малейшие предположения отпишитесь
0
|
(
Сообщение было отмечено Shura_deg как решение
