TCheckListBox

← →
Марат (2004-05-28 08:56) [0]

Здравствуйте, мастера. Вопрос в следующем:
procedure TFix_Appl_wr_f.CLB_DVOClickCheck(Sender: TObject);
var ind,i,j,f: integer;
begin
ind:=CLB_DVO.ItemIndex;
if CLB_DVO.Checked[ind]=true then
begin
for i:=0 to Cou_f-6 do begin
if DVO_Array[ind,i]="n" then
CLB_DVO.ItemEnabled[strtoint(DVO_Array[ind,i-1])-1]:=false;
end;
end
else
begin
for i:=0 to Cou_f-6 do begin
if DVO_Array[ind,i]="n" then
CLB_DVO.ItemEnabled[strtoint(DVO_Array[ind,i-1])-1]:=true;
end;
for j:=0 to Cou_r-1 do begin
if CLB_DVO.Checked[j]=true then
begin
for i:=0 to Cou_f-6 do begin
if DVO_Array[j,i]="n" then
CLB_DVO.ItemEnabled[strtoint(DVO_Array[j,i-1])-1]:=false;
end;
end;
end;
end;
...
т.е. если при щелчке по одной из строчек в TCheckListBox проверяется совместимость этой строчки с другими, и если какая-то из строк не совместима, то она становится неактивной. А мне хочется чтобы + к этому изменился цвет неактивной строки, например на красный. Можно ли это сделать, и если можно то как?

← →
Sandman25+1 (2004-05-28 09:21) [1]

Style
OnDrawItem

← →
Марат (2004-05-28 09:33) [2]

Если не жалко, можно подробнее?
Какой Style нужно выбрать?
И что прописать в OnDrawItem?

← →
Sandman25+1 (2004-05-28 10:47) [3]

[2] Марат (28.05.04 09:33)

У Вас не работает F1? Там и пример есть, и подробное объяснение...

← →
Марат (2004-05-31 06:04) [4]

Я конечно дико извиняюсь. Посмотрел, но ничего не понял. Просто я не такой уж "продвинутый".

← →
Sandman25+1 (2004-05-31 09:33) [5]

http://delphimaster.ru/cgi-bin/faq.pl?look=1&id=988625432&n=17

Только вместо рисования картинки нужно будет закрасить область нужным цветом.

TCheckListBox Найти похожие ветки