RbBFBlokProjPSIVStrn2010.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt =Z'prTpInt DLanInt CLanInt DEncInt BflgInt @UsBFInt IconGrup NEndGInt NMacCStrnBCarStrnMy Application BCMOStrnMy Application BunIStrnBSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnGDIpInt BL86Strn MyApplication DgCLStrnPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj$NameStrnApp ContInt paswStrnbClsInt SuprStrn Application flagInt bNtrInt bApOInt CompStrnPDefGrup$ OnameStrnMenuBar PValInt #EndGInt OVwBhGrup PEndGInt PCnstGrup QnameStrnkFileQuitShortcut CompStrnVsblInt EncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0 RpltfInt langInt defnStrnCmd+Q EndGInt RCInsGrup0 SpltfInt langInt defnStrnCtrl+Q EndGInt SEndGInt QCnstGrup TnameStrn kFileQuit CompStrnVsblInt EncoInt nameStrn kFileQuit typeInt defnStrn&Quit flagInt CInsGrup0 UpltfInt langInt defnStrnE&xit EndGInt UEndGInt TCnstGrup VnameStrn kEditClear CompStrnVsblInt EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0 WpltfInt langInt defnStrn&Delete EndGInt WCInsGrup0 XpltfInt langInt defnStrn&Delete EndGInt XEndGInt VPadnPadn********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew=Z'@NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow flagInt bNtrInt CompStrnHInsGrup YnameStrnOpenCompStrnVsblInt sorcGrupd ZEncoInt srclStrn Sub Open() srclStrnBeingMoved = -1 srclStrnsrclStrnEnd Sub EndGInt ZEndGInt YHInsGrup [nameStrnMouseUp CompStrnVsblInt sorcGrup \EncoInt srclStrn'Sub MouseUp(X As Integer, Y As Integer) srclStrn//MouseIsDown = False srclStrn//BeingMoved = -1 srclStrn //Me.RefreshsrclStrnsrclStrnsrclStrnEnd Sub EndGInt \EndGInt [PropGrup ]nameStrnOffSetX CompStrnVsblInt sorcGrup< ^EncoInt srclStrnOffSetX As Integer srclStrnEndGInt ^EncoInt declStrnOffSetX As Integer flagInt shrdInt EndGInt ]PropGrup _nameStrnOffSetY CompStrnVsblInt sorcGrupH `EncoInt srclStrnOffSetY As Integer srclStrnsrclStrnEndGInt `EncoInt declStrnOffSetY As Integer flagInt shrdInt EndGInt _PropGrup anameStrn BeingMoved CompStrnVsblInt sorcGrup@ bEncoInt srclStrnBeingMoved As Integer srclStrnEndGInt bEncoInt declStrnBeingMoved As Integer flagInt shrdInt EndGInt aPropGrup cnameStrn MouseIsDown CompStrnVsblInt sorcGrup@ dEncoInt srclStrnMouseIsDown As Boolean srclStrnEndGInt dEncoInt declStrnMouseIsDown As Boolean flagInt shrdInt EndGInt cPDefGrup< enameStrnImplicitInstanceEncoInt PValStrnTrueEndGInt ePDefGrup0 fnameStrnMenuBar PValStrn 588644351 EndGInt fPDefGrup( gnameStrn MacProcID PValInt EndGInt gPDefGrup0 hnameStrnMinimizeButton PValStrnTrueEndGInt hPDefGrup4 inameStrnMaximizeButton PValStrnFalse EndGInt iPDefGrup, jnameStrn LiveResize PValStrnTrueEndGInt jPDefGrup, knameStrn Resizeable PValStrnTrueEndGInt kPDefGrup, lnameStrn CloseButton PValStrnTrueEndGInt lPDefGrup0 mnameStrnMenuBarVisible PValStrnTrueEndGInt mPDefGrup0 nnameStrn FullScreen PValStrnFalse EndGInt nPDefGrup( onameStrnVisible PValStrnTrueEndGInt oPDefGrup0 pnameStrnTitle EncoInt PValStrnEndGInt pPDefGrup$ qnameStrnBackdropPValStrnEndGInt qPDefGrup( rnameStrn BackColor PValInt EndGInt rPDefGrup0 snameStrn HasBackColorPValStrnFalse EndGInt sPDefGrup0 tnameStrn Composite PValStrnFalse EndGInt tPDefGrup$ unameStrnFrame PValInt EndGInt uPDefGrup( vnameStrn MaxHeight PValInt }EndGInt vPDefGrup$ wnameStrnMaxWidthPValInt }EndGInt wPDefGrup( xnameStrn MinHeight PValInt @EndGInt xPDefGrup$ ynameStrnMinWidthPValInt @EndGInt yPDefGrup$ znameStrnHeight PValInt EndGInt zPDefGrup$ {nameStrnWidth PValInt gEndGInt {PDefGrup( |nameStrn Placement PValInt EndGInt |VwBhGrupX }VwPrGrupD ~NameStrnNameVsblInt PrGpStrnID CPifStrnWindow EndGInt ~VwPrGrupL NameStrn Interfaces VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrupH NameStrnSuper VsblInt PrGpStrnID CPifStrnWindow EndGInt VwPrGrup0 NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 typeStrnInteger vbETStrnEnumCPifStrnWindow EnumGrup defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt EndGInt VwPrGrupp NameStrnWidth VsblInt PrGpStrnPositionPValStrn600 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupp NameStrnHeight VsblInt PrGpStrnPositionPValStrn400 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 VwPrGrupx NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupx NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupx NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrup NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse typeStrnBoolean CPifStrnWindow EndGInt VwPrGrup| NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTruetypeStrnBoolean CPifStrnWindow EndGInt VwPrGrupx NameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 typeStrnInteger CPifStrnWindow EndGInt VwPrGrupx NameStrnMenuBar VsblInt PrGpStrn Appearance typeStrnMenuBar vbETStrnMenuBar CPifStrnWindow EndGInt VwPrGrup| NameStrnImplicitInstanceVsblInt PrGpStrn Appearance PValStrnTruevbETStrnBoolean CPifStrnWindow EndGInt VwPrGrupD NameStrn BeingMoved PrGpStrnBehaviortypeStrnInteger EndGInt VwPrGrup@ NameStrnOffSetX PrGpStrnBehaviortypeStrnInteger EndGInt VwPrGrup@ NameStrnOffSetY PrGpStrnBehaviortypeStrnInteger EndGInt VwPrGrupD NameStrn MouseIsDown PrGpStrnBehaviortypeStrnBoolean EndGInt EndGInt }CBhvGrup, SuprStrn PushButton HInsGrup nameStrn MouseMove CompStrnVsblInt sorcGrup EncoInt srclStrn;Sub MouseMove(index as Integer, X As Integer, Y As Integer) srclStrnIIf Index = BeingMoved -1 And MouseIsDown = True And BeingMoved <> -1 Then srclStrnIf System.MouseDown = True Then srclStrnMe.Left = Me.Left + X - OffsetX srclStrnMe.Top = Me.Top + Y - OffsetY srclStrn Me.Refresh srclStrnEnd If srclStrnEnd If srclStrnsrclStrnEnd Sub EndGInt EndGInt HInsGrup nameStrn MouseDown CompStrnVsblInt sorcGrupl 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 EndGInt HInsGrup nameStrnOpenCompStrnVsblInt sorcGrup EncoInt srclStrnSub Open(index as Integer) srclStrn0PushButton1(Index ).Caption = Str ( Index + 1 )srclStrnsrclStrnEnd Sub EndGInt EndGInt HInsGrup@ nameStrnMouseUp CompStrnVsblInt sorcGrup EncoInt srclStrnIFunction MouseUp(index as Integer, X As Integer, Y As Integer) As Boolean srclStrnMouseIsDown = False srclStrnBeingMoved = -1 srclStrn Me.Refresh srclStrn Return True srclStrnsrclStrn End FunctionEndGInt EndGInt EndGInt CtrlGrup cclsStrn PushButton nameStrn PushButton PDefGrup8 nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn30 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnArial EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup( nameStrnVisible PValStrnTrueEndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup$ nameStrnCancel PValStrnEndGInt PDefGrup$ nameStrnDefault PValStrnEndGInt PDefGrup8 nameStrnCaption EncoInt PValStrnUntitledEndGInt PDefGrup( nameStrnTabStop PValStrnTrueEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt FEndGInt PDefGrup$ nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup8 nameStrnNameEncoInt PValStrn PushButton1 EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn PushButton nameStrn PushButton PDefGrup8 nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn30 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnArial EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup( nameStrnVisible PValStrnTrueEndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup$ nameStrnCancel PValStrnEndGInt PDefGrup$ nameStrnDefault PValStrnEndGInt PDefGrup8 nameStrnCaption EncoInt PValStrnUntitledEndGInt PDefGrup( nameStrnTabStop PValStrnTrueEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt GEndGInt PDefGrup$ nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup8 nameStrnNameEncoInt PValStrn PushButton1 EndGInt CBixInt iLckInt EndGInt CtrlGrup cclsStrn PushButton nameStrn PushButton PDefGrup8 nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup( nameStrn Underline PValStrnEndGInt PDefGrup$ nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup( nameStrnTextUnitPValStrn0 EndGInt PDefGrup( nameStrnTextSizePValStrn30 EndGInt PDefGrup8 nameStrnTextFontEncoInt PValStrnArial EndGInt PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup( nameStrnVisible PValStrnTrueEndGInt PDefGrup( nameStrnEnabled PValStrnTrueEndGInt PDefGrup$ nameStrnCancel PValStrnEndGInt PDefGrup$ nameStrnDefault PValStrnEndGInt PDefGrup8 nameStrnCaption EncoInt PValStrnUntitledEndGInt PDefGrup( nameStrnTabStop PValStrnTrueEndGInt PDefGrup$ nameStrnTabIndexPValInt EndGInt PDefGrup, nameStrn TabPanelIndex PValInt EndGInt PDefGrup( nameStrn LockBottom PValStrnEndGInt PDefGrup( nameStrn LockRight PValStrnEndGInt PDefGrup( nameStrnLockTop PValStrnTrueEndGInt PDefGrup( nameStrnLockLeftPValStrnTrueEndGInt PDefGrup$ nameStrnHeight PValInt FEndGInt PDefGrup$ nameStrnWidth PValInt EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup( nameStrnScope PValStrn0 EndGInt PDefGrup< nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$ nameStrnIndex PValInt EndGInt PDefGrup8 nameStrnNameEncoInt PValStrn PushButton1 EndGInt CBixInt iLckInt EndGInt PadnPadnL****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu# NameStrnMenuBar1ContInt paswStrnMItmGrupp spmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup spmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt EndGInt MItmGrup\ spmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup spmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup spmuInt nameStrn UntitledMenu1 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup spmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup spmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup spmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrup spmuInt 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****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup OTabGrup4 ContInt eSptInt plSCInt plCDInt EndGInt OTabGrupd ContInt =Z'LSptInt RSptInt ScrXInt ScrYInt lstHInt @lstVInt @CtrlInt EndGInt OTabGrup@ ContInt =Z'AltEInt LSptInt EEstInt ciIDInt EndGInt OTabGrup ContInt #RSptInt EndGInt LsLcStrnWindow1.PushButton1().Open rEdtRect@v\EndGInt PadnPadn$********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!