Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
24. Okt 2004
Thx, Keldorn das wars. :thumb: Habe hier zwar noch anderen Code, der dasselbe macht, aber der jetzige ist besser. Und wegen .NET auch ein @ weniger. :mrgreen:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
23. Okt 2004
DT_VCENTER bewirkt nichts !
Habe hier ein Beispiel, das mit einem neuen Projekt und folgendem Code gemacht wurde:
procedure sgRechts (sg: TStringGrid; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
sg.Canvas.FillRect(Rect);
st := sg.Cells;
DrawText(sg.Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT OR DT_VCENTER);
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Hansa,
23. Okt 2004
Hi,
ich bin dabei ein Stringgrid, besser gesagt den Inhalt der Zellen, rechtsbündig anzuzeigen. Und zwar mit folgendem Code:
procedure sgRechts (sg: TStringGrid; Rect: TRect; ACol, ARow:Integer);
var st: String;
begin
sg.Canvas.FillRect(Rect);
st := sg.Cells;
DrawText(sg.Canvas.Handle, PChar(st), StrLen(PChar(st)),Rect,DT_RIGHT);