• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы Shouldercannon
  • Дата начала
S

Shouldercannon

Собственно вот
Код:
...
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. Без него всё стало нормально.
 
I

ikot

Собственно вот
Код:
...
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. Без него всё стало нормально.

Сформулируйте, пожалуйста, свой вопрос поконкретнее, а то из вашей писанины так и не ясно, в чем проблема...
 
S

Shouldercannon

Всему виной было событие
Код:
procedure TForm1.FormResize(Sender: TObject);
 
T

Titan

Товарищи, вы порой на даты смотрите.
Осмелюсь предположить, что проблема не актуальна :rolleyes:
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!