Das müsste z.B. so gehen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
var
i:Integer;
begin
Image321.Bitmap.Clear;
for i := 0 to Listbox1.Count-1 do
begin
Image321.Bitmap.RenderText(10,i*Image321.Bitmap.TextHeight(ListBox1.Items.Strings[i]),ListBox1.Items.Strings[i],0,Color32(255,255,255));
end;
end;
Für die Funktion "Color32" musst du noch GR32 zu deinem uses Abschnitt hinzufügen.