Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hoika,
20. Jul 2009
Hallo,
:cheers:
jo, war schwer zu finden.
Heiko
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hoika,
20. Jul 2009
Hallo,
LÖSUNG
if RowHeights<=AGrid.DefaultRowHeight then
begin
DrawRect:= Rect; // das hier war es
procedure DrawSGCell(AGrid: TStringGrid; C, R : integer; Rect : TRect;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hoika,
20. Jul 2009
Hallo,
OffsetRect bringt nix, es sieht so aus,
also ob er in das if RowHeights<=AGrid.DefaultRowHeight then
nicht reingeht.
Macht er aber, sagt mein Debugger.
Naja, mal weiterbasteln.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hoika,
20. Jul 2009
Hallo,
an Posting 1 ist ein Screenshot.
Die Spalte 3 sieht einfach blöd aus.
Das dt_vcenter funktioniert irgendwie nicht richtig.
Heiko
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hoika,
20. Jul 2009
Hallo,
mache ich ja, aber wie stelle ch fest,
dass umgebrochen wird ?
if (DrawRect.Bottom - DrawRect.Top) > RowHeights then
begin
{ cell word-wraps; increase row height }
RowHeights:= DrawRect.Bottom - DrawRect.Top;
SetGridHeight(AGrid);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hoika,
20. Jul 2009
Hallo #,
das angehängte Projekt soll ein StringGrd wordwrap-fähig machen.
Klappt soweit ganz gut (Button wordwrap).
Ist die Spalte aber gross genug,
soll sie genauso aussehen, wie nicht wordwrap-Zeilen.
Dort wird die Zeile durch den entsprechenden DrawText-Parameter
vertikal zentiert.