Stringgrid.state ?

[kiar]

hallo,

wo bekomme ich die möglichen Einstellungen, die state zulässt raus.

hintergrund der frage ist, in einer zelle eines stringgrid die Font.Color zu ändern.

alles was ich bisher in Ondrawcell probiert habe, führt dazu das die ganze font.color geändert wird.

Delphi-Quellcode:

if gdselected in state then
   {zelle}.font.color

danke

[sakura]

Zitat:

Zitat von kiar

wo bekomme ich die möglichen Einstellungen, die state zulässt raus.

Du klickst mit der rechten Maustaste in Delphi in der Deklaration vom OnDrawCell im Editor auf TGridDrawState. Da wählst Du den ersten Menüpunkt Deklaration finden

Code:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: [b][color=#ff0000]TGridDrawState[/color][/b]);
begin

end;

Und Du gelangst zu folgender Zeile im Delphi-Source-Code:

Delphi-Quellcode:

  TGridDrawState = set of (gdSelected, gdFocused, gdFixed);

...:cat:...

[sakura]

Anbei noch als ScreenShot.

...:cat:...

[kiar]

ist schon peinlich genug :oops:

hättest den ScrennShot nicht noch unbedingt draufsatteln müssen :duck:

trotzdem danke.

und wie ist das mit dem ändern der schriftfarbe für jede zeile?

raik

[sakura]

Zitat:

Zitat von kiar

und wie ist das mit dem ändern der schriftfarbe für jede zeile?

Noch peinlicher :mrgreen:

Delphi-Quellcode:

StringGrid.Font.Color := clBlue

...:cat:...

[kiar]

nein,

unterschiedliche farben , nicht generell :mrgreen:

raik

werde wohl über die ausgewählten zeilen dies einstellen.

[sakura]

Ja, immer im entsprechende OnDrawCell Event setzen ;-)

...:cat:...

[Robert_G]

OnDrawCell wird pro Zelle ausgelöst.
Also kannst du auch pro Zelle das Font bestimmen.

[Ryan]

Hi,


Irgendwie steh ich auf der Leitung - ich hab nämlich so ziemlich das gleiche Problem und irgendwie schnall ichs nicht.

Delphi-Quellcode:

if POS('.',Stringgrid.cells[ACol,ARow])=0 then  Stringgrid.font.color := clred;

Das steht in der OnDrawCell - Methode drin.
Das sollte die Schrift aller Zellen, die kein '.' in ihrem Inhalt haben rot färben. Es wird allerdings alles rot. was mache ich falsch?


Bye

[Sharky]

Hai,

schaut euch mal diesen Beitrag aus der Code-Library an.

[kiar]

hallo Sharky,

das mit den zellen ist nachdem ich mich hier so richtig blamiert habe, auch kein problem mehr.

ich müsste jetzt nur noch wissen, wie man es realisieren kann in einer zelle zwei zeilen mit unterschiedlicher farbe zu realisieren.

? möglichkeit die mit Canvas.textout zu realisieren, in dem ich zweimal den textout mit unterschiedlichen parametern aufrufe.

@sakura freue mich wieder auf screenshot's :mrgreen:

nur ein ei gefunden :gruebel: irgend etwas mache ich verkehrt :mrgreen:

raik

[sakura]

Zitat:

Zitat von kiar

möglichkeit die mit Canvas.textout zu realisieren, in dem ich zweimal den textout mit unterschiedlichen parametern aufrufe.

Das wäre der logischste aller Ansätze, oder ;)

...:cat:...

[Ryan]

hi...*seufz*

Entweder ich bin unglaublich dumm oder einfach nur unfähig, oder sonst was, aber ich kriegs nicht hin.
Erbarmt sich mir jemand und schreibt mir den Code für mein Beispiel auf der funktionieren müsste?

[kiar]

hallo ryan,

Delphi-Quellcode:

if pos('.',stringgrid1.cells[acol,arow])=0 then
 stringgrid1.canvas.font.color:=clred;

dein fehler ist, das du mit

Delphi-Quellcode:

stringgrid1.font.color

die schriftfarbe für das ganze grid einstellst.

raik

[kiar]

@sakura,

das mit

Delphi-Quellcode:

textout

ist zwar das naheliegenste funktioniert aber nicht.

die einzigte Möglichkeit, mit der ich es hinbekommen habe,war drawtext.