WinXPSP2
BDS2006
Wie kann man die Textfarbe im Stringgrid FÜR EINZELNE ZELLEN ändern?
Wer findet eine Lösung?
Delphi-Quellcode:
procedure TForm1.FormShow(Sender: TObject);
var i: integer;
hex15:
string;
begin
for i:= 0
to 15
do
begin
SG1.Font.Color:= clblack;
//funktioniert nicht - warum???
hex15:= IntToHex(i,2);
SG1.Cells[0,i+1]:= hex15;
SG1.Cells[i+1,0]:= hex15;
SG1.Font.Color:= clred;
//funktioniert nicht - warum???
SG1.Cells[i+1,i+1]:= '
51';
end;
//folgende zeile verhindert SG1.Font.Color:= clred; in der for-do-schleife !!!
//SG1.Font.Color:= clblack;
SG1.Cells[0,0]:='
EC';
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
SG1.Font.Color:= clblack;
//funktioniert nicht - warum???
FormShow(Self);
end;