StringGrid -> Spalte zwei -> Text zentrieren

[HolgerCW]

Hallo zusammen,

wie kann ich bei einem StringGrid in z.B. Spalte zwei den Text zentrieren ?

Gruss

Holger

[marabu]

Hallo Holger,

wenn du die Ausgabe beim Ereignis OnDrawCell() mit DrawText() selbst erledigst, dann kannst du als Alignment DT_CENTER mitgeben.

Grüße vom marabu

[Corpsman]

In dem du Hergehst und alle Felder selbst malst.

Das geht mit OnDrawCell, oder so.

Und da gibts auch noch das Stichwort OwnerDrawFixed nach dem du schauen solltest...

[Hansa]

Die Suche wird zuviel liefern. "Zentriert" brauche ich nicht, aber das hier habe ich gefunden :

Delphi-Quellcode:

procedure sgZentriert (sg: TStringGrid; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
  sg.Canvas.FillRect(Rect);
  st := sg.Cells[ACol,ARow];
  DrawText(sg.Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_CENTER);
end;

Aufruf im OnDrawCell wäre dann so ungefähr :

Delphi-Quellcode:

if (ACol = 2) then
        sgZentriert (Sender as TStringGrid, Rect, ACol, ARow);

Lässt sich sicherlich noch verbessern, aber das geht schon.