I need to convert some eXpress-code into basic xbp-parts.
Shouldn't be a problem, but I can't get the autoscale of a bitmap working.
eXpress-code:
Code: Alles auswählen
@ 0,0 DCSTATIC;
EVAL {|o| o:setpos( {1,1} ) };
OBJECT oStatic;
PARENT oParent;
SIZE DCGUI_PARENTWIDTH-10,DCGUI_PARENTHEIGHT-10
DCBITMAP cBild;
AUTOSCALE;
OBJECT oBild;
PARENT oStatic
Code: Alles auswählen
oGroup := createGroup( oParent,nLinks, nOben, breite, hohe )
oStatic := XbpStatic():new( oGroup,,{1,1} )
oStatic:type := XBPSTATIC_TYPE_BITMAP
oStatic:autoSize := .T.
oStatic:create()
oBitmap := XbpBitmap():new():create()
oBitmap:loadFile( Alltrim(cBild) )
oStatic:setCaption( oBitmap )
oBitmap := XbpBitmap():new():create()
oBitmap:loadFile( Alltrim(cBild) )
oStatic:setCaption( oBitmap )
Regards, Stephan