RbBFBlokProjPSIVStrn2006.01 ACnmStrnAChpStrnACsvStrnVer1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrnSVerStrnLVerStrnIVerStrnaiviInt DVewInt déw’prTpInt DLanInt CLanInt DEncInt BflgInt IconGrupEndGInt MacCStrnBMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnBWinStrnMy Application.exe BMDIInt WcmNStrnWpNmStrnWiNmStrnBL86Strn MyApplication PadnPadn”********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObjÖ’NameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$nameStrnMenuBar PValInt Y÷’EndGInt VwBhGrupEndGInt CnstGrupœEncoInt nameStrnkFileQuitShortcut typeInt defnStrnflagInt CInsGrup0pltfInt langInt defnStrnCmd+Q EndGInt EndGInt CnstGrupąEncoInt nameStrn kFileQuit typeInt defnStrnQuitflagInt CInsGrup0pltfInt langInt defnStrnE&xit EndGInt CInsGrup0pltfInt langInt defnStrnE&xit EndGInt EndGInt CnstGrupä EncoInt nameStrn kEditClear typeInt defnStrn&Delete flagInt CInsGrup0 pltfInt langInt defnStrn&Delete EndGInt CInsGrup0 pltfInt langInt defnStrn&Delete EndGInt EndGInt PadnPadnd****************************************************************************************************BlokpVewdéw’ NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnHInsGrupÄ nameStrnOpenCompStrnVsblInt sorcGrup€ EncoInt srclStrn Sub Open() srclStrndim g as Graphics srclStrnQdim p As new Picture(sjgButton1.Graphics.Width-2,sjgButton1.Graphics.Height-2,32) srclStrnp.Transparent = 1 srclStrng = p.Graphics srclStrng.ForeColor = &CFFFFFF srclStrng.FillRect 0,0,g.Width,g.Height srclStrng.PenWidth = 3 srclStrng.PenHeight = 3 srclStrng.ForeColor = &cf0f0ff srclStrng.FillOval 2,2,31,31srclStrng.ForeColor = &C8080ff srclStrng.DrawLine 16,8,16,24 srclStrng.DrawLine 8,16,24,16 srclStrng.DrawOval 2,2,31,31srclStrnsjgButton1.Picture = p srclStrnsrclStrnEnd Sub EndGInt EndGInt PDefGrup0nameStrnMenuBar PValStrn 1509396479 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup0nameStrn LiveResize PValStrnFalse EndGInt 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 PDefGrup,nameStrn HasBackColorPValStrnTrueEndGInt PDefGrup,nameStrn Composite PValStrnTrueEndGInt 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 %VwBhGrup €&VwPrGrup0'NameStrnNameVsblInt PrGpStrnID EndGInt 'VwPrGrup8(NameStrn Interfaces VsblInt PrGpStrnID EndGInt (VwPrGrup4)NameStrnSuper VsblInt PrGpStrnID EndGInt )VwPrGrupų*NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EnumGrup”+defnStrn 0 - Default defnStrn1 - Parent Window defnStrn2 - Main Screen defnStrn3 - Parent Window ScreendefnStrn 4 - Stagger EndGInt +EndGInt *VwPrGrupH,NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt ,VwPrGrupH-NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 EndGInt -VwPrGrupH.NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt .VwPrGrupL/NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt /VwPrGrupL0NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt 0VwPrGrupP1NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt 1VwPrGrup“2NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EnumGrupP3defnStrn 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 EndGInt 3EndGInt 2VwPrGrupT4NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt 4VwPrGrupT5NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt 5VwPrGrupT6NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt 6VwPrGrup<7NameStrnBackdropVsblInt PrGpStrn Appearance EndGInt 7VwPrGrupP8NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt 8VwPrGrupL9NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt 9VwPrGrupT:NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt :VwPrGrupT;NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ;VwPrGrupPNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt >VwPrGrupX?NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ?VwPrGrupT@NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt @VwPrGrup@ANameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt AVwPrGrupPBNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt BVwPrGrup<CNameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt CEndGInt &CBhvGruphDSuprStrn sjgButton HInsGrup4EnameStrnAction CompStrnVsblInt sorcGrupģFEncoInt srclStrn Sub Action()srclStrn!if self.BackColor = &c00ff00 then srclStrnself.BackColor = &c0000ff srclStrnelsesrclStrnself.BackColor = &c00ff00 srclStrnend if srclStrnsrclStrnEnd Sub EndGInt FEndGInt EEndGInt DCtrlGrupDGcclsStrn sjgButton nameStrn sjgButton PDefGrup(HnameStrnNoBorderPValStrnTrueEndGInt HPDefGrup,InameStrnvalue PValStrnFalse EndGInt IPDefGrup,JnameStrntoggles PValStrnFalse EndGInt JPDefGrup(KnameStrnPicture PValStrn0 EndGInt KPDefGrup8LnameStrn InitialParent EncoInt PValStrnEndGInt LPDefGrup0MnameStrnEraseBackground PValStrnTrueEndGInt MPDefGrup(NnameStrn AcceptTabs PValStrnEndGInt NPDefGrup(OnameStrn AcceptFocus PValStrnEndGInt OPDefGrup$PnameStrnBackdropPValStrnEndGInt PPDefGrup,QnameStrn UseFocusRingPValStrnTrueEndGInt QPDefGrup(RnameStrnEnabled PValStrnTrueEndGInt RPDefGrup0SnameStrnAutoDeactivate PValStrnTrueEndGInt SPDefGrup0TnameStrnHelpTag EncoInt PValStrnEndGInt TPDefGrup(UnameStrnVisible PValStrnTrueEndGInt UPDefGrup,VnameStrn TabPanelIndex PValInt EndGInt VPDefGrup(WnameStrn LockBottom PValStrnEndGInt WPDefGrup(XnameStrn LockRight PValStrnEndGInt XPDefGrup$YnameStrnLockTop PValStrnEndGInt YPDefGrup$ZnameStrnLockLeftPValStrnEndGInt ZPDefGrup$[nameStrnHeight PValInt #EndGInt [PDefGrup$\nameStrnWidth PValInt #EndGInt \PDefGrup ]nameStrnTop PValInt EndGInt ]PDefGrup ^nameStrnLeftPValInt EndGInt ^PDefGrup8_nameStrn ControlOrderEncoInt PValStrn0 EndGInt _PDefGrup<`nameStrnSuper EncoInt PValStrn sjgButton EndGInt `PDefGrup$anameStrnIndex PValInt €EndGInt aPDefGrup8bnameStrnNameEncoInt PValStrn sjgButton1 EndGInt bCBixInt EndGInt GPadnPadnŌ********************************************************************************************************************************************************************************************************************BlokpMnuY÷’ NameStrnMenuBar1ContInt paswStrnMItmGruppcspmuInt nameStrnFileMenutextStrn&File indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupŠdspmuInt nameStrnFileQuittextStrn#App.kFileQuit indxInt €scutStrn#App.kFileQuitShortcut MiSKStrn#App.kFileQuitShortcut maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt dEndGInt cMItmGrup\espmuInt nameStrnEditMenutextStrn&Edit indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup¬fspmuInt nameStrnEditUndotextStrn&Undo indxInt €scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt fMItmGrupŒgspmuInt nameStrn UntitledMenu1 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt gMItmGrupØhspmuInt nameStrnEditCut textStrnCu&tindxInt €scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt hMItmGrup¬ispmuInt nameStrnEditCopytextStrn&Copy indxInt €scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt iMItmGrup°jspmuInt nameStrn EditPaste textStrn&Paste indxInt €scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt jMItmGrup”kspmuInt nameStrn EditClear textStrn#App.kEditClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt kMItmGrupŒlspmuInt nameStrn UntitledMenu0 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt lMItmGrupømspmuInt nameStrn EditSelectAll textStrn Select &All indxInt €scutStrnCmd+A MiSKStrnA MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt mEndGInt ePadnPadn¬****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj²Ÿ’NameStrn sjgButton ContInt paswStrnbClsInt SuprStrnCanvas bNtrInt CompStrnHInsGrup$nnameStrn MouseDown CompStrnVsblInt sorcGrupŲoEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnif toggles Then srclStrnself.value = not self.value srclStrnif self.value then srclStrnself.position = kDepressed srclStrnelsesrclStrnself.position = kRaised srclStrnend if srclStrn self.RefreshsrclStrnelsesrclStrnself.position = kDepressed srclStrn self.RefreshsrclStrnend if srclStrn Return True srclStrn End FunctionEndGInt oEndGInt nHInsGrup,pnameStrnMouseUp CompStrnVsblInt sorcGrupäqEncoInt srclStrn'Sub MouseUp(X As Integer, Y As Integer) srclStrnIf Self.toggles = False ThensrclStrnself.position = kRaised srclStrn self.RefreshsrclStrnEnd If srclStrnAction srclStrnEnd Sub EndGInt qEndGInt pHInsGruprnameStrn MouseEnter CompStrnVsblInt sorcGrupÄsEncoInt srclStrnSub MouseEnter()srclStrnif self.toggles = False ThensrclStrnself.position = kRaised srclStrn self.RefreshsrclStrnend if srclStrnsrclStrnEnd Sub EndGInt sEndGInt rHInsGruptnameStrn MouseExit CompStrnVsblInt sorcGrupÄuEncoInt srclStrnSub MouseExit() srclStrnif self.toggles = False ThensrclStrnself.position = kFlat srclStrn self.RefreshsrclStrnend if srclStrnsrclStrnEnd Sub EndGInt uEndGInt tHInsGrupxvnameStrnOpenCompStrnVsblInt sorcGrup4wEncoInt srclStrn Sub Open() srclStrnif self.toggles thensrclStrnIf self.value Then srclStrnself.position = kDepressed srclStrnElsesrclStrnself.position = kRaised srclStrnEnd If srclStrnElsesrclStrnself.position = kFlat srclStrnend if srclStrnEnd Sub EndGInt wEndGInt vHInsGrupōxnameStrnPaint CompStrnVsblInt sorcGrup¬yEncoInt srclStrnSub Paint(g As Graphics)srclStrnDim x,y As Integer srclStrnDim s As String srclStrnIf Self.Picture <> Nil Then srclStrn4g.DrawPicture Self.Picture, 1,1,g.Width-2,g.Height-2srclStrnEnd If srclStrnsrclStrnIf NoBorder Then Return srclStrnsrclStrnSelect Case Self.position srclStrn Case kFlat srclStrnReturn srclStrnCase kDepressed srclStrng.ForeColor = DarkTingeColorsrclStrn Case kRaisedsrclStrng.ForeColor = LightTingeColor srclStrn End Select srclStrnsrclStrng.DrawLine 0,0,g.Width,0srclStrng.DrawLine 0,0,0,g.Height srclStrnsrclStrn"If Self.position = kDepressed Then srclStrng.ForeColor = LightTingeColor srclStrnElsesrclStrng.ForeColor = DarkTingeColorsrclStrnEnd If srclStrn*g.DrawLine 0,g.Height-1,g.Width,g.Height-1 srclStrn)g.DrawLine g.Width-1,0,g.Width-1,g.Height srclStrnEnd Sub EndGInt yEndGInt xMethGrupäznameStrnunDo3D CompStrnVsblInt sorcGrupT{EncoInt srclStrn Sub unDo3D()srclStrn Me.Refresh srclStrnEnd Sub EndGInt {EncoInt AlasStrnflagInt shrdInt parmStrnrsltStrnEndGInt zHookGrupT|nameStrnAction EncoInt flagInt !SySFInt parmStrnrsltStrnEndGInt |PropGrupT}EncoInt declStrnPicture As picture flagInt CompStrnshrdInt EndGInt }PropGrupT~EncoInt declStrnToggles As Boolean flagInt CompStrnshrdInt EndGInt ~PropGrupPEncoInt declStrnValue As BooleanflagInt CompStrnshrdInt EndGInt PropGrupT€EncoInt declStrnposition As Integer flagInt !CompStrnshrdInt EndGInt €PropGrupTEncoInt declStrnNoBorder As Boolean flagInt CompStrnshrdInt EndGInt VwBhGrup ˆ‚VwPrGrup0ƒNameStrnNameVsblInt PrGpStrnID EndGInt ƒVwPrGrup4„NameStrnIndex VsblInt PrGpStrnID EndGInt „VwPrGrup4…NameStrnSuper VsblInt PrGpStrnID EndGInt …VwPrGrup<†NameStrn ControlOrderVsblInt PrGpStrnPositionEndGInt †VwPrGrup4‡NameStrnLeftVsblInt PrGpStrnPositionEndGInt ‡VwPrGrup4ˆNameStrnTop VsblInt PrGpStrnPositionEndGInt ˆVwPrGrupH‰NameStrnWidth VsblInt PrGpStrnPositionPValStrn100 EndGInt ‰VwPrGrupHŠNameStrnHeight VsblInt PrGpStrnPositionPValStrn100 EndGInt ŠVwPrGrup8‹NameStrnLockLeftVsblInt PrGpStrnPositionEndGInt ‹VwPrGrup8ŒNameStrnLockTop VsblInt PrGpStrnPositionEndGInt ŒVwPrGrup<NameStrn LockRight VsblInt PrGpStrnPositionEndGInt VwPrGrup<ŽNameStrn LockBottom VsblInt PrGpStrnPositionEndGInt ŽVwPrGrupDNameStrn TabPanelIndex PrGpStrnPositionPValStrn0 EndGInt VwPrGrupLNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrup<‘NameStrnHelpTag VsblInt PrGpStrn Appearance EndGInt ‘VwPrGrupT’NameStrnAutoDeactivate VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ’VwPrGrupL“NameStrnEnabled VsblInt PrGpStrn Appearance PValStrnTrueEndGInt “VwPrGrupP”NameStrn UseFocusRingVsblInt PrGpStrn Appearance PValStrnTrueEndGInt ”VwPrGrup<•NameStrnBackdropVsblInt PrGpStrn Appearance EndGInt •VwPrGrup<–NameStrn AcceptFocus VsblInt PrGpStrnBehaviorEndGInt –VwPrGrup<—NameStrn AcceptTabs VsblInt PrGpStrnBehaviorEndGInt —VwPrGrupP˜NameStrnEraseBackground VsblInt PrGpStrnBehaviorPValStrnTrueEndGInt ˜VwPrGrup ™NameStrn InitialParent EndGInt ™VwPrGrup<šNameStrnPicture PrGpStrnBehaviorPValStrn0 EndGInt šVwPrGrupH›NameStrntoggles VsblInt PrGpStrnBehaviorPValStrn0 EndGInt ›VwPrGrupHœNameStrnvalue VsblInt PrGpStrnBehaviorPValStrn0 EndGInt œVwPrGrup<NameStrnpositionPrGpStrnBehaviorPValStrn0 EndGInt VwPrGrupHžNameStrnNoBorderVsblInt PrGpStrnBehaviorPValStrn0 EndGInt žEndGInt ‚CnstGrupLŸEncoInt nameStrnkFlat typeInt defnStrn0 flagInt EndGInt ŸCnstGrupL EncoInt nameStrnkRaised typeInt defnStrn1 flagInt EndGInt  CnstGrupP”EncoInt nameStrn kDepressed typeInt defnStrn2 flagInt EndGInt ”PadnPadn°************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpUIsWnStGrup¼¢OTabGrup£ContInt eSptInt ČEndGInt £OTabGrup¤ContInt ²Ÿ’EndGInt ¤OTabGrup„ContInt déw’EndGInt „LsLcStrnWindow1 Layout rEdtRect 2ÅØEndGInt ¢PadnPadn************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************EOF!