Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   TAdvStringgrid vertical Alignment in vertical gemerged cells (https://www.delphipraxis.net/196980-tadvstringgrid-vertical-alignment-vertical-gemerged-cells.html)

hoika 5. Jul 2018 16:36

TAdvStringgrid vertical Alignment in vertical gemerged cells
 
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;

hoika 5. Jul 2018 16:38

AW: TAdvStringgrid vertical Alignment in vertical gemerged cells
 
Hallo,
die Lösung, ich wusste doch, da war was.

Delphi-Quellcode:
AdvStringGrid1.CellProperties[1,2].WordWrap:= False;


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz