[Delphi] StringGrid - Oberste Zeile Fette Schrifft?

erichbitch · 9. Februar 2007

StringGrid - Oberste Zeile Fette Schrifft?

Hi.
Ich habe in einem Projekt eine/n StringGrid, mit 1 fixedcol.
In dieser col steht nun zb punktzahl, name ect .
Direkt dadrunter der name, die erreichten Punte ...

ist es irgendwie möglich, die Schrifft in der oberste Zeile fett zu machen?

Ich habe sie momentan durch Leerzeichen einrücken halbwegs zentriert, eine fette schrifft wäre mir jedoch lieber

Danke schonmal
Erich

Anzeige

Rushh0ur · 10. Februar 2007

AW: StringGrid - Oberste Zeile Fette Schrifft?

Ja ist auf jeden Fall möglich;

einfach diesen Code bei TStringGird bei dem Ereignis OnDrawCell einfügen:

Code:

[B]var[/B] Gird : TStringGrid;
 Size : TSize;
[B]begin[/B]
Gird := TStringGrid(Sender);


[COLOR="Blue"]//Bei der esrten Zeil(0) Fett und alle anderen Noramal(>0)[/COLOR]
[B]if [/B]ARow = 0 [B]then [/B]Gird.Canvas.Font.Style := [fsBold]
[B]else [/B]Gird.Canvas.Font.Style := [];


[COLOR="Blue"]//TextGröße ermitteln[/COLOR]
Size := Gird.Canvas.TextExtent(Gird.Cells[ACol, ARow]);

[COLOR="Blue"]//Text aussgeben[/COLOR]
Gird.Canvas.TextRect(Rect,
 Rect.Left + (Gird.DefaultColWidth div 2) - (Size.cx div 2),
 Rect.Top + (Gird.DefaultRowHeight div 2) - (Size.cy div 2),Gird.Cells[ACol, ARow]);

[B]end;[/B]

Mfg

Rushh0ur

erichbitch · 10. Februar 2007

AW: StringGrid - Oberste Zeile Fette Schrifft?

Danke für die Hilfe, ich HOFFE ich bekomme das hin

Edit:
Hat geklappt, sogar der Text ist zentriert
Danke nochmal, Bewertung haste natürlich.

Kolazomai · 10. Februar 2007

AW: StringGrid - Oberste Zeile Fette Schrifft?

[X] Erledigt.

~closed~

Mfg,

Kolazomai

Nützliche Suchen

[Delphi] StringGrid - Oberste Zeile Fette Schrifft?

Videos zum Themenbereich