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:
| rocedure TForm1.SaveConfig(MitStartWave: Boolean);
var
sCache : String;
tmpColor : TColor;
sColor : String;
iCache : Integer;
begin
sCache := cbFontName.Text;
iConfig.WriteString('Font','Font Name',sCache);
sCache := cbFontSize.Text;
iConfig.WriteString('Font','Font Size',sCache);
tmpColor := cbFontColor.Selected;
sColor := ColorToString(tmpColor);
iConfig.WriteString('Font','Font Color',sColor);
if ToolButton1.Down then
iConfig.WriteBool('Font','Font Bold',TRUE)
else
iConfig.WriteBool('Font','Font Bold',FALSE);
if ToolButton3.Down then
iConfig.WriteBool('Font','Font Italic',TRUE)
else
iConfig.WriteBool('Font','Font Italic',FALSE);
if ToolButton4.Down then
iConfig.WriteBool('Font','Font Underline',TRUE)
else
iConfig.WriteBool('Font','Font Underline',FALSE);
if Messages.Color = $00FFE2C6 then
begin
iConfig.WriteString('Font','Hintergrundfarbe','$00FFE2C6');
end else
begin
tmpColor := cbHintergrund.Selected;
sColor := ColorToString(tmpColor);
iConfig.WriteString('Font','Hintergrundfarbe',sColor);
end;
iCache := Form1.ClientWidth;
iConfig.WriteInteger('Window','Width',iCache);
iCache := Form1.ClientHeight;
iConfig.WriteInteger('Window','Height',iCache);
iCache := Form1.Left;
iConfig.WriteInteger('Window','Left',iCache);
iCache := Form1.Top;
iConfig.WriteInteger('Window','Top',iCache);
if Form1.WindowState = wsNormal then
begin
iConfig.WriteString('Window','State','wsNormal');
end else
begin
if Form1.WindowState = wsMaximized then
begin
iConfig.WriteString('Window','State','wsMaximized');
end else
begin
iConfig.WriteString('Window','State','wsMinimized');
end;
end;
sCache := 'C:\WINNT\Media\tada.wav';
iConfig.WriteString('Sound','Start Wave',sCache);
if MitStartWave then
begin
if SoundForm.cbSound2.Checked then
begin
iConfig.WriteBool('Sound','Play Start Wave',TRUE);
end else
begin
iConfig.WriteBool('Sound','Play Start Wave',FALSE);
end;
iConfig.WriteString('Sound','Start Wave',SoundForm.Edit2.Text);
end;
end; |