hm ... versuche es hiermit mal :Jan hat geschrieben:Hallo Jimmy,
ohne dll.ch würde bei das kompilieren nicht funktionieren (hohes Warnlevel). Und die DLL-Funktionen sind auch drin. Es gibt keine bestimmte Position, wo die hin müssen, oder?
Code: Alles auswählen
PROCEDURE Main
LOCAL oBMP, oPS
LOCAL nEvent, mp1, mp2, oXbp
LOCAL oDlg,aSize,aPos
aSize := {640,480}
aPos := CenterPos( aSize, AppDesktop():currentSize() )
oDlg := XbpDialog():new( ,, aPos, aSize )
oDlg:title := "Invert BMP"
oDlg:create()
oBMP := XbpBitmap():new():create()
oBMP:loadfile( "SOFI.BMP" )
oLogo := XbpStatic():new(oDlg:drawingArea,,{0,0},aSize)
oLogo:type := XBPSTATIC_TYPE_BITMAP
oLogo:autoSize := .F.
oLogo:caption := oBMP
oLogo:create()
oDa := oDlg:drawingArea
aBmpPos := {0,0}
aBmpSize := aSize
NegImage(@oLogo,oDa, @aBmpPos, @aBmpSize)
oDlg:Show()
oLogo:Show()
nEvent := 0
DO WHILE nEvent <> xbeP_Close
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
gruss by OHR
Jimmy