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  PDefGrup0 nameStrnMenuBarVisible PValStrnTrueEndGInt  PDefGrup0 nameStrn FullScreen PValStrnFalse EndGInt  PDefGrup( nameStrnVisible PValStrnTrueEndGInt  PDefGrup8 nameStrnTitle 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 VwPrGrupp NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt  VwPrGrupp!NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 typeStrnInteger CPifStrnWindow EndGInt !VwPrGrupp"NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt "VwPrGrupt#NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt #VwPrGrupt$NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt $VwPrGrupx%NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt %VwPrGrup &NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrupp'defnStrn 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 *VwPrGrupx+NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt +VwPrGrupx,NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt ,VwPrGrupt-NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt -VwPrGrup|.NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt .VwPrGrup|/NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt /VwPrGrupx0NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt 0VwPrGrup|1NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 1VwPrGrupx2NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt 2VwPrGrup3NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt 3VwPrGrup|4NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt 4VwPrGruph5NameStrn BalloonHelp VsblInt PrGpStrn Appearance typeStrnString CPifStrnWindow EndGInt 5VwPrGrupx6NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt 6VwPrGrupx7NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt 7VwPrGrup|8NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt 8EndGInt CBhvGrup\9SuprStrn PushButton HInsGrup(:nameStrnAction CompStrnVsblInt sorcGrup;EncoInt srclStrn Sub Action()srclStrnDeclare 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-MsgBox "Failed to create the Progress Dialog" srclStrnreturn srclStrnend if srclStrnsrclStrn dim c as new ProgressDialog( p )srclStrnsrclStrnConst 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 Sub EndGInt ;EndGInt :EndGInt 9CtrlGrup,nameStrn Underline PValStrnEndGInt >PDefGrup$?nameStrnItalic PValStrnEndGInt ?PDefGrup @nameStrnBoldPValStrnEndGInt @PDefGrup$AnameStrnTextSizePValInt EndGInt APDefGrup8BnameStrnTextFontEncoInt PValStrnSystem EndGInt BPDefGrup0CnameStrnAutoDeactivate PValStrnTrueEndGInt CPDefGrup0DnameStrnHelpTag EncoInt PValStrnEndGInt DPDefGrup(EnameStrnVisible PValStrnTrueEndGInt EPDefGrup(FnameStrnEnabled PValStrnTrueEndGInt FPDefGrup$GnameStrnCancel PValStrnEndGInt GPDefGrup$HnameStrnDefault PValStrnEndGInt HPDefGrup8InameStrnCaption EncoInt PValStrnUntitledEndGInt IPDefGrup,JnameStrn TabPanelIndex PValInt EndGInt JPDefGrup(KnameStrn LockBottom PValStrnEndGInt KPDefGrup(LnameStrn LockRight PValStrnEndGInt LPDefGrup$MnameStrnLockTop PValStrnEndGInt MPDefGrup$NnameStrnLockLeftPValStrnEndGInt NPDefGrup$OnameStrnHeight PValInt EndGInt OPDefGrup$PnameStrnWidth PValInt PEndGInt PPDefGrup QnameStrnTop PValInt EndGInt QPDefGrup RnameStrnLeftPValInt EndGInt RPDefGrup(SnameStrn ControlOrderPValInt EndGInt SPDefGrup(TnameStrnScope PValStrn0 EndGInt TPDefGrup<UnameStrnSuper EncoInt PValStrn PushButton EndGInt UPDefGrup$VnameStrnIndex PValInt EndGInt VPDefGrup8WnameStrnNameEncoInt PValStrn PushButton1 EndGInt WCBixInt EndGInt Delegate Function HasUserCancelledFunc(this as Ptr) As Boolean EndGInt rEncoInt AlasStrnflagInt shrdInt parmStrn this as Ptr rsltStrnBoolean EndGInt qDmthGrupPsnameStrnSetProgressFunc CompStrnVsblInt sorcGrup|tEncoInt srclStrn^Delegate Function SetProgressFunc(this as Ptr, completed as UInt32, total as UInt32) As UInt32 EndGInt tEncoInt AlasStrnflagInt shrdInt parmStrn1this as Ptr, completed as UInt32, total as UInt32 rsltStrnUInt32 EndGInt sDmthGrupTunameStrnSetProgress64Func CompStrnVsblInt sorcGrup|vEncoInt srclStrn`Delegate Function SetProgress64Func(this as Ptr, completed as UInt64, total as UInt64) As UInt32EndGInt vEncoInt AlasStrnflagInt shrdInt parmStrn1this as Ptr, completed as UInt64, total as UInt64 rsltStrnUInt32 EndGInt uDmthGrupwnameStrn SetLineFunc CompStrnVsblInt sorcGrupxEncoInt srclStrnDelegate Function SetLineFunc(this as Ptr, lineNum as UInt32, str as WString, comactPath as Boolean, reserved as Ptr) As UInt32 EndGInt xEncoInt AlasStrnflagInt shrdInt parmStrnVthis as Ptr, lineNum as UInt32, str as WString, comactPath as Boolean, reserved as Ptr rsltStrnUInt32 EndGInt wDmthGrupDynameStrnSetCancelMsgFuncCompStrnVsblInt sorcGrupxzEncoInt srclStrnZDelegate Function SetCancelMsgFunc(this as Ptr, msg as WString, reserved as Ptr) As Uint32 EndGInt zEncoInt AlasStrnflagInt shrdInt parmStrn,this as Ptr, msg as WString, reserved as PtrrsltStrnUint32 EndGInt yDmthGrup@{nameStrn TimerFunc CompStrnVsblInt sorcGrupt|EncoInt srclStrnUDelegate Function TimerFunc(this as Ptr, action as UInt32, reserved as Ptr) As UInt32 EndGInt |EncoInt AlasStrnflagInt shrdInt parmStrn.this as Ptr, action as UInt32, reserved as Ptr rsltStrnUInt32 EndGInt {VwBhGrup}VwPrGrupD~NameStrnNameVsblInt PrGpStrnID CPifStrnObject EndGInt ~VwPrGrup`NameStrnIndex VsblInt PrGpStrnID PValStrn -2147483648 CPifStrnObject EndGInt VwPrGrupHNameStrnSuper VsblInt PrGpStrnID CPifStrnObject EndGInt VwPrGrupXNameStrnLeftVsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt VwPrGrupXNameStrnTop VsblInt PrGpStrnPositionPValStrn0 CPifStrnObject EndGInt EndGInt }PadnPadn****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj3NameStrnProgressDialog ContInt paswStrnbClsInt flagInt bNtrInt CompStrnMethGrup nameStrn Constructor CompStrnVsblInt sorcGruppEncoInt srclStrnSub Constructor(p as Ptr) srclStrn mThis = p srclStrnsrclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt shrdInt parmStrnp as PtrrsltStrnEndGInt MethGrupnameStrnQueryInterface CompStrnVsblInt sorcGrupEncoInt 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 EncoInt AlasStrnflagInt shrdInt parmStrnriid as Ptr, ByRef out as Ptr rsltStrnUInt32 EndGInt MethGrupTnameStrnAddRef CompStrnVsblInt sorcGrupEncoInt srclStrnFunction AddRef() As UInt32 srclStrn5dim func as new AddRefFunc( mThis.Ptr( 0 ).Ptr( 4 ) ) srclStrnreturn func.Invoke( mThis ) srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt MethGrupTnameStrnRelease CompStrnVsblInt sorcGrupEncoInt srclStrnFunction Release() As UInt32srclStrn6dim func as new ReleaseFunc( mThis.Ptr( 0 ).Ptr( 8 ) ) srclStrnreturn func.Invoke( mThis ) srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt MethGrup8nameStrnStartProgressDialog CompStrnVsblInt sorcGrupHEncoInt 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 EncoInt AlasStrnflagInt shrdInt parmStrnIparent as UInt32, enableModeless as Ptr, flags as UInt32, reserved as Ptr rsltStrnUInt32 EndGInt MethGrupxnameStrnStopProgressDialog CompStrnVsblInt sorcGrupEncoInt srclStrn'Function StopProgressDialog() As UInt32 srclStrnBdim func as new StopProgressDialogFunc( mThis.Ptr( 0 ).Ptr( 16 ) ) srclStrnreturn func.Invoke( mThis ) srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnUInt32 EndGInt MethGrup|nameStrnSetTitleCompStrnVsblInt sorcGrupEncoInt 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 EncoInt AlasStrnflagInt shrdInt parmStrntitle as String rsltStrnUInt32 EndGInt MethGrupnameStrn SetAnimationCompStrnVsblInt sorcGrupEncoInt srclStrnHFunction SetAnimation(hinst as Integer, idAnimation as UInt32) As UInt32srclStrn