RbBFBlokProjPSIVStrn2005.04 ACnmStrnAChpStrnACsvStrnlocalhost:7325 Ver1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrn0 SVerStrnLVerStrnIVerStrnaiviInt DVewInt #prTpInt DLanInt CLanInt DEncInt BflgInt IconGrupEndGInt MacCStrn????BMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy Application BWinStrnMy Application.exe BMDIInt BL86Strn MyApplication fTypGrupLnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt PadnPadn,************************************************************************************************************************************************************************************************************************************************************************************************************BlokpFTyeNameStrn FileTypes ContInt paswStrnfTypGrup\nameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt NameStrnTextEndGInt PadnPadn0************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew#@NameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnHInsGrupnameStrnOpenCompStrnsorcGrupEncoInt srclStrn Sub Open() srclStrn/AcceptMacDataDrop "RBRC" 'REALbasic RectControl srclStrnToolPalette.ShowsrclStrnEnd Sub EndGInt EndGInt HInsGrupnameStrn DropObject CompStrnsorcGrupEncoInt srclStrnSub DropObject(obj As DragItem) srclStrnDim rc As RectControl srclStrnDim cClass, cTemp() As String srclStrnDim cIndex As Integer srclStrncClass = obj.MacData("RBRC")srclStrnselect case cClass srclStrncase "StaticText" srclStrnrc = new StaticTextTemplate srclStrncase "EditField"srclStrnrc = new EditFieldTemplate srclStrncase "PushButton" srclStrnrc = new PushButtonTemplate srclStrnelsesrclStrnif cClass.InStr(":") > 0 then srclStrncTemp = Split(cClass, ":") srclStrncClass = cTemp(0) srclStrncIndex = val(cTemp(1)) srclStrnselect case cClass srclStrncase "IFStaticText" srclStrnrc = StaticTextTemplate(cIndex) srclStrncase "IFEditField" srclStrnrc = EditFieldTemplate(cIndex) srclStrncase"IFPushButton" srclStrnrc = PushButtonTemplate(cIndex) srclStrnelsesrclStrn // ignore srclStrn end select srclStrnend if srclStrn end Select srclStrnif rc <> nil then srclStrn&rc.Left = SnapCoordinate(obj.DropLeft) srclStrn$rc.Top = SnapCoordinate(obj.DropTop)srclStrnrc.Visible = True srclStrnrc.Enabled = true srclStrnend if srclStrnEnd Sub EndGInt EndGInt MethGrupnameStrnSnapCoordinate CompStrnsorcGrup EncoInt srclStrn4Function SnapCoordinate(coord As Integer) As IntegersrclStrn7// uncomment one (and only one) of the following lines: srclStrnD//Const GridTolerance = 4 ' snap only when very close to a grid linesrclStrn;//Const GridTolerance = 8 ' snap only when relatively close srclStrn8Const GridTolerance = 100000 ' always force snap to gridsrclStrn?// Or convert GridTolerance to a property so you can change the srclStrn// value at runtime... srclStrnsrclStrn@If GridInterval = 0 then return coord ' bail out if not snappingsrclStrnsrclStrn1// is coord closer to next grid line or prev one? srclStrnDim offset As Integer srclStrn&offset = 0 ' assume closer to previous srclStrn5if (coord mod GridInterval) > (GridInterval \ 2) then srclStrnoffset = 1 ' closer to next srclStrnend if srclStrnsrclStrn.// Get snap coordinate rounded to nearest grid srclStrn // interval srclStrnDim snapc As IntegersrclStrn6snapc = (coord \ GridInterval + offset) * GridInterval srclStrnsrclStrn*if abs(coord - snapc) < GridTolerance then srclStrn'return snapc ' return "snapped" version srclStrnend if srclStrn' else srclStrn)return coord ' return "unsnapped" version srclStrn End FunctionEndGInt EncoInt AlasStrnflagInt parmStrncoord As IntegerrsltStrnInteger EndGInt PropGrup@ EncoInt declStrngridInterval As Integer flagInt EndGInt PDefGrup0 nameStrnMenuBar PValStrn -1088178290 EndGInt PDefGrup( nameStrn MacProcID PValInt EndGInt PDefGrup4 nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup4nameStrnMaximizeButton PValStrnFalse EndGInt PDefGrup0nameStrn LiveResize PValStrnFalse EndGInt PDefGrup,nameStrn Resizeable PValStrnTrueEndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup8nameStrnTitle EncoInt PValStrnUntitledEndGInt PDefGrup(nameStrnBackdropPValStrn0 EndGInt 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 "VwBhGrup #VwPrGrup0$NameStrnNameVsblInt PrGpStrnID EndGInt $VwPrGrup8%NameStrn Interfaces VsblInt PrGpStrnID EndGInt %VwPrGrup4&NameStrnSuper VsblInt PrGpStrnID EndGInt &VwPrGrupL'NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EndGInt 'VwPrGrupH(NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt (VwPrGrupH)NameStrnHeight VsblInt PrGpStrnPositionPValStrn300 EndGInt )VwPrGrupH*NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt *VwPrGrupL+NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt +VwPrGrupL,NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt ,VwPrGrupP-NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt -VwPrGrupL.NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EndGInt .VwPrGrupT/NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt /VwPrGrupT0NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt 0VwPrGrupT1NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt 1VwPrGrup<2NameStrnBackdropVsblInt PrGpStrn Appearance EndGInt 2VwPrGrupP3NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt 3VwPrGrupL4NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt 4VwPrGrupT5NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt 5VwPrGrupT6NameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt 6VwPrGrupP7NameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt 7VwPrGrupT8NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt 8VwPrGrupT9NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt 9VwPrGrupX:NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt :VwPrGrupT;NameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ;VwPrGrup@NameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt >VwPrGrup@?NameStrn gridIntervalPrGpStrnBehaviorPValStrn0 EndGInt ?EndGInt #CBhvGrup@SuprStrn EditField HInsGrupAnameStrn MouseDown CompStrnsorcGrupHBEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnDim d As DragItem srclStrn5d = NewDragItem(me.Left, me.Top, me.Width, me.Height) srclStrn9d.PrivateMacData("RBRC") = "IFEditField:" + str(me.Index) srclStrnd.Drag srclStrn return true srclStrn End FunctionEndGInt BEndGInt AEndGInt @CBhvGrupCSuprStrn PushButton HInsGrupDnameStrn MouseDown CompStrnsorcGrupHEEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnDim d As DragItem srclStrn5d = NewDragItem(me.Left, me.Top, me.Width, me.Height) srclStrn:d.PrivateMacData("RBRC") = "IFPushButton:" + str(me.Index) srclStrnd.Drag srclStrn return true srclStrn End FunctionEndGInt EEndGInt DEndGInt CCBhvGrupFSuprStrn IFStaticTextHInsGrupGnameStrn MouseDown CompStrnsorcGrupHHEncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnDim d As DragItem srclStrn5d = NewDragItem(me.Left, me.Top, me.Width, me.Height) srclStrn:d.PrivateMacData("RBRC") = "IFStaticText:" + str(me.Index) srclStrnd.Drag srclStrn return true srclStrn End FunctionEndGInt HEndGInt GEndGInt FCtrlGrup(IcclsStrn IFStaticTextnameStrn IFStaticTextPDefGrup8JnameStrn InitialParent EncoInt PValStrnEndGInt JPDefGrup4KnameStrn DataField EncoInt PValStrnEndGInt KPDefGrup4LnameStrn DataSource EncoInt PValStrnEndGInt LPDefGrup0MnameStrn Underline PValStrnFalse EndGInt MPDefGrup,NnameStrnItalic PValStrnFalse EndGInt NPDefGrup(OnameStrnBoldPValStrnFalse EndGInt OPDefGrup$PnameStrnTextSizePValInt EndGInt PPDefGrup8QnameStrnTextFontEncoInt PValStrnSystem EndGInt QPDefGrup0RnameStrnAutoDeactivate PValStrnTrueEndGInt RPDefGrup0SnameStrnHelpTag EncoInt PValStrnEndGInt SPDefGrup,TnameStrnVisible PValStrnFalse EndGInt TPDefGrup,UnameStrnEnabled PValStrnFalse EndGInt UPDefGrup0VnameStrn Multiline PValStrnFalse EndGInt VPDefGrup(WnameStrn TextColor PValInt EndGInt WPDefGrup(XnameStrn TextAlign PValInt EndGInt XPDefGrup4YnameStrnTextEncoInt PValStrnLabel: EndGInt YPDefGrup,ZnameStrn TabPanelIndex PValInt EndGInt ZPDefGrup0[nameStrn LockBottom PValStrnFalse EndGInt [PDefGrup0\nameStrn LockRight PValStrnFalse EndGInt \PDefGrup,]nameStrnLockTop PValStrnFalse EndGInt ]PDefGrup,^nameStrnLockLeftPValStrnFalse EndGInt ^PDefGrup$_nameStrnHeight PValInt EndGInt _PDefGrup$`nameStrnWidth PValInt dEndGInt `PDefGrup anameStrnTop PValInt EndGInt aPDefGrup bnameStrnLeftPValInt UEndGInt bPDefGrup8cnameStrn ControlOrderEncoInt PValStrn0 EndGInt cPDefGrup<dnameStrnSuper EncoInt PValStrn IFStaticTextEndGInt dPDefGrup$enameStrnIndex PValInt EndGInt ePDefGrup@fnameStrnNameEncoInt PValStrnStaticTextTemplate EndGInt fCBixInt EndGInt ICtrlGrup `gcclsStrn EditField nameStrn EditField PDefGrup8hnameStrn InitialParent EncoInt PValStrnEndGInt hPDefGrup4inameStrn DataField EncoInt PValStrnEndGInt iPDefGrup4jnameStrn DataSource EncoInt PValStrnEndGInt jPDefGrup(knameStrn Alignment PValInt EndGInt kPDefGrup0lnameStrn AcceptTabs PValStrnFalse EndGInt lPDefGrup(mnameStrn LimitText PValInt EndGInt mPDefGrup,nnameStrnReadOnlyPValStrnFalse EndGInt nPDefGrup,onameStrnMaskEncoInt PValStrnEndGInt oPDefGrup,pnameStrnTextEncoInt PValStrnEndGInt pPDefGrup0qnameStrn Underline PValStrnFalse EndGInt qPDefGrup,rnameStrnItalic PValStrnFalse EndGInt rPDefGrup(snameStrnBoldPValStrnFalse EndGInt sPDefGrup$tnameStrnTextSizePValInt EndGInt tPDefGrup8unameStrnTextFontEncoInt PValStrnSystem EndGInt uPDefGrup0vnameStrnAutoDeactivate PValStrnTrueEndGInt vPDefGrup0wnameStrnHelpTag EncoInt PValStrnEndGInt wPDefGrup,xnameStrnVisible PValStrnFalse EndGInt xPDefGrup0ynameStrnFormat EncoInt PValStrnEndGInt yPDefGrup,znameStrnEnabled PValStrnFalse EndGInt zPDefGrup({nameStrn BackColor PValInt EndGInt {PDefGrup(|nameStrn TextColor PValInt EndGInt |PDefGrup,}nameStrn UseFocusRingPValStrnTrueEndGInt }PDefGrup,~nameStrnPasswordPValStrnFalse EndGInt ~PDefGrup,nameStrnStyled PValStrnFalse EndGInt PDefGrup4nameStrnScrollbarVertical PValStrnTrueEndGInt PDefGrup8nameStrnScrollbarHorizontal PValStrnFalse EndGInt PDefGrup0nameStrn Multiline PValStrnFalse EndGInt PDefGrup(nameStrnBorder PValStrnTrueEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup0nameStrn LockBottom PValStrnFalse EndGInt PDefGrup0nameStrn LockRight PValStrnFalse EndGInt PDefGrup,nameStrnLockTop PValStrnFalse EndGInt PDefGrup,nameStrnLockLeftPValStrnFalse EndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt PEndGInt PDefGrup nameStrnTop PValInt 8EndGInt PDefGrup nameStrnLeftPValInt UEndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn1 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn EditField EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup@nameStrnNameEncoInt PValStrnEditFieldTemplate EndGInt CBixInt EndGInt gCtrlGrupTcclsStrn PushButton nameStrn PushButton PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup0nameStrn Underline PValStrnFalse EndGInt PDefGrup,nameStrnItalic PValStrnFalse EndGInt PDefGrup(nameStrnBoldPValStrnFalse EndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup8nameStrnTextFontEncoInt PValStrnSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup,nameStrnVisible PValStrnFalse EndGInt PDefGrup,nameStrnEnabled PValStrnFalse EndGInt PDefGrup,nameStrnCancel PValStrnFalse EndGInt PDefGrup,nameStrnDefault PValStrnFalse EndGInt PDefGrup8nameStrnCaption EncoInt PValStrnUntitledEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup0nameStrn LockBottom PValStrnFalse EndGInt PDefGrup0nameStrn LockRight PValStrnFalse EndGInt PDefGrup,nameStrnLockTop PValStrnFalse EndGInt PDefGrup,nameStrnLockLeftPValStrnFalse EndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EEndGInt PDefGrup nameStrnTop PValInt bEndGInt PDefGrup nameStrnLeftPValInt UEndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn2 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn PushButton EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup@nameStrnNameEncoInt PValStrnPushButtonTemplate EndGInt CBixInt EndGInt PadnPadn|********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu# NameStrnMenuBar1ContInt paswStrnMItmGrupspmuInt nameStrn UntitledMenu1 textStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnFileMenutextStrn&File indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnFileQuittextStrnQuitindxInt scutStrnCmd+Q MiSKStrnQ MiMkInt maEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt MItmGrupxspmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt EndGInt MItmGrupspmuInt nameStrnEditMenutextStrn&Edit indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrupspmuInt nameStrnEditUndotextStrn&Undo indxInt scutStrnCmd+Z MiSKStrnZ MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn UntitledMenu0 textStrn- indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCut textStrnCu&tindxInt scutStrnCmd+X MiSKStrnX MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrnEditCopytextStrn&Copy indxInt scutStrnCmd+C MiSKStrnC MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditPaste textStrn&Paste indxInt scutStrnCmd+V MiSKStrnV MiMkInt maEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrn EditClear textStrnClear indxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupxspmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt MItmGrupspmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrn AppleMenuItem EndGInt EndGInt MItmGrupxspmuInt nameStrntextStrnindxInt scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt PadnPadnd************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj#NameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnPDefGrup$nameStrnMenuBar PValInt #EndGInt VwBhGrupEndGInt PadnPadn ************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew#\NameStrn ToolPalette ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnMethGrupnameStrnUpdateGridInterval CompStrnsorcGrupEncoInt srclStrnSub UpdateGridInterval()srclStrnDim i, c As Integer srclStrnDim w As Window srclStrnc = WindowCount - 1 srclStrnfor i = 0 to c srclStrnif Window(i) IsA Window1 then srclStrn2if CB_Snap.Value then ' if CB_Snap is checked then srclStrn=Window1(Window(i)).gridInterval = abs(val(EF_SnapValue.Text)) srclStrnelsesrclStrn#Window1(Window(i)).gridInterval = 0 srclStrnend if srclStrnexit ' end loop srclStrnend if srclStrnnextsrclStrnsrclStrnEnd Sub EndGInt EncoInt AlasStrnflagInt parmStrnrsltStrnEndGInt PDefGrup0nameStrnMenuBar PValStrn -1088178290 EndGInt PDefGrup(nameStrn MacProcID PValInt EndGInt PDefGrup4nameStrn BalloonHelp EncoInt PValStrnEndGInt PDefGrup0nameStrnMinimizeButton PValStrnTrueEndGInt PDefGrup0nameStrnMaximizeButton PValStrnTrueEndGInt PDefGrup0nameStrn LiveResize PValStrnFalse EndGInt PDefGrup,nameStrn Resizeable PValStrnTrueEndGInt PDefGrup,nameStrn CloseButton PValStrnTrueEndGInt PDefGrup0nameStrnMenuBarVisible PValStrnTrueEndGInt PDefGrup0nameStrn FullScreen PValStrnFalse EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup8nameStrnTitle EncoInt PValStrnTools EndGInt PDefGrup(nameStrnBackdropPValStrn0 EndGInt 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 VwBhGrup lVwPrGrup0NameStrnNameVsblInt PrGpStrnID EndGInt VwPrGrup8NameStrn Interfaces VsblInt PrGpStrnID EndGInt VwPrGrup4NameStrnSuper VsblInt PrGpStrnID EndGInt VwPrGrupLNameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EndGInt VwPrGrupHNameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt VwPrGrupHNameStrnHeight VsblInt PrGpStrnPositionPValStrn300 EndGInt VwPrGrupHNameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt VwPrGrupLNameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt VwPrGrupLNameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt VwPrGrupPNameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt VwPrGrupLNameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EndGInt VwPrGrupTNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt VwPrGrup<NameStrnBackdropVsblInt PrGpStrn Appearance EndGInt VwPrGrupPNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt VwPrGrupLNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupTNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupPNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupTNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupXNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt VwPrGrupTNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrup@NameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt VwPrGrupPNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt VwPrGrup<NameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt EndGInt CBhvGrupSuprStrn StaticText HInsGruptnameStrn MouseDown CompStrnsorcGrup4EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnDim d As DragItem srclStrn5d = NewDragItem(me.Left, me.Top, me.Width, me.Height) srclStrn'd.PrivateMacData("RBRC") = "StaticText" srclStrnd.Drag srclStrn return true srclStrn End FunctionEndGInt EndGInt EndGInt CBhvGrupSuprStrn Rectangle EndGInt CBhvGrupSuprStrn EditField HInsGruptnameStrn MouseDown CompStrnsorcGrup4EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnDim d As DragItem srclStrn5d = NewDragItem(me.Left, me.Top, me.Width, me.Height) srclStrn&d.PrivateMacData("RBRC") = "EditField" srclStrnd.Drag srclStrn return true srclStrn End FunctionEndGInt EndGInt EndGInt CBhvGrupSuprStrn PushButton HInsGruptnameStrn MouseDown CompStrnsorcGrup4EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrnDim d As DragItem srclStrn5d = NewDragItem(me.Left, me.Top, me.Width, me.Height) srclStrn'd.PrivateMacData("RBRC") = "PushButton" srclStrnd.Drag srclStrn return true srclStrn End FunctionEndGInt EndGInt EndGInt CBhvGrupSuprStrnLineEndGInt CBhvGrupSuprStrnCheckBoxHInsGrupnameStrnAction CompStrnsorcGruphEncoInt srclStrn Sub Action()srclStrnUpdateGridInterval srclStrnsrclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn EditField HInsGrupnameStrn TextChange CompStrnsorcGrup`EncoInt srclStrnSub TextChange()srclStrnUpdateGridInterval srclStrnEnd Sub EndGInt EndGInt EndGInt CBhvGrupSuprStrn StaticText EndGInt CtrlGrupcclsStrn Rectangle nameStrn Rectangle PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup,nameStrnBottomRightColorPValInt EndGInt PDefGrup(nameStrn TopLeftColorPValInt EndGInt PDefGrup(nameStrn BorderWidth PValInt EndGInt PDefGrup( nameStrn FillColor PValInt EndGInt  PDefGrup( nameStrnEnabled PValStrnTrueEndGInt  PDefGrup0 nameStrnAutoDeactivate PValStrnTrueEndGInt  PDefGrup0 nameStrnHelpTag EncoInt PValStrnEndGInt  PDefGrup( nameStrnVisible PValStrnTrueEndGInt  PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup0nameStrn LockBottom PValStrnFalse EndGInt PDefGrup0nameStrn LockRight PValStrnFalse EndGInt PDefGrup,nameStrnLockTop PValStrnFalse EndGInt PDefGrup,nameStrnLockLeftPValStrnFalse EndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt lEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn0 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn Rectangle EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn Rectangle1 EndGInt CBixInt EndGInt CtrlGrup(cclsStrn StaticText nameStrn StaticText PDefGrupDnameStrn InitialParent EncoInt PValStrn Rectangle1 EndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup0nameStrn Underline PValStrnFalse EndGInt PDefGrup, nameStrnItalic PValStrnFalse EndGInt  PDefGrup(!nameStrnBoldPValStrnFalse EndGInt !PDefGrup$"nameStrnTextSizePValInt EndGInt "PDefGrup8#nameStrnTextFontEncoInt PValStrnSystem EndGInt #PDefGrup0$nameStrnAutoDeactivate PValStrnTrueEndGInt $PDefGrup0%nameStrnHelpTag EncoInt PValStrnEndGInt %PDefGrup(&nameStrnVisible PValStrnTrueEndGInt &PDefGrup('nameStrnEnabled PValStrnTrueEndGInt 'PDefGrup0(nameStrn Multiline PValStrnFalse EndGInt (PDefGrup()nameStrn TextColor PValInt EndGInt )PDefGrup(*nameStrn TextAlign PValInt EndGInt *PDefGrup8+nameStrnTextEncoInt PValStrn StaticText EndGInt +PDefGrup,,nameStrn TabPanelIndex PValInt EndGInt ,PDefGrup0-nameStrn LockBottom PValStrnFalse EndGInt -PDefGrup0.nameStrn LockRight PValStrnFalse EndGInt .PDefGrup,/nameStrnLockTop PValStrnFalse EndGInt /PDefGrup,0nameStrnLockLeftPValStrnFalse EndGInt 0PDefGrup$1nameStrnHeight PValInt EndGInt 1PDefGrup$2nameStrnWidth PValInt dEndGInt 2PDefGrup 3nameStrnTop PValInt EndGInt 3PDefGrup 4nameStrnLeftPValInt EndGInt 4PDefGrup85nameStrn ControlOrderEncoInt PValStrn1 EndGInt 5PDefGrup<6nameStrnSuper EncoInt PValStrn StaticText EndGInt 6PDefGrup$7nameStrnIndex PValInt EndGInt 7PDefGrup88nameStrnNameEncoInt PValStrn StaticText1 EndGInt 8CBixInt EndGInt CtrlGrup X9cclsStrn EditField nameStrn EditField PDefGrup8:nameStrn InitialParent EncoInt PValStrnEndGInt :PDefGrup4;nameStrn DataField EncoInt PValStrnEndGInt ;PDefGrup4nameStrn AcceptTabs PValStrnFalse EndGInt >PDefGrup(?nameStrn LimitText PValInt EndGInt ?PDefGrup(@nameStrnReadOnlyPValStrnTrueEndGInt @PDefGrup,AnameStrnMaskEncoInt PValStrnEndGInt APDefGrup8BnameStrnTextEncoInt PValStrn EditField EndGInt BPDefGrup0CnameStrn Underline PValStrnFalse EndGInt CPDefGrup,DnameStrnItalic PValStrnFalse EndGInt DPDefGrup(EnameStrnBoldPValStrnFalse EndGInt EPDefGrup$FnameStrnTextSizePValInt EndGInt FPDefGrup8GnameStrnTextFontEncoInt PValStrnSystem EndGInt GPDefGrup0HnameStrnAutoDeactivate PValStrnTrueEndGInt HPDefGrup0InameStrnHelpTag EncoInt PValStrnEndGInt IPDefGrup(JnameStrnVisible PValStrnTrueEndGInt JPDefGrup0KnameStrnFormat EncoInt PValStrnEndGInt KPDefGrup(LnameStrnEnabled PValStrnTrueEndGInt LPDefGrup(MnameStrn BackColor PValInt EndGInt MPDefGrup(NnameStrn TextColor PValInt EndGInt NPDefGrup,OnameStrn UseFocusRingPValStrnTrueEndGInt OPDefGrup,PnameStrnPasswordPValStrnFalse EndGInt PPDefGrup,QnameStrnStyled PValStrnFalse EndGInt QPDefGrup4RnameStrnScrollbarVertical PValStrnTrueEndGInt RPDefGrup8SnameStrnScrollbarHorizontal PValStrnFalse EndGInt SPDefGrup0TnameStrn Multiline PValStrnFalse EndGInt TPDefGrup(UnameStrnBorder PValStrnTrueEndGInt UPDefGrup,VnameStrn TabPanelIndex PValInt EndGInt VPDefGrup0WnameStrn LockBottom PValStrnFalse EndGInt WPDefGrup0XnameStrn LockRight PValStrnFalse EndGInt XPDefGrup,YnameStrnLockTop PValStrnFalse EndGInt YPDefGrup,ZnameStrnLockLeftPValStrnFalse EndGInt ZPDefGrup$[nameStrnHeight PValInt EndGInt [PDefGrup$\nameStrnWidth PValInt lEndGInt \PDefGrup ]nameStrnTop PValInt 6EndGInt ]PDefGrup ^nameStrnLeftPValInt EndGInt ^PDefGrup8_nameStrn ControlOrderEncoInt PValStrn2 EndGInt _PDefGrup<`nameStrnSuper EncoInt PValStrn EditField EndGInt `PDefGrup$anameStrnIndex PValInt EndGInt aPDefGrup8bnameStrnNameEncoInt PValStrn EditField1 EndGInt bCBixInt EndGInt 9CtrlGrupHccclsStrn PushButton nameStrn PushButton PDefGrup8dnameStrn InitialParent EncoInt PValStrnEndGInt dPDefGrup0enameStrn Underline PValStrnFalse EndGInt ePDefGrup,fnameStrnItalic PValStrnFalse EndGInt fPDefGrup(gnameStrnBoldPValStrnFalse EndGInt gPDefGrup$hnameStrnTextSizePValInt EndGInt hPDefGrup8inameStrnTextFontEncoInt PValStrnSystem EndGInt iPDefGrup0jnameStrnAutoDeactivate PValStrnTrueEndGInt jPDefGrup0knameStrnHelpTag EncoInt PValStrnEndGInt kPDefGrup(lnameStrnVisible PValStrnTrueEndGInt lPDefGrup(mnameStrnEnabled PValStrnTrueEndGInt mPDefGrup,nnameStrnCancel PValStrnFalse EndGInt nPDefGrup,onameStrnDefault PValStrnFalse EndGInt oPDefGrup<pnameStrnCaption EncoInt PValStrn PushButton EndGInt pPDefGrup,qnameStrn TabPanelIndex PValInt EndGInt qPDefGrup0rnameStrn LockBottom PValStrnFalse EndGInt rPDefGrup0snameStrn LockRight PValStrnFalse EndGInt sPDefGrup,tnameStrnLockTop PValStrnFalse EndGInt tPDefGrup,unameStrnLockLeftPValStrnFalse EndGInt uPDefGrup$vnameStrnHeight PValInt EndGInt vPDefGrup$wnameStrnWidth PValInt lEndGInt wPDefGrup xnameStrnTop PValInt XEndGInt xPDefGrup ynameStrnLeftPValInt EndGInt yPDefGrup8znameStrn ControlOrderEncoInt PValStrn3 EndGInt zPDefGrup<{nameStrnSuper EncoInt PValStrn PushButton EndGInt {PDefGrup$|nameStrnIndex PValInt EndGInt |PDefGrup8}nameStrnNameEncoInt PValStrn PushButton1 EndGInt }CBixInt EndGInt cCtrlGrupp~cclsStrnLinenameStrnLinePDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup(nameStrn LineColor PValInt EndGInt PDefGrup(nameStrn BorderWidth PValInt EndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup nameStrnY2 PValInt wEndGInt PDefGrup nameStrnY1 PValInt xEndGInt PDefGrup nameStrnX2 PValInt EndGInt PDefGrup nameStrnX1 PValInt EndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup nameStrnTop PValInt xEndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn4 EndGInt PDefGrup4nameStrnSuper EncoInt PValStrnLineEndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnLine1 EndGInt CBixInt EndGInt ~CtrlGrupXcclsStrnCheckBoxnameStrnCheckBoxPDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup,nameStrnValue PValStrnFalse EndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn SmallSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup<nameStrnCaption EncoInt PValStrn Snap to gridEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt lEndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn5 EndGInt PDefGrup8nameStrnSuper EncoInt PValStrnCheckBoxEndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup4nameStrnNameEncoInt PValStrnCB_Snap EndGInt CBixInt EndGInt CtrlGrup cclsStrn EditField nameStrn EditField PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Alignment PValInt EndGInt PDefGrup(nameStrn AcceptTabs PValStrnEndGInt PDefGrup(nameStrn LimitText PValInt EndGInt PDefGrup$nameStrnReadOnlyPValStrnEndGInt PDefGrup0nameStrnMaskEncoInt PValStrn####EndGInt PDefGrup0nameStrnTextEncoInt PValStrn36 EndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn SmallSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup0nameStrnFormat EncoInt PValStrnEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn BackColor PValInt EndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup,nameStrn UseFocusRingPValStrnTrueEndGInt PDefGrup$nameStrnPasswordPValStrnEndGInt PDefGrup$nameStrnStyled PValStrnEndGInt PDefGrup4nameStrnScrollbarVertical PValStrnTrueEndGInt PDefGrup0nameStrnScrollbarHorizontal PValStrnEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrnBorder PValStrnTrueEndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt +EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt EndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn6 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn EditField EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn EF_SnapValueEndGInt CBixInt EndGInt CtrlGrupcclsStrn StaticText nameStrn StaticText PDefGrup8nameStrn InitialParent EncoInt PValStrnEndGInt PDefGrup4nameStrn DataField EncoInt PValStrnEndGInt PDefGrup4nameStrn DataSource EncoInt PValStrnEndGInt PDefGrup(nameStrn Underline PValStrnEndGInt PDefGrup$nameStrnItalic PValStrnEndGInt PDefGrup nameStrnBoldPValStrnEndGInt PDefGrup$nameStrnTextSizePValInt EndGInt PDefGrup<nameStrnTextFontEncoInt PValStrn SmallSystem EndGInt PDefGrup0nameStrnAutoDeactivate PValStrnTrueEndGInt PDefGrup0nameStrnHelpTag EncoInt PValStrnEndGInt PDefGrup(nameStrnVisible PValStrnTrueEndGInt PDefGrup(nameStrnEnabled PValStrnTrueEndGInt PDefGrup(nameStrn Multiline PValStrnEndGInt PDefGrup(nameStrn TextColor PValInt EndGInt PDefGrup(nameStrn TextAlign PValInt EndGInt PDefGrup4nameStrnTextEncoInt PValStrnPixels EndGInt PDefGrup,nameStrn TabPanelIndex PValInt EndGInt PDefGrup(nameStrn LockBottom PValStrnEndGInt PDefGrup(nameStrn LockRight PValStrnEndGInt PDefGrup$nameStrnLockTop PValStrnEndGInt PDefGrup$nameStrnLockLeftPValStrnEndGInt PDefGrup$nameStrnHeight PValInt EndGInt PDefGrup$nameStrnWidth PValInt 8EndGInt PDefGrup nameStrnTop PValInt EndGInt PDefGrup nameStrnLeftPValInt HEndGInt PDefGrup8nameStrn ControlOrderEncoInt PValStrn7 EndGInt PDefGrup<nameStrnSuper EncoInt PValStrn StaticText EndGInt PDefGrup$nameStrnIndex PValInt EndGInt PDefGrup8nameStrnNameEncoInt PValStrn StaticText2 EndGInt CBixInt EndGInt PadnPadnBlokpObj# NameStrn IFStaticTextContInt paswStrnbClsInt SuprStrn StaticText bNtrInt CompStrnVwBhGrup VwPrGrup0NameStrnNameVsblInt PrGpStrnID EndGInt VwPrGrup4NameStrnIndex VsblInt PrGpStrnID EndGInt VwPrGrup4NameStrnSuper VsblInt PrGpStrnID EndGInt VwPrGrup<NameStrn ControlOrderVsblInt PrGpStrnPositionEndGInt VwPrGrup4NameStrnLeftVsblInt PrGpStrnPositionEndGInt VwPrGrup4NameStrnTop VsblInt PrGpStrnPositionEndGInt VwPrGrupHNameStrnWidth VsblInt PrGpStrnPositionPValStrn100 EndGInt VwPrGrupHNameStrnHeight VsblInt PrGpStrnPositionPValStrn20 EndGInt VwPrGrup8NameStrnLockLeftVsblInt PrGpStrnPositionEndGInt VwPrGrup8NameStrnLockTop VsblInt PrGpStrnPositionEndGInt VwPrGrup<NameStrn LockRight VsblInt PrGpStrnPositionEndGInt VwPrGrup<NameStrn LockBottom VsblInt PrGpStrnPositionEndGInt VwPrGrupDNameStrn TabPanelIndex PrGpStrnPositionPValStrn0 EndGInt VwPrGrupLNameStrnTextVsblInt PrGpStrn Appearance PValStrnUntitledEndGInt VwPrGrupPNameStrn TextAlign VsblInt PrGpStrn Appearance PValStrn0 EndGInt VwPrGrupTNameStrn TextColor VsblInt PrGpStrn Appearance PValStrn&h000000EndGInt VwPrGrup@NameStrn Multiline VsblInt PrGpStrn Appearance EndGInt VwPrGrupLNameStrnEnabled VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrupLNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt VwPrGrup<NameStrnHelpTag VsblInt PrGpStrn Appearance EndGInt VwPrGrupT NameStrnAutoDeactivate VsblInt PrGpStrn Appearance PValStrnTrueEndGInt  VwPrGrupH NameStrnTextFontVsblInt PrGpStrnFontPValStrnSystem EndGInt  VwPrGrupD NameStrnTextSizeVsblInt PrGpStrnFontPValStrn0 EndGInt  VwPrGrup0 NameStrnBoldVsblInt PrGpStrnFontEndGInt  VwPrGrup4 NameStrnItalic VsblInt PrGpStrnFontEndGInt  VwPrGrup8NameStrn Underline VsblInt PrGpStrnFontEndGInt VwPrGrupDNameStrn DataSource VsblInt PrGpStrnDatabase BindingEndGInt VwPrGrupDNameStrn DataField VsblInt PrGpStrnDatabase BindingEndGInt VwPrGrup NameStrn InitialParent EndGInt EndGInt PadnPadnt************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj#NameStrn IFEditField ContInt paswStrnbClsInt SuprStrn EditField bNtrInt CompStrnVwBhGrup VwPrGrup0NameStrnNameVsblInt PrGpStrnID EndGInt VwPrGrup4NameStrnIndex VsblInt PrGpStrnID EndGInt VwPrGrup4NameStrnSuper VsblInt PrGpStrnID EndGInt VwPrGrup<NameStrn ControlOrderVsblInt PrGpStrnPositionEndGInt VwPrGrup4NameStrnLeftVsblInt PrGpStrnPositionEndGInt VwPrGrup4NameStrnTop VsblInt PrGpStrnPositionEndGInt VwPrGrupHNameStrnWidth VsblInt PrGpStrnPositionPValStrn80 EndGInt VwPrGrupHNameStrnHeight VsblInt PrGpStrnPositionPValStrn22 EndGInt VwPrGrup8NameStrnLockLeftVsblInt PrGpStrnPositionEndGInt VwPrGrup8NameStrnLockTop VsblInt PrGpStrnPositionEndGInt VwPrGrup<NameStrn LockRight VsblInt PrGpStrnPositionEndGInt VwPrGrup<NameStrn LockBottom VsblInt PrGpStrnPositionEndGInt VwPrGrupDNameStrn TabPanelIndex PrGpStrnPositionPValStrn0 EndGInt VwPrGrupL NameStrnBorder VsblInt PrGpStrn Appearance PValStrnTrueEndGInt  VwPrGrup@!NameStrn Multiline VsblInt PrGpStrn Appearance EndGInt !VwPrGrupH"NameStrnScrollbarHorizontal VsblInt PrGpStrn Appearance EndGInt "VwPrGrupX#NameStrnScrollbarVertical VsblInt PrGpStrn Appearance PValStrnTrueEndGInt #VwPrGrup<$NameStrnStyled VsblInt PrGpStrn Appearance EndGInt $VwPrGrup<%NameStrnPasswordVsblInt PrGpStrn Appearance EndGInt %VwPrGrupP&NameStrn UseFocusRingVsblInt PrGpStrn Appearance PValStrnTrueEndGInt &VwPrGrupT'NameStrn TextColor VsblInt PrGpStrn Appearance PValStrn&h000000EndGInt 'VwPrGrupT(NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt (VwPrGrupL)NameStrnEnabled VsblInt PrGpStrn Appearance PValStrnTrueEndGInt )VwPrGrup<*NameStrnFormat VsblInt PrGpStrn Appearance EndGInt *VwPrGrupL+NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt +VwPrGrup<,NameStrnHelpTag VsblInt PrGpStrn Appearance EndGInt ,VwPrGrupT-NameStrnAutoDeactivate VsblInt PrGpStrn Appearance PValStrnTrueEndGInt -VwPrGrupH.NameStrnTextFontVsblInt PrGpStrnFontPValStrnSystem EndGInt .VwPrGrupD/NameStrnTextSizeVsblInt PrGpStrnFontPValStrn0 EndGInt /VwPrGrup00NameStrnBoldVsblInt PrGpStrnFontEndGInt 0VwPrGrup41NameStrnItalic VsblInt PrGpStrnFontEndGInt 1VwPrGrup82NameStrn Underline VsblInt PrGpStrnFontEndGInt 2VwPrGrup<3NameStrnTextVsblInt PrGpStrn Initial State EndGInt 3VwPrGrup44NameStrnMaskVsblInt PrGpStrnBehaviorEndGInt 4VwPrGrup85NameStrnReadOnlyVsblInt PrGpStrnBehaviorEndGInt 5VwPrGrupL6NameStrn LimitText VsblInt PrGpStrnBehaviorPValStrn0 EndGInt 6VwPrGrup<7NameStrn AcceptTabs VsblInt PrGpStrnBehaviorEndGInt 7VwPrGrupL8NameStrn Alignment VsblInt PrGpStrnBehaviorPValStrn0 EndGInt 8VwPrGrupD9NameStrn DataSource VsblInt PrGpStrnDatabase BindingEndGInt 9VwPrGrupD:NameStrn DataField VsblInt PrGpStrnDatabase BindingEndGInt :VwPrGrup ;NameStrn InitialParent EndGInt ;EndGInt PadnPadn0****************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj# NameStrn IFPushButtonContInt paswStrnbClsInt SuprStrn PushButton bNtrInt CompStrnVwBhGrupNameStrnIndex VsblInt PrGpStrnID EndGInt >VwPrGrup4?NameStrnSuper VsblInt PrGpStrnID EndGInt ?VwPrGrup<@NameStrn ControlOrderVsblInt PrGpStrnPositionEndGInt @VwPrGrup4ANameStrnLeftVsblInt PrGpStrnPositionEndGInt AVwPrGrup4BNameStrnTop VsblInt PrGpStrnPositionEndGInt BVwPrGrupHCNameStrnWidth VsblInt PrGpStrnPositionPValStrn80 EndGInt CVwPrGrupHDNameStrnHeight VsblInt PrGpStrnPositionPValStrn20 EndGInt DVwPrGrup8ENameStrnLockLeftVsblInt PrGpStrnPositionEndGInt EVwPrGrup8FNameStrnLockTop VsblInt PrGpStrnPositionEndGInt FVwPrGrup<GNameStrn LockRight VsblInt PrGpStrnPositionEndGInt GVwPrGrup<HNameStrn LockBottom VsblInt PrGpStrnPositionEndGInt HVwPrGrupDINameStrn TabPanelIndex PrGpStrnPositionPValStrn0 EndGInt IVwPrGrupPJNameStrnCaption VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt JVwPrGrup<KNameStrnDefault VsblInt PrGpStrn Appearance EndGInt KVwPrGrup<LNameStrnCancel VsblInt PrGpStrn Appearance EndGInt LVwPrGrupLMNameStrnEnabled VsblInt PrGpStrn Appearance PValStrnTrueEndGInt MVwPrGrupLNNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt NVwPrGrup<ONameStrnHelpTag VsblInt PrGpStrn Appearance EndGInt OVwPrGrupTPNameStrnAutoDeactivate VsblInt PrGpStrn Appearance PValStrnTrueEndGInt PVwPrGrupHQNameStrnTextFontVsblInt PrGpStrnFontPValStrnSystem EndGInt QVwPrGrupDRNameStrnTextSizeVsblInt PrGpStrnFontPValStrn0 EndGInt RVwPrGrup0SNameStrnBoldVsblInt PrGpStrnFontEndGInt SVwPrGrup4TNameStrnItalic VsblInt PrGpStrnFontEndGInt TVwPrGrup8UNameStrn Underline VsblInt PrGpStrnFontEndGInt UVwPrGrup VNameStrn InitialParent EndGInt VEndGInt