Procedure funktioniert nicht?

[Hawkeye219]

Zitat von PeterKiers:

Ich Gibe auf.

Warum? Weil es nicht auf Anhieb funktioniert?

Delphi-Quellcode:

procedure TChangeFont.FormCreate (Sender: TObject)
var
  i, minFontSize, maxFontSize: Integer;
  Styles: TFontStyles;
begin
  Listbox1.Items.Assign (Screen.Fonts);

  with ListBox2.Items do
    begin
      Styles := [];
      AddObject('Regular', TObject(Byte(Styles)));
      Styles := [fsItalic];
      AddObject('Italic', TObject(Byte(Styles)));
      Styles := [fsBold];
      AddObject('Bold', TObject(Byte(Styles)));
      Styles := [fsBold, fsItalic];
      AddObject('Bold Italic', TObject(Byte(Styles)));
    end;  

  minFontSize := 4;
  maxFontSize := 48;
  for i := minFontSize to maxFontSize do
    ListBox3.Items.Add(IntToStr(i));
end;

procedure TChangeFont.ListBox2Click (Sender: TObject)
begin
  with ListBox2 do
    if (ItemIndex >= 0) then
      Label1.Font.Style := TFontStyles(Byte(Items.Objects[ItemIndex]));
end;

Gruß Hawkeye