schriftarten durchschalten

[bitsetter]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i: integer;
begin
  if Listbox1.Items.Count> 0 then
  for i:= 0 to Pred(Listbox1.Items.Count) do begin
    canvas.Font.Name:= Listbox1.Items.Strings[i];
    canvas.TextOut(10,i* 16, 'Hallo');
  end;
end;