Shouldercannon » 26 май 2011, 15:20
Собственно вот
...
var
Form1: TForm1;
SizeY, SizeX: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
RegFile: TRegINIFile;
begin
RegFile := TRegINIFile.Create('Software');
RegFile.OpenKey('Project1', True);
SizeY := RegFile.ReadString('Size', 'Height', '0');
SizeX := RegFile.ReadString('Size', 'Width', '0');
RegFile.Free;
Caption := SizeY + '/' + SizeX;
ClientHeight := StrToInt(SizeY);
ClientWidth := StrToInt(SizeX);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
SizeY := IntToStr(ClientHeight);
SizeX := IntToStr(ClientWidth);
Label1.Caption := SizeY + '/' + SizeX;
end;
procedure TForm1.BExitClick(Sender: TObject);
var
RegFile: TRegINIFile;
begin
RegFile := TRegINIFile.Create('Software');
RegFile.OpenKey('Project1', True);
RegFile.WriteString('Size', 'Height', SizeY);
RegFile.WriteString('Size', 'Width', SizeX);
RegFile.Free;
Application.Terminate;
end;
...
Хоть убейся, но ширина постоянно 266
P.S. Ширина 266 выставлена поумолчанию при создании формы (Properties Формы).
Всему виной было событие OnResize. Без него всё стало нормально.
Собственно вот
...
var
Form1: TForm1;
SizeY, SizeX: string;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
RegFile: TRegINIFile;
begin
RegFile := TRegINIFile.Create('Software');
RegFile.OpenKey('Project1', True);
SizeY := RegFile.ReadString('Size', 'Height', '0');
SizeX := RegFile.ReadString('Size', 'Width', '0');
RegFile.Free;
Caption := SizeY + '/' + SizeX;
ClientHeight := StrToInt(SizeY);
ClientWidth := StrToInt(SizeX);
end;
procedure TForm1.FormResize(Sender: TObject);
begin
SizeY := IntToStr(ClientHeight);
SizeX := IntToStr(ClientWidth);
Label1.Caption := SizeY + '/' + SizeX;
end;
procedure TForm1.BExitClick(Sender: TObject);
var
RegFile: TRegINIFile;
begin
RegFile := TRegINIFile.Create('Software');
RegFile.OpenKey('Project1', True);
RegFile.WriteString('Size', 'Height', SizeY);
RegFile.WriteString('Size', 'Width', SizeX);
RegFile.Free;
Application.Terminate;
end;
...
Хоть убейся, но ширина постоянно 266
P.S. Ширина 266 выставлена поумолчанию при создании формы (Properties Формы).
Всему виной было событие OnResize. Без него всё стало нормально.