Forum: Programmieren allgemein
FreePascal
by bianfable,
20. Jul 2010
Ich hab's jetzt mal so probiert:
//Bild ist Bitmap:
Image1.Picture.Bitmap.Assign(Bild);
Das gleiche Problem, ändert nichts. TPaintBox wäre natürlich eine Alternative, allerdings hat das mit dem Image bisher immer so funktioniert, ich verwende das eigentlich schon zum 100. Mal genau so, nämlich einfach irgendwo Image1.Canvas nutzen, um irgendwas zu zeichnen...
Forum: Programmieren allgemein
FreePascal
by bianfable,
18. Jul 2010
Ich habe jetzt durch auskommentieren einzelner Zeilen festgestellt, dass der Fehler in der letzten Zeile erzeugt wird, also beim Image1.Canvas.Draw(0, 0, Bild);. Zum testen habe ich etwas anderes auf das Image gezeichnet - funktioniert einwandfrei, also am Image liegt es nicht. Dann hab' ich zum testen einmal das Bild per SaveToFile auf die Festplatte gespeichert - funktioniert (Programm beendet...
Forum: Programmieren allgemein
FreePascal
by bianfable,
16. Jul 2010
Also, rekursiv aufgerufen wird da nichts. Ich häng mal den Code-Teil an:
procedure TForm1.ListBox1Click(Sender: TObject);
begin
if ListBox1.ItemIndex >= 0 then
LoadLevel(PP + 'Level/' + ListBox1.Items.Strings + '.txt');
end;
procedure TForm1.LoadLevel(const FileName: String);
var F: TStringList; i: Integer; Bildpfad: String;
begin