RbBFBlokProjPSIVStrn2007.04 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt VprTpInt DLanInt CLanInt DEncInt BflgInt IconGrupEndGInt MacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication DgCLStrnPadnPadn|********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjFlNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$nameStrnMenuBar PValInt EndGInt VwBhGrupEndGInt CnstGrupEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0pltfInt langInt defnStrnCmd+Q EndGInt CInsGrup0pltfInt langInt defnStrnCtrl+Q EndGInt EndGInt CnstGrupEncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0pltfInt langInt defnStrnE&xit EndGInt EndGInt CnstGrupEncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0pltfInt langInt defnStrn&Delete EndGInt CInsGrup0pltfInt langInt defnStrn&Delete EndGInt EndGInt PadnPadnT************************************************************************************BlokpVewV(NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnPDefGrup<nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt PDefGrup0nameStrnMenuBar PValStrn 386906111 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup,nameStrn LiveResize PValStrnTrueEndGInt PDefGrup0nameStrn Resizeable PValStrnFalse EndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup8nameStrnTitle EncoInt PValStrnUntitledEndGInt PDefGrup$nameStrnBackdropPValStrnEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup0nameStrn HasBackColorPValStrnFalse EndGInt PDefGrup0nameStrn Composite PValStrnFalse EndGInt PDefGrup$nameStrnFrame PValInt EndGInt PDefGrup(nameStrn MaxHeight PValInt }EndGInt PDefGrup$nameStrnMaxWidthPValInt }EndGInt PDefGrup(nameStrn MinHeight PValInt @EndGInt PDefGrup$nameStrnMinWidthPValInt @EndGInt PDefGrup$nameStrnHeight PValInt ,EndGInt PDefGrup$nameStrnWidth PValInt ,EndGInt PDefGrup(nameStrn Placement PValInt EndGInt VwBhGruptVwPrGrupDNameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupLNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrup0NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt EndGInt VwPrGruppNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt VwPrGruppNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt VwPrGruptNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt VwPrGrup NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppdefnStrn 0 - DocumentdefnStrn1 - Movable Modal defnStrn2 - Modal DialogdefnStrn3 - Floating Window defnStrn 4 - Plain Box defnStrn5 - Shadowed BoxdefnStrn6 - Rounded Window defnStrn7 - Global Floating Window defnStrn8 - Sheet WindowdefnStrn9 - Metal WindowdefnStrn10 - Drawer Window defnStrn11 - Modeless DialogEndGInt EndGInt VwPrGrup|NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt VwPrGrupxNameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt VwPrGrupxNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt VwPrGruptNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrupxNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup|NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGruphNameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt VwPrGrupxNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupxNameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt VwPrGrup|NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt EndGInt CBhvGrup|SuprStrn PushButton HInsGrupHnameStrnAction CompStrnVsblInt sorcGrupEncoInt srclStrn Sub Action()srclStrndim c as IProgressDialogsrclStrnsrclStrnif COMServices.Create( c ) then srclStrnConst PROGDLG_AUTOTIME = &h2srclStrnConst PDTIMER_RESET = &h1 srclStrn"call c.SetTitle( "Slow Process!" ) srclStrnEcall c.StartProgressDialog( self.Handle, nil, PROGDLG_AUTOTIME, nil ) srclStrn"call c.Timer( PDTIMER_RESET, nil ) srclStrnfor i as Integer = 0 to 10 srclStrn$if c.HasUserCancelled then exit forsrclStrn=call c.SetLine( 2, "I'm processing " + Str( i ), false, nil ) srclStrnApp.SleepCurrentThread( 2000 ) srclStrncall c.SetProgress( i, 10 ) srclStrnnext i srclStrncall c.StopProgressDialog srclStrncall c.Release srclStrnend if srclStrnEnd Sub EndGInt EndGInt EndGInt CtrlGrupPcclsStrn PushButton nameStrn PushButton PDefGrup8nameStrnNameEncoInt PValStrn PushButton1 EndGInt PDefGrup<nameStrnIndex EncoInt PValStrn -2147483648 EndGInt PDefGrup4nameStrnScope EncoInt PValStrn0 EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn0 EndGInt PDefGrup0nameStrnLeftEncoInt PValStrn20 EndGInt PDefGrup0nameStrnTop EncoInt PValStrn20 EndGInt PDefGrup4nameStrnWidth EncoInt PValStrn80 EndGInt PDefGrup4nameStrnHeight EncoInt PValStrn22 EndGInt PDefGrup0nameStrnLockLeftEncoInt PValStrnEndGInt PDefGrup0nameStrnLockTop EncoInt PValStrnEndGInt PDefGrup4nameStrn LockRight EncoInt PValStrnEndGInt PDefGrup4nameStrn LockBottom EncoInt PValStrnEndGInt PDefGrup<nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt PDefGrup8 nameStrnCaption EncoInt PValStrnUntitledEndGInt  PDefGrup0 nameStrnDefault EncoInt PValStrnEndGInt  PDefGrup0 nameStrnCancel EncoInt PValStrnEndGInt  PDefGrup4 nameStrnEnabled EncoInt PValStrnTrueEndGInt  PDefGrup4 nameStrnVisible EncoInt PValStrnTrueEndGInt  PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup<nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup4nameStrnTextSizeEncoInt PValStrn0 EndGInt PDefGrup,nameStrnBoldEncoInt PValStrnEndGInt PDefGrup0nameStrnItalic EncoInt PValStrnEndGInt PDefGrup4nameStrn Underline EncoInt PValStrnEndGInt PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PushButton EndGInt CBixInt EndGInt PadnPadn8********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu NameStrnMenuBar1ContInt paswStrnMItmGruppspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EndGInt MItmGrup\spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup spmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt  MItmGrup!spmuInt nameStrn EditSelectAll textStrn Select &All indxInt scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt !EndGInt PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj%NameStrn COMServices ContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupd"nameStrnCreate CompStrnVsblInt sorcGrup#EncoInt srclStrn8Function Create(ByRef obj as IProgressDialog) As BooleansrclStrn7return COMServices.IProgressDialogSupport.Create( obj ) srclStrn End FunctionEndGInt #EncoInt AlasStrnflagInt shrdInt parmStrnByRef obj as IProgressDialogrsltStrnBoolean EndGInt "VwBhGrup$VwPrGrupD%NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt %VwPrGrup`&NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt &VwPrGrupH'NameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt 'VwPrGrupX(NameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt (VwPrGrupX)NameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt )EndGInt $PadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjWoNameStrnIProgressDialogSupport ContInt %paswStrnbClsInt flagInt bNtrInt CompStrnDmthGrupH*nameStrnQueryInterfaceFunc CompStrnVsblInt sorcGrupx+EncoInt srclStrnZDelegate Function QueryInterfaceFunc(this as Ptr, riid as Ptr, ByRef out as Ptr) As UInt32 EndGInt +EncoInt AlasStrnflagInt !shrdInt parmStrn*this as Ptr, riid as Ptr, ByRef out as Ptr rsltStrnUInt32 EndGInt *DmthGrup,nameStrn AddRefFunc CompStrnVsblInt sorcGrupP-EncoInt srclStrn3Delegate Function AddRefFunc(this as Ptr) As UInt32 EndGInt -EncoInt AlasStrnflagInt !shrdInt parmStrn this as Ptr rsltStrnUInt32 EndGInt ,DmthGrup.nameStrn ReleaseFunc CompStrnVsblInt sorcGrupP/EncoInt srclStrn4Delegate Function ReleaseFunc(this as Ptr) As UInt32EndGInt /EncoInt AlasStrnflagInt !shrdInt parmStrn this as Ptr rsltStrnUInt32 EndGInt .DmthGrup0nameStrnStartProgressDialogFunc CompStrnVsblInt sorcGrup1EncoInt srclStrnDelegate Function StartProgressDialogFunc(this as Ptr, hwndParent as UInt32, punkEnableModeless as Ptr, dwFlags as UInt32, reserved as Ptr) As UInt32 EndGInt 1EncoInt AlasStrnflagInt !shrdInt parmStrn`this as Ptr, hwndParent as UInt32, punkEnableModeless as Ptr, dwFlags as UInt32, reserved as PtrrsltStrnUInt32 EndGInt 0DmthGrup2nameStrnStopProgressDialogFunc CompStrnVsblInt sorcGrup\3EncoInt srclStrn?Delegate Function StopProgressDialogFunc(this as Ptr) As UInt32 EndGInt 3EncoInt AlasStrnflagInt !shrdInt parmStrn this as Ptr rsltStrnUInt32 EndGInt 2DmthGrup 4nameStrn SetTitleFuncCompStrnVsblInt sorcGrupd5EncoInt srclStrnGDelegate Function SetTitleFunc(this as Ptr, title as WString) As UInt32 EndGInt 5EncoInt AlasStrnflagInt !shrdInt parmStrnthis as Ptr, title as WString rsltStrnUInt32 EndGInt 4DmthGrupT6nameStrnSetAnimationFuncCompStrnVsblInt sorcGrup7EncoInt srclStrnbDelegate Function SetAnimationFunc(this as Ptr, hinst as Integer, idAmination as UInt32) As UInt32 EndGInt 7EncoInt AlasStrnflagInt !shrdInt parmStrn4this as Ptr, hinst as Integer, idAmination as UInt32rsltStrnUInt32 EndGInt 6DmthGrup 8nameStrnHasUserCancelledFuncCompStrnVsblInt sorcGrup\9EncoInt srclStrn>Delegate Function HasUserCancelledFunc(this as Ptr) As Boolean EndGInt 9EncoInt AlasStrnflagInt !shrdInt parmStrn this as Ptr rsltStrnBoolean EndGInt 8DmthGrupP:nameStrnSetProgressFunc CompStrnVsblInt sorcGrup|;EncoInt srclStrn^Delegate Function SetProgressFunc(this as Ptr, completed as UInt32, total as UInt32) As UInt32 EndGInt ;EncoInt AlasStrnflagInt !shrdInt parmStrn1this as Ptr, completed as UInt32, total as UInt32 rsltStrnUInt32 EndGInt :DmthGrupTnameStrn SetLineFunc CompStrnVsblInt sorcGrup?EncoInt srclStrnDelegate Function SetLineFunc(this as Ptr, lineNum as UInt32, str as WString, comactPath as Boolean, reserved as Ptr) As UInt32 EndGInt ?EncoInt AlasStrnflagInt !shrdInt parmStrnVthis as Ptr, lineNum as UInt32, str as WString, comactPath as Boolean, reserved as Ptr rsltStrnUInt32 EndGInt >DmthGrupD@nameStrnSetCancelMsgFuncCompStrnVsblInt sorcGrupxAEncoInt srclStrnZDelegate Function SetCancelMsgFunc(this as Ptr, msg as WString, reserved as Ptr) As UInt32 EndGInt AEncoInt AlasStrnflagInt !shrdInt parmStrn,this as Ptr, msg as WString, reserved as PtrrsltStrnUInt32 EndGInt @DmthGrup@BnameStrn TimerFunc CompStrnVsblInt sorcGruptCEncoInt srclStrnUDelegate Function TimerFunc(this as Ptr, action as UInt32, reserved as Ptr) As UInt32 EndGInt CEncoInt AlasStrnflagInt !shrdInt parmStrn.this as Ptr, action as UInt32, reserved as Ptr rsltStrnUInt32 EndGInt BMethGrupDDnameStrnCreate CompStrnVsblInt sorcGrupEEncoInt srclStrn8Function Create(ByRef obj as IProgressDialog) As BooleansrclStrnDeclare Function CoCreateInstance Lib "Ole32" ( clsid as Ptr, punkOuter as Ptr, context as UInt32, riid as Ptr, ByRef objectInstance as Ptr ) as UInt32 srclStrn@Declare Sub IIDFromString Lib "Ole32" ( s as WString, p as Ptr )srclStrnsrclStrn"dim clsid as new MemoryBlock( 16 ) srclStrn!dim riid as new MemoryBlock( 16 ) srclStrnsrclStrn?IIDFromString( "{EBBC7C04-315E-11d2-B62F-006097DF5BD4}", riid ) srclStrn@IIDFromString( "{F8383852-FCD3-11d1-A6B9-006097DF5BD4}", clsid )srclStrnsrclStrn Const CLSCTX_INPROC_SERVER = &h1srclStrn dim p as PtrsrclStrnJif CoCreateInstance( clsid, nil, CLSCTX_INPROC_SERVER, riid, p ) <> 0 then srclStrn return falsesrclStrnend if srclStrnsrclStrnobj = new ProgressDialog( p ) srclStrn return true srclStrn End FunctionEndGInt EEncoInt AlasStrnflagInt shrdInt parmStrnByRef obj as IProgressDialogrsltStrnBoolean EndGInt DVwBhGrupFVwPrGrupDGNameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt GVwPrGrup`HNameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt HVwPrGrupHINameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt IVwPrGrupXJNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt JVwPrGrupXKNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt KEndGInt FPadnPadnh********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjESNameStrnIProgressDialog ContInt %paswStrnbClsInt flagInt bNtrInt CompStrnMethGrupLnameStrnAddRef CompStrnVsblInt sorcGrupHMEncoInt srclStrn Sub AddRef()srclStrnsrclStrnEnd Sub EndGInt MEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt LMethGrupNnameStrnHasUserCancelledCompStrnVsblInt sorcGrupTOEncoInt srclStrnSub HasUserCancelled() srclStrnsrclStrnEnd Sub EndGInt OEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnBoolean EndGInt NMethGrup@PnameStrnQueryInterface CompStrnVsblInt sorcGrupQEncoInt srclStrn@Function QueryInterface(riid as Ptr, ByRef out as Ptr) As UInt32srclStrnsrclStrn End FunctionEndGInt QEncoInt AlasStrnflagInt shrdInt parmStrnriid as Ptr, ByRef out as Ptr rsltStrnUInt32 EndGInt PMethGrupRnameStrnRelease CompStrnVsblInt sorcGrupLSEncoInt srclStrn Sub Release() srclStrnsrclStrnEnd Sub EndGInt SEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt RMethGrupLTnameStrn SetAnimationCompStrnVsblInt sorcGrupUEncoInt srclStrnHFunction SetAnimation(hinst as Integer, idAnimation as UInt32) As UInt32srclStrnsrclStrn End FunctionEndGInt UEncoInt AlasStrnflagInt shrdInt parmStrn'hinst as Integer, idAnimation as UInt32 rsltStrnUInt32 EndGInt TMethGrup<VnameStrn SetCancelMsgCompStrnVsblInt sorcGrupWEncoInt srclStrn?Function SetCancelMsg(msg as String, reserved as Ptr) As UInt32 srclStrnsrclStrn End FunctionEndGInt WEncoInt AlasStrnflagInt shrdInt parmStrnmsg as String, reserved as Ptr rsltStrnUInt32 EndGInt VMethGrupXnameStrnSetLine CompStrnVsblInt sorcGrupYEncoInt srclStrnbFunction SetLine(line as UInt32, msg as String, compactPath as Boolean, reserved as PTr) As UInt32 srclStrnsrclStrn End FunctionEndGInt YEncoInt AlasStrnflagInt shrdInt parmStrnFline as UInt32, msg as String, compactPath as Boolean, reserved as PTr rsltStrnUInt32 EndGInt XMethGrupDZnameStrn SetProgress CompStrnVsblInt sorcGrup[EncoInt srclStrnBFunction SetProgress(current as UInt32, total as UInt32) As UInt32 srclStrnsrclStrn End FunctionEndGInt [EncoInt AlasStrnflagInt shrdInt parmStrn"current as UInt32, total as UInt32 rsltStrnUInt32 EndGInt ZMethGrupH\nameStrn SetProgress64 CompStrnVsblInt sorcGrup]EncoInt srclStrnDFunction SetProgress64(current as UInt64, total as UInt64) As UInt32srclStrnsrclStrn End FunctionEndGInt ]EncoInt AlasStrnflagInt shrdInt parmStrn"current as UInt64, total as UInt64 rsltStrnUInt32 EndGInt \MethGrup^nameStrnSetTitleCompStrnVsblInt sorcGrupl_EncoInt srclStrn,Function SetTitle(title as String) As UInt32srclStrnsrclStrn End FunctionEndGInt _EncoInt AlasStrnflagInt shrdInt parmStrntitle as String rsltStrnUInt32 EndGInt ^MethGrup`nameStrnStartProgressDialog CompStrnVsblInt sorcGrupaEncoInt srclStrnqFunction StartProgressDialog(parent as UInt32, enableModeless as Ptr, flags as UInt32, reserved as Ptr) As UInt32 srclStrnsrclStrn End FunctionEndGInt aEncoInt AlasStrnflagInt shrdInt parmStrnIparent as UInt32, enableModeless as Ptr, flags as UInt32, reserved as Ptr rsltStrnUInt32 EndGInt `MethGrupbnameStrnStopProgressDialog CompStrnVsblInt sorcGrupTcEncoInt srclStrnSub StopProgressDialog()srclStrnsrclStrnEnd Sub EndGInt cEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt bMethGrup8dnameStrnTimer CompStrnVsblInt sorcGrup|eEncoInt srclStrn;Function Timer(action as UInt32, reserved as Ptr) As UInt32 srclStrnsrclStrn End FunctionEndGInt eEncoInt AlasStrnflagInt shrdInt parmStrn!action as UInt32, reserved as Ptr rsltStrnUInt32 EndGInt dVwBhGrupfVwPrGrupDgNameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt gVwPrGrup`hNameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt hVwPrGrupHiNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt iVwPrGrupXjNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt jVwPrGrupXkNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt kEndGInt fPadnPadn************************************************************************************************************************************************BlokpObj3NameStrnProgressDialog ContInt WopaswStrnbClsInt IntrStrnIProgressDialog flagInt bNtrInt CompStrnMethGrup lnameStrn Constructor CompStrnVsblInt sorcGruppmEncoInt srclStrnSub Constructor(p as Ptr) srclStrn mThis = p srclStrnsrclStrnEnd Sub EndGInt mEncoInt AlasStrnflagInt shrdInt parmStrnp as PtrrsltStrnEndGInt lMethGrupnnameStrnQueryInterface CompStrnVsblInt sorcGrupoEncoInt srclStrn@Function QueryInterface(riid as Ptr, ByRef out as Ptr) As UInt32srclStrn=dim func as new QueryInterfaceFunc( mThis.Ptr( 0 ).Ptr( 0 ) ) srclStrn&return func.Invoke( mThis, riid, out ) srclStrn End FunctionEndGInt oEncoInt AlasStrnflagInt shrdInt parmStrnriid as Ptr, ByRef out as Ptr rsltStrnUInt32 EndGInt nMethGrupTpnameStrnAddRef CompStrnVsblInt sorcGrupqEncoInt srclStrnFunction AddRef() As UInt32 srclStrn5dim func as new AddRefFunc( mThis.Ptr( 0 ).Ptr( 4 ) ) srclStrnreturn func.Invoke( mThis ) srclStrn End FunctionEndGInt qEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt pMethGrupTrnameStrnRelease CompStrnVsblInt sorcGrupsEncoInt srclStrnFunction Release() As UInt32srclStrn6dim func as new ReleaseFunc( mThis.Ptr( 0 ).Ptr( 8 ) ) srclStrnreturn func.Invoke( mThis ) srclStrn End FunctionEndGInt sEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt rMethGrup8tnameStrnStartProgressDialog CompStrnVsblInt sorcGrupHuEncoInt srclStrnqFunction StartProgressDialog(parent as UInt32, enableModeless as Ptr, flags as UInt32, reserved as Ptr) As UInt32 srclStrnCdim func as new StartProgressDialogFunc( mThis.Ptr( 0 ).Ptr( 12 ) ) srclStrnDreturn func.Invoke( mThis, parent, enableModeless, flags, reserved )srclStrn End FunctionEndGInt uEncoInt AlasStrnflagInt shrdInt parmStrnIparent as UInt32, enableModeless as Ptr, flags as UInt32, reserved as Ptr rsltStrnUInt32 EndGInt tMethGrupxvnameStrnStopProgressDialog CompStrnVsblInt sorcGrupwEncoInt srclStrn'Function StopProgressDialog() As UInt32 srclStrnBdim func as new StopProgressDialogFunc( mThis.Ptr( 0 ).Ptr( 16 ) ) srclStrnreturn func.Invoke( mThis ) srclStrn End FunctionEndGInt wEncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt vMethGrup|xnameStrnSetTitleCompStrnVsblInt sorcGrupyEncoInt srclStrn,Function SetTitle(title as String) As UInt32srclStrn8dim func as new SetTitleFunc( mThis.Ptr( 0 ).Ptr( 20 ) )srclStrn"return func.Invoke( mThis, title ) srclStrn End FunctionEndGInt yEncoInt AlasStrnflagInt shrdInt parmStrntitle as String rsltStrnUInt32 EndGInt xMethGrupznameStrn SetAnimationCompStrnVsblInt sorcGrup{EncoInt srclStrnHFunction SetAnimation(hinst as Integer, idAnimation as UInt32) As UInt32srclStrn