Ciao a tutti,
fino ad ora, per disegnare un'immagine presa da una ImageList e scrivere un testo in due differenti colori sulla StatusBar, ho utilizzato qs codice:
codice:
Immagini: TImageList;
Status: TStatusBar;
with Status.Canvas do
begin
FillRect(Rect);
Immagini.Draw(Status.Canvas, Rect.Left + 5, Rect.Top, 0);
TextOut(Rect.Left + Immagini.Width + 10, Rect.Top + 1, 'Lingua:');
Font.Color := clGreen;
TextOut(Rect.Left + Immagini.Width + 50, Rect.Top + 1, 'Italiano');
end;
Il problema è che gestivo un solo Panel con la proprietà psOwnerDraw e tutto funzionava. Ora ho bisogno di fare qs operazione di immagine + testo su due differenti pannelli della stessa StatusBar. Come potrei fare?
Come sempre... grazie!