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;