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;