Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Не получается задать ширину  (Прочитано 4164 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Shouldercannon
Постоялец

ru
Offline Offline

« : 26-05-2011 11:23 » 

Собственно вот
Код: (Delphi)
...
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 Формы).
« Последнее редактирование: 26-05-2011 12:45 от Джон » Записан
RXL
Технический
Администратор

ru
Offline Offline
Пол: Мужской

WWW
« Ответ #1 : 26-05-2011 11:57 » 

Shouldercannon, о чем речь?
Записан

... мы преодолеваем эту трудность без синтеза распределенных прототипов. (с) Жуков М.С.
Oldy
Команда клуба

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 26-05-2011 12:42 » 

.
Записан

С уважением, Oldy.
Shouldercannon
Постоялец

ru
Offline Offline

« Ответ #3 : 26-05-2011 13:29 » 

Всему виной было событие OnResize. Без него всё стало нормально.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines