CymesListBox - kolorki

0

Witam mam oto ten komponent wymieniony w temacie, pobranyz z tąd: http://download.4programmers.net/XPCymesListBox.zip/XPCymesListBox.pas

Próbuje ustawić tam kolor czcionki, 'standardowa' procedura nie działa:

CymesListbox1.Font.Color:=ColorDialog1.Color;

Macie jakieś pomysły?

0

A poświęciłeś chociaż chwilę aby spojrzeć na źródło komponentu? Chyba nie, a tego kodu nie ma za wiele.

procedure TCymesListbox.Listbox1DrawItem(Control: TWinControl; Index: Integer;Rect: TRect; State: TOwnerDrawState);
begin
if odSelected in state then
  self.Canvas.Brush.Color:= fselected;
  Self.Canvas.Font.Color:= clblack;
  Self.Canvas.TextRect(rect,rect.Left+2,rect.Top,Self.Items.Strings[index]);
if (odFocused in state) and (odSelected in state) then
  self.Canvas.Brush.Color:= ffocused;
  Self.Canvas.Font.Color:= clblack;
  Self.Canvas.TextRect(rect,rect.Left+2,rect.Top,Self.Items.Strings[index]);
end;

I wszystko jasne. Kolor zawsze będzie black. Chyba, że zmienisz ten kod. Na przykład konkretną linijkę na

  Self.Canvas.Font.Color := Self.Font.Color;
0

Masz racje nie analizowałem kodu, mój błąd :/ Wielkie dzięki, pomogło;p

1 użytkowników online, w tym zalogowanych: 0, gości: 1