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!