RxCheckListBox

← →
zolotov (2003-02-25 10:50) [0]

Уважаемые мастера, подскажите, пожалуйста, как сделать, чтобы запоминались отмеченные птичкой строки и их позиция после перестаноки. При использовании FormStorage Сохраняются или отмеченные строки или их позиция.
Что нужно сделать, чтобы сохранялось и то и другое. Желательно без записи в ini файл.

Заранее спасибо.

← →
VAleksey (2003-02-25 11:31) [1]

Что значит без записи ? :)
Без записи в они точно никак не сохранятся.
Или в реестр их класть ?

Сохраняй сам эти строки. Или полностью весь лист куда - нибудь.

← →
zolotov (2003-02-25 11:58) [2]

Я имею ввиду, можно ли запомнить и отмеченные позиции и положение при помощи FormStorage.

← →
zolotov (2003-02-25 23:40) [3]

Я, конечно, нашел выход, а именно пишу следующий код в событии формы Onctivate

for i:=0 to MainForm.RxDBGrid1.Columns.Count-1 do
begin
if MainForm.RxDBGrid1.Columns[i].Visible then
begin
find:=false; j:=0;
while not find and (j<RxCheckListBox1.Items.Count) do
if RxCheckListBox1.Items[j]=MainForm.RxDBGrid1.Columns.Items[i].Title.Caption then
find:=true
else inc(j);
if find then
RxCheckListBox1.Checked[j]:=true;
end;
end;

Но, дело в том, что при закрытии формы видно, как все птички исчезают. Мелочь, а неприятно. Я попытался перед закрытием формы сделать ее невидимой (Visible:=False;), но тогда выдается ошибка, если я первую строку передвигаю вниз и нажимаю кнопку Установить, после чего открываю форму и возвращаю строку, к-я была первой обратно в первую позицию и при нажатии на кнопку Установить выскакивает ошибка.

Что здесь за трабл?

RxCheckListBox Найти похожие ветки