Transparente Bitmaps mittels GDI

[Fluid Byte]

Der folgende Code demonstriert wie man Bitmaps mit transparenten Bereichen in einer gewöhnlichen, auf Fenster-basierenden Anwendung darstellen kann. Die Methode bedient sich einer bereits existierenden schwarz/weiss Maske welche mit dem gewünschtem Bild kombiniert wird. Dies ist mit Abstand die Prozessorschonendste Technik die Ich kenne. Außerdem rückwärts-kompatibel bis Win95.

Code: Alles auswählen

Procedure WindowCallback(hWnd.l,uMsg.l,wParam.l,lParam.l) 
    Select uMsg
        Case #WM_PAINT
		hdc = BeginPaint_(hwnd,ps.PAINTSTRUCT)
		                        
		hdcMem = CreateCompatibleDC_(hdc)
		
		SelectObject_(hdcMem,ImageID(1))
		BitBlt_(hdc,60,20,200,200,hdcMem,0,0,#SRCAND)
			
		SelectObject_(hdcMem,ImageID(0))    
		BitBlt_(hdc,60,20,200,200,hdcMem,0,0,#SRCPAINT)
		
		DeleteDC_(hdcMem)        
		
		EndPaint_(hwnd,ps)  
    EndSelect

    ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure

CreateImage(0,200,200)
CreateImage(1,200,200)

StartDrawing(ImageOutput(0))
For i=0 To 100
	FrontColor(RGB(50+i*205/100,0,0))
	Ellipse(100,100,100-i,100-i)
Next
StopDrawing()

StartDrawing(ImageOutput(1))
Box(0,0,200,200,#White)
Ellipse(100,100,100,100,0)
StopDrawing()

OpenWindow(0,0,0,320,240,"Bitmap Mask",#WS_OVERLAPPEDWINDOW | 1)

SetWindowCallback(@WindowCallback())

SetWindowColor(0,RGB(80,130,180))

While WaitWindowEvent() ! 16 : Wend

[Kaeru Gaman]

supi!
danke, dass du meiner bitte nachgekommen bist.

[Fluid Byte]

Imma' doch!

Ach ja noch was...

Wer unbedingt eine andere transparente Farbe als Schwarz benötigt:

1.) Im Quellbild ein "fake black" benutzen. Soll heißen man macht aus RGB(0,0,0) einfach RGB(1,1,1).

2.) Bei einem einfarbigen Hintergrund einfach Schwarz nehmen.

3.) Ein zusätzliches, schwarzes Bild was unter Quellbild und Maske gepackt wird und als Deckfarbe fungiert. Änlich wie bei CMYK im Druck.

[Deeem2031]

Ganz schicker Code, aber was ich viel interessanter finde ist "While WaitWindowEvent() ! 16 : Wend". Bin bis jetzt nämlich nie auf die Idee gekommen "<>" mit "!" zu ersetzen, auch wenn man das "selbe" erhält.
Thx für den Tip

[Ja!]

Ganz schicker Code, aber was ich viel interessanter finde ist "While WaitWindowEvent() ! 16 : Wend". Bin bis jetzt nämlich nie auf die Idee gekommen "<>" mit "!" zu ersetzen, auch wenn man das "selbe" erhält.
Thx für den Tip

Hmm, jetzt wo Du's sagst, tatsächlich ist auch mir das noch nie
eingefallen.. Dabei ist es so naheliegend!

..und das nach so vielen Jahren..

[sechsrad]

Code: Alles auswählen

Procedure WindowCallback(hWnd.l,uMsg.l,wParam.l,lParam.l)
    Select uMsg
      Case #WM_PAINT
      hdc = BeginPaint_(hwnd,ps.PAINTSTRUCT)
                             
      hdcMem = CreateCompatibleDC_(hdc)
      
      SelectObject_(hdcMem,ImageID(1))
      BitBlt_(hdc,60,20,200,200,hdcMem,0,0,#SRCAND)
         
      SelectObject_(hdcMem,ImageID(0))   
      BitBlt_(hdc,60,20,200,200,hdcMem,0,0,#SRCPAINT)
      
      DeleteDC_(hdcMem)       
      
      EndPaint_(hwnd,ps) 
    EndSelect

    ProcedureReturn #PB_ProcessPureBasicEvents
EndProcedure


OpenWindow(0,0,0,400,400,"sprites!",#PB_Window_SystemMenu|#PB_Window_SizeGadget|#PB_Window_ScreenCentered)

CreateImage(0,200,200)
CreateImage(1,200,200)

StartDrawing(ImageOutput(0))
For i=0 To 100
   FrontColor(RGB(50+i*205/100,0,0))
   Ellipse(100,100,100-i,100-i)
Next
StopDrawing()

StartDrawing(ImageOutput(1))
Box(0,0,200,200,#White)
Ellipse(100,100,100,100,0)
StopDrawing()


SetWindowCallback(@WindowCallback())

;SetWindowColor(0,RGB(80,130,180))

While WaitWindowEvent() ! 16 : Wend

OpenWindowedScreen(WindowID(0),5,5,50,50,0,0,0)

..wenn ich das noch zusätzlich reinsetze geht das Programm ins Grab.

warum?

[Kiffi]

warum?

Du erwartest jetzt wirklich eine Antwort vom arbeitsscheuen Fluid Byte -
Gesint, dem ein Wurm im Arsch steckt?

Sachen gibt's...