Autor Beitrag
Bronstein
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Mi 30.05.07 06:53 
Ich möchte, dass die Textfarbe meines StringGrid immer shwarz ist.
Dachte dass das mit folgendem Code funktioniert.

ausblenden 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

ausblenden 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;

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!
Lannes
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 2352
Erhaltene Danke: 4

Win XP, 95, 3.11, IE6
D3 Prof, D4 Standard, D2005 PE, TurboDelphi, Lazarus, D2010
BeitragVerfasst: Mi 30.05.07 07:35 
Hallo,

versuchs mal mit DBGrid1.Canvas.Font.Color := clBlack; :wink:

_________________
MfG Lannes
(Nichts ist nicht Nichts) and ('' <> nil ) and (Pointer('') = nil ) and (@('') <> nil )
Bronstein Threadstarter
ontopic starontopic starontopic starontopic starontopic starontopic starontopic starhalf ontopic star
Beiträge: 578
Erhaltene Danke: 1

WIN XP
Delphi 6 / Delphi 2006 / Delphi XE
BeitragVerfasst: Mi 30.05.07 13:59 
Hallo,
danke, genau das war mein Fehler

_________________
Es gibt keine dummen Fragen nur dumme Antworten!!!