void __fastcall TForm1::clbClickCheck(TObject *Sender)
{
if(clb->State[clb->ItemIndex]==cbChecked)
{
if(clb->Tag!=-1)clb->State[clb->Tag] = cbUnchecked;
clb->Tag = clb->ItemIndex;
}
else
clb->Tag = -1;
}
TCheckListBox
Подскажите, как сделать так, чтобы в TCheckListBox можно в любой момент времени выбирать только одно значение т.е. запретить множественный выбор.
Присвоить свойству Tag CheckListBox-a -1.
Переопределить событие OnClickCheck
Переопределить событие OnClickCheck
Код:
[COLOR=black][FONT=Verdana]Спасибо.[/FONT][/COLOR][COLOR=black][FONT=Verdana][/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Что-то с этим компонентом у меня тупик... в голове :) [/FONT][/COLOR][COLOR=black][FONT=Verdana][/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Не могу среди методов найти тот, который удаляет строку из него с нужным индексом. Например, как удалить строку, если она пустая?[/FONT][/COLOR][COLOR=black][FONT=Verdana][/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Что-то с этим компонентом у меня тупик... в голове :) [/FONT][/COLOR][COLOR=black][FONT=Verdana][/FONT][/COLOR]
[COLOR=black][FONT=Verdana]Не могу среди методов найти тот, который удаляет строку из него с нужным индексом. Например, как удалить строку, если она пустая?[/FONT][/COLOR][COLOR=black][FONT=Verdana][/FONT][/COLOR]
Код:
for (int i = 0; i<CheckListBox1->Count; i++)
{
if(CheckListBox1->Items->Strings=="")
{
//удалить
}
}
{
if(CheckListBox1->Items->Strings=="")
{
//удалить
}
}
Строки записываются в TStrings. Удаление для TStrings: Delete(index), и удаление всегда нужно начинать с конца.
Код:
for (int i = clb->Count-1; i>=0; i--)
{
if(clb->Items->Strings=="")
{
clb->Items->Delete(i);
}
}
{
if(clb->Items->Strings=="")
{
clb->Items->Delete(i);
}
}
Большое спасибо за помощь!
Что-то я сегодня совсем плохая .:rolleyes:
Видимо сказывается что уже пятница и думаю о выходных. :)
Что-то я сегодня совсем плохая .:rolleyes:
Видимо сказывается что уже пятница и думаю о выходных. :)
[QUOTE=Inga]Подскажите, как сделать так, чтобы в TCheckListBox можно в любой момент времени выбирать только одно значение т.е. запретить множественный выбор.[/QUOTE]
А не проще использовать TRadioGroup?
А не проще использовать TRadioGroup?
[quote=Freeman]А не проще использовать TRadioGroup?[/quote]
Просто раньше не приходилось сталкиваться с TCheckListBox. Вот решила ознакомиться с компонентом, его возможности и т.п.
С помощью Мerlin, вроде разобралась. :)
P.S. Реализация запрета множественного выбора у Мerlin весьма своеобразная. Я бы так не догадалась. Как еще можно запретить множественный выбор. Просто интересно в плане развития :)
Просто раньше не приходилось сталкиваться с TCheckListBox. Вот решила ознакомиться с компонентом, его возможности и т.п.
С помощью Мerlin, вроде разобралась. :)
P.S. Реализация запрета множественного выбора у Мerlin весьма своеобразная. Я бы так не догадалась. Как еще можно запретить множественный выбор. Просто интересно в плане развития :)
Предложенный код, все же не до конца рабочий:
Если начать щелкать на последней видимой надписи в TCheckListBox в момент скролла, то снова начинается множественный выбор. :mad:
Код:
[LEFT]void __fastcall TForm1::clbClickCheck(TObject *Sender)
{
if(clb->State[clb->ItemIndex]==cbChecked)
{
if(clb->Tag!=-1)clb->State[clb->Tag] = cbUnchecked;
clb->Tag = clb->ItemIndex;
}
else
clb->Tag = -1;
}[/LEFT]
{
if(clb->State[clb->ItemIndex]==cbChecked)
{
if(clb->Tag!=-1)clb->State[clb->Tag] = cbUnchecked;
clb->Tag = clb->ItemIndex;
}
else
clb->Tag = -1;
}[/LEFT]
Если начать щелкать на последней видимой надписи в TCheckListBox в момент скролла, то снова начинается множественный выбор. :mad:
[QUOTE=Inga]Если начать щелкать на последней видимой надписи в TCheckListBox в момент скролла, то снова начинается множественный выбор. :mad:[/QUOTE]
Так может, не стоит все-таки иметь лишний геморрой на свою задницу, а воспользоваться специально предназначенным для выбора одиночного элемента компонентом - TListBox или TRadioGroup?
Я понимаю, конечно, что учиться приемам программирования тоже когда-то надо, но если это становится препятствием на пути реализации проекта - опыты стоит перенести на более подходящее время.
Так может, не стоит все-таки иметь лишний геморрой на свою задницу, а воспользоваться специально предназначенным для выбора одиночного элемента компонентом - TListBox или TRadioGroup?
Я понимаю, конечно, что учиться приемам программирования тоже когда-то надо, но если это становится препятствием на пути реализации проекта - опыты стоит перенести на более подходящее время.
TRadioGroup мне не подходить. Пользователь, согласно интерфейса приложения, должен ставить именно галочки (всегда одну).
TListBox это просто набор строк без возможности ставить галочки.
TListBox это просто набор строк без возможности ставить галочки.
Может и не очень изящно, но работает :)
Код:
class TForm1 : public TForm
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
void __fastcall MyClickCheck(TObject *);
};
{
__published: // IDE-managed Components
private: // User declarations
public: // User declarations
__fastcall TForm1(TComponent* Owner);
void __fastcall MyClickCheck(TObject *);
};
Код:
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
CheckListBox1->OnClickCheck = MyClickCheck;
}
: TForm(Owner)
{
CheckListBox1->OnClickCheck = MyClickCheck;
}
Код:
void __fastcall TForm1::MyClickCheck(TObject *Sender)
{
int ind;
bool state;
if (CheckListBox1->ItemIndex != -1){
ind = CheckListBox1->ItemIndex;
state = CheckListBox1->Checked[ind];
for(int i=0; i < CheckListBox1->Count; i++){
CheckListBox1->Checked = false;
}
CheckListBox1->Checked[ind] = state;
}
}
{
int ind;
bool state;
if (CheckListBox1->ItemIndex != -1){
ind = CheckListBox1->ItemIndex;
state = CheckListBox1->Checked[ind];
for(int i=0; i < CheckListBox1->Count; i++){
CheckListBox1->Checked = false;
}
CheckListBox1->Checked[ind] = state;
}
}
Cпасибо. Этот код работает без сбоев. Я его просто поместила в обработчик щелчка. Без назначения [COLOR=#0000bb]OnClickCheck.[/COLOR]
[QUOTE=Inga]Предложенный код, все же не до конца рабочий:
Если начать щелкать на последней видимой надписи в TCheckListBox в момент скролла, то снова начинается множественный выбор. :mad:[/QUOTE]Такое может быть, только если сбоит комп или компилятор. :)
Или пред пост относился к моему коду? Если его поместить вместо onClickCheck в OnClick, тогда может такое быть.
Код:
[LEFT]void __fastcall TForm1::clbClickCheck(TObject *Sender)
{
if(clb->State[clb->ItemIndex]==cbChecked)
{
if(clb->Tag!=-1)clb->State[clb->Tag] = cbUnchecked;
clb->Tag = clb->ItemIndex;
}
else
clb->Tag = -1;
}[/LEFT]
{
if(clb->State[clb->ItemIndex]==cbChecked)
{
if(clb->Tag!=-1)clb->State[clb->Tag] = cbUnchecked;
clb->Tag = clb->ItemIndex;
}
else
clb->Tag = -1;
}[/LEFT]
Если начать щелкать на последней видимой надписи в TCheckListBox в момент скролла, то снова начинается множественный выбор. :mad:[/QUOTE]Такое может быть, только если сбоит комп или компилятор. :)
Или пред пост относился к моему коду? Если его поместить вместо onClickCheck в OnClick, тогда может такое быть.
Этот момент надо поймать. :)
Ставим галочку.
Теперь надо поместить курсор на последней видимой в этот момент записи в СheckBox-e. Двигаем мышь слегка вниз и щелкаем на этой надписи. В результате появляется вторая галочка.
Код от SABROG не приводит к появлению второй галочки. ;)
Ставим галочку.
Теперь надо поместить курсор на последней видимой в этот момент записи в СheckBox-e. Двигаем мышь слегка вниз и щелкаем на этой надписи. В результате появляется вторая галочка.
Код от SABROG не приводит к появлению второй галочки. ;)
[QUOTE=Inga]Этот момент надо поймать. :)
Ставим галочку.
Теперь надо поместить курсор на последней видимой в этот момент записи в СheckBox-e. Двигаем мышь слегка вниз и щелкаем на этой надписи. В результате появляется вторая галочка.
Код от SABROG не приводит к появлению второй галочки. ;)[/QUOTE]Споймал момент. :). Imho аномальное явление, точнее баг, ведь согласно help событие OnClickCheck имеет место, когда
... the user selects or deselects an item’s check box.
В этом случае, ни то, ни другое не происходит, но событие вызывается.
Это можно исправить, но в TCheckListBox есть еще один баг. Чтоб его заметить, нужно отключить обработчик OnClickCheck, и предварительно ничего не выделяя щелкнуть ниже последнего видимого item, под квадратиком. Будет выделена совсем не та запись. Код SABROG-a исправляет этот баг.
Ставим галочку.
Теперь надо поместить курсор на последней видимой в этот момент записи в СheckBox-e. Двигаем мышь слегка вниз и щелкаем на этой надписи. В результате появляется вторая галочка.
Код от SABROG не приводит к появлению второй галочки. ;)[/QUOTE]Споймал момент. :). Imho аномальное явление, точнее баг, ведь согласно help событие OnClickCheck имеет место, когда
... the user selects or deselects an item’s check box.
В этом случае, ни то, ни другое не происходит, но событие вызывается.
Это можно исправить, но в TCheckListBox есть еще один баг. Чтоб его заметить, нужно отключить обработчик OnClickCheck, и предварительно ничего не выделяя щелкнуть ниже последнего видимого item, под квадратиком. Будет выделена совсем не та запись. Код SABROG-a исправляет этот баг.
[FONT=Arial]Досталось TCheckListBox-у, разобрали его сегодня по косточкам. :) [/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]P.S.[/FONT]
[FONT=Arial]Как добавить горизонтальный скролл в CheckListBox если надпись большая?[/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]P.S.[/FONT]
[FONT=Arial]Как добавить горизонтальный скролл в CheckListBox если надпись большая?[/FONT]
[QUOTE=Inga][FONT=Arial]Досталось TCheckListBox-у, разобрали его сегодня по косточкам. :) [/FONT]
[FONT=Arial] [/FONT]
[FONT=Arial]P.S.[/FONT]
[FONT=Arial]Как добавить горизонтальный скролл в CheckListBox если надпись большая?[/FONT][/QUOTE]Напр. CheckListBox1->ScrollWidth = CheckListBox1->Width + 200;
Хотя наверно лучше, посредтвом GetTextExtentPoint32() сперва определить длину в пикселах, наибольшей строки.
[FONT=Arial] [/FONT]
[FONT=Arial]P.S.[/FONT]
[FONT=Arial]Как добавить горизонтальный скролл в CheckListBox если надпись большая?[/FONT][/QUOTE]Напр. CheckListBox1->ScrollWidth = CheckListBox1->Width + 200;
Хотя наверно лучше, посредтвом GetTextExtentPoint32() сперва определить длину в пикселах, наибольшей строки.
После добавления всех элементов добавь этот код, тут вычисляется длинна максимальной строки в пикселях плюс погрешность на длинну "х", после чего посылается сообщение CheckListBox'у, в конечном итоге они ведь все являются сабклассингом стандартного виндового ListBox'a:
Код:
int Width, MaxWidth=0;
for (int i=0;i < CheckListBox1->Items->Count;i++)
{
Width = CheckListBox1->Canvas->TextWidth(CheckListBox1->Items->Strings+"x");
if (MaxWidth < Width)
{
MaxWidth = Width;
}
}
SendMessage(CheckListBox1->Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0);
for (int i=0;i < CheckListBox1->Items->Count;i++)
{
Width = CheckListBox1->Canvas->TextWidth(CheckListBox1->Items->Strings+"x");
if (MaxWidth < Width)
{
MaxWidth = Width;
}
}
SendMessage(CheckListBox1->Handle, LB_SETHORIZONTALEXTENT, MaxWidth, 0);
Cпасибо, [COLOR=#0000bb]SendMessage[/COLOR] работает!
Если программно очистить список, то скролл остается. Как его убрать если список уже пуст?
Спасибо.
Спасибо.
clb->ScrollWidth = 0;
или
SendMessage(clb->Handle, LB_SETHORIZONTALEXTENT, 0, 0);
или
SendMessage(clb->Handle, LB_SETHORIZONTALEXTENT, 0, 0);
[quote=Мerlin]clb->ScrollWidth = 0;
или
SendMessage(clb->Handle, LB_SETHORIZONTALEXTENT, 0, 0);[/quote]
Спасибо! Все ОК!
или
SendMessage(clb->Handle, LB_SETHORIZONTALEXTENT, 0, 0);[/quote]
Спасибо! Все ОК!
Увидел много интересных вариантов, и хочу поделиться своим. Ответ наверняка уже не нужен автору, но может понадобиться комуто ещё.
В обработчик onClickCheck пишем: CheckListBox1->CheckAll(0, false, false);
Ну и дальше боремся с ненужными эфектами(у кого какие).
Зачем писать функции если они уже для нас написаны? Думаете напишете оптимаьнее? Сомневаюсь
В обработчик onClickCheck пишем: CheckListBox1->CheckAll(0, false, false);
Ну и дальше боремся с ненужными эфектами(у кого какие).
Зачем писать функции если они уже для нас написаны? Думаете напишете оптимаьнее? Сомневаюсь
Наверняка следуущий вопрос который возникает: "Как сделать чтоб выделялся итем по нажатию на компонент, и без множественного выбора?"
В обработчик onClick пишем:
CheckListBox1->CheckAll(0, false, false);
for (int i = 0; i < CheckListBox1->Count; i++) {
if (CheckListBox1->Selected) {CheckListBox1->Checked = true;
}
}
В обработчик onClick пишем:
CheckListBox1->CheckAll(0, false, false);
for (int i = 0; i < CheckListBox1->Count; i++) {
if (CheckListBox1->Selected) {CheckListBox1->Checked = true;
}
}