Текущий архив: 2007.02.25;
Скачать: CL | DM;
Вниз
Сохранение размеров GRushSplitter и формы Найти похожие ветки
← →
parovoZZ © (2006-06-09 19:27) [0]Здарова
Делаю так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;
Не меняется позиция сплиттера. Надо ещё что-то сделать?
И вдогонку. Есть ли в КОЛ аналогичные функции?
← →
homm © (2006-06-09 22:41) [1]А сказать что это такое вы тут написали не надо?
интуитивно догадываюсь что пропущена строка:
Procedure TForm1.FormCreate(........);
но с увереностью сказать не могу.
> GRushSplitter.Left := Size.splt;
<control, тот что есть первый для сплиттера>.Width := Size.splt;
← →
parovoZZ © (2006-06-09 23:34) [2]Не, стоп. Какой ещё width? Мне надо сохранить позицию слева (Align := caLeft). А ширину зачем сохранять? А написал функцию LoadSettings, которая вызывается OnFormCreate формы.
← →
homm © (2006-06-10 00:08) [3]> GRushSplitter.Left := Size.splt;
<control, тот что есть первый для сплиттера>.Width := Size.splt;
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
← →
homm © (2006-06-10 00:12) [4]2 parovoZZ
Тебе башка начто на плечах? Реально ответь, для каких целей ты ее применяеш.
← →
parovoZZ © (2006-06-10 01:28) [5]Ипать, допёр. РАБОТАЕТ.
← →
homm © (2006-06-10 17:08) [6]
> Тебе башка начто на плечах? Реально ответь, для каких целей
> ты ее применяеш.
Вопрос неасилил?
← →
Антибайт (2006-06-11 00:51) [7]
> Вопрос неасилил?
Что там делает моя башка - я как-то ХЗ. Не заглядывал внутрь :)
Страницы: 1 вся ветка
Текущий архив: 2007.02.25;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.045 c
