Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

   oDlg := XbpDialog():new( AppDesktop(),,,{936,514} )
   oDlg:taskList := .F.
   oDlg:visible  := .F.
   oDlg:title    := "Test"
   oDlg:border   := XBPDLG_NO_BORDER // kein Rand
   oDlg:close    := {|mp1,mp2,obj| obj:destroy() }
   oDlg:titlebar := .F.
   oDlg:create()

   oPS := XbpPresSpace():new():create( oDlg:drawingArea:winDevice() )

   oImage   := XbpBitmap():new():create( oPS )
   oImage:load(,BITMAP_LOGO) // als Ressource einbinden
   oImage:transparentClr := GraMakeRGBColor({255,255,0})
   lBGClr := XBPSYSCLR_TRANSPARENT

   oDlg:drawingarea:paint := {|x,y,obj| x:=obj:currentSize(), ;
                               oImage:draw( oPS, {0, 0, x[1], x[2]}, ;
                               {0, 0, oImage:xSize, oImage:ySize},,;
                               GRA_BLT_BBO_IGNORE), Sleep(0.1) }

   oDlg:drawingArea:SetColorBG( lBGClr )

   aPos:= CenterPos( oDlg:currentSize(), AppDesktop():currentSize() )
   aPos[2] := aPos[2]
   oDlg:setPos( aPos )
   oDlg:show()
   oImage:draw( oPS )
   SetAppFocus( oDlg )

Code: Alles auswählen

#define GWL_EXSTYLE -20
#define WS_EX_LAYERED 0x80000
#define LWA_ALPHA 0x2

DLLFUNCTION GetWindowLongA( hWnd, nIndex ) ;
         USING STDCALL ;
          FROM USER32.DLL
DLLFUNCTION SetWindowLongA( hWnd, nIndex, dwNewLong ) ;
         USING STDCALL ;
          FROM USER32.DLL
DLLFUNCTION SetLayeredWindowAttributes( hWnd, crKey, bAlpha, dwFlags ) ;
         USING STDCALL ;
          FROM USER32.DLL

function SetWindowTransparency(hWnd,nPercent,lActive)
lExStyle := GetWindowLongA(hWnd, GWL_EXSTYLE)
If lActive
 lExStyle = lExStyle + WS_EX_LAYERED
 Else
 lExStyle = lExStyle - WS_EX_LAYERED
EndIf
SetWindowLongA(hWnd, GWL_EXSTYLE, lExStyle)
nTransparentValue = (1 - nPercent / 100) * 255
SetLayeredWindowAttributes(hWnd, 0, nTransparentValue, LWA_ALPHA)
return nil

Code: Alles auswählen

nHwnd := SetAppWindow():GetHwnd()

Code: Alles auswählen

SetWindowTransparency(nHwnd,50,.T.)

Code: Alles auswählen

#define GWL_EXSTYLE -20
#define WS_EX_LAYERED 0x80000
#define LWA_ALPHA 0x2

#xtranslate SetDefault(<var>, <def>)        => iif(<var>==NIL, <var>:=<def>, <var>)

DLLFUNCTION GetWindowLongA( hWnd, nIndex ) USING STDCALL FROM USER32.DLL
DLLFUNCTION SetWindowLongA( hWnd, nIndex, dwNewLong ) USING STDCALL FROM USER32.DLL
DLLFUNCTION SetLayeredWindowAttributes( hWnd, crKey, bAlpha, dwFlags ) USING STDCALL FROM USER32.DLL

FUNCTION SetWindowLayered(hWnd,lActive)
LOCAL lExStyle := GetWindowLongA(hWnd, GWL_EXSTYLE)
SetDefault(lActive,.T.)
IF lActive
    IF !(lExStyle $ WS_EX_LAYERED)
        lExStyle := lExStyle + WS_EX_LAYERED
        SetWindowLongA(hWnd, GWL_EXSTYLE, lExStyle)
    ENDIF
ELSE
    IF (lExStyle $ WS_EX_LAYERED)
        lExStyle := lExStyle - WS_EX_LAYERED
        SetWindowLongA(hWnd, GWL_EXSTYLE, lExStyle)
    ENDIF
ENDIF
RETURN(NIL)

FUNCTION SetWindowTransparency(hWnd,nPercent,nToPercent,nSpeed)
LOCAL nTransparentValue
LOCAL nIx,nStep
SetDefault(nPercent,50)
SetDefault(nToPercent,nPercent)
SetDefault(nSpeed,1)
IIF(nToPercent < nPercent, nStep := -1*nSpeed, nStep := 1*nSpeed )
FOR nIx = nPercent TO nToPercent STEP nStep
    nTransparentValue := (1 - nIx / 100) * 255
    SetLayeredWindowAttributes(hWnd, 0, nTransparentValue, LWA_ALPHA)
NEXT nIx
nTransparentValue := (1 - nToPercent / 100) * 255
SetLayeredWindowAttributes(hWnd, 0, nTransparentValue, LWA_ALPHA)
RETURN(NIL)

Code: Alles auswählen

SetWindowLayered(hWnd,.T.)          // Stil setzen
SetWindowTransparency(hWnd,100) // unsichtbar machen
oDlg:Show()                                   // Fenster anzeigen
SetWindowTransparency(hWnd,100,0) // sichtbar machen

Code: Alles auswählen

******************************************************************************
* Application's Main() Procedure
******************************************************************************

PROCEDURE Main() 

   LOCAL nEvent, mp1, mp2, oXbp 
   Local nHwnd, oPS, oFont
   
   oDlg2 := XbpDialog():new( )
	oDlg2:minButton := .t.
   oDlg2:title    := "Meldung über Netzwerk "
   oDlg2:create( AppDesktop(), , {100,100}, {500,300})
   oDraw2 := oDlg2:drawingarea   
   oPs := oDraw2:lockPS()
   oFont := XbpFont(oPS):new():create("32.Helvetica")
   oFont := XbpFont(oPS):new():create("32.Helvetica") 
   GraSetFont( oPS ,oFont )
   GraStringAt( oPs, { 10, 80 }, "Bernd Reinhardt" )     
   oDlg2:show()
	setappwindow(oDlg2)
	setappfocus(oDlg2)
   DO WHILE nEvent <> xbeP_Close 
      nEvent := AppEvent( @mp1, @mp2, @oXbp ) 
      oXbp:HandleEvent( nEvent, mp1, mp2 ) 
   ENDDO   
   nEvent := 0
   nHwnd := oDlg2:GetHwnd() 

   SetWindowTransparency(nhWnd,6, .t.) 
   GraStringAt( oPs, { 10, 80 }, "Bernd Reinhardt" )     
   DO WHILE nEvent <> xbeP_Close 
      nEvent := AppEvent( @mp1, @mp2, @oXbp ) 
      oXbp:HandleEvent( nEvent, mp1, mp2 ) 
   ENDDO 
   oPs := oDraw2:unlockPS()      
   oDlg2:destroy()
   quit
return
      DLLFUNCTION MessageBeep(nMsgType) USING STDCALL FROM "USER32.DLL"
      DLLFUNCTION GetWindowLongA( hWnd, nIndex ) USING STDCALL FROM "USER32.DLL" 
      DLLFUNCTION SetWindowLongA( hWnd, nIndex, dwNewLong ) USING STDCALL FROM "USER32.DLL" 
      DLLFUNCTION SetLayeredWindowAttributes( hWnd, crKey, bAlpha, dwFlags ) USING STDCALL FROM "USER32.DLL"   
      
********************************************************************************************
Function SetWindowTransparency(hWnd,nPercent,lActive) 
   lExStyle := GetWindowLongA(hWnd, GWL_EXSTYLE) 
   If lActive 
      lExStyle = lExStyle + WS_EX_LAYERED 
   Else 
      lExStyle = lExStyle - WS_EX_LAYERED 
   EndIf 
   SetWindowLongA(hWnd, GWL_EXSTYLE, lExStyle) 
   nTransparentValue = (1 - nPercent / 100) * 255 
   SetLayeredWindowAttributes(hWnd, 0, nTransparentValue, LWA_ALPHA) 
return nil 

***************************************************************************************

Code: Alles auswählen

hwndPB := oProgress:hWnd
SetWindowLongA(hwndPB, GWL_STYLE, PBS_MARQUEE )
SendMessageA(hwndPB, PBS_MARQUEE    , 1, 200)