Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi Animation von TImages (https://www.delphipraxis.net/62394-animation-von-timages.html)

ontorius 16. Mär 2006 20:24

Re: Animation von TImages
 
kann man für MyBitmap.canvas.handle als quelle auch die bilddatei direkt angeben?
für was steht der befehl "handle"?

turboPASCAL 16. Mär 2006 21:37

Re: Animation von TImages
 
Zitat:

Zitat von ontorius
kann man für MyBitmap.canvas.handle als quelle auch die bilddatei direkt angeben?

? Das ist in diesem Fall so. MyBitmap ist nur ein Kontainer für das eigentliche Bitmap. Das hat etwas mit der VCL zu tun. die VCL kapselt ein Bitmap in eine eigene "Umgebung" zur einfachen bearbeitung.

Zitat:

Zitat von ontorius
für was steht der befehl "handle"?

Das Handle ist in diesen Fall der Device Context (DC) des Bitmaps, also ein direvkter Zeiger auf die Bitmapzeichenoberfläche.

ontorius 18. Mär 2006 11:50

Re: Animation von TImages
 
ich habe für den BitBlt-Befehl folgende Zeilen geschrieben:

Delphi-Quellcode:
var
  Form1: TForm1;
  b:integer;
  bg:TBitmap;
  const x=10;
        y=10;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender:TObject);
begin
  bg:=TBitmap.Create;
  bg.PixelFormat := pf24Bit;
end;

procedure TForm1.START1Click(Sender: TObject);
begin
  timer2.Enabled:=false;
  form1.DoubleBuffered:=true;

  bg.loadfromfile('.\pics\trasch24b.bmp');
  Bitblt(paintbox1.Canvas.Handle,0,555,1036,50,bg,0,0,srccopy);
  paintbox1.Canvas.Draw(0,555,bg);

  image2.picture.loadfromfile('.\pics\stehen_1.bmp');
  image5.Picture.LoadFromFile('.\pics\door.bmp');
end;
beim compilieren wird das Problem von "inkompatiblen Typen: 'HDC' und 'TBitmap'" angezeigt.
Mit der Paintbox und den Positionsparametern in der BitBlt-Prozedur müsste alles richtig sein, dass heißt, ich habe ein Problem mit der Variablen "bg". Muss man dafür ein bestimmtes Bild-Format haben oder sonst irgendwas beachten?


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:43 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz