Сохранение размеров 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]

Ипать, допёр. РАБОТАЕТ.

> Тебе башка начто на плечах? Реально ответь, для каких целей
> ты ее применяеш.
Вопрос неасилил?

← →
Антибайт (2006-06-11 00:51) [7]

> Вопрос неасилил?

Что там делает моя башка - я как-то ХЗ. Не заглядывал внутрь :)

Сохранение размеров GRushSplitter и формы Найти похожие ветки