Grazie per le vostre risposte.
Ho provato così: Ho sostituito il TButton con TSpeedButton, poi:
procedure TForm21.FormCreate(Sender: TObject);
begin
PulsFine.Font.Color:= $003232E6; // questo funziona. Il testo è comparso colorato in rosso
PulsFine.Color:= $0000FAD0; // questo invece NON funziona. Lo sfondo non ha cambiato colore
end;
Ho capito solo in parte quello che mi avete suggerito, oppure quanto funziona per il testo non vale per lo sfondo?
ti posto un progetto di base da cui puoi prendere spunto.
...
ti posto un progetto di base da cui puoi prendere spunto
Si, ho visto: Grazie.
Per le mie necessità attuali, quello che mi hai suggerito col tuo esempio andrebbe bene.
Mi è sembrato molto interessante il metodo per cambiare lo stile ed il colore del testo.
Ho fatto qualche prova, ma non riesco a cambiare, in un controllo di tipo TListBox, il Font della riga puntata col click del mouse. Sono riuscito a cambiare il Font di tutti i suoi componenti, ma non ho trovato nessuna proprietà che mi permettesse di limitarlo ad una sola riga.
Ma forse sono io che non ho capito come agire.
Ecco il codice ottenuto
procedure TForm1.lsDirClick(Sender: TObject);
var
ixLsDir: Integer = 0;
FontCorr: TFont;
begin
ixLsDir:= lsDir.ItemIndex;
case ixLsDir of
0:
begin
FontCorr.Color := clRed;
(Sender as TListBox).Font.Assign(FontCorr);
end;
else
begin
FontCorr.Color := clBlack;
(Sender as TListBox).Font.Assign(FontCorr);
end;
end;
end;
Ho allegato le due immagini coi colori di testo impostati a seconda della riga selezionata. Come è visibile, cambiando il colore in tutte le righe, non è possibile capire quale sia quella selezionata