Форум - Ответы     (  К темам )
 ?  Сергей: Как вывести одну Item в RadioGroup в несколько строк (очень длинная) (11-12-2002 11:58:09)
Как вывести одну Item в RadioGroup в несколько строк (очень длинная)
Типа так:

* кфдшуой кшоа й
й йкар йдкгрп йдкгрп
куцп цкуп

* кепйкп йк
* йкп йкп йкп
* йкп йк
кй пйкп йк
й кпйк п

И т. подобное.
 Devnvd (11-12-2002 14:59:59)
К сожалению нормальным образом не получится.
Так как в этом компоненте используются стандартные
Windows'овские RadioButton'ы. Текст в которых выводится с помощью
TextOut... , а не спомощью DrawText...
Аналогично и для TButton, TRadioButton.

1. Вы конечно можете и сами нарисовать изображение подобное TRadioGroup,
например в PaintBox'е и отрабатывать клики OnMouseDown в местах, где вы
нарисуете кружочки.

2. Вы можете воспользоваться вместо TRadioGroup компонентом TCheckListBox.
Правда, флажки снимать и оставлять только один вам придётся самому.
Дизайн скорректируйте под себя, если не понравится:

__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
//Устанавливаем Style с переменным размером ячеек
CheckListBox1->Style=lbOwnerDrawVariable;
//Очистим
CheckListBox1->Clear();
//Заполним
for(int i=0; i < 10; i++)
{
CheckListBox1->Items->Add("Stroka\t:0"+IntToStr(i)+"\r\nStroka1"+IntToStr(i));
}
}
//---------------------------------------------------------------------------
// Отработчик события TCheckListBox::OnMeasureItem
//
void __fastcall TForm1::CheckListBox1MeasureItem(TWinControl *Control,
int Index, int &Height)
{
RECT r; //Размер области для текста
TCheckListBox *Cb=(TCheckListBox *)Control;
//Достаём содержимое ячейки
char *buf=Cb->Items->Strings[Index].c_str();
int len=strlen(buf);
//Если строка пустая то размер её будет по умолчанию
if(len==0){Height=Cb->ItemHeight; return; }
//Вычисляем размер ячейки
::DrawText(Cb->Canvas->Handle,buf,len,&r,DT_CALCRECT);
//Увеличим размер ячейки на два пиксела сверху и снизу
Height=r.bottom-r.top+4;
}
//---------------------------------------------------------------------------
// Отработчик события TCheckListBox::OnDrawItem
//
void __fastcall TForm1::CheckListBox1DrawItem(TWinControl *Control,
int Index, TRect &Rect, TOwnerDrawState State)
{
TCheckListBox *Cb=(TCheckListBox *)Control;
//Достаём содержимое ячейки
char *buf=Cb->Items->Strings[Index].c_str();
int len=strlen(buf);
//Заливаем ячейку цветом по умолчанию
Cb->Canvas->FillRect(Rect);
//Если строка пустая то уходим
if(len==0){return; }
//Скопируем
RECT R=Rect;
//Отступаем от края
R.top+=2; R.bottom-=2;
//Рисуем текст
::DrawText(Cb->Canvas->Handle,buf,len,&R,DT_EXPANDTABS);
}


support@cbuilder.ru