SB0sys_DoublePicture WindowName Main WindowSTRING ObjectNameSTRINGHSpaceHANDLEHObjectHANDLEFileNameSTRING _ObjectNameSTRINGHDibHANDLExFLOATyFLOATxvFLOATyvFLOATWidthFLOATHeightFLOATzOrderFLOATShow1FLOAT_xFLOAT_yFLOAT_xvFLOAT_yvFLOAT_WidthFLOAT_HeightFLOAT_zOrderFLOATretFLOATmsgFLOAT_HObjectHANDLE_enable1FLOATinitFLOATwwwwwwwwwwwwwwwxxw7spxwwqw0pxwwsws1xwwwwxxtxwwLpxxt@xwxw @8 pLpwLwDx0p1w0xpxpwqqqxwwswwwwssqqxxwxx 2D Y@Y@Y@Y@ ] N`@T@@@@@@@@@O  g@ BM6 6(  ffwww3ffUUUUUU3ffDDD333"""3333ff̙fffffff33fffDDD3ff33333f33fDDD333""""""ff̙̙ffffffUUU3ffffffUUU3ff33fUUU3ff33ff̙UUUf̙̙̙ffUUUUUUfffffffUUUfffwwwf33f33wwwDDD"""333fff̙̙̙"""f33ffffff""""fffffff33f33wwwDDDffff"f33""""f33333DDD3333ffff33333ffff"DDDf333fff"""33f33fwwwfUUU"DDDf33wwwDDD"f33f33"""UUU33333"""UUUff3333ff"DDD"""DDD333""""""""""3333""""""3333f33f3ff33fwwwwww3ff""333""""""""""""""""""333DDDDDD̙UUU33f̙"""""""""""""""""33"""""""""33333fDDD̙̙ff33DDD3f̙ff33f33"""3333333f33333f̙̙f33f"""333333333""""""33f"""33f33333fDDDDDD33fUUU̙̙fffffffff3ffDDDUUUDDDDDD33fDDD33f3ff33f̙̙̙̙fwwwfffff3ffUUU3ffDDD33fUUU33fUUU STRING WindowName,ObjectName HANDLE HSpace,HObject STRING FileName STRING local _ObjectName HANDLE local HDib FLOAT x,y,xv,yv,Width,Height,zOrder,Show FLOAT local _x,_y,_xv,_yv,_Width,_Height,_zOrder FLOAT local ret,msg HANDLE local _HObject FLOAT _enable if (~msg==WM_SPACEDONE) HDib:=#0 HObject:=#0; _ObjectName:="" init:=0 UnRegisterObject(~HSpace,"",WM_SPACEDONE) msg:=0 exit() endif if (!~init) //if (WindowName != ""&& (~HSpace==#0)); HSpace := GetWindowSpace(~WindowName); endif if (~ObjectName != "" && _ObjectName != ~ObjectName) if (GetObject2dByName(~HSpace, #0,~ObjectName)) HObject := GetObject2dByName(~HSpace, #0,~ObjectName) endif if (~HObject) x := GetObjectOrg2dx(~HSpace, ~HObject) y := GetObjectOrg2dy(~HSpace, ~HObject) Width := GetObjectWidth2d(~HSpace, ~HObject) Height := GetObjectHeight2d(~HSpace, ~HObject) _x:=~x; _y:=~y; _Width := ~Width; _Height := ~Height zOrder := GetZOrder2d(~HSpace,~HObject) RegisterObject(~HSpace,_HObject,"",WM_SPACEDONE,0) _ObjectName := ~ObjectName exit() endif endif init:=1 endif if (not(~HObject)) if (~FileName == ""); exit(); endif HDib := CreateDoubleDib2D(~HSpace,~FileName) HObject := CreateDoubleBitmap2D(~HSpace,~HDib,~x,~y) if (~Width * ~Height) ret:=SetBitmapSrcRect2d(~HSpace,~HDib, ~xv,~yv,~Width,~Height) ret := SetObjectSize2d(~HSpace,~HObject,~Width,~Height) endif zOrder := GetZOrder2d(~HSpace,~HObject) _x:=~x; _y:=~y; _zOrder :=~zOrder else x := ~x - _x + GetObjectOrg2dx(~HSpace,~HObject) y := ~y - _y + GetObjectOrg2dy(~HSpace,~HObject) ret := SetObjectOrg2d(~HSpace,~HObject,~x,~y) _x:=~x; _y:=~y if (_xv != ~xv || _yv != ~yv || _Width != ~Width || _Height != ~Height) ret:=SetBitmapSrcRect2d(~HSpace,~HObject, ~xv,~yv,~Width,~Height) ret := SetObjectSize2d(~HSpace,~HObject,~Width,~Height) _xv := ~xv; _yv := ~yv; _Width := ~Width; _Height := ~Height endif if (_zOrder !=~zOrder) ret := SetZOrder2d(~HSpace,~HObject,~zOrder) endif zOrder := GetZOrder2d(~HSpace,~HObject); _zOrder :=~zOrder ret := SetShowObject2d(~HSpace,~HObject,~Show) if (FileName != ~FileName); ret := DeleteObject2d(~HSpace,~HObject); endif endif @B system.dbm  @653  z{ z @ -5yzxy+5yoZy oD E H I     ` z @y{? W5yz5yP T   5    e   L `    3D E K    7 7, 7, 7,5u    e   L      75 c `  l xy5C h(