Problemas com CheckListBox

Question

Boa tarde pessoal!Algu�m sabe como mudar a cor da fonte dos itens de um CheckListBox ??Agrade�o a quem puder ajudar!...

Mayron Cachina · Answer

Existe uma forma simples de fazer este tipo de trabalho. Inclua alguns itens no seu CheckListBox, v� at� a propriedade Style e altere para lbOwnerDrawVariable, agora v� at� ao evento OnDrawItem e inclua o c�digo abaixo:

 CheckListBox1.Canvas.FillRect(Rect);
if not (odFocused in State) then
begin
if CheckListBox1.Checked[index] then
begin
CheckListBox1.Canvas.Font.Color := clRed;
CheckListBox1.Canvas.Brush.Color := clWhite;
end
else
begin
CheckListBox1.Canvas.Font.Color :=
clBlack;
CheckListBox1.Canvas.Brush.Color :=
clWhite;
end;
end;
CheckListBox1.Canvas.TextOut(Rect.Left+2,Rect.
Top,CheckListBox1.Items.Strings[Index]);

acho que dai da pra vc ter uma id�ia de mudar a cor da fonte...

Vfmartins · Answer

Mayron Cachina, eu tentei da forma que vc explicou, mas deu o seguinte erro:

�No enough actual paramters�

e parou na linha:

�CheckListBox2.Canvas.FillRect(Rect);�

Vc sabe o que ha de errado? Ou algu�m sabe?
Agrade�o se puder me ajudar!!

Mayron Cachina · Answer

eu tenho isso pronto l� em casa eu acho...at� de noite eu vou tentar postar aqui, blz!...

Mayron Cachina · Answer

olha.. aqui deu certo..to mandando um exemplo feito no delphi 7...//www.4shared.com/file/25618271/54a83ad2/CheckListBox.html?dirPwdVerified=d964819f...

Vfmartins · Answer

cara, obrigado pela ajuda, mas ainda n�o consegui resolver meu problema..

no seu exemplo vc colocou as condi��es no �CheckListBox1DrawItem� e funcionou, mas eu preciso que seja colocado no �onclick de um button�, a� n�o funciona...

o que eu fa�o????

Paulo · Answer

No OnClick do bot�o, voc� chama o OnDraw do Checlist....

Mayron Cachina · Answer

[quote:03dfa4afd7=�Paulo�]No OnClick do bot�o, voc� chama o OnDraw do Checlist.[/quote:03dfa4afd7]n�o d�, ele n faz a op��o...rpz n�o sei n, viu...apertando o bot�o eu n consegui fazer.......

Vfmartins · Answer

Que pena, � algo do tipo que eu preciso!!

Algu�m sabe me dizer alguma maneira (n�o precisa ser exatamente mudar as cores dos itens), mas preciso encontrar uma forma de diferenciar um item do outro ao clicar em um bot�o.

Por favor, agrade�o mto a quem puder me ajudar!!

Mayron Cachina · Answer

vc ter� que fazer algo nesse estilo.. sendo que ter� que trartar esse if de uma forma diferente, pois vc ter� que ver qual foi o index do check q vc ta apertando e se vc colocar isso ai no bot�o eu acho q n vai funcionar n�o...
mais j� � meio caminho andado...

if CheckListBox1.Checked[index] then
begin
CheckListBox1.Canvas.Font.Color := clRed;
CheckListBox1.Canvas.Brush.Color := clWhite;
end
else
begin
CheckListBox1.Canvas.Font.Color :=
clBlack;
CheckListBox1.Canvas.Brush.Color :=
clWhite;
end;

Vfmartins · Answer

realmente pessoal, no button n�o funciona msm!!bom, de qualquer forma agrade�o por tentarem me ajudar!!...

F�rum Problemas com CheckListBox #346908