Ähmmmm. Der Befehl Draw möchte keinen String sondern ein Objekt des Typen TGraphic! Der Code oben lässt sich also nicht mal übersetzen.
Du musst also erst einmal ein Bild laden um dieses Darstellen zu können. Der Quellcode ist geringfügig gekürzt also bitte darauf achten.
Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
| type
TForm1 = class(TForm)
private
fPicture: TPicture;
end;
implementation
procedure TForm1.FormCreate(Sender: TObject);
begin
fPicture := TPicture.Create;
fPicture.LoadFromFile('Blahhh.bmp');
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
FreeAndNil(fPicture);
end;
procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
PaintBox1.Canvas.Draw(100, 100, fPicture.Graphic);
end; |
PS: Die Aussage "Funktioniert nicht" ist im übrigen alles andere als Aussagekräftig. In deinem Falle ist der Code Aussage genug aber bitte demnächst etwas genauer werden. Danke.
Nur die Menschheit ist arrogant genug, um zu glauben sie sei die einzige intelligente Lebensform im All. Wo nicht mal das nachhaltig bewiesen wurde.
