Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mirage228,
6. Sep 2004
Hi,
bitte sehr ;) -
zu Delphi 8: meine Eltern haben mir das Upgrade auf Delphi 8 (von Delphi 3 Prof.) zu Weihnachten geschenkt. :)
mfG
mirage228
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by mirage228,
6. Sep 2004
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:= Panel6.Color;
Pen.Style:= TPenStyle(Form2.ComboBox1.ItemIndex);
Pen.Width:= Form3.ComboBox1.ItemIndex+1;
Brush.Color:= Panel7.Color;
Brush.Style:=...