JvThumbView und Schriftfarbe

[capo]

Hallo,

ich verwende in einem Tool eine JvThumbView-Komponente.
AsButtons ist auf true gestellt.
TitlePlacement auf tpDown.
Beim auswählen eines Bildes wird die Schrift immer in weiß angezeigt. (schaut euch mal bitte den Screenshot an)
Ich hätte gerne eine schwarze Farbe eingestellt.
Suche schon seit Stunden nach einer Möglichkeit die Schriftfarbe ändern zu können, leider ohne Erfolg.

Gruß
Capo

[toms]

Hallo capo

Einen Blick in den Source Code verrät, dass für die "weiße" Farbe OnSetSelected verantwortlich ist, wo

TN.TitleColor := clHighlight; zugewiesen wird.

Delphi-Quellcode:

procedure TJvThumbView.SetSelected(Number: Longint);
var
  TN: TJvThumbnail;
begin
  if FThumbList.Count > 0 then
  begin
    if FSelected <> -1 then
    begin
      TN := TJvThumbnail(FThumbList.Objects[FSelected]);
      TN.TitleColor := TN.Color;
      TN.TitleFont.Color := TN.Font.Color;
    end;
    if Number <> -1 then
    begin
      TN := TJvThumbnail(FThumbList.Objects[Number]);
      TN.TitleColor := clHighlight;
      TN.TitleFont.Color := clHighlightText;
     //..

Die Farbe kannst du Im OnChanged Ereignis neu setzen.

Delphi-Quellcode:

procedure TForm1.JvThumbView1Change(Sender: TObject);
begin
  with Sender as TJvThumbView do
    ThumbList.Thumbnail[Selected].TitleFont.Color := clBlack;
end;

[capo]

Zitat von toms:

Einen Blick in den Source Code verrät,

Danke...!

Viele Grüße
Capo