title image


Smiley Re: TBitmap mit BitBlt mit durchsichtigen Stellen zeichnen
Hi!Hiermit kannst du ein Bild zeichnen, wobei die WEISSEN Pixel durchsichtig sind:procedure TForm1.Button1Click(Sender: TObject); Var Bild,Maske:TBitmap;begin Bild:=TBitmap.Create; Maske:=TBitmap.Create; Bild.LoadFromFile('Test.BMP'); //Bild laden Maske.LoadFromFile('Test.BMP'); Maske.Mask(clwhite); //Maske Erstellen //Maske zeichnen: BitBlt(Form1.Canvas.Handle, 0, 0, 50, 50, Maske.Canvas.Handle, 0, 0, MERGEPAINT); //Figur auf die Maske zeichnen: BitBlt(Form1.Canvas.Handle, 0, 0, 50, 50, Bild.Canvas.Handle, 0, 0, SRCAND); Bild.Free; Maske.Free;end;Ich hoffe, es hilft dir.

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: