Нужен нестандартный компонент

← →
slgeo (2002-11-26 11:40) [0]

Народ, не подскажете, что использовать?
Нужен CheckListBox но не с одним, а с двумя "check"-ами.

← →
Marcus (2002-11-26 11:45) [1]

Как вариант можно заюзать какой-нить продвинутый DBGrid (который умеет булевые поля отображать в виде чеков) в совокупности с TRxMemoryData. Тогда число чекбоксов будет ограничено только твоей фантизией...

← →
Слесарь Матерящийся (2002-11-26 11:57) [2]

Фрейм, на нём динамически создавать массив CheckBоx-ов.

← →
down (2002-11-26 12:12) [3]

TListView, OnDrawItem, DrawFrameControl - вот рецепт щастья

← →
slgeo (2002-11-26 12:29) [4]

Спасибо всем

← →
slgeo (2002-11-26 14:50) [5]

to down
Никак не могу добиться, чтобы отображался CheckBox, что здесь не так:
procedure T_fmNewGroup.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
Rect : TRect;
begin
Rect.Left := 50;
Rect.Right := 50;
Rect.Top := 50;
Rect.Bottom := 50;
Rect.TopLeft.X := 0;
Rect.TopLeft.Y := 0;
DrawFrameControl(Sender.Handle,Rect,DFC_BUTTON,DFCS_BUTTONCHECK);
end;

← →
down (2002-11-26 15:20) [6]

В предпоследней строчке явно что-то не так, нужно исправить на DrawFrameControl(Sender.Canvas.Handle, ...), ибо Sender.Handle - это дескриптор окна, а нам надо дескриптор канвы.

Нужен нестандартный компонент Найти похожие ветки