RbBFBlokProjPSIVStrn2010.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt =Z'ÿprTpInt DLanInt CLanInt DEncInt BflgInt @UsBFInt IconGrupBkEndGInt BkMacCStrnBCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnGDIpInt BL86Strn MyApplication DgCLStrnPadnPadnˆ********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj$ÿNameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$BlnameStrnMenuBar PValInt #ÿÿEndGInt BlVwBhGrupBmEndGInt BmCnstGrupBnnameStrnkFileQuitShortcut CompStrnVsblInt EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0BopltfInt langInt defnStrnCmd+Q EndGInt BoCInsGrup0BppltfInt langInt defnStrnCtrl+Q EndGInt BpEndGInt BnCnstGrupÌBqnameStrn kFileQuit CompStrnVsblInt EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0BrpltfInt langInt defnStrnE&xit EndGInt BrEndGInt BqCnstGrupBsnameStrn kEditClear CompStrnVsblInt EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0BtpltfInt langInt defnStrn&Delete EndGInt BtCInsGrup0BupltfInt langInt defnStrn&Delete EndGInt BuEndGInt BsPadnPadn¼********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew=Z'ÿ<NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup¨BvnameStrnOpenCompStrnVsblInt sorcGrupdBwEncoInt srclStrn Sub Open() srclStrnBeingMoved = -1 srclStrnsrclStrnEnd Sub EndGInt BwEndGInt BvPropGrupÈBxnameStrnOffSetX CompStrnVsblInt sorcGrup<ByEncoInt srclStrnOffSetX As Integer srclStrnEndGInt ByEncoInt declStrnOffSetX As Integer flagInt shrdInt EndGInt BxPropGrupÔBznameStrnOffSetY CompStrnVsblInt sorcGrupHB{EncoInt srclStrnOffSetY As Integer srclStrnsrclStrnEndGInt B{EncoInt declStrnOffSetY As Integer flagInt shrdInt EndGInt BzPropGrupÔB|nameStrn BeingMoved CompStrnVsblInt sorcGrup@B}EncoInt srclStrnBeingMoved As Integer srclStrnEndGInt B}EncoInt declStrnBeingMoved As Integer flagInt shrdInt EndGInt B|PropGrupÔB~nameStrn MouseIsDown CompStrnVsblInt sorcGrup@BEncoInt srclStrnMouseIsDown As Boolean srclStrnEndGInt BEncoInt declStrnMouseIsDown As Boolean flagInt shrdInt EndGInt B~PDefGrup<B€nameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt B€PDefGrup0BnameStrnMenuBar PValStrn 588644351 EndGInt BPDefGrup(B‚nameStrn MacProcID PValInt EndGInt B‚PDefGrup0BƒnameStrnMinimizeButton PValStrnTrueEndGInt BƒPDefGrup4B„nameStrnMaximizeButton PValStrnFalse EndGInt B„PDefGrup,B…nameStrn LiveResize PValStrnTrueEndGInt B…PDefGrup,B†nameStrn Resizeable PValStrnTrueEndGInt B†PDefGrup,B‡nameStrn CloseButton PValStrnTrueEndGInt B‡PDefGrup0BˆnameStrnMenuBarVisible PValStrnTrueEndGInt BˆPDefGrup0B‰nameStrn FullScreen PValStrnFalse EndGInt B‰PDefGrup(BŠnameStrnVisible PValStrnTrueEndGInt BŠPDefGrup0B‹nameStrnTitle EncoInt PValStrnEndGInt B‹PDefGrup$BŒnameStrnBackdropPValStrnEndGInt BŒPDefGrup(BnameStrn BackColor PValInt ÿÿÿEndGInt BPDefGrup0BŽnameStrn HasBackColorPValStrnFalse EndGInt BŽPDefGrup0BnameStrn Composite PValStrnFalse EndGInt BPDefGrup$BnameStrnFrame PValInt EndGInt BPDefGrup(B‘nameStrn MaxHeight PValInt }EndGInt B‘PDefGrup$B’nameStrnMaxWidthPValInt }EndGInt B’PDefGrup(B“nameStrn MinHeight PValInt @EndGInt B“PDefGrup$B”nameStrnMinWidthPValInt @EndGInt B”PDefGrup$B•nameStrnHeight PValInt EndGInt B•PDefGrup$B–nameStrnWidth PValInt gEndGInt B–PDefGrup(B—nameStrn Placement PValInt EndGInt B—VwBhGrupXB˜VwPrGrupDB™NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt B™VwPrGrupLBšNameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt BšVwPrGrupHB›NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt B›VwPrGrup0BœNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup”BdefnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt BEndGInt BœVwPrGruppBžNameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt BžVwPrGruppBŸNameStrnHeight VsblInt PrGpStrnPositionPValStrn400 typeStrnInteger CPifStrnWindow EndGInt BŸVwPrGruppB NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt B VwPrGruptB¡NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 typeStrnInteger CPifStrnWindow EndGInt B¡VwPrGruptB¢NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt B¢VwPrGrupxB£NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 typeStrnInteger CPifStrnWindow EndGInt B£VwPrGrup B¤NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGruppB¥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 B¥EndGInt B¤VwPrGrup|B¦NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt B¦VwPrGrup|B§NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt B§VwPrGrup|B¨NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFtypeStrnColor CPifStrnWindow EndGInt B¨VwPrGrupxB©NameStrnBackdropVsblInt PrGpStrn Appearance typeStrnPicture vbETStrnPicture CPifStrnWindow EndGInt B©VwPrGrupxBªNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledtypeStrnString CPifStrnWindow EndGInt BªVwPrGruptB«NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt B«VwPrGrup|B¬NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt B¬VwPrGrup|B­NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt B­VwPrGrupxB®NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt B®VwPrGrupxB¯NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt B¯VwPrGrupxB°NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt B°VwPrGrup€B±NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt B±VwPrGrup|B²NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt B²VwPrGrupxB³NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt B³VwPrGrupxB´NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt B´VwPrGrup|BµNameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt BµVwPrGrupDB¶NameStrn BeingMoved PrGpStrnBehaviortypeStrnInteger EndGInt B¶VwPrGrup@B·NameStrnOffSetX PrGpStrnBehaviortypeStrnInteger EndGInt B·VwPrGrup@B¸NameStrnOffSetY PrGpStrnBehaviortypeStrnInteger EndGInt B¸VwPrGrupDB¹NameStrn MouseIsDown PrGpStrnBehaviortypeStrnBoolean EndGInt B¹EndGInt B˜CBhvGrupàBºSuprStrn PushButton HInsGrup¬B»nameStrn MouseMove CompStrnVsblInt sorcGrup`B¼EncoInt srclStrn;Sub MouseMove(index as Integer, X As Integer, Y As Integer) srclStrnIIf Index = BeingMoved -1 And MouseIsDown = True And BeingMoved <> -1 Then srclStrnMe.Left = Me.Left + X - OffsetX srclStrnMe.Top = Me.Top + Y - OffsetY srclStrn Me.Refresh srclStrnEnd If srclStrnsrclStrnsrclStrnEnd Sub EndGInt B¼EndGInt B»HInsGrup¸B½nameStrn MouseDown CompStrnVsblInt sorcGruplB¾EncoInt srclStrnKFunction MouseDown(index as Integer, X As Integer, Y As Integer) As Boolean srclStrn Me.Refresh srclStrnIf MouseIsDown = False Then srclStrnMouseIsDown = True srclStrn OffSetX = X srclStrn OffSetY = Y srclStrnBeingMoved = Index + 1 srclStrnEnd If srclStrn Return True srclStrnsrclStrn End FunctionEndGInt B¾EndGInt B½HInsGrup4B¿nameStrnMouseUp CompStrnVsblInt sorcGrupìBÀEncoInt srclStrnIFunction MouseUp(index as Integer, X As Integer, Y As Integer) As Boolean srclStrnMouseIsDown = False srclStrnBeingMoved = -1 srclStrn Me.Refresh srclStrnsrclStrnsrclStrn End FunctionEndGInt BÀEndGInt B¿HInsGrupÌBÁnameStrnOpenCompStrnVsblInt sorcGrupˆBÂEncoInt srclStrnSub Open(index as Integer) srclStrn0PushButton1(Index ).Caption = Str ( Index + 1 )srclStrnEnd Sub EndGInt BÂEndGInt BÁEndGInt BºCtrlGrupÀBÃcclsStrn PushButton nameStrn PushButton PDefGrup8BÄnameStrn InitialParent EncoInt PValStrnEndGInt BÄPDefGrup(BÅnameStrn Underline PValStrnEndGInt BÅPDefGrup$BÆnameStrnItalic PValStrnEndGInt BÆPDefGrup BÇnameStrnBoldPValStrnEndGInt BÇPDefGrup(BÈnameStrnTextUnitPValStrn0 EndGInt BÈPDefGrup(BÉnameStrnTextSizePValStrn30 EndGInt BÉPDefGrup8BÊnameStrnTextFontEncoInt PValStrnArial EndGInt BÊPDefGrup0BËnameStrnAutoDeactivate PValStrnTrueEndGInt BËPDefGrup0BÌnameStrnHelpTag EncoInt PValStrnEndGInt BÌPDefGrup(BÍnameStrnVisible PValStrnTrueEndGInt BÍPDefGrup(BÎnameStrnEnabled PValStrnTrueEndGInt BÎPDefGrup$BÏnameStrnCancel PValStrnEndGInt BÏPDefGrup$BÐnameStrnDefault PValStrnEndGInt BÐPDefGrup8BÑnameStrnCaption EncoInt PValStrnUntitledEndGInt BÑPDefGrup(BÒnameStrnTabStop PValStrnTrueEndGInt BÒPDefGrup$BÓnameStrnTabIndexPValInt EndGInt BÓPDefGrup,BÔnameStrn TabPanelIndex PValInt EndGInt BÔPDefGrup(BÕnameStrn LockBottom PValStrnEndGInt BÕPDefGrup(BÖnameStrn LockRight PValStrnEndGInt BÖPDefGrup(B×nameStrnLockTop PValStrnTrueEndGInt B×PDefGrup(BØnameStrnLockLeftPValStrnTrueEndGInt BØPDefGrup$BÙnameStrnHeight PValInt FEndGInt BÙPDefGrup$BÚnameStrnWidth PValInt «EndGInt BÚPDefGrup BÛnameStrnTop PValInt EndGInt BÛPDefGrup BÜnameStrnLeftPValInt EndGInt BÜPDefGrup(BÝnameStrnScope PValStrn0 EndGInt BÝPDefGrup<BÞnameStrnSuper EncoInt PValStrn PushButton EndGInt BÞPDefGrup$BßnameStrnIndex PValInt EndGInt BßPDefGrup8BànameStrnNameEncoInt PValStrn PushButton1 EndGInt BàCBixInt iLckInt EndGInt BÃCtrlGrupÀBácclsStrn PushButton nameStrn PushButton PDefGrup8BânameStrn InitialParent EncoInt PValStrnEndGInt BâPDefGrup(BãnameStrn Underline PValStrnEndGInt BãPDefGrup$BänameStrnItalic PValStrnEndGInt BäPDefGrup BånameStrnBoldPValStrnEndGInt BåPDefGrup(BænameStrnTextUnitPValStrn0 EndGInt BæPDefGrup(BçnameStrnTextSizePValStrn30 EndGInt BçPDefGrup8BènameStrnTextFontEncoInt PValStrnArial EndGInt BèPDefGrup0BénameStrnAutoDeactivate PValStrnTrueEndGInt BéPDefGrup0BênameStrnHelpTag EncoInt PValStrnEndGInt BêPDefGrup(BënameStrnVisible PValStrnTrueEndGInt BëPDefGrup(BìnameStrnEnabled PValStrnTrueEndGInt BìPDefGrup$BínameStrnCancel PValStrnEndGInt BíPDefGrup$BînameStrnDefault PValStrnEndGInt BîPDefGrup8BïnameStrnCaption EncoInt PValStrnUntitledEndGInt BïPDefGrup(BðnameStrnTabStop PValStrnTrueEndGInt BðPDefGrup$BñnameStrnTabIndexPValInt EndGInt BñPDefGrup,BònameStrn TabPanelIndex PValInt EndGInt BòPDefGrup(BónameStrn LockBottom PValStrnEndGInt BóPDefGrup(BônameStrn LockRight PValStrnEndGInt BôPDefGrup(BõnameStrnLockTop PValStrnTrueEndGInt BõPDefGrup(BönameStrnLockLeftPValStrnTrueEndGInt BöPDefGrup$B÷nameStrnHeight PValInt GEndGInt B÷PDefGrup$BønameStrnWidth PValInt ÉEndGInt BøPDefGrup BùnameStrnTop PValInt EndGInt BùPDefGrup BúnameStrnLeftPValInt âEndGInt BúPDefGrup(BûnameStrnScope PValStrn0 EndGInt BûPDefGrup<BünameStrnSuper EncoInt PValStrn PushButton EndGInt BüPDefGrup$BýnameStrnIndex PValInt EndGInt BýPDefGrup8BþnameStrnNameEncoInt PValStrn PushButton1 EndGInt BþCBixInt iLckInt EndGInt BáCtrlGrupÀBÿcclsStrn PushButton nameStrn PushButton PDefGrup8CnameStrn InitialParent EncoInt PValStrnEndGInt CPDefGrup(CnameStrn Underline PValStrnEndGInt CPDefGrup$CnameStrnItalic PValStrnEndGInt CPDefGrup CnameStrnBoldPValStrnEndGInt CPDefGrup(CnameStrnTextUnitPValStrn0 EndGInt CPDefGrup(CnameStrnTextSizePValStrn30 EndGInt CPDefGrup8CnameStrnTextFontEncoInt PValStrnArial EndGInt CPDefGrup0CnameStrnAutoDeactivate PValStrnTrueEndGInt CPDefGrup0CnameStrnHelpTag EncoInt PValStrnEndGInt CPDefGrup(C nameStrnVisible PValStrnTrueEndGInt C PDefGrup(C nameStrnEnabled PValStrnTrueEndGInt C PDefGrup$C nameStrnCancel PValStrnEndGInt C PDefGrup$C nameStrnDefault PValStrnEndGInt C PDefGrup8C nameStrnCaption EncoInt PValStrnUntitledEndGInt C PDefGrup(CnameStrnTabStop PValStrnTrueEndGInt CPDefGrup$CnameStrnTabIndexPValInt EndGInt CPDefGrup,CnameStrn TabPanelIndex PValInt EndGInt CPDefGrup(CnameStrn LockBottom PValStrnEndGInt CPDefGrup(CnameStrn LockRight PValStrnEndGInt CPDefGrup(CnameStrnLockTop PValStrnTrueEndGInt CPDefGrup(CnameStrnLockLeftPValStrnTrueEndGInt CPDefGrup$CnameStrnHeight PValInt FEndGInt CPDefGrup$CnameStrnWidth PValInt «EndGInt CPDefGrup CnameStrnTop PValInt EndGInt CPDefGrup CnameStrnLeftPValInt ÆEndGInt CPDefGrup(CnameStrnScope PValStrn0 EndGInt CPDefGrup<CnameStrnSuper EncoInt PValStrn PushButton EndGInt CPDefGrup$CnameStrnIndex PValInt EndGInt CPDefGrup8CnameStrnNameEncoInt PValStrn PushButton1 EndGInt CCBixInt iLckInt EndGInt BÿPadnPadnÄ****************************************************************************************************************************************************************************************************BlokpMnu#ÿÿ NameStrnMenuBar1ContInt paswStrnMItmGruppCspmuInt nameStrnFileMenutextStrn&File indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupÐCspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt €scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt CEndGInt CMItmGrup\CspmuInt nameStrnEditMenutextStrn&Edit indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup¬C spmuInt nameStrnEditUndotextStrn&Undo indxInt €scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C MItmGrupŒC!spmuInt nameStrn UntitledMenu1 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C!MItmGrup¨C"spmuInt nameStrnEditCut textStrnCu&tindxInt €scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C"MItmGrup¬C#spmuInt nameStrnEditCopytextStrn&Copy indxInt €scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C#MItmGrup°C$spmuInt nameStrn EditPaste textStrn&Paste indxInt €scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C$MItmGrup”C%spmuInt nameStrn EditClear textStrn#App.kEditClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C%MItmGrupŒC&spmuInt nameStrn UntitledMenu0 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C&MItmGrup¸C'spmuInt nameStrn EditSelectAll textStrn Select &All indxInt €scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt C'EndGInt CPadnPadn¬****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrupœC(OTabGrup4C)ContInt eSptInt „plSCInt plCDInt EndGInt C)OTabGrupdC*ContInt =Z'ÿLSptInt ŠRSptInt ¬ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt C*OTabGrup@C+ContInt =Z'ÿAltEInt LSptInt EEstInt ciIDInt EndGInt C+OTabGrupC,ContInt #ÿÿRSptInt ×EndGInt C,LsLcStrnWindow1.PushButton1().MouseDown rEdtRect?€ÐEndGInt C(PadnPadn ****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!