title image


Smiley Ein "abgerundetes" Beispiel
Hey Dennis!



Ich habe schnell ein Beispiel gebastelt, wie Du die Größe des HBitmap ermittelst und es auf den Canvas bekommst. Beachte, daß Du die Hintergrundfarbe Deiner Graphik RGB(192,192,192) setzen musst, damit diese durch die aktuelle Hintergrundfarbe ersetzt wird. Näheres dazu im PSDK.





procedure TForm1.Button1Click(Sender: TObject);

Var B:Windows.TBitmap; Bmp:HBitmap; DC:HDC;

begin

Bmp:=LoadImage(hInstance,'IDB_TREE',IMAGE_BITMAP,0,0,

LR_DEFAULTSIZE+LR_LOADMAP3DCOLORS);

DC:=CreateCompatibleDC(0);

SelectObject(DC,Bmp);

GetObject(Bmp,SizeOf(Windows.TBitmap),@B);

BitBlt(Canvas.Handle,100,100,B.bmWidth,B.bmHeight,DC,0,0,SRCCOPY);

DeleteObject(Bmp); DeleteObject(DC);

end;





Viele Grüsse



OLLI

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: