Hallo,
ich merge 2 Zellen vertikal (2 Zeilen sollen zusammengefasste werden).
In der Mitte der beiden Zeilen soll der Text stehen.
Beide Wege unten zeigen mir den Text auf Höhe der ersten Zeile an.
Im Netz habe ich nichts dazu gefunden.
Kennt jemand das Problem?
Delphi-Quellcode:
procedure TForm123.AdvStringGrid1GetAlignment(Sender: TObject; ARow,
ACol: Integer; var HAlign: TAlignment; var VAlign: TVAlignment);
begin
if (ACol=1) And (ARow=2) then
begin
VAlign:= vtaCenter;
end;
end;
procedure TForm123.FormCreate(Sender: TObject);
begin
AdvStringGrid1.MergeCells(1,2,1,2);
AdvStringGrid1.Cells[1,2]:= '12';
AdvStringGrid1.CellProperties[1,2].Alignment:= taCenter;
AdvStringGrid1.CellProperties[1,2].VAlignment:= vtaCenter;
end;