Font Frage

[mirage228]

Delphi-Quellcode:

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:= TBrushStyle(Form2.ComboBox2.ItemIndex);
  Font.Style := [];
  if ToolButton23.Down then 
     Font.Style:= Font.Style + [fsBold];
  if ToolButton24.Down then 
     Font.Style:= Font.Style + [fsItalic];
  if ToolButton25.Down then 
     Font.Style:= Font.Style + [fsUnderline];
  if ToolButton26.Down then 
     Font.Style:= Font.Style + [fsStrikeOut];
end;

Versuch es mal so

mfG
mirage228