Font im String/Drawgrid ändern

[remouter]

Hallo!
Ich habe auf meiner Form ein Stringgrid und möchte auf die Font-Eigenschaften von bestimmten Zellen zugreifen können.
Ich hatte mir das so gedacht, aber das klappt nich:
...
var a:Tfont;
...
begin
a:= Stringgrid.Cells[x,y].font;
a.color:=clred;
a.style.fsbold:=true;
a.size:=20;
Stringgrind.Cells[x,y].font:=a;
end;

Hat jemand eine Idee wie das funktioniert?
Oder sollte ich einen drawgrid nutzen? Wie erreicht man dort die Änderung einer Font-Eigenschaft?

[af0815]

Hat jemand eine Idee wie das funktioniert?
Oder sollte ich einen drawgrid nutzen? Wie erreicht man dort die Änderung einer Font-Eigenschaft?

Vielleicht in den Sourcen von Grid nachsehen, Lazarus ist noch immer OpenSource.

[remouter]

Sehr gute Idee, noch gar nicht dran gedacht.

[baba]

... selbst zeichnen -> OnDrawCell

Code: Alles auswählen

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   if (aCol = GewünschteSpalte) and (aRow = GewünschteZeile) then begin
      StringGrid1.Canvas.Font.Size  := 9;  // ODER EINE ANDERE GRÖSSE
      StringGrid1.Canvas.Font.Style := [fsBold]; // MAL FETT
      StringGrid1.Canvas.Font.Color := clRed;
      StringGrid1.Canvas.TextOut(Rect.Left, Rect.Top, 'Designte Zelle');
   end;
end;

Gruß
Baba.

[KOBOLD Messring GmbH]

In diesem Falle DrawGrid benutzen und in der Paint-Procedure alles selber machen wie baba gezeigt hat.
ACHTUNG, wenn man versucht im "normalen" StringGrid Font-Eigenschaften zu setzen, kann man auch eine Endlos-Schleife der Events auslösen, siehe:
http://www.lazarusforum.de/viewtopic.ph ... 55&start=0" onclick="window.open(this.href);return false;
Beitrag von RSE vom 4/9/2008, 13:19
Hatte selbst so ein Problem gehabt und mit DrawGrid gelöst.

[remouter]

Ja, das füllen der Zellen klappt so. Aber wie lese ich die Font in der Zelle?
Vllt mit einem array arbeiten, in dem man die Fonts der einzelnen Zellen abspeichert. : array of array of Tfont oda so. aber dann müsste Drawgrid eine feste Zahl an Cols und Rows haben ... oder könnte man das mit nem trick lösen?

[monta]

Nein, es gibt keine Zellenabhängige Font-Eigenschaft.

Als Lösung bspw. ein paralleles Array mit TFont mitschleppen und dort dann eben für jede Zelle die Eigenschaften Eintragen. Als dynamisches Array kannst es ja auch zur Laufzeit anpassen.

array of array of Tfont oda so. aber dann müsste Drawgrid eine feste Zahl an Cols und Rows haben

array of array of TFont ist richtig, der zweite Gedanke nicht. Dynamische Array kannst ja anpassen, und auch sehr wohl so schachteln.
(siehe SetLength)