Einzelnen Beitrag anzeigen

Benutzerbild von DGL-luke
DGL-luke

Registriert seit: 1. Apr 2005
Ort: Bad Tölz
4.149 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Ganz einfach Grafiken einfügen

  Alt 10. Apr 2006, 21:14
die Paintbox hat ja ein Canvas. ein Delphi-Referenz durchsuchenTBitMap hat auch eins. und per Delphi-Referenz durchsuchenCopyRect kann man da rundrum kopieren

EDIT: da du ja anscheinend ein anfänger bist, mal ein bisschen source code:

Delphi-Quellcode:
procedure loadbitmap(Paintbox: TPaintBox; Filename: string);
var b:TBitmap;
begin
try
  b := TBitmap.create;
  b.LoadFromFile(Filename);
  Paintbox.canvas.Copyrect(rect(0,0,b.width,b.height),b.canvas,rect(0,0,b.width,b.height));
finally
  b.free;
end;
end;
(Das ist jetzt nur so schnell hingetippt, wenn dir der Compiler einen fehler meldet, nicht gleich verzweifeln )

Diese Prozedur kannst du ganz einfach in deine Delphi-Unit einfügen und dann per

loadbitmap(Paintbox1,'C:\tolles_bild.bmp'); aufrufen.
Lukas Erlacher
Suche Grafiktablett. Spenden/Gebrauchtangebote willkommen.
Gotteskrieger gesucht!
For it is the chief characteristic of the religion of science that it works. - Isaac Asimov, Foundation I, Buch 1
  Mit Zitat antworten Zitat