Mega Code Archive

 

Categories / Delphi / VCL

 

Comoboxta renkli satırlar

//drony@mynet.com //icq:266148308 // combo'nun style özelliği csOwnerDrawFixed olmalı procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState); begin with (Control as TComboBox) do begin if Odd(Index) then Canvas.Font.Color:=clRed else Canvas.Font.Color:=clgreen; Canvas.FillRect(Rect); Canvas.TextOut(Rect.Left,Rect.Top,Items[Index]); end; end;