Не получается задать ширину

Shouldercannon

Well-known member
25.05.2010
128
0
#1
Собственно вот
Код:
...
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. Без него всё стало нормально.
 

ikot

Active member
11.06.2008
27
0
#2
Собственно вот
Код:
...
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. Без него всё стало нормально.
Сформулируйте, пожалуйста, свой вопрос поконкретнее, а то из вашей писанины так и не ясно, в чем проблема...
 

Titan

Well-known member
10.06.2004
105
0
#6
Товарищи, вы порой на даты смотрите.
Осмелюсь предположить, что проблема не актуальна :rolleyes: