Ich möchte, dass die Textfarbe meines StringGrid immer shwarz ist.
Dachte dass das mit folgendem Code funktioniert.
Delphi-Quelltext
1: 2:
| DBGrid1.Canvas.Pen.Color := clBlack; DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, AdoQuery2.Fields[DataCol].AsString); |
Macht es aber nicht. Es wird zwar jeder Text schwarz dargestellt, bis auf den in der Zelle die ich gerade markiere. Hier wird er weiß dargestellt. Wie kann ich das lösen
Habe es dann auch mal so versucht, jedoch ohne Erfolg
Delphi-Quelltext
1: 2: 3: 4: 5:
| if (state = [gdFocused,gdSelected]) then begin DBGrid1.Canvas.Pen.Color := clBlack; DBGrid1.Canvas.TextOut(Rect.Left, Rect.Top, AdoQuery2.Fields[DataCol].AsString); End; |