Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hansklok,
6. Sep 2004
Danke, hat funktioniert. Ich habe gesehen, du arbeitest mit Delphi 8 Professional, hast du als Schüler so viel Geld?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by hansklok,
6. Sep 2004
Hallo,
ich habe hier eine Procedure. Wenn ich nun über Toolbuttons die unteren Formatierungsstyle verpasse, den funktioniert immer nur der letzte Style. In diesem Falle StrikeOut. Warum
procedure TForm1.GetStyles(var Font: TFont; var Pen: TPen; var Brush: TBrush);
begin
Font.Color:= Panel6.Color;
Font.Name:= ComboBox4.Text;
Font.Size:= StrToInt(ComboBox5.Text);
Pen.Color:=...