Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Вниз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;), но тогда выдается ошибка, если я первую строку передвигаю вниз и нажимаю кнопку Установить, после чего открываю форму и возвращаю строку, к-я была первой обратно в первую позицию и при нажатии на кнопку Установить выскакивает ошибка.
Что здесь за трабл?
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c