Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wolfgang Mix,
14. Mär 2010
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
// Alle Spalten rechtsbündig
WriteTextAligned(TStringGrid(Sender).Canvas, Rect, taRightJustify, TStringGrid(Sender).Cells);
end;
Aktiviere mal das Ereignis OnDrawCell im Objektinspektor und setze dann den
obigen Code ein. So geht es bei mir.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wolfgang Mix,
3. Mär 2010
@Detlef
Danke für den Tipp, muss ich ausprobieren.
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Wolfgang Mix,
3. Mär 2010
Ich habe hier einen Codeschnippsel gefunden, mit dem man die Zellen linksbündig, zentriert oder
rechtsbündig formatieren kann und den Code auf Rechtsbündigkeit gekürzt.
//http://www.delphi-forum.de
//procedure WriteTextAligned und
//procedure TForm1.StringGrid1DrawCell
procedure WriteTextAligned(Canvas: TCanvas; Rect: TRect; Alignment: TAlignment; Text: string);
var xPos, yPos: integer;...