Форум: "KOL";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Вниз

Сохранение размеров 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 вся ветка

Форум: "KOL";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.46 MB
Время: 0.064 c