| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Сохранение размеров GRushSplitter и формы [Delphi, Windows]
parovoZZ © (2006-06-09 19:27:00)Здарова
Делаю так
type
TSize = packed record
Size : WindowPlacement;
splt : word;
end;
var
Size : TSize;
f : file;
begin
{$I-}
AssignFile (f, 'DATA\Config.ini');
Reset (f, 1);
if IOResult <> 0 then exit;
FillChar (Size, SizeOf (Size), 0);
try
BlockRead (F, Size, SizeOf (TSize));
finally
CloseFile (f);
end;
{$I+}
SetWindowPlacement (Form.Handle, @Size.Size);
GRushSplitter.Left := Size.splt;
end;
Не меняется позиция сплиттера. Надо ещё что-то сделать?
И вдогонку. Есть ли в КОЛ аналогичные функции?
Антибайт (2006-06-11 00:51:00) [1]
> Вопрос неасилил?
Что там делает моя башка - я как-то ХЗ. Не заглядывал внутрь :)
homm (2006-06-10 17:08:00) [2]
> Тебе башка начто на плечах? Реально ответь, для каких целей
> ты ее применяеш.
Вопрос неасилил?
parovoZZ (2006-06-10 01:28:00) [3]Ипать, допёр. РАБОТАЕТ.
homm (2006-06-10 00:12:00) [4]2 parovoZZ
Тебе башка начто на плечах? Реально ответь, для каких целей ты ее применяеш.
homm (2006-06-10 00:08:00) [5]> GRushSplitter.Left := Size.splt;
<control, тот что есть первый для сплиттера>.Width := Size.splt;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
parovoZZ (2006-06-09 23:34:00) [6]Не, стоп. Какой ещё width? Мне надо сохранить позицию слева (Align := caLeft). А ширину зачем сохранять? А написал функцию LoadSettings, которая вызывается OnFormCreate формы.
homm (2006-06-09 22:41:00) [7]А сказать что это такое вы тут написали не надо?
интуитивно догадываюсь что пропущена строка:
Procedure TForm1.FormCreate(........);
но с увереностью сказать не могу.
> GRushSplitter.Left := Size.splt;
<control, тот что есть первый для сплиттера>.Width := Size.splt;
| |
