Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.55 MB
Время: 0.035 c
3-16959
VLL
2003-02-14 12:54
2003.03.06
Список серверов


1-16994
_Shadow_
2003-02-21 21:24
2003.03.06
Генерация и изменение текста


1-17055
Ash
2003-02-25 13:17
2003.03.06
быстрее TStringList


3-16968
AlexAlex2
2003-02-14 16:59
2003.03.06
Как бороться с Directory is bizy на присв. Session.PrivateDir ?


14-17261
Zhenka
2003-02-17 07:42
2003.03.06
Пишу Твикер Для Windows!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский