RbBFBlokProjPSIVStrn2005.04 ACnmStrnAChpStrnACsvStrnlocalhost:7325 Ver1Strn1 Ver2Strn0 Ver3Strn0 RelsStrn0 NnRlStrn0 RegnStrn0 SVerStrnLVerStrnIVerStrnaiviInt DVewInt ¿D—øprTpInt DLanInt CLanInt DEncInt BflgInt IconGrup£ˆEndGInt £ˆMacCStrn????BMacStrnMy Application (Classic)BCarStrnMy Application BCMOStrnMy Application BSizInt @BMSzInt BSzSStrn4096BMSSStrn2048MDIcStrnMy Application BWinStrnMy Application.exe BMDIInt BL86Strn MyApplication fTypGrupL£‰nameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt EndGInt £‰PadnPadn,************************************************************************************************************************************************************************************************************************************************************************************************************BlokpFTy2\ÿÿNameStrn FileTypes ContInt paswStrnfTypGrup\£ŠnameStrntextMacCStrnR*chtypeStrnTEXTdefnStrnflagInt NameStrnTextEndGInt £ŠPadnPadn0************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew¿D—øüNameStrnWindow1 ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnHInsGrup£‹nameStrnResized CompStrnsorcGrupÌ£ŒEncoInt srclStrn Sub Resized() srclStrn3// Resizing Canvas and copy old pic image currently srclStrnDim c as New Clipboard srclStrnsrclStrn// Copy current canvas picture srclStrn WorkPix = Pic srclStrnc.picture = WorkPix srclStrnc.Close srclStrnsrclStrn// Redraw the picture srclStrn pic = WorkPix srclStrnCanvas1.Backdrop = Pic srclStrnsrclStrnsrclStrnsrclStrnsrclStrnEnd Sub EndGInt £ŒEndGInt £‹HInsGrup€£nameStrnOpenCompStrnsorcGrupH£ŽEncoInt srclStrn Sub Open() srclStrnsrclStrn// Show Canvas screen srclStrnQCanvas1.backdrop=New Picture(canvas1.graphics.width, canvas1.graphics.height, 32) srclStrn-Canvas1.backdrop.Graphics.DrawPicture Pic,0,0 srclStrn4pic=New Picture(graphics.width, graphics.height, 32)srclStrnEnd Sub EndGInt £ŽEndGInt £MnuHGrup¬£nameStrnFileNew CompStrnsorcGrupp£EncoInt srclStrnFunction FileNew() As Boolean srclStrn// Reset Variables srclStrnfName=""srclStrnf=nil srclStrnpic=nil srclStrn// Clear Canvas1srclStrn>Canvas1.Graphics.ClearRect 0, 0, canvas1.width, canvas1.height srclStrnCanvas1.Backdrop = pic srclStrn// Set PIC as a NEW Picture srclStrn// Show Canvas screen srclStrnQCanvas1.backdrop=New Picture(canvas1.graphics.width, canvas1.graphics.height, 32) srclStrn-Canvas1.backdrop.Graphics.DrawPicture Pic,0,0 srclStrn4pic=New Picture(graphics.width, graphics.height, 32)srclStrnsrclStrn End FunctionEndGInt £EndGInt £MnuHGrupУ‘nameStrnFileOpenCompStrnsorcGrup”£’EncoInt srclStrnFunction FileOpen() As Boolean srclStrnDim dlg as OpenDialog srclStrndlg=New OpenDialog srclStrndlg.Title="Open Drawing"srclStrn&dlg.Filter="image/jpg, bmp, pict, gif" srclStrnf=dlg.ShowModal() srclStrnIf f <> Nil thensrclStrn// Open Picture srclStrnpic=f.OpenAsPicture srclStrncanvas1.width = pic.Width srclStrncanvas1.height = pic.Height srclStrn9Canvas1.backdrop = New Picture(pic.width, pic.height, 32) srclStrn-Canvas1.backdrop.Graphics.DrawPicture pic,0,0 srclStrn fName=f.namesrclStrnElsesrclStrn//User CancelledsrclStrnEnd if srclStrn End FunctionEndGInt £’EndGInt £‘MnuHGrupX£“nameStrnFileSaveCompStrnsorcGrup£”EncoInt srclStrnFunction FileSave() As Boolean srclStrnDim dlg as New SaveAsDialog srclStrn,// Check to see if Filename has been createdsrclStrnIf fName="" thensrclStrn0// Filename has NOT been created so goto SAVE ASsrclStrn&dlg.Filter="image/jpg, bmp, pict, gif" srclStrndlg.SuggestedFileName=fName srclStrndlg.Title="Save Drawing"srclStrnf=dlg.ShowModal() srclStrnIf f <> Nil thensrclStrnf.saveaspicture(pic)srclStrn fName=f.namesrclStrnElsesrclStrn//user canceled srclStrnEnd If srclStrn0// Filename has been created so continue to SAVEsrclStrnElseIf fName<>"" then srclStrn f.name=fNamesrclStrnIf f <> Nil thensrclStrnf.saveaspicture(pic)srclStrnEnd If srclStrnEnd if srclStrn End FunctionEndGInt £”EndGInt £“MnuHGrupð£•nameStrn FileSaveAs CompStrnsorcGrup°£–EncoInt srclStrn Function FileSaveAs() As BooleansrclStrnDim dlg as New SaveAsDialog srclStrn&dlg.Filter="image/jpg, bmp, pict, gif" srclStrndlg.SuggestedFileName=fName srclStrndlg.Title="Save Drawing"srclStrnf=dlg.ShowModal() srclStrnIf f <> Nil thensrclStrnf.saveaspicture(pic)srclStrn fName=f.namesrclStrnElsesrclStrn//user canceled srclStrnEnd if srclStrn End FunctionEndGInt £–EndGInt £•MnuHGrup\£—nameStrn EditClear CompStrnsorcGrup£˜EncoInt srclStrnFunction EditClear() As Boolean srclStrn// Clear Canvas1srclStrn'pic.graphics.forecolor=rgb(255,255,255) srclStrn:pic.graphics.ClearRect 0, 0, Canvas1.width, Canvas1.height srclStrn$canvas1.graphics.DrawPicture pic,0,0srclStrn End FunctionEndGInt £˜EndGInt £—MnuHGrup¬£™nameStrnHelpMenuCompStrnsorcGrupp£šEncoInt srclStrnFunction HelpMenu() As Boolean srclStrnHelp.ShowModal srclStrn End FunctionEndGInt £šEndGInt £™NoteGrup4£›nameStrnInfoCompStrnsorcGrupð£œEncoInt ntlnStrnInfontlnStrn$RealBasic Code by: Jonathon M. BevarntlnStrnDate: 09/07/2005ntlnStrn*Compiled In: RealBasic 5.5.5 Pro WinXP Pro ntlnStrn!eMail: jbevar@onclicksoftware.com ntlnStrnweb: www.onclicksoftware.comntlnStrnntlnStrnDTo help those that want to create 2D graphics on a Canvas Control. ntlnStrnntlnStrnFollowing Features: ntlnStrnntlnStrnDraw Freehand Style ntlnStrnPoint drag to Point Line Draw ntlnStrn)Point drag to Point Rectangle/Square Draw ntlnStrn$Point drag to Point Circle/Oval DrawntlnStrn#3 Point Placement for Triangle Draw ntlnStrnStyled Text Entry ntlnStrnSelectable Color PalettentlnStrnSelectable Line Size/Thickness ntlnStrnEndGInt £œflagInt EndGInt £›NoteGrup £nameStrn InstructionsCompStrnsorcGrup ¼£žEncoInt ntlnStrn InstructionsntlnStrn*To create the following objects: Freehand. ntlnStrnntlnStrn‚1. Simply, place the mouse now showing the Cross-Hair Cursor upon the canvas, click and hold the mouse button and start drawing. ntlnStrnntlnStrn,To create the following objects: Text Entry.ntlnStrnntlnStrn>1. Click on the Text Button, a Text Entry window will appear. ntlnStrn‚2. Set the Font Type, Font Size and any attributes you so desire (Bold, Italic or Underline), you can also select the Text Color. ntlnStrn^3. Now enter the text you wish to place upon the Drawing Canvas, when finished click on 'Ok'. ntlnStrnt4. Place the cursor (Crosshair Cursor) to were you wish to place the text on the canvas then click on mouse button.ntlnStrn5. Your text is now placed.ntlnStrnntlnStrnCanvas1.Graphics.ClearRect 0, 0, Canvas1.width, Canvas1.height srclStrnCanvas1.Backdrop = pic srclStrn// Set PIC as a NEW Picture srclStrnDpic=New Picture(canvas1.graphics.width, canvas1.graphics.height, 32)srclStrnEnd Sub EndGInt ¤!EndGInt ¤ HInsGrup¤¤"nameStrn MouseExit CompStrnsorcGrupd¤#EncoInt srclStrnSub MouseExit() srclStrnMouseCursor=ArrowCursor srclStrnEnd Sub EndGInt ¤#EndGInt ¤"HInsGrup¨¤$nameStrn MouseEnter CompStrnsorcGruph¤%EncoInt srclStrnSub MouseEnter()srclStrnMouseCursor=CrosshairCursor srclStrnEnd Sub EndGInt ¤%EndGInt ¤$HInsGruph¤&nameStrnMouseUp CompStrnsorcGrup,¤'EncoInt srclStrn'Sub MouseUp(X As Integer, Y As Integer) srclStrn-// Set the number of points used for Triangle srclStrnDim points(6) as IntegersrclStrn// Draws a Line srclStrn If dLine then srclStrn// Get the Linecolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now draw the object srclStrnpic.graphics.DrawLine x1,y1,x,y srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrn!// Draws a Square/Rectangle Shape srclStrnIf dRectangle then srclStrn=// Get the MouseDown X,Y and then calc it to Width and Height srclStrnw=(x-x1)srclStrnh=(y-y1)srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now draw the object srclStrnpic.graphics.DrawRect x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrn(// Draws a Filled Square/Rectangle ShapesrclStrnIf dRectangle and dFill thensrclStrn=// Get the MouseDown X,Y and then calc it to Width and Height srclStrnw=(x-x1)srclStrnh=(y-y1)srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn(// Now draw the object that is Filled insrclStrnpic.graphics.FillRect x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrn// Draws a Circle/Oval ShapesrclStrnIf dCircle then srclStrnw=(x-x1)srclStrnh=(y-y1)srclStrn pic.graphics.forecolor=fillcolorsrclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrnpic.graphics.DrawOval x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrn#// Draws a Filled Circle/Oval Shape srclStrnIf dCircle and dFill then srclStrnw=(x-x1)srclStrnh=(y-y1)srclStrn pic.graphics.forecolor=fillcolorsrclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrnpic.graphics.FillOval x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrn // Draws a Filled Triangle ShapesrclStrn$If dTriangle and md3 and dFill thensrclStrn"// Get the Points of the Triangle srclStrnPoints(1)=x1 //X of Point 1srclStrnPoints(2)=y1 //Y of Point 1srclStrnPoints(3)=x2 //X of Point 2srclStrnPoints(4)=y2 //Y of Point 2srclStrnPoints(5)=x3 //X of Point 3srclStrnPoints(6)=y3 //Y of Point 3srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now Draw the Object srclStrnpic.graphics.FillPolygon Points srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Reset MouseDown X,Y Cord.srclStrn md1=false srclStrn md2=false srclStrn md3=false srclStrnEnd if srclStrn// Draws a Triangle Shape srclStrnIf dTriangle and md3 then srclStrn"// Get the Points of the Triangle srclStrnPoints(1)=x1 //X of Point 1srclStrnPoints(2)=y1 //Y of Point 1srclStrnPoints(3)=x2 //X of Point 2srclStrnPoints(4)=y2 //Y of Point 2srclStrnPoints(5)=x3 //X of Point 3srclStrnPoints(6)=y3 //Y of Point 3srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now Draw the Object srclStrnpic.graphics.DrawPolygon Points srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Reset MouseDown X,Y Cord.srclStrn md1=false srclStrn md2=false srclStrn md3=false srclStrnEnd if srclStrn// Enter Text at this Cord. srclStrn If dText then srclStrnpic.graphics.Bold=app.tbold srclStrnpic.graphics.Italic=app.titalic srclStrn%pic.graphics.Underline=app.tunderline srclStrnpic.graphics.TextFont=app.tfont srclStrnpic.graphics.TextSize=app.tsize srclStrn pic.graphics.forecolor=fillcolorsrclStrn(pic.graphics.DrawString app.tentry, x, ysrclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrnEnd Sub EndGInt ¤'EndGInt ¤&HInsGrup €¤(nameStrn MouseDrag CompStrnsorcGrup @¤)EncoInt srclStrn)Sub MouseDrag(X As Integer, Y As Integer) srclStrn// Draws FreeHand Style srclStrnIf dFreehand then srclStrn m=thickness/2 srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn pic.graphics.forecolor=fillcolorsrclStrn'pic.graphics.DrawLine x1-m,y1-m,x-m,y-m srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnx1=xsrclStrny1=ysrclStrnEnd if srclStrn// Draws a Drag LinesrclStrn If dLine then srclStrn// Get the Linecolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now draw the object srclStrnpic.graphics.DrawLine x1,y1,x,y srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Drag Line code srclStrn'pic.graphics.forecolor=RGB(255,255,255) srclStrnpic.graphics.DrawLine x1,y1,x,y srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrn&// Draws a Drag Square/Rectangle Shape srclStrnIf dRectangle then srclStrn=// Get the MouseDown X,Y and then calc it to Width and Height srclStrnw=(x-x1)srclStrnh=(y-y1)srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now draw the object srclStrnpic.graphics.DrawRect x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Drag Line code srclStrn'pic.graphics.forecolor=RGB(255,255,255) srclStrnpic.graphics.DrawRect x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrn!// Draws a Drag Circle/Oval Shape srclStrnIf dCircle then srclStrnw=(x-x1)srclStrnh=(y-y1)srclStrn pic.graphics.forecolor=fillcolorsrclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrnpic.graphics.DrawOval x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Drag Line code srclStrn'pic.graphics.forecolor=RGB(255,255,255) srclStrnpic.graphics.DrawOval x1,y1,w,h srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrnsrclStrnEnd Sub EndGInt ¤)EndGInt ¤(HInsGrupȤ*nameStrn MouseDown CompStrnsorcGrupˆ¤+EncoInt srclStrn9Function MouseDown(X As Integer, Y As Integer) As Boolean srclStrn$// See if Triangle has been selectedsrclStrnif dTriangle then srclStrnif md1=false then srclStrn// Get Triangle point 1 srclStrnx1 = x srclStrny1 = y srclStrn// MouseDown clicked once srclStrnmd1=truesrclStrnElseif md2=false then srclStrn// Get Triangle point 2 srclStrnx2 = x srclStrny2 = y srclStrn// MouseDown clicked twice srclStrnmd2=truesrclStrnElseif md3=false then srclStrn// Get Triangle point 3 srclStrnx3 = x srclStrny3 = y srclStrn // MouseDown clicked three timessrclStrnmd3=truesrclStrnEnd If srclStrnelsesrclStrn// Set x1 and y1srclStrnx1 = x srclStrny1 = y srclStrnEnd If srclStrn!// Enables Mouse Button Functions srclStrn return true srclStrn End FunctionEndGInt ¤+EndGInt ¤*HInsGrup x¤,nameStrn MouseMove CompStrnsorcGrup 8¤-EncoInt srclStrn)Sub MouseMove(X As Integer, Y As Integer) srclStrn-// Set the number of points used for Triangle srclStrnDim points(6) as IntegersrclStrn// Draws a Drag Triangle Shape srclStrnIf dTriangle and md1 then srclStrn!// Get the Points of the Triangle srclStrnPoints(1)=x1 //X of Point 1srclStrnPoints(2)=y1 //Y of Point 1srclStrnPoints(3)=x2 //X of Point 2srclStrnPoints(4)=y2 //Y of Point 2srclStrnPoints(5)=x3 //X of Point 3srclStrnPoints(6)=y3 //Y of Point 3srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now Draw the Object srclStrn 'pic.graphics.DrawPolygon PointssrclStrnpic.graphics.DrawLine x1,y1,x,y srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Drag Line code srclStrn'pic.graphics.forecolor=RGB(255,255,255) srclStrnpic.graphics.DrawLine x1,y1,x,y srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrnIf dTriangle and md2 then srclStrn!// Get the Points of the Triangle srclStrnPoints(1)=x1 //X of Point 1srclStrnPoints(2)=y1 //Y of Point 1srclStrnPoints(3)=x2 //X of Point 2srclStrnPoints(4)=y2 //Y of Point 2srclStrnPoints(5)=x3 //X of Point 3srclStrnPoints(6)=y3 //Y of Point 3srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now Draw the Object srclStrn 'pic.graphics.DrawPolygon PointssrclStrnpic.graphics.DrawLine x2,y2,x,y srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Drag Line code srclStrn'pic.graphics.forecolor=RGB(255,255,255) srclStrnpic.graphics.DrawLine x2,y2,x,y srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrnEnd if srclStrnIf dTriangle and md3 then srclStrn!// Get the Points of the Triangle srclStrnPoints(1)=x1 //X of Point 1srclStrnPoints(2)=y1 //Y of Point 1srclStrnPoints(3)=x2 //X of Point 2srclStrnPoints(4)=y2 //Y of Point 2srclStrnPoints(5)=x3 //X of Point 3srclStrnPoints(6)=y3 //Y of Point 3srclStrn// Get the Fillcolor info srclStrn pic.graphics.forecolor=fillcolorsrclStrn#// Get the Line size/thickness info srclStrnpic.graphics.penwidth=thickness srclStrn pic.graphics.penheight=thicknesssrclStrn// Now Draw the Object srclStrnpic.graphics.DrawPolygon Points srclStrn$Canvas1.Graphics.DrawPicture pic,0,0srclStrn// Reset MouseDown X,Y Cord.srclStrn md1=false srclStrn md2=false srclStrn md3=false srclStrnEnd if srclStrnEnd Sub EndGInt ¤-EndGInt ¤,EndGInt ¤CBhvGrupL¤.SuprStrn PushButton HInsGrup¤/nameStrnAction CompStrnsorcGrupܤ0EncoInt srclStrn Sub Action()srclStrndFreehand=true srclStrn dLine=false srclStrndRectangle=falsesrclStrndTriangle=false srclStrn dCircle=false srclStrn dText=false srclStrnEnd Sub EndGInt ¤0EndGInt ¤/EndGInt ¤.CBhvGrupL¤1SuprStrn PushButton HInsGrup¤2nameStrnAction CompStrnsorcGrupܤ3EncoInt srclStrn Sub Action()srclStrndFreehand=false srclStrn dLine=true srclStrndRectangle=falsesrclStrndTriangle=false srclStrn dCircle=false srclStrn dText=false srclStrnEnd Sub EndGInt ¤3EndGInt ¤2EndGInt ¤1CBhvGrupL¤4SuprStrn PushButton HInsGrup¤5nameStrnAction CompStrnsorcGrupܤ6EncoInt srclStrn Sub Action()srclStrndFreehand=false srclStrn dLine=false srclStrndRectangle=true srclStrndTriangle=false srclStrn dCircle=false srclStrn dText=false srclStrnEnd Sub EndGInt ¤6EndGInt ¤5EndGInt ¤4CBhvGrupL¤7SuprStrn PushButton HInsGrup¤8nameStrnAction CompStrnsorcGrupܤ9EncoInt srclStrn Sub Action()srclStrndFreehand=false srclStrn dLine=false srclStrndRectangle=falsesrclStrndTriangle=true srclStrn dCircle=false srclStrn dText=false srclStrnEnd Sub EndGInt ¤9EndGInt ¤8EndGInt ¤7CBhvGrupH¤:SuprStrn PushButton HInsGrup¤;nameStrnAction CompStrnsorcGrupؤnameStrnAction CompStrnsorcGrup ¤?EncoInt srclStrn Sub Action()srclStrn!// Bring up Color Selector Window srclStrnDim b as BooleansrclStrnfillColor=rgb(0,0,0)srclStrn)b=SelectColor(fillColor,"Select a Color") srclStrn?// Set Line/Fill Color of Canvas1 to that of selected NEW color srclStrn$Canvas1.graphics.forecolor=fillcolorsrclStrn5// Set color to Canvas2 to that of selected NEW color srclStrn$Canvas2.graphics.forecolor=fillcolorsrclStrn&Canvas2.graphics.fillrect 0, 0, 30, 20 srclStrnCanvas2.refresh srclStrnEnd Sub EndGInt ¤?EndGInt ¤>EndGInt ¤=CBhvGrup`¤@SuprStrn PushButton HInsGrup,¤AnameStrnAction CompStrnsorcGrupð¤BEncoInt srclStrn Sub Action()srclStrn If dFill then srclStrn dFill=false srclStrnme.caption="Has Fill" srclStrnElsesrclStrn dFill=true srclStrnme.caption="No Fill"srclStrnEnd If srclStrnEnd Sub EndGInt ¤BEndGInt ¤AEndGInt ¤@CBhvGrupl¤CSuprStrn PushButton HInsGrup8¤DnameStrnAction CompStrnsorcGrupü¤EEncoInt srclStrn Sub Action()srclStrndFreehand=false srclStrn dLine=false srclStrndRectangle=falsesrclStrndTriangle=false srclStrn dCircle=false srclStrn dText=true srclStrnTextWindow.ShowModalsrclStrnEnd Sub EndGInt ¤EEndGInt ¤DEndGInt ¤CCBhvGrup\¤FSuprStrnCanvas HInsGrup,¤GnameStrnPaint CompStrnsorcGrupð¤HEncoInt srclStrnSub Paint(g As Graphics)srclStrn5// Set color to Canvas2 to that of selected NEW color srclStrn$Canvas2.graphics.forecolor=fillcolorsrclStrn&Canvas2.graphics.fillrect 0, 0, 30, 20 srclStrnEnd Sub EndGInt ¤HEndGInt ¤GEndGInt ¤FCBhvGrup¤ISuprStrnComboBoxHInsGrupؤJnameStrnChange CompStrnsorcGrupœ¤KEncoInt srclStrn Sub Change()srclStrn.// Select the Line Thickness then add 1 to it. srclStrnThickness=me.listindex+1srclStrnEnd Sub EndGInt ¤KEndGInt ¤JEndGInt ¤ICBhvGrup¤LSuprStrn StaticText EndGInt ¤LCBhvGrupĤMSuprStrn PushButton HInsGrup¤NnameStrnAction CompStrnsorcGrupT¤OEncoInt srclStrn Sub Action()srclStrn Self.Close srclStrnEnd Sub EndGInt ¤OEndGInt ¤NEndGInt ¤MCBhvGrupȤPSuprStrn PushButton HInsGrup”¤QnameStrnAction CompStrnsorcGrupX¤REncoInt srclStrn Sub Action()srclStrnHelp.Showmodal srclStrnEnd Sub EndGInt ¤REndGInt ¤QEndGInt ¤PCtrlGrup¤ScclsStrn Rectangle nameStrn Rectangle PDefGrup8¤TnameStrn InitialParent EncoInt PValStrnEndGInt ¤TPDefGrup,¤UnameStrnBottomRightColorPValInt EndGInt ¤UPDefGrup(¤VnameStrn TopLeftColorPValInt EndGInt ¤VPDefGrup(¤WnameStrn BorderWidth PValInt EndGInt ¤WPDefGrup(¤XnameStrn FillColor PValInt €€€EndGInt ¤XPDefGrup(¤YnameStrnEnabled PValStrnTrueEndGInt ¤YPDefGrup0¤ZnameStrnAutoDeactivate PValStrnTrueEndGInt ¤ZPDefGrup0¤[nameStrnHelpTag EncoInt PValStrnEndGInt ¤[PDefGrup(¤\nameStrnVisible PValStrnTrueEndGInt ¤\PDefGrup,¤]nameStrn TabPanelIndex PValInt EndGInt ¤]PDefGrup,¤^nameStrn LockBottom PValStrnTrueEndGInt ¤^PDefGrup,¤_nameStrn LockRight PValStrnTrueEndGInt ¤_PDefGrup(¤`nameStrnLockTop PValStrnTrueEndGInt ¤`PDefGrup(¤anameStrnLockLeftPValStrnTrueEndGInt ¤aPDefGrup$¤bnameStrnHeight PValInt ,EndGInt ¤bPDefGrup$¤cnameStrnWidth PValInt EndGInt ¤cPDefGrup ¤dnameStrnTop PValInt EndGInt ¤dPDefGrup ¤enameStrnLeftPValInt EndGInt ¤ePDefGrup8¤fnameStrn ControlOrderEncoInt PValStrn0 EndGInt ¤fPDefGrup<¤gnameStrnSuper EncoInt PValStrn Rectangle EndGInt ¤gPDefGrup$¤hnameStrnIndex PValInt €EndGInt ¤hPDefGrup8¤inameStrnNameEncoInt PValStrn Rectangle1 EndGInt ¤iCBixInt EndGInt ¤SCtrlGrupX¤jcclsStrnCanvas nameStrnCanvas PDefGrupD¤knameStrn InitialParent EncoInt PValStrn Rectangle1 EndGInt ¤kPDefGrup0¤lnameStrnEraseBackground PValStrnTrueEndGInt ¤lPDefGrup0¤mnameStrn AcceptTabs PValStrnFalse EndGInt ¤mPDefGrup,¤nnameStrn AcceptFocus PValStrnTrueEndGInt ¤nPDefGrup(¤onameStrnBackdropPValStrn0 EndGInt ¤oPDefGrup,¤pnameStrn UseFocusRingPValStrnTrueEndGInt ¤pPDefGrup(¤qnameStrnEnabled PValStrnTrueEndGInt ¤qPDefGrup0¤rnameStrnAutoDeactivate PValStrnTrueEndGInt ¤rPDefGrup0¤snameStrnHelpTag EncoInt PValStrnEndGInt ¤sPDefGrup(¤tnameStrnVisible PValStrnTrueEndGInt ¤tPDefGrup,¤unameStrn TabPanelIndex PValInt EndGInt ¤uPDefGrup,¤vnameStrn LockBottom PValStrnTrueEndGInt ¤vPDefGrup,¤wnameStrn LockRight PValStrnTrueEndGInt ¤wPDefGrup(¤xnameStrnLockTop PValStrnTrueEndGInt ¤xPDefGrup(¤ynameStrnLockLeftPValStrnTrueEndGInt ¤yPDefGrup$¤znameStrnHeight PValInt (EndGInt ¤zPDefGrup$¤{nameStrnWidth PValInt ŒEndGInt ¤{PDefGrup ¤|nameStrnTop PValInt EndGInt ¤|PDefGrup ¤}nameStrnLeftPValInt EndGInt ¤}PDefGrup8¤~nameStrn ControlOrderEncoInt PValStrn1 EndGInt ¤~PDefGrup8¤nameStrnSuper EncoInt PValStrnCanvas EndGInt ¤PDefGrup$¤€nameStrnIndex PValInt €EndGInt ¤€PDefGrup4¤nameStrnNameEncoInt PValStrnCanvas1 EndGInt ¤CBixInt EndGInt ¤jCtrlGrup<¤‚cclsStrn PushButton nameStrn PushButton PDefGrup8¤ƒnameStrn InitialParent EncoInt PValStrnEndGInt ¤ƒPDefGrup0¤„nameStrn 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 ¤ŒPDefGrup,¤nameStrnCancel PValStrnFalse EndGInt ¤PDefGrup,¤ŽnameStrnDefault PValStrnFalse EndGInt ¤ŽPDefGrup8¤nameStrnCaption EncoInt PValStrnFreehandEndGInt ¤PDefGrup,¤nameStrn TabPanelIndex PValInt EndGInt ¤PDefGrup0¤‘nameStrn LockBottom PValStrnFalse EndGInt ¤‘PDefGrup,¤’nameStrn LockRight PValStrnTrueEndGInt ¤’PDefGrup(¤“nameStrnLockTop PValStrnTrueEndGInt ¤“PDefGrup,¤”nameStrnLockLeftPValStrnFalse EndGInt ¤”PDefGrup$¤•nameStrnHeight PValInt EndGInt ¤•PDefGrup$¤–nameStrnWidth PValInt PEndGInt ¤–PDefGrup ¤—nameStrnTop PValInt EndGInt ¤—PDefGrup ¤˜nameStrnLeftPValInt šEndGInt ¤˜PDefGrup8¤™nameStrn ControlOrderEncoInt PValStrn2 EndGInt ¤™PDefGrup<¤šnameStrnSuper EncoInt PValStrn PushButton EndGInt ¤šPDefGrup$¤›nameStrnIndex PValInt €EndGInt ¤›PDefGrup8¤œnameStrnNameEncoInt PValStrn dFreehandB EndGInt ¤œCBixInt EndGInt ¤‚CtrlGrup4¤cclsStrn PushButton nameStrn PushButton PDefGrup8¤žnameStrn InitialParent EncoInt PValStrnEndGInt ¤žPDefGrup0¤ŸnameStrn 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 ¤§PDefGrup,¤¨nameStrnCancel PValStrnFalse EndGInt ¤¨PDefGrup,¤©nameStrnDefault PValStrnFalse EndGInt ¤©PDefGrup4¤ªnameStrnCaption EncoInt PValStrnLineEndGInt ¤ªPDefGrup,¤«nameStrn TabPanelIndex PValInt EndGInt ¤«PDefGrup0¤¬nameStrn LockBottom PValStrnFalse EndGInt ¤¬PDefGrup,¤­nameStrn LockRight PValStrnTrueEndGInt ¤­PDefGrup(¤®nameStrnLockTop PValStrnTrueEndGInt ¤®PDefGrup,¤¯nameStrnLockLeftPValStrnFalse EndGInt ¤¯PDefGrup$¤°nameStrnHeight PValInt EndGInt ¤°PDefGrup$¤±nameStrnWidth PValInt PEndGInt ¤±PDefGrup ¤²nameStrnTop PValInt )EndGInt ¤²PDefGrup ¤³nameStrnLeftPValInt šEndGInt ¤³PDefGrup8¤´nameStrn ControlOrderEncoInt PValStrn3 EndGInt ¤´PDefGrup<¤µnameStrnSuper EncoInt PValStrn PushButton EndGInt ¤µPDefGrup$¤¶nameStrnIndex PValInt €EndGInt ¤¶PDefGrup4¤·nameStrnNameEncoInt PValStrndLineB EndGInt ¤·CBixInt EndGInt ¤CtrlGrup@¤¸cclsStrn PushButton nameStrn PushButton PDefGrup8¤¹nameStrn InitialParent EncoInt PValStrnEndGInt ¤¹PDefGrup0¤ºnameStrn 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 ¤ÂPDefGrup,¤ÃnameStrnCancel PValStrnFalse EndGInt ¤ÃPDefGrup,¤ÄnameStrnDefault PValStrnFalse EndGInt ¤ÄPDefGrup<¤ÅnameStrnCaption EncoInt PValStrn Rectangle EndGInt ¤ÅPDefGrup,¤ÆnameStrn TabPanelIndex PValInt EndGInt ¤ÆPDefGrup0¤ÇnameStrn LockBottom PValStrnFalse EndGInt ¤ÇPDefGrup,¤ÈnameStrn LockRight PValStrnTrueEndGInt ¤ÈPDefGrup(¤ÉnameStrnLockTop PValStrnTrueEndGInt ¤ÉPDefGrup,¤ÊnameStrnLockLeftPValStrnFalse EndGInt ¤ÊPDefGrup$¤ËnameStrnHeight PValInt EndGInt ¤ËPDefGrup$¤ÌnameStrnWidth PValInt PEndGInt ¤ÌPDefGrup ¤ÍnameStrnTop PValInt KEndGInt ¤ÍPDefGrup ¤ÎnameStrnLeftPValInt šEndGInt ¤ÎPDefGrup8¤ÏnameStrn ControlOrderEncoInt PValStrn4 EndGInt ¤ÏPDefGrup<¤ÐnameStrnSuper EncoInt PValStrn PushButton EndGInt ¤ÐPDefGrup$¤ÑnameStrnIndex PValInt €EndGInt ¤ÑPDefGrup8¤ÒnameStrnNameEncoInt PValStrn dRectangleB EndGInt ¤ÒCBixInt EndGInt ¤¸CtrlGrup<¤ÓcclsStrn PushButton nameStrn PushButton PDefGrup8¤ÔnameStrn InitialParent EncoInt PValStrnEndGInt ¤ÔPDefGrup0¤ÕnameStrn 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 ¤ÝPDefGrup,¤ÞnameStrnCancel PValStrnFalse EndGInt ¤ÞPDefGrup,¤ßnameStrnDefault PValStrnFalse EndGInt ¤ßPDefGrup8¤ànameStrnCaption EncoInt PValStrnTriangleEndGInt ¤àPDefGrup,¤ánameStrn TabPanelIndex PValInt EndGInt ¤áPDefGrup0¤ânameStrn LockBottom PValStrnFalse EndGInt ¤âPDefGrup,¤ãnameStrn LockRight PValStrnTrueEndGInt ¤ãPDefGrup(¤änameStrnLockTop PValStrnTrueEndGInt ¤äPDefGrup,¤ånameStrnLockLeftPValStrnFalse EndGInt ¤åPDefGrup$¤ænameStrnHeight PValInt EndGInt ¤æPDefGrup$¤çnameStrnWidth PValInt PEndGInt ¤çPDefGrup ¤ènameStrnTop PValInt mEndGInt ¤èPDefGrup ¤énameStrnLeftPValInt šEndGInt ¤éPDefGrup8¤ênameStrn ControlOrderEncoInt PValStrn5 EndGInt ¤êPDefGrup<¤ënameStrnSuper EncoInt PValStrn PushButton EndGInt ¤ëPDefGrup$¤ìnameStrnIndex PValInt €EndGInt ¤ìPDefGrup8¤ínameStrnNameEncoInt PValStrn dTriangleB EndGInt ¤íCBixInt EndGInt ¤ÓCtrlGrup8¤îcclsStrn PushButton nameStrn PushButton PDefGrup8¤ïnameStrn InitialParent EncoInt PValStrnEndGInt ¤ïPDefGrup0¤ðnameStrn 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 ¤øPDefGrup,¤ùnameStrnCancel PValStrnFalse EndGInt ¤ùPDefGrup,¤únameStrnDefault PValStrnFalse EndGInt ¤úPDefGrup8¤ûnameStrnCaption EncoInt PValStrnCircle EndGInt ¤ûPDefGrup,¤ünameStrn TabPanelIndex PValInt EndGInt ¤üPDefGrup0¤ýnameStrn LockBottom PValStrnFalse EndGInt ¤ýPDefGrup,¤þnameStrn LockRight PValStrnTrueEndGInt ¤þPDefGrup(¤ÿnameStrnLockTop PValStrnTrueEndGInt ¤ÿPDefGrup,¥nameStrnLockLeftPValStrnFalse EndGInt ¥PDefGrup$¥nameStrnHeight PValInt EndGInt ¥PDefGrup$¥nameStrnWidth PValInt PEndGInt ¥PDefGrup ¥nameStrnTop PValInt EndGInt ¥PDefGrup ¥nameStrnLeftPValInt šEndGInt ¥PDefGrup8¥nameStrn ControlOrderEncoInt PValStrn6 EndGInt ¥PDefGrup<¥nameStrnSuper EncoInt PValStrn PushButton EndGInt ¥PDefGrup$¥nameStrnIndex PValInt €EndGInt ¥PDefGrup4¥nameStrnNameEncoInt PValStrndCircleBEndGInt ¥CBixInt EndGInt ¤îCtrlGrup@¥ cclsStrn PushButton nameStrn PushButton PDefGrup8¥ nameStrn InitialParent EncoInt PValStrnEndGInt ¥ PDefGrup0¥ nameStrn 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 ¥PDefGrup,¥nameStrnCancel PValStrnFalse EndGInt ¥PDefGrup,¥nameStrnDefault PValStrnFalse EndGInt ¥PDefGrup@¥nameStrnCaption EncoInt PValStrnLine/Fill Color EndGInt ¥PDefGrup,¥nameStrn TabPanelIndex PValInt EndGInt ¥PDefGrup,¥nameStrn LockBottom PValStrnTrueEndGInt ¥PDefGrup0¥nameStrn LockRight PValStrnFalse EndGInt ¥PDefGrup,¥nameStrnLockTop PValStrnFalse EndGInt ¥PDefGrup(¥nameStrnLockLeftPValStrnTrueEndGInt ¥PDefGrup$¥nameStrnHeight PValInt EndGInt ¥PDefGrup$¥nameStrnWidth PValInt dEndGInt ¥PDefGrup ¥nameStrnTop PValInt 9EndGInt ¥PDefGrup ¥nameStrnLeftPValInt EndGInt ¥PDefGrup8¥ nameStrn ControlOrderEncoInt PValStrn7 EndGInt ¥ PDefGrup<¥!nameStrnSuper EncoInt PValStrn PushButton EndGInt ¥!PDefGrup$¥"nameStrnIndex PValInt €EndGInt ¥"PDefGrup4¥#nameStrnNameEncoInt PValStrndColorB EndGInt ¥#CBixInt EndGInt ¥ CtrlGrup8¥$cclsStrn PushButton nameStrn PushButton PDefGrup8¥%nameStrn InitialParent EncoInt PValStrnEndGInt ¥%PDefGrup0¥&nameStrn 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 ¥.PDefGrup,¥/nameStrnCancel PValStrnFalse EndGInt ¥/PDefGrup,¥0nameStrnDefault PValStrnFalse EndGInt ¥0PDefGrup8¥1nameStrnCaption EncoInt PValStrnHas FillEndGInt ¥1PDefGrup,¥2nameStrn TabPanelIndex PValInt EndGInt ¥2PDefGrup,¥3nameStrn LockBottom PValStrnTrueEndGInt ¥3PDefGrup0¥4nameStrn LockRight PValStrnFalse EndGInt ¥4PDefGrup,¥5nameStrnLockTop PValStrnFalse EndGInt ¥5PDefGrup(¥6nameStrnLockLeftPValStrnTrueEndGInt ¥6PDefGrup$¥7nameStrnHeight PValInt EndGInt ¥7PDefGrup$¥8nameStrnWidth PValInt EEndGInt ¥8PDefGrup ¥9nameStrnTop PValInt 9EndGInt ¥9PDefGrup ¥:nameStrnLeftPValInt £EndGInt ¥:PDefGrup8¥;nameStrn ControlOrderEncoInt PValStrn8 EndGInt ¥;PDefGrup<¥nameStrnNameEncoInt PValStrndFillB EndGInt ¥>CBixInt EndGInt ¥$CtrlGrup4¥?cclsStrn PushButton nameStrn PushButton PDefGrup8¥@nameStrn InitialParent EncoInt PValStrnEndGInt ¥@PDefGrup0¥AnameStrn Underline PValStrnFalse EndGInt ¥APDefGrup,¥BnameStrnItalic PValStrnFalse EndGInt ¥BPDefGrup(¥CnameStrnBoldPValStrnFalse EndGInt ¥CPDefGrup$¥DnameStrnTextSizePValInt EndGInt ¥DPDefGrup8¥EnameStrnTextFontEncoInt PValStrnSystem EndGInt ¥EPDefGrup0¥FnameStrnAutoDeactivate PValStrnTrueEndGInt ¥FPDefGrup0¥GnameStrnHelpTag EncoInt PValStrnEndGInt ¥GPDefGrup(¥HnameStrnVisible PValStrnTrueEndGInt ¥HPDefGrup(¥InameStrnEnabled PValStrnTrueEndGInt ¥IPDefGrup,¥JnameStrnCancel PValStrnFalse EndGInt ¥JPDefGrup,¥KnameStrnDefault PValStrnFalse EndGInt ¥KPDefGrup4¥LnameStrnCaption EncoInt PValStrnTextEndGInt ¥LPDefGrup,¥MnameStrn TabPanelIndex PValInt EndGInt ¥MPDefGrup0¥NnameStrn LockBottom PValStrnFalse EndGInt ¥NPDefGrup,¥OnameStrn LockRight PValStrnTrueEndGInt ¥OPDefGrup(¥PnameStrnLockTop PValStrnTrueEndGInt ¥PPDefGrup,¥QnameStrnLockLeftPValStrnFalse EndGInt ¥QPDefGrup$¥RnameStrnHeight PValInt EndGInt ¥RPDefGrup$¥SnameStrnWidth PValInt PEndGInt ¥SPDefGrup ¥TnameStrnTop PValInt ±EndGInt ¥TPDefGrup ¥UnameStrnLeftPValInt šEndGInt ¥UPDefGrup8¥VnameStrn ControlOrderEncoInt PValStrn9 EndGInt ¥VPDefGrup<¥WnameStrnSuper EncoInt PValStrn PushButton EndGInt ¥WPDefGrup$¥XnameStrnIndex PValInt €EndGInt ¥XPDefGrup4¥YnameStrnNameEncoInt PValStrndTextB EndGInt ¥YCBixInt EndGInt ¥?CtrlGrupX¥ZcclsStrnCanvas nameStrnCanvas PDefGrup8¥[nameStrn InitialParent EncoInt PValStrnEndGInt ¥[PDefGrup0¥\nameStrnEraseBackground PValStrnTrueEndGInt ¥\PDefGrup0¥]nameStrn AcceptTabs PValStrnFalse EndGInt ¥]PDefGrup0¥^nameStrn AcceptFocus PValStrnFalse EndGInt ¥^PDefGrup(¥_nameStrnBackdropPValStrn0 EndGInt ¥_PDefGrup,¥`nameStrn UseFocusRingPValStrnTrueEndGInt ¥`PDefGrup(¥anameStrnEnabled PValStrnTrueEndGInt ¥aPDefGrup0¥bnameStrnAutoDeactivate PValStrnTrueEndGInt ¥bPDefGrup0¥cnameStrnHelpTag EncoInt PValStrnEndGInt ¥cPDefGrup(¥dnameStrnVisible PValStrnTrueEndGInt ¥dPDefGrup,¥enameStrn TabPanelIndex PValInt EndGInt ¥ePDefGrup,¥fnameStrn LockBottom PValStrnTrueEndGInt ¥fPDefGrup0¥gnameStrn LockRight PValStrnFalse EndGInt ¥gPDefGrup,¥hnameStrnLockTop PValStrnFalse EndGInt ¥hPDefGrup(¥inameStrnLockLeftPValStrnTrueEndGInt ¥iPDefGrup$¥jnameStrnHeight PValInt EndGInt ¥jPDefGrup$¥knameStrnWidth PValInt EndGInt ¥kPDefGrup ¥lnameStrnTop PValInt 9EndGInt ¥lPDefGrup ¥mnameStrnLeftPValInt yEndGInt ¥mPDefGrup8¥nnameStrn ControlOrderEncoInt PValStrn10 EndGInt ¥nPDefGrup8¥onameStrnSuper EncoInt PValStrnCanvas EndGInt ¥oPDefGrup$¥pnameStrnIndex PValInt €EndGInt ¥pPDefGrup4¥qnameStrnNameEncoInt PValStrnCanvas2 EndGInt ¥qCBixInt EndGInt ¥ZCtrlGrup ¥rcclsStrnComboBoxnameStrnComboBoxPDefGrup8¥snameStrn InitialParent EncoInt PValStrnEndGInt ¥sPDefGrup(¥tnameStrn AutoCompletePValStrnEndGInt ¥tPDefGrup4¥unameStrn DataField EncoInt PValStrnEndGInt ¥uPDefGrup4¥vnameStrn DataSource EncoInt PValStrnEndGInt ¥vPDefGrup0¥wnameStrn Underline PValStrnFalse EndGInt ¥wPDefGrup,¥xnameStrnItalic PValStrnFalse EndGInt ¥xPDefGrup(¥ynameStrnBoldPValStrnFalse EndGInt ¥yPDefGrup$¥znameStrnTextSizePValInt EndGInt ¥zPDefGrup8¥{nameStrnTextFontEncoInt PValStrnSystem EndGInt ¥{PDefGrup0¥|nameStrnAutoDeactivate PValStrnTrueEndGInt ¥|PDefGrup0¥}nameStrnHelpTag EncoInt PValStrnEndGInt ¥}PDefGrup(¥~nameStrnVisible PValStrnTrueEndGInt ¥~PDefGrup,¥nameStrn UseFocusRingPValStrnTrueEndGInt ¥PDefGrup(¥€nameStrn ListIndex PValInt EndGInt ¥€PDefGrupT¥nameStrn InitialValueEncoInt PValStrn1 2 3 4 5 6 7 8 9 10 EndGInt ¥PDefGrup(¥‚nameStrnEnabled PValStrnTrueEndGInt ¥‚PDefGrup,¥ƒnameStrn TabPanelIndex PValInt EndGInt ¥ƒPDefGrup,¥„nameStrn LockBottom PValStrnTrueEndGInt ¥„PDefGrup0¥…nameStrn LockRight PValStrnFalse EndGInt ¥…PDefGrup,¥†nameStrnLockTop PValStrnFalse EndGInt ¥†PDefGrup(¥‡nameStrnLockLeftPValStrnTrueEndGInt ¥‡PDefGrup$¥ˆnameStrnHeight PValInt EndGInt ¥ˆPDefGrup$¥‰nameStrnWidth PValInt (EndGInt ¥‰PDefGrup ¥ŠnameStrnTop PValInt 9EndGInt ¥ŠPDefGrup ¥‹nameStrnLeftPValInt ZEndGInt ¥‹PDefGrup8¥ŒnameStrn ControlOrderEncoInt PValStrn11 EndGInt ¥ŒPDefGrup8¥nameStrnSuper EncoInt PValStrnComboBoxEndGInt ¥PDefGrup$¥ŽnameStrnIndex PValInt €EndGInt ¥ŽPDefGrup8¥nameStrnNameEncoInt PValStrn dThickness EndGInt ¥CBixInt EndGInt ¥rCtrlGrup¥cclsStrn StaticText nameStrn StaticText PDefGrup8¥‘nameStrn InitialParent EncoInt PValStrnEndGInt ¥‘PDefGrup4¥’nameStrn DataField EncoInt PValStrnEndGInt ¥’PDefGrup4¥“nameStrn DataSource EncoInt PValStrnEndGInt ¥“PDefGrup0¥”nameStrn 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 ¥ŸPDefGrup@¥ nameStrnTextEncoInt PValStrnLine Size/Thickness:EndGInt ¥ PDefGrup,¥¡nameStrn TabPanelIndex PValInt EndGInt ¥¡PDefGrup,¥¢nameStrn LockBottom PValStrnTrueEndGInt ¥¢PDefGrup0¥£nameStrn LockRight PValStrnFalse EndGInt ¥£PDefGrup,¥¤nameStrnLockTop PValStrnFalse EndGInt ¥¤PDefGrup(¥¥nameStrnLockLeftPValStrnTrueEndGInt ¥¥PDefGrup$¥¦nameStrnHeight PValInt EndGInt ¥¦PDefGrup$¥§nameStrnWidth PValInt `EndGInt ¥§PDefGrup ¥¨nameStrnTop PValInt 9EndGInt ¥¨PDefGrup ¥©nameStrnLeftPValInt ôEndGInt ¥©PDefGrup8¥ªnameStrn ControlOrderEncoInt PValStrn12 EndGInt ¥ªPDefGrup<¥«nameStrnSuper EncoInt PValStrn StaticText EndGInt ¥«PDefGrup$¥¬nameStrnIndex PValInt €EndGInt ¥¬PDefGrup8¥­nameStrnNameEncoInt PValStrn StaticText1 EndGInt ¥­CBixInt EndGInt ¥CtrlGrup<¥®cclsStrn PushButton nameStrn PushButton PDefGrup8¥¯nameStrn InitialParent EncoInt PValStrnEndGInt ¥¯PDefGrup0¥°nameStrn 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 ¥¸PDefGrup,¥¹nameStrnCancel PValStrnFalse EndGInt ¥¹PDefGrup,¥ºnameStrnDefault PValStrnFalse EndGInt ¥ºPDefGrup<¥»nameStrnCaption EncoInt PValStrn Exit/Quit EndGInt ¥»PDefGrup,¥¼nameStrn TabPanelIndex PValInt EndGInt ¥¼PDefGrup0¥½nameStrn LockBottom PValStrnFalse EndGInt ¥½PDefGrup,¥¾nameStrn LockRight PValStrnTrueEndGInt ¥¾PDefGrup(¥¿nameStrnLockTop PValStrnTrueEndGInt ¥¿PDefGrup,¥ÀnameStrnLockLeftPValStrnFalse EndGInt ¥ÀPDefGrup$¥ÁnameStrnHeight PValInt EndGInt ¥ÁPDefGrup$¥ÂnameStrnWidth PValInt PEndGInt ¥ÂPDefGrup ¥ÃnameStrnTop PValInt EndGInt ¥ÃPDefGrup ¥ÄnameStrnLeftPValInt šEndGInt ¥ÄPDefGrup8¥ÅnameStrn ControlOrderEncoInt PValStrn13 EndGInt ¥ÅPDefGrup<¥ÆnameStrnSuper EncoInt PValStrn PushButton EndGInt ¥ÆPDefGrup$¥ÇnameStrnIndex PValInt €EndGInt ¥ÇPDefGrup4¥ÈnameStrnNameEncoInt PValStrnCancelB EndGInt ¥ÈCBixInt EndGInt ¥®CtrlGrup4¥ÉcclsStrn PushButton nameStrn PushButton PDefGrup8¥ÊnameStrn InitialParent EncoInt PValStrnEndGInt ¥ÊPDefGrup0¥ËnameStrn 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 ¥ÓPDefGrup,¥ÔnameStrnCancel PValStrnFalse EndGInt ¥ÔPDefGrup,¥ÕnameStrnDefault PValStrnFalse EndGInt ¥ÕPDefGrup4¥ÖnameStrnCaption EncoInt PValStrnHelpEndGInt ¥ÖPDefGrup,¥×nameStrn TabPanelIndex PValInt EndGInt ¥×PDefGrup0¥ØnameStrn LockBottom PValStrnFalse EndGInt ¥ØPDefGrup,¥ÙnameStrn LockRight PValStrnTrueEndGInt ¥ÙPDefGrup(¥ÚnameStrnLockTop PValStrnTrueEndGInt ¥ÚPDefGrup,¥ÛnameStrnLockLeftPValStrnFalse EndGInt ¥ÛPDefGrup$¥ÜnameStrnHeight PValInt EndGInt ¥ÜPDefGrup$¥ÝnameStrnWidth PValInt PEndGInt ¥ÝPDefGrup ¥ÞnameStrnTop PValInt üEndGInt ¥ÞPDefGrup ¥ßnameStrnLeftPValInt šEndGInt ¥ßPDefGrup8¥ànameStrn ControlOrderEncoInt PValStrn14 EndGInt ¥àPDefGrup<¥ánameStrnSuper EncoInt PValStrn PushButton EndGInt ¥áPDefGrup$¥ânameStrnIndex PValInt €EndGInt ¥âPDefGrup4¥ãnameStrnNameEncoInt PValStrnHelpB EndGInt ¥ãCBixInt EndGInt ¥ÉPadnPadnà****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpMnu¿D—÷NameStrnMenuBar1ContInt paswStrnMItmGrupˆ¥äspmuInt nameStrn UntitledMenu1 textStrnindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥äMItmGrupÐ¥åspmuInt nameStrnFileMenutextStrnFileindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup„¥æspmuInt nameStrnFileNew textStrnNew indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥æMItmGrup„¥çspmuInt nameStrnFileOpentextStrnOpenindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥çMItmGrup„¥èspmuInt nameStrnFileSavetextStrnSaveindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥èMItmGrup¥éspmuInt nameStrn FileSaveAs textStrn Save As... indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥éMItmGrupˆ¥êspmuInt nameStrn UntitledItemtextStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥êMItmGrupˆ¥ëspmuInt nameStrnFileQuittextStrnExitindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrn QuitMenuItemEndGInt ¥ëMItmGrupx¥ìspmuInt nameStrntextStrnindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥ìEndGInt ¥åMItmGrup ¥íspmuInt nameStrnEditMenutextStrnEditindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup„¥îspmuInt nameStrnEditUndotextStrnUndoindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥îMItmGrupŒ¥ïspmuInt nameStrn UntitledMenu0 textStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥ïMItmGrup„¥ðspmuInt nameStrnEditCut textStrnCut indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥ðMItmGrup„¥ñspmuInt nameStrnEditCopytextStrnCopyindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥ñMItmGrupŒ¥òspmuInt nameStrn EditPaste textStrnPaste indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥òMItmGrupˆ¥óspmuInt nameStrn UntitledItemtextStrn- indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥óMItmGrupŒ¥ôspmuInt nameStrn EditClear textStrnClear indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥ôMItmGrupx¥õspmuInt nameStrntextStrnindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥õMItmGrup€¥öspmuInt nameStrntextStrnindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrn AppleMenuItem EndGInt ¥öEndGInt ¥íMItmGrupè¥÷spmuInt nameStrnHelpMenutextStrnHelpindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemMItmGrup”¥øspmuInt nameStrnHelpHelptextStrnDrawIt! 2006 Help indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥øMItmGrup ¥ùspmuInt nameStrnHelpAboutDrawIt2006 textStrnAbout DrawIt! 2006 indxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥ùEndGInt ¥÷MItmGrupx¥úspmuInt nameStrntextStrnindxInt €scutStrnmaEnInt EncoInt flagInt SuprStrnMenuItemEndGInt ¥úPadnPadnl****************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpObj¿D—öNameStrnApp ContInt paswStrnbClsInt SuprStrn Application bNtrInt bApOInt CompStrnHInsGrup¬¥ûnameStrnOpenCompStrnsorcGrupt¥üEncoInt srclStrn Sub Open() srclStrn app.tsize=8 srclStrnapp.tfont="Arial" srclStrnEnd Sub EndGInt ¥üEndGInt ¥ûPropGrup¤¥ýEncoInt declStrntunderline As Boolean flagInt sorcGrupL¥þEncoInt srclStrntunderline As Boolean srclStrnsrclStrnEndGInt ¥þEndGInt ¥ýPropGrup”¥ÿEncoInt declStrntentry As StringflagInt sorcGrupD¦EncoInt srclStrntentry As StringsrclStrnsrclStrnEndGInt ¦EndGInt ¥ÿPropGrup”¦EncoInt declStrntbold As BooleanflagInt sorcGrupD¦EncoInt srclStrntbold As BooleansrclStrnsrclStrnEndGInt ¦EndGInt ¦PropGrup”¦EncoInt declStrntsize As IntegerflagInt sorcGrupD¦EncoInt srclStrntsize As IntegersrclStrnsrclStrnEndGInt ¦EndGInt ¦PropGrup”¦EncoInt declStrntfont As String flagInt sorcGrupD¦EncoInt srclStrntfont As String srclStrnsrclStrnEndGInt ¦EndGInt ¦PropGrupœ¦EncoInt declStrntitalic As Boolean flagInt sorcGrupH¦EncoInt srclStrntitalic As Boolean srclStrnsrclStrnEndGInt ¦EndGInt ¦PDefGrup$¦ nameStrnMenuBar PValInt ¿D—÷EndGInt ¦ VwBhGrupঠVwPrGrup@¦ NameStrn tunderline PrGpStrnBehaviorPValStrn0 EndGInt ¦ VwPrGrup,¦ NameStrntentry PrGpStrnBehaviorEndGInt ¦ VwPrGrup<¦ NameStrntbold PrGpStrnBehaviorPValStrn0 EndGInt ¦ VwPrGrup<¦NameStrntsize PrGpStrnBehaviorPValStrn0 EndGInt ¦VwPrGrup,¦NameStrntfont PrGpStrnBehaviorEndGInt ¦VwPrGrup<¦NameStrntitalic PrGpStrnBehaviorPValStrn0 EndGInt ¦EndGInt ¦ PadnPadnL****************************************************************************BlokpCurºé¢ÿNameStrnCrosshairCursor ContInt paswStrndataStrnDÿþPadnPadnP********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew¿#Û ¨NameStrn TextWindow ContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnPDefGrup(¦nameStrnMenuBar PValStrn0 EndGInt ¦PDefGrup(¦nameStrn MacProcID PValInt EndGInt ¦PDefGrup4¦nameStrn BalloonHelp EncoInt PValStrnEndGInt ¦PDefGrup0¦nameStrnMinimizeButton PValStrnTrueEndGInt ¦PDefGrup4¦nameStrnMaximizeButton PValStrnFalse EndGInt ¦PDefGrup0¦nameStrn LiveResize PValStrnFalse EndGInt ¦PDefGrup0¦nameStrn Resizeable PValStrnFalse EndGInt ¦PDefGrup,¦nameStrn CloseButton PValStrnTrueEndGInt ¦PDefGrup0¦nameStrnMenuBarVisible PValStrnTrueEndGInt ¦PDefGrup0¦nameStrn FullScreen PValStrnFalse EndGInt ¦PDefGrup(¦nameStrnVisible PValStrnTrueEndGInt ¦PDefGrup<¦nameStrnTitle EncoInt PValStrn Text Entry EndGInt ¦PDefGrup(¦nameStrnBackdropPValStrn0 EndGInt ¦PDefGrup(¦nameStrn BackColor PValInt ÿÿÿEndGInt ¦PDefGrup0¦nameStrn HasBackColorPValStrnFalse EndGInt ¦PDefGrup0¦ nameStrn 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 l¦)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¦0NameStrnMinWidthVsblInt PrGpStrnPositionPValStrn64 EndGInt ¦0VwPrGrupL¦1NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt ¦1VwPrGrupL¦2NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt ¦2VwPrGrupP¦3NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt ¦3VwPrGrupL¦4NameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EndGInt ¦4VwPrGrupT¦5NameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¦5VwPrGrupT¦6NameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¦6VwPrGrupT¦7NameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt ¦7VwPrGrup<¦8NameStrnBackdropVsblInt PrGpStrn Appearance EndGInt ¦8VwPrGrupP¦9NameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt ¦9VwPrGrupL¦:NameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ¦:VwPrGrupT¦;NameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¦;VwPrGrupT¦NameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¦>VwPrGrupT¦?NameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¦?VwPrGrupX¦@NameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¦@VwPrGrupT¦ANameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ¦AVwPrGrup@¦BNameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt ¦BVwPrGrupP¦CNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt ¦CVwPrGrup<¦DNameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt ¦DEndGInt ¦)CBhvGrupȦESuprStrn EditField HInsGrup”¦FnameStrnOpenCompStrnsorcGrup\¦GEncoInt srclStrn Sub Open() srclStrnme.text=app.tentry srclStrnEnd Sub EndGInt ¦GEndGInt ¦FEndGInt ¦ECBhvGrup¦HSuprStrn StaticText EndGInt ¦HCBhvGrupĦISuprStrnCheckBoxHInsGrup”¦JnameStrnOpenCompStrnsorcGrup\¦KEncoInt srclStrn Sub Open() srclStrnme.value=app.tbold srclStrnEnd Sub EndGInt ¦KEndGInt ¦JEndGInt ¦ICBhvGrupĦLSuprStrnCheckBoxHInsGrup”¦MnameStrnOpenCompStrnsorcGrup\¦NEncoInt srclStrn Sub Open() srclStrnme.value=app.titalicsrclStrnEnd Sub EndGInt ¦NEndGInt ¦MEndGInt ¦LCBhvGrupȦOSuprStrnCheckBoxHInsGrup˜¦PnameStrnOpenCompStrnsorcGrup`¦QEncoInt srclStrn Sub Open() srclStrnme.value=app.tunderline srclStrnEnd Sub EndGInt ¦QEndGInt ¦PEndGInt ¦OCBhvGrup¦RSuprStrnListbox HInsGrup0¦SnameStrnOpenCompStrnsorcGrupø¦TEncoInt srclStrn Sub Open() srclStrndim i, j, n as Integer srclStrnn = FontCount - 1 srclStrnfor i = 0 to n srclStrnme.addRow font(i) srclStrnnext srclStrnme.listIndex = jsrclStrnsrclStrnEnd Sub EndGInt ¦TEndGInt ¦SHInsGrupœ¦UnameStrnChange CompStrnsorcGrup`¦VEncoInt srclStrn Sub Change()srclStrnFontStyle.text=me.text srclStrnEnd Sub EndGInt ¦VEndGInt ¦UEndGInt ¦RCBhvGrup̦WSuprStrnListbox HInsGrupœ¦XnameStrnChange CompStrnsorcGrup`¦YEncoInt srclStrn Sub Change()srclStrnFontSize.text=me.text srclStrnEnd Sub EndGInt ¦YEndGInt ¦XEndGInt ¦WCBhvGrupì¦ZSuprStrn PushButton HInsGrup¸¦[nameStrnAction CompStrnsorcGrup|¦\EncoInt srclStrn Sub Action()srclStrn!app.tbold=TextWindow.bCheck.Value srclStrn#app.titalic=TextWindow.iCheck.Value srclStrn&app.tunderline=TextWindow.uCheck.Value srclStrn#app.tfont=TextWindow.FontStyle.text srclStrn'app.tsize=val(TextWindow.FontSize.text) srclStrn$app.tentry=TextWindow.TextEntry.textsrclStrn self.close srclStrnEnd Sub EndGInt ¦\EndGInt ¦[EndGInt ¦ZCBhvGrupȦ]SuprStrn EditField HInsGrup”¦^nameStrnOpenCompStrnsorcGrup\¦_EncoInt srclStrn Sub Open() srclStrnme.text=app.tfont srclStrnEnd Sub EndGInt ¦_EndGInt ¦^EndGInt ¦]CBhvGrup̦`SuprStrn EditField HInsGrup˜¦anameStrnOpenCompStrnsorcGrup`¦bEncoInt srclStrn Sub Open() srclStrnme.text=str(app.tsize) srclStrnEnd Sub EndGInt ¦bEndGInt ¦aEndGInt ¦`CBhvGrup̦cSuprStrn PushButton HInsGrup˜¦dnameStrnAction CompStrnsorcGrup\¦eEncoInt srclStrn Sub Action()srclStrnTextEntry.text="" srclStrnEnd Sub EndGInt ¦eEndGInt ¦dEndGInt ¦cCtrlGrupئfcclsStrn EditField nameStrn EditField PDefGrup<¦gnameStrnSuper EncoInt PValStrn EditField EndGInt ¦gPDefGrup<¦hnameStrnSuper EncoInt PValStrn EditField EndGInt ¦hPDefGrup8¦inameStrnNameEncoInt PValStrn TextEntry EndGInt ¦iPDefGrup<¦jnameStrnIndex EncoInt PValStrn -2147483648 EndGInt ¦jPDefGrup<¦knameStrn TabPanelIndex EncoInt PValStrn0 EndGInt ¦kPDefGrup4¦lnameStrnVisible EncoInt PValStrnTrueEndGInt ¦lPDefGrup0¦mnameStrnLeftEncoInt PValStrn5 EndGInt ¦mPDefGrup0¦nnameStrnTop EncoInt PValStrn25 EndGInt ¦nPDefGrup4¦onameStrnWidth EncoInt PValStrn290 EndGInt ¦oPDefGrup4¦pnameStrnHeight EncoInt PValStrn77 EndGInt ¦pPDefGrup8¦qnameStrn InitialParent EncoInt PValStrnEndGInt ¦qPDefGrup0¦rnameStrnHelpTag EncoInt PValStrnEndGInt ¦rPDefGrup4¦snameStrn BalloonHelp EncoInt PValStrnEndGInt ¦sPDefGrup<¦tnameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt ¦tPDefGrup<¦unameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt ¦uPDefGrup8¦vnameStrnLockLeftEncoInt PValStrnFalse EndGInt ¦vPDefGrup8¦wnameStrnLockTop EncoInt PValStrnFalse EndGInt ¦wPDefGrup<¦xnameStrn LockRight EncoInt PValStrnFalse EndGInt ¦xPDefGrup<¦ynameStrn LockBottom EncoInt PValStrnFalse EndGInt ¦yPDefGrup8¦znameStrnTextFontEncoInt PValStrnSystem EndGInt ¦zPDefGrup4¦{nameStrnTextSizeEncoInt PValStrn12 EndGInt ¦{PDefGrup4¦|nameStrnBoldEncoInt PValStrnFalse EndGInt ¦|PDefGrup8¦}nameStrnItalic EncoInt PValStrnFalse EndGInt ¦}PDefGrup<¦~nameStrn Underline EncoInt PValStrnFalse EndGInt ¦~PDefGrup4¦nameStrnBorder EncoInt PValStrnTrueEndGInt ¦PDefGrup8¦€nameStrn MultiLine EncoInt PValStrnTrueEndGInt ¦€PDefGrupD¦nameStrnScrollBarHorizontal EncoInt PValStrnFalse EndGInt ¦PDefGrup8¦‚nameStrn ScrollBar EncoInt PValStrnTrueEndGInt ¦‚PDefGrup@¦ƒnameStrnScrollBarVertical EncoInt PValStrnTrueEndGInt ¦ƒPDefGrup8¦„nameStrnStyled EncoInt PValStrnFalse EndGInt ¦„PDefGrup8¦…nameStrnPasswordEncoInt PValStrnFalse EndGInt ¦…PDefGrup8¦†nameStrn UseFocusRingEncoInt PValStrnTrueEndGInt ¦†PDefGrup8¦‡nameStrnReadOnlyEncoInt PValStrnFalse EndGInt ¦‡PDefGrup8¦ˆnameStrn LimitText EncoInt PValStrn0 EndGInt ¦ˆPDefGrup<¦‰nameStrn AcceptTabs EncoInt PValStrnFalse EndGInt ¦‰PDefGrup8¦ŠnameStrn Alignment EncoInt PValStrn0 EndGInt ¦ŠPDefGrup8¦‹nameStrn TextColor EncoInt PValStrn0 EndGInt ¦‹PDefGrup<¦ŒnameStrn BackColor EncoInt PValStrn16777215EndGInt ¦ŒPDefGrup4¦nameStrnEnabled EncoInt PValStrnTrueEndGInt ¦PDefGrup,¦ŽnameStrnTextEncoInt PValStrnEndGInt ¦ŽPDefGrup4¦nameStrn DataSource EncoInt PValStrnEndGInt ¦PDefGrup4¦nameStrn DataField EncoInt PValStrnEndGInt ¦PDefGrup0¦‘nameStrnFormat EncoInt PValStrnEndGInt ¦‘PDefGrup,¦’nameStrnMaskEncoInt PValStrnEndGInt ¦’PDefGrup8¦“nameStrn ControlOrderEncoInt PValStrn0 EndGInt ¦“PDefGrup<¦”nameStrnSuper EncoInt PValStrn EditField EndGInt ¦”PDefGrup<¦•nameStrnSuper EncoInt PValStrn EditField EndGInt ¦•CBixInt EndGInt ¦fCtrlGrup Ô¦–cclsStrn StaticText nameStrn StaticText PDefGrup<¦—nameStrnSuper EncoInt PValStrn StaticText EndGInt ¦—PDefGrup<¦˜nameStrnSuper EncoInt PValStrn StaticText EndGInt ¦˜PDefGrup8¦™nameStrnNameEncoInt PValStrn StaticText1 EndGInt ¦™PDefGrup<¦šnameStrnIndex EncoInt PValStrn -2147483648 EndGInt ¦šPDefGrup<¦›nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt ¦›PDefGrup4¦œnameStrnVisible EncoInt PValStrnTrueEndGInt ¦œPDefGrup0¦nameStrnLeftEncoInt PValStrn5 EndGInt ¦PDefGrup0¦žnameStrnTop EncoInt PValStrn6 EndGInt ¦žPDefGrup4¦ŸnameStrnWidth EncoInt PValStrn100 EndGInt ¦ŸPDefGrup4¦ nameStrnHeight EncoInt PValStrn20 EndGInt ¦ PDefGrup8¦¡nameStrn InitialParent EncoInt PValStrnEndGInt ¦¡PDefGrup0¦¢nameStrnHelpTag EncoInt PValStrnEndGInt ¦¢PDefGrup4¦£nameStrn BalloonHelp EncoInt PValStrnEndGInt ¦£PDefGrup<¦¤nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt ¦¤PDefGrup<¦¥nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt ¦¥PDefGrup8¦¦nameStrnLockLeftEncoInt PValStrnFalse EndGInt ¦¦PDefGrup8¦§nameStrnLockTop EncoInt PValStrnFalse EndGInt ¦§PDefGrup<¦¨nameStrn LockRight EncoInt PValStrnFalse EndGInt ¦¨PDefGrup<¦©nameStrn LockBottom EncoInt PValStrnFalse EndGInt ¦©PDefGrup8¦ªnameStrnTextFontEncoInt PValStrnSystem EndGInt ¦ªPDefGrup4¦«nameStrnTextSizeEncoInt PValStrn12 EndGInt ¦«PDefGrup0¦¬nameStrnBoldEncoInt PValStrnTrueEndGInt ¦¬PDefGrup8¦­nameStrnItalic EncoInt PValStrnFalse EndGInt ¦­PDefGrup<¦®nameStrn Underline EncoInt PValStrnFalse EndGInt ¦®PDefGrup<¦¯nameStrnTextEncoInt PValStrnEnter text here:EndGInt ¦¯PDefGrup8¦°nameStrn TextAlign EncoInt PValStrn0 EndGInt ¦°PDefGrup8¦±nameStrn TextColor EncoInt PValStrn0 EndGInt ¦±PDefGrup<¦²nameStrn MultiLine EncoInt PValStrnFalse EndGInt ¦²PDefGrup4¦³nameStrnEnabled EncoInt PValStrnTrueEndGInt ¦³PDefGrup4¦´nameStrn DataSource EncoInt PValStrnEndGInt ¦´PDefGrup4¦µnameStrn DataField EncoInt PValStrnEndGInt ¦µPDefGrup8¦¶nameStrn ControlOrderEncoInt PValStrn1 EndGInt ¦¶PDefGrup<¦·nameStrnSuper EncoInt PValStrn StaticText EndGInt ¦·PDefGrup<¦¸nameStrnSuper EncoInt PValStrn StaticText EndGInt ¦¸CBixInt EndGInt ¦–CtrlGrup ¦¹cclsStrnCheckBoxnameStrnCheckBoxPDefGrup8¦ºnameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦ºPDefGrup8¦»nameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦»PDefGrup4¦¼nameStrnNameEncoInt PValStrnbCheck EndGInt ¦¼PDefGrup<¦½nameStrnIndex EncoInt PValStrn -2147483648 EndGInt ¦½PDefGrup<¦¾nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt ¦¾PDefGrup4¦¿nameStrnVisible EncoInt PValStrnTrueEndGInt ¦¿PDefGrup0¦ÀnameStrnLeftEncoInt PValStrn7 EndGInt ¦ÀPDefGrup0¦ÁnameStrnTop EncoInt PValStrn214 EndGInt ¦ÁPDefGrup4¦ÂnameStrnWidth EncoInt PValStrn48 EndGInt ¦ÂPDefGrup4¦ÃnameStrnHeight EncoInt PValStrn20 EndGInt ¦ÃPDefGrup8¦ÄnameStrn InitialParent EncoInt PValStrnEndGInt ¦ÄPDefGrup0¦ÅnameStrnHelpTag EncoInt PValStrnEndGInt ¦ÅPDefGrup4¦ÆnameStrn BalloonHelp EncoInt PValStrnEndGInt ¦ÆPDefGrup<¦ÇnameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt ¦ÇPDefGrup<¦ÈnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt ¦ÈPDefGrup8¦ÉnameStrnLockLeftEncoInt PValStrnFalse EndGInt ¦ÉPDefGrup8¦ÊnameStrnLockTop EncoInt PValStrnFalse EndGInt ¦ÊPDefGrup<¦ËnameStrn LockRight EncoInt PValStrnFalse EndGInt ¦ËPDefGrup<¦ÌnameStrn LockBottom EncoInt PValStrnFalse EndGInt ¦ÌPDefGrup8¦ÍnameStrnTextFontEncoInt PValStrnSystem EndGInt ¦ÍPDefGrup4¦ÎnameStrnTextSizeEncoInt PValStrn12 EndGInt ¦ÎPDefGrup0¦ÏnameStrnBoldEncoInt PValStrnTrueEndGInt ¦ÏPDefGrup8¦ÐnameStrnItalic EncoInt PValStrnFalse EndGInt ¦ÐPDefGrup<¦ÑnameStrn Underline EncoInt PValStrnFalse EndGInt ¦ÑPDefGrup4¦ÒnameStrnCaption EncoInt PValStrnBoldEndGInt ¦ÒPDefGrup8¦ÓnameStrnValue EncoInt PValStrnFalse EndGInt ¦ÓPDefGrup4¦ÔnameStrnEnabled EncoInt PValStrnTrueEndGInt ¦ÔPDefGrup4¦ÕnameStrn DataSource EncoInt PValStrnEndGInt ¦ÕPDefGrup4¦ÖnameStrn DataField EncoInt PValStrnEndGInt ¦ÖPDefGrup8¦×nameStrn ControlOrderEncoInt PValStrn2 EndGInt ¦×PDefGrup8¦ØnameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦ØPDefGrup8¦ÙnameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦ÙCBixInt EndGInt ¦¹CtrlGrup ¦ÚcclsStrnCheckBoxnameStrnCheckBoxPDefGrup8¦ÛnameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦ÛPDefGrup8¦ÜnameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦ÜPDefGrup4¦ÝnameStrnNameEncoInt PValStrniCheck EndGInt ¦ÝPDefGrup<¦ÞnameStrnIndex EncoInt PValStrn -2147483648 EndGInt ¦ÞPDefGrup<¦ßnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt ¦ßPDefGrup4¦ànameStrnVisible EncoInt PValStrnTrueEndGInt ¦àPDefGrup0¦ánameStrnLeftEncoInt PValStrn67 EndGInt ¦áPDefGrup0¦ânameStrnTop EncoInt PValStrn214 EndGInt ¦âPDefGrup4¦ãnameStrnWidth EncoInt PValStrn48 EndGInt ¦ãPDefGrup4¦änameStrnHeight EncoInt PValStrn20 EndGInt ¦äPDefGrup8¦ånameStrn InitialParent EncoInt PValStrnEndGInt ¦åPDefGrup0¦ænameStrnHelpTag EncoInt PValStrnEndGInt ¦æPDefGrup4¦çnameStrn BalloonHelp EncoInt PValStrnEndGInt ¦çPDefGrup<¦ènameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt ¦èPDefGrup<¦énameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt ¦éPDefGrup8¦ênameStrnLockLeftEncoInt PValStrnFalse EndGInt ¦êPDefGrup8¦ënameStrnLockTop EncoInt PValStrnFalse EndGInt ¦ëPDefGrup<¦ìnameStrn LockRight EncoInt PValStrnFalse EndGInt ¦ìPDefGrup<¦ínameStrn LockBottom EncoInt PValStrnFalse EndGInt ¦íPDefGrup8¦înameStrnTextFontEncoInt PValStrnSystem EndGInt ¦îPDefGrup4¦ïnameStrnTextSizeEncoInt PValStrn12 EndGInt ¦ïPDefGrup0¦ðnameStrnBoldEncoInt PValStrnTrueEndGInt ¦ðPDefGrup8¦ñnameStrnItalic EncoInt PValStrnFalse EndGInt ¦ñPDefGrup<¦ònameStrn Underline EncoInt PValStrnFalse EndGInt ¦òPDefGrup8¦ónameStrnCaption EncoInt PValStrnItalic EndGInt ¦óPDefGrup8¦ônameStrnValue EncoInt PValStrnFalse EndGInt ¦ôPDefGrup4¦õnameStrnEnabled EncoInt PValStrnTrueEndGInt ¦õPDefGrup4¦önameStrn DataSource EncoInt PValStrnEndGInt ¦öPDefGrup4¦÷nameStrn DataField EncoInt PValStrnEndGInt ¦÷PDefGrup8¦ønameStrn ControlOrderEncoInt PValStrn3 EndGInt ¦øPDefGrup8¦ùnameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦ùPDefGrup8¦únameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦úCBixInt EndGInt ¦ÚCtrlGrup ¦ûcclsStrnCheckBoxnameStrnCheckBoxPDefGrup8¦ünameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦üPDefGrup8¦ýnameStrnSuper EncoInt PValStrnCheckBoxEndGInt ¦ýPDefGrup4¦þnameStrnNameEncoInt PValStrnuCheck EndGInt ¦þPDefGrup<¦ÿnameStrnIndex EncoInt PValStrn -2147483648 EndGInt ¦ÿPDefGrup<§nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt §PDefGrup4§nameStrnVisible EncoInt PValStrnTrueEndGInt §PDefGrup0§nameStrnLeftEncoInt PValStrn127 EndGInt §PDefGrup0§nameStrnTop EncoInt PValStrn214 EndGInt §PDefGrup4§nameStrnWidth EncoInt PValStrn83 EndGInt §PDefGrup4§nameStrnHeight EncoInt PValStrn20 EndGInt §PDefGrup8§nameStrn InitialParent EncoInt PValStrnEndGInt §PDefGrup0§nameStrnHelpTag EncoInt PValStrnEndGInt §PDefGrup4§nameStrn BalloonHelp EncoInt PValStrnEndGInt §PDefGrup<§ nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt § PDefGrup<§ nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt § PDefGrup8§ nameStrnLockLeftEncoInt PValStrnFalse EndGInt § PDefGrup8§ nameStrnLockTop EncoInt PValStrnFalse EndGInt § PDefGrup<§ nameStrn LockRight EncoInt PValStrnFalse EndGInt § PDefGrup<§nameStrn LockBottom EncoInt PValStrnFalse EndGInt §PDefGrup8§nameStrnTextFontEncoInt PValStrnSystem EndGInt §PDefGrup4§nameStrnTextSizeEncoInt PValStrn12 EndGInt §PDefGrup0§nameStrnBoldEncoInt PValStrnTrueEndGInt §PDefGrup8§nameStrnItalic EncoInt PValStrnFalse EndGInt §PDefGrup<§nameStrn Underline EncoInt PValStrnFalse EndGInt §PDefGrup<§nameStrnCaption EncoInt PValStrn Underline EndGInt §PDefGrup8§nameStrnValue EncoInt PValStrnFalse EndGInt §PDefGrup4§nameStrnEnabled EncoInt PValStrnTrueEndGInt §PDefGrup4§nameStrn DataSource EncoInt PValStrnEndGInt §PDefGrup4§nameStrn DataField EncoInt PValStrnEndGInt §PDefGrup8§nameStrn ControlOrderEncoInt PValStrn4 EndGInt §PDefGrup8§nameStrnSuper EncoInt PValStrnCheckBoxEndGInt §PDefGrup8§nameStrnSuper EncoInt PValStrnCheckBoxEndGInt §CBixInt EndGInt ¦ûCtrlGrup¼§cclsStrnListBox nameStrnListBox PDefGrup8§nameStrnSuper EncoInt PValStrnListBox EndGInt §PDefGrup8§nameStrnSuper EncoInt PValStrnListBox EndGInt §PDefGrup<§nameStrnNameEncoInt PValStrnFontStyleSelect EndGInt §PDefGrup<§ nameStrnIndex EncoInt PValStrn -2147483648 EndGInt § PDefGrup<§!nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt §!PDefGrup4§"nameStrnVisible EncoInt PValStrnTrueEndGInt §"PDefGrup0§#nameStrnLeftEncoInt PValStrn5 EndGInt §#PDefGrup0§$nameStrnTop EncoInt PValStrn129 EndGInt §$PDefGrup4§%nameStrnWidth EncoInt PValStrn205 EndGInt §%PDefGrup4§&nameStrnHeight EncoInt PValStrn79 EndGInt §&PDefGrup8§'nameStrn InitialParent EncoInt PValStrnEndGInt §'PDefGrup0§(nameStrnHelpTag EncoInt PValStrnEndGInt §(PDefGrup4§)nameStrn BalloonHelp EncoInt PValStrnEndGInt §)PDefGrup<§*nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt §*PDefGrup<§+nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt §+PDefGrup8§,nameStrnLockLeftEncoInt PValStrnFalse EndGInt §,PDefGrup8§-nameStrnLockTop EncoInt PValStrnFalse EndGInt §-PDefGrup<§.nameStrn LockRight EncoInt PValStrnFalse EndGInt §.PDefGrup<§/nameStrn LockBottom EncoInt PValStrnFalse EndGInt §/PDefGrup8§0nameStrnTextFontEncoInt PValStrnSystem EndGInt §0PDefGrup4§1nameStrnTextSizeEncoInt PValStrn12 EndGInt §1PDefGrup4§2nameStrnBoldEncoInt PValStrnFalse EndGInt §2PDefGrup8§3nameStrnItalic EncoInt PValStrnFalse EndGInt §3PDefGrup<§4nameStrn Underline EncoInt PValStrnFalse EndGInt §4PDefGrup4§5nameStrnEnabled EncoInt PValStrnTrueEndGInt §5PDefGrup8§6nameStrn ColumnCount EncoInt PValStrn1 EndGInt §6PDefGrup4§7nameStrn ColumnWidthsEncoInt PValStrnEndGInt §7PDefGrup8§8nameStrn HasHeading EncoInt PValStrnTrueEndGInt §8PDefGrup8§9nameStrn UseFocusRingEncoInt PValStrnTrueEndGInt §9PDefGrupŒ§:nameStrn InitialValueEncoInt PValStrnXFont Style Arial Bookman Old Style Courier Script System Terminal Times New RomanEndGInt §:PDefGrup<§;nameStrn HierarchicalEncoInt PValStrnFalse EndGInt §;PDefGrup<§nameStrn SelectionType EncoInt PValStrn0 EndGInt §>PDefGrup8§?nameStrn HeadingIndexEncoInt PValStrn-1 EndGInt §?PDefGrupD§@nameStrnScrollBarHorizontal EncoInt PValStrnFalse EndGInt §@PDefGrup<§AnameStrnScrollPositionX EncoInt PValStrn0 EndGInt §APDefGrup@§BnameStrnScrollBarVertical EncoInt PValStrnTrueEndGInt §BPDefGrup<§CnameStrnScrollPosition EncoInt PValStrn0 EndGInt §CPDefGrup4§DnameStrn DataSource EncoInt PValStrnEndGInt §DPDefGrup4§EnameStrn DataField EncoInt PValStrnEndGInt §EPDefGrup@§FnameStrnGridLinesHorizontal EncoInt PValStrn0 EndGInt §FPDefGrup@§GnameStrnGridLinesVertical EncoInt PValStrn0 EndGInt §GPDefGrup<§HnameStrnDefaultRowHeightEncoInt PValStrn-1 EndGInt §HPDefGrup@§InameStrnColumnsResizableEncoInt PValStrnFalse EndGInt §IPDefGrup8§JnameStrn ControlOrderEncoInt PValStrn5 EndGInt §JPDefGrup8§KnameStrnSuper EncoInt PValStrnListBox EndGInt §KPDefGrup8§LnameStrnSuper EncoInt PValStrnListBox EndGInt §LCBixInt EndGInt §CtrlGrup¸§McclsStrnListBox nameStrnListBox PDefGrup8§NnameStrnSuper EncoInt PValStrnListBox EndGInt §NPDefGrup8§OnameStrnSuper EncoInt PValStrnListBox EndGInt §OPDefGrup<§PnameStrnNameEncoInt PValStrnFontSizeSelect EndGInt §PPDefGrup<§QnameStrnIndex EncoInt PValStrn -2147483648 EndGInt §QPDefGrup<§RnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt §RPDefGrup4§SnameStrnVisible EncoInt PValStrnTrueEndGInt §SPDefGrup0§TnameStrnLeftEncoInt PValStrn215 EndGInt §TPDefGrup0§UnameStrnTop EncoInt PValStrn129 EndGInt §UPDefGrup4§VnameStrnWidth EncoInt PValStrn79 EndGInt §VPDefGrup4§WnameStrnHeight EncoInt PValStrn79 EndGInt §WPDefGrup8§XnameStrn InitialParent EncoInt PValStrnEndGInt §XPDefGrup0§YnameStrnHelpTag EncoInt PValStrnEndGInt §YPDefGrup4§ZnameStrn BalloonHelp EncoInt PValStrnEndGInt §ZPDefGrup<§[nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt §[PDefGrup<§\nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt §\PDefGrup8§]nameStrnLockLeftEncoInt PValStrnFalse EndGInt §]PDefGrup8§^nameStrnLockTop EncoInt PValStrnFalse EndGInt §^PDefGrup<§_nameStrn LockRight EncoInt PValStrnFalse EndGInt §_PDefGrup<§`nameStrn LockBottom EncoInt PValStrnFalse EndGInt §`PDefGrup8§anameStrnTextFontEncoInt PValStrnSystem EndGInt §aPDefGrup4§bnameStrnTextSizeEncoInt PValStrn12 EndGInt §bPDefGrup4§cnameStrnBoldEncoInt PValStrnFalse EndGInt §cPDefGrup8§dnameStrnItalic EncoInt PValStrnFalse EndGInt §dPDefGrup<§enameStrn Underline EncoInt PValStrnFalse EndGInt §ePDefGrup4§fnameStrnEnabled EncoInt PValStrnTrueEndGInt §fPDefGrup8§gnameStrn ColumnCount EncoInt PValStrn1 EndGInt §gPDefGrup4§hnameStrn ColumnWidthsEncoInt PValStrnEndGInt §hPDefGrup8§inameStrn HasHeading EncoInt PValStrnTrueEndGInt §iPDefGrup8§jnameStrn UseFocusRingEncoInt PValStrnTrueEndGInt §jPDefGrupˆ§knameStrn InitialValueEncoInt PValStrnSFont Size 8 9 10 11 12 14 16 18 20 21 22 24 25 26 27 28 36 48 72 EndGInt §kPDefGrup<§lnameStrn HierarchicalEncoInt PValStrnFalse EndGInt §lPDefGrup<§mnameStrn EnableDrag EncoInt PValStrnFalse EndGInt §mPDefGrupD§nnameStrnEnableDragReorder EncoInt PValStrnFalse EndGInt §nPDefGrup<§onameStrn SelectionType EncoInt PValStrn0 EndGInt §oPDefGrup8§pnameStrn HeadingIndexEncoInt PValStrn-1 EndGInt §pPDefGrupD§qnameStrnScrollBarHorizontal EncoInt PValStrnFalse EndGInt §qPDefGrup<§rnameStrnScrollPositionX EncoInt PValStrn0 EndGInt §rPDefGrup@§snameStrnScrollBarVertical EncoInt PValStrnTrueEndGInt §sPDefGrup<§tnameStrnScrollPosition EncoInt PValStrn0 EndGInt §tPDefGrup4§unameStrn DataSource EncoInt PValStrnEndGInt §uPDefGrup4§vnameStrn DataField EncoInt PValStrnEndGInt §vPDefGrup@§wnameStrnGridLinesHorizontal EncoInt PValStrn0 EndGInt §wPDefGrup@§xnameStrnGridLinesVertical EncoInt PValStrn0 EndGInt §xPDefGrup<§ynameStrnDefaultRowHeightEncoInt PValStrn-1 EndGInt §yPDefGrup@§znameStrnColumnsResizableEncoInt PValStrnFalse EndGInt §zPDefGrup8§{nameStrn ControlOrderEncoInt PValStrn6 EndGInt §{PDefGrup8§|nameStrnSuper EncoInt PValStrnListBox EndGInt §|PDefGrup8§}nameStrnSuper EncoInt PValStrnListBox EndGInt §}CBixInt EndGInt §MCtrlGrup ا~cclsStrn PushButton nameStrn PushButton PDefGrup<§nameStrnSuper EncoInt PValStrn PushButton EndGInt §PDefGrup<§€nameStrnSuper EncoInt PValStrn PushButton EndGInt §€PDefGrup0§nameStrnNameEncoInt PValStrnOk EndGInt §PDefGrup<§‚nameStrnIndex EncoInt PValStrn -2147483648 EndGInt §‚PDefGrup<§ƒnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt §ƒPDefGrup4§„nameStrnVisible EncoInt PValStrnTrueEndGInt §„PDefGrup0§…nameStrnLeftEncoInt PValStrn215 EndGInt §…PDefGrup0§†nameStrnTop EncoInt PValStrn213 EndGInt §†PDefGrup4§‡nameStrnWidth EncoInt PValStrn79 EndGInt §‡PDefGrup4§ˆnameStrnHeight EncoInt PValStrn22 EndGInt §ˆPDefGrup8§‰nameStrn InitialParent EncoInt PValStrnEndGInt §‰PDefGrup0§ŠnameStrnHelpTag EncoInt PValStrnEndGInt §ŠPDefGrup4§‹nameStrn BalloonHelp EncoInt PValStrnEndGInt §‹PDefGrup<§ŒnameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt §ŒPDefGrup<§nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt §PDefGrup8§ŽnameStrnLockLeftEncoInt PValStrnFalse EndGInt §ŽPDefGrup8§nameStrnLockTop EncoInt PValStrnFalse EndGInt §PDefGrup<§nameStrn LockRight EncoInt PValStrnFalse EndGInt §PDefGrup<§‘nameStrn LockBottom EncoInt PValStrnFalse EndGInt §‘PDefGrup8§’nameStrnTextFontEncoInt PValStrnSystem EndGInt §’PDefGrup4§“nameStrnTextSizeEncoInt PValStrn12 EndGInt §“PDefGrup0§”nameStrnBoldEncoInt PValStrnTrueEndGInt §”PDefGrup8§•nameStrnItalic EncoInt PValStrnFalse EndGInt §•PDefGrup<§–nameStrn Underline EncoInt PValStrnFalse EndGInt §–PDefGrup4§—nameStrnCaption EncoInt PValStrnOk EndGInt §—PDefGrup8§˜nameStrnDefault EncoInt PValStrnFalse EndGInt §˜PDefGrup8§™nameStrnCancel EncoInt PValStrnFalse EndGInt §™PDefGrup4§šnameStrnEnabled EncoInt PValStrnTrueEndGInt §šPDefGrup8§›nameStrn ControlOrderEncoInt PValStrn7 EndGInt §›PDefGrup<§œnameStrnSuper EncoInt PValStrn PushButton EndGInt §œPDefGrup<§nameStrnSuper EncoInt PValStrn PushButton EndGInt §CBixInt EndGInt §~CtrlGrupܧžcclsStrn EditField nameStrn EditField PDefGrup<§ŸnameStrnSuper EncoInt PValStrn EditField EndGInt §ŸPDefGrup<§ nameStrnSuper EncoInt PValStrn EditField EndGInt § PDefGrup8§¡nameStrnNameEncoInt PValStrn FontStyle EndGInt §¡PDefGrup<§¢nameStrnIndex EncoInt PValStrn -2147483648 EndGInt §¢PDefGrup<§£nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt §£PDefGrup4§¤nameStrnVisible EncoInt PValStrnTrueEndGInt §¤PDefGrup0§¥nameStrnLeftEncoInt PValStrn5 EndGInt §¥PDefGrup0§¦nameStrnTop EncoInt PValStrn105 EndGInt §¦PDefGrup4§§nameStrnWidth EncoInt PValStrn205 EndGInt §§PDefGrup4§¨nameStrnHeight EncoInt PValStrn20 EndGInt §¨PDefGrup8§©nameStrn InitialParent EncoInt PValStrnEndGInt §©PDefGrup0§ªnameStrnHelpTag EncoInt PValStrnEndGInt §ªPDefGrup4§«nameStrn BalloonHelp EncoInt PValStrnEndGInt §«PDefGrup<§¬nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt §¬PDefGrup<§­nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt §­PDefGrup8§®nameStrnLockLeftEncoInt PValStrnFalse EndGInt §®PDefGrup8§¯nameStrnLockTop EncoInt PValStrnFalse EndGInt §¯PDefGrup<§°nameStrn LockRight EncoInt PValStrnFalse EndGInt §°PDefGrup<§±nameStrn LockBottom EncoInt PValStrnFalse EndGInt §±PDefGrup8§²nameStrnTextFontEncoInt PValStrnSystem EndGInt §²PDefGrup4§³nameStrnTextSizeEncoInt PValStrn12 EndGInt §³PDefGrup4§´nameStrnBoldEncoInt PValStrnFalse EndGInt §´PDefGrup8§µnameStrnItalic EncoInt PValStrnFalse EndGInt §µPDefGrup<§¶nameStrn Underline EncoInt PValStrnFalse EndGInt §¶PDefGrup4§·nameStrnBorder EncoInt PValStrnTrueEndGInt §·PDefGrup<§¸nameStrn MultiLine EncoInt PValStrnFalse EndGInt §¸PDefGrupD§¹nameStrnScrollBarHorizontal EncoInt PValStrnFalse EndGInt §¹PDefGrup8§ºnameStrn ScrollBar EncoInt PValStrnTrueEndGInt §ºPDefGrup@§»nameStrnScrollBarVertical EncoInt PValStrnTrueEndGInt §»PDefGrup8§¼nameStrnStyled EncoInt PValStrnFalse EndGInt §¼PDefGrup8§½nameStrnPasswordEncoInt PValStrnFalse EndGInt §½PDefGrup8§¾nameStrn UseFocusRingEncoInt PValStrnTrueEndGInt §¾PDefGrup8§¿nameStrnReadOnlyEncoInt PValStrnFalse EndGInt §¿PDefGrup8§ÀnameStrn LimitText EncoInt PValStrn0 EndGInt §ÀPDefGrup<§ÁnameStrn AcceptTabs EncoInt PValStrnFalse EndGInt §ÁPDefGrup8§ÂnameStrn Alignment EncoInt PValStrn0 EndGInt §ÂPDefGrup8§ÃnameStrn TextColor EncoInt PValStrn0 EndGInt §ÃPDefGrup<§ÄnameStrn BackColor EncoInt PValStrn16777215EndGInt §ÄPDefGrup4§ÅnameStrnEnabled EncoInt PValStrnTrueEndGInt §ÅPDefGrup,§ÆnameStrnTextEncoInt PValStrnEndGInt §ÆPDefGrup4§ÇnameStrn DataSource EncoInt PValStrnEndGInt §ÇPDefGrup4§ÈnameStrn DataField EncoInt PValStrnEndGInt §ÈPDefGrup0§ÉnameStrnFormat EncoInt PValStrnEndGInt §ÉPDefGrup,§ÊnameStrnMaskEncoInt PValStrnEndGInt §ÊPDefGrup8§ËnameStrn ControlOrderEncoInt PValStrn8 EndGInt §ËPDefGrup<§ÌnameStrnSuper EncoInt PValStrn EditField EndGInt §ÌPDefGrup<§ÍnameStrnSuper EncoInt PValStrn EditField EndGInt §ÍCBixInt EndGInt §žCtrlGrupاÎcclsStrn EditField nameStrn EditField PDefGrup<§ÏnameStrnSuper EncoInt PValStrn EditField EndGInt §ÏPDefGrup<§ÐnameStrnSuper EncoInt PValStrn EditField EndGInt §ÐPDefGrup4§ÑnameStrnNameEncoInt PValStrnFontSizeEndGInt §ÑPDefGrup<§ÒnameStrnIndex EncoInt PValStrn -2147483648 EndGInt §ÒPDefGrup<§ÓnameStrn TabPanelIndex EncoInt PValStrn0 EndGInt §ÓPDefGrup4§ÔnameStrnVisible EncoInt PValStrnTrueEndGInt §ÔPDefGrup0§ÕnameStrnLeftEncoInt PValStrn215 EndGInt §ÕPDefGrup0§ÖnameStrnTop EncoInt PValStrn105 EndGInt §ÖPDefGrup4§×nameStrnWidth EncoInt PValStrn79 EndGInt §×PDefGrup4§ØnameStrnHeight EncoInt PValStrn20 EndGInt §ØPDefGrup8§ÙnameStrn InitialParent EncoInt PValStrnEndGInt §ÙPDefGrup0§ÚnameStrnHelpTag EncoInt PValStrnEndGInt §ÚPDefGrup4§ÛnameStrn BalloonHelp EncoInt PValStrnEndGInt §ÛPDefGrup<§ÜnameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt §ÜPDefGrup<§ÝnameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt §ÝPDefGrup8§ÞnameStrnLockLeftEncoInt PValStrnFalse EndGInt §ÞPDefGrup8§ßnameStrnLockTop EncoInt PValStrnFalse EndGInt §ßPDefGrup<§ànameStrn LockRight EncoInt PValStrnFalse EndGInt §àPDefGrup<§ánameStrn LockBottom EncoInt PValStrnFalse EndGInt §áPDefGrup8§ânameStrnTextFontEncoInt PValStrnSystem EndGInt §âPDefGrup4§ãnameStrnTextSizeEncoInt PValStrn12 EndGInt §ãPDefGrup4§änameStrnBoldEncoInt PValStrnFalse EndGInt §äPDefGrup8§ånameStrnItalic EncoInt PValStrnFalse EndGInt §åPDefGrup<§ænameStrn Underline EncoInt PValStrnFalse EndGInt §æPDefGrup4§çnameStrnBorder EncoInt PValStrnTrueEndGInt §çPDefGrup<§ènameStrn MultiLine EncoInt PValStrnFalse EndGInt §èPDefGrupD§énameStrnScrollBarHorizontal EncoInt PValStrnFalse EndGInt §éPDefGrup8§ênameStrn ScrollBar EncoInt PValStrnTrueEndGInt §êPDefGrup@§ënameStrnScrollBarVertical EncoInt PValStrnTrueEndGInt §ëPDefGrup8§ìnameStrnStyled EncoInt PValStrnFalse EndGInt §ìPDefGrup8§ínameStrnPasswordEncoInt PValStrnFalse EndGInt §íPDefGrup8§înameStrn UseFocusRingEncoInt PValStrnTrueEndGInt §îPDefGrup8§ïnameStrnReadOnlyEncoInt PValStrnFalse EndGInt §ïPDefGrup8§ðnameStrn LimitText EncoInt PValStrn0 EndGInt §ðPDefGrup<§ñnameStrn AcceptTabs EncoInt PValStrnFalse EndGInt §ñPDefGrup8§ònameStrn Alignment EncoInt PValStrn0 EndGInt §òPDefGrup8§ónameStrn TextColor EncoInt PValStrn0 EndGInt §óPDefGrup<§ônameStrn BackColor EncoInt PValStrn16777215EndGInt §ôPDefGrup4§õnameStrnEnabled EncoInt PValStrnTrueEndGInt §õPDefGrup,§önameStrnTextEncoInt PValStrnEndGInt §öPDefGrup4§÷nameStrn DataSource EncoInt PValStrnEndGInt §÷PDefGrup4§ønameStrn DataField EncoInt PValStrnEndGInt §øPDefGrup0§ùnameStrnFormat EncoInt PValStrnEndGInt §ùPDefGrup,§únameStrnMaskEncoInt PValStrnEndGInt §úPDefGrup8§ûnameStrn ControlOrderEncoInt PValStrn9 EndGInt §ûPDefGrup<§ünameStrnSuper EncoInt PValStrn EditField EndGInt §üPDefGrup<§ýnameStrnSuper EncoInt PValStrn EditField EndGInt §ýCBixInt EndGInt §ÎCtrlGrup ä§þcclsStrn PushButton nameStrn PushButton PDefGrup<§ÿnameStrnSuper EncoInt PValStrn PushButton EndGInt §ÿPDefGrup<¨nameStrnSuper EncoInt PValStrn PushButton EndGInt ¨PDefGrup4¨nameStrnNameEncoInt PValStrnClear EndGInt ¨PDefGrup<¨nameStrnIndex EncoInt PValStrn -2147483648 EndGInt ¨PDefGrup<¨nameStrn TabPanelIndex EncoInt PValStrn0 EndGInt ¨PDefGrup4¨nameStrnVisible EncoInt PValStrnTrueEndGInt ¨PDefGrup0¨nameStrnLeftEncoInt PValStrn215 EndGInt ¨PDefGrup0¨nameStrnTop EncoInt PValStrn3 EndGInt ¨PDefGrup4¨nameStrnWidth EncoInt PValStrn79 EndGInt ¨PDefGrup4¨nameStrnHeight EncoInt PValStrn20 EndGInt ¨PDefGrup8¨ nameStrn InitialParent EncoInt PValStrnEndGInt ¨ PDefGrup0¨ nameStrnHelpTag EncoInt PValStrnEndGInt ¨ PDefGrup4¨ nameStrn BalloonHelp EncoInt PValStrnEndGInt ¨ PDefGrup<¨ nameStrnDisabledBalloonHelp EncoInt PValStrnEndGInt ¨ PDefGrup<¨ nameStrnAutoDeactivate EncoInt PValStrnTrueEndGInt ¨ PDefGrup8¨nameStrnLockLeftEncoInt PValStrnFalse EndGInt ¨PDefGrup8¨nameStrnLockTop EncoInt PValStrnFalse EndGInt ¨PDefGrup<¨nameStrn LockRight EncoInt PValStrnFalse EndGInt ¨PDefGrup<¨nameStrn LockBottom EncoInt PValStrnFalse EndGInt ¨PDefGrup8¨nameStrnTextFontEncoInt PValStrnSystem EndGInt ¨PDefGrup4¨nameStrnTextSizeEncoInt PValStrn10 EndGInt ¨PDefGrup4¨nameStrnBoldEncoInt PValStrnFalse EndGInt ¨PDefGrup8¨nameStrnItalic EncoInt PValStrnFalse EndGInt ¨PDefGrup<¨nameStrn Underline EncoInt PValStrnFalse EndGInt ¨PDefGrup8¨nameStrnCaption EncoInt PValStrnClear EndGInt ¨PDefGrup8¨nameStrnDefault EncoInt PValStrnFalse EndGInt ¨PDefGrup8¨nameStrnCancel EncoInt PValStrnFalse EndGInt ¨PDefGrup4¨nameStrnEnabled EncoInt PValStrnTrueEndGInt ¨PDefGrup8¨nameStrn ControlOrderEncoInt PValStrn10 EndGInt ¨PDefGrup<¨nameStrnSuper EncoInt PValStrn PushButton EndGInt ¨PDefGrup<¨nameStrnSuper EncoInt PValStrn PushButton EndGInt ¨CBixInt EndGInt §þPadnPadnd********************************************************************************************************************************************************************************************************************************************************************************************************************************************************************BlokpVew¿D¸%4NameStrnHelpContInt paswStrnbClsInt SuprStrnWindow bNtrInt CompStrnPDefGrup(¨nameStrnMenuBar PValStrn0 EndGInt ¨PDefGrup(¨nameStrn MacProcID PValInt EndGInt ¨PDefGrup4¨ nameStrn BalloonHelp EncoInt PValStrnEndGInt ¨ PDefGrup0¨!nameStrnMinimizeButton PValStrnTrueEndGInt ¨!PDefGrup0¨"nameStrnMaximizeButton PValStrnTrueEndGInt ¨"PDefGrup,¨#nameStrn LiveResize PValStrnTrueEndGInt ¨#PDefGrup,¨$nameStrn Resizeable PValStrnTrueEndGInt ¨$PDefGrup,¨%nameStrn CloseButton PValStrnTrueEndGInt ¨%PDefGrup0¨&nameStrnMenuBarVisible PValStrnTrueEndGInt ¨&PDefGrup0¨'nameStrn FullScreen PValStrnFalse EndGInt ¨'PDefGrup(¨(nameStrnVisible PValStrnTrueEndGInt ¨(PDefGrupP¨)nameStrnTitle EncoInt PValStrn2DDraw 2006 Release 2 - Help EndGInt ¨)PDefGrup(¨*nameStrnBackdropPValStrn0 EndGInt ¨*PDefGrup(¨+nameStrn BackColor PValInt ÿÿÿEndGInt ¨+PDefGrup0¨,nameStrn HasBackColorPValStrnFalse EndGInt ¨,PDefGrup0¨-nameStrn Composite PValStrnFalse EndGInt ¨-PDefGrup$¨.nameStrnFrame PValInt EndGInt ¨.PDefGrup(¨/nameStrn MaxHeight PValInt }EndGInt ¨/PDefGrup$¨0nameStrnMaxWidthPValInt }EndGInt ¨0PDefGrup(¨1nameStrn MinHeight PValInt @EndGInt ¨1PDefGrup$¨2nameStrnMinWidthPValInt @EndGInt ¨2PDefGrup$¨3nameStrnHeight PValInt ,EndGInt ¨3PDefGrup$¨4nameStrnWidth PValInt ÎEndGInt ¨4PDefGrup(¨5nameStrn Placement PValInt EndGInt ¨5VwBhGrup l¨6VwPrGrup0¨7NameStrnNameVsblInt PrGpStrnID EndGInt ¨7VwPrGrup8¨8NameStrn Interfaces VsblInt PrGpStrnID EndGInt ¨8VwPrGrup4¨9NameStrnSuper VsblInt PrGpStrnID EndGInt ¨9VwPrGrupL¨:NameStrn Placement VsblInt PrGpStrnPositionPValStrn0 EndGInt ¨:VwPrGrupH¨;NameStrnWidth VsblInt PrGpStrnPositionPValStrn300 EndGInt ¨;VwPrGrupH¨NameStrn MinHeight VsblInt PrGpStrnPositionPValStrn64 EndGInt ¨>VwPrGrupL¨?NameStrnMaxWidthVsblInt PrGpStrnPositionPValStrn32000 EndGInt ¨?VwPrGrupP¨@NameStrn MaxHeight VsblInt PrGpStrnPositionPValStrn32000 EndGInt ¨@VwPrGrupL¨ANameStrnFrame VsblInt PrGpStrn Appearance PValStrn0 EndGInt ¨AVwPrGrupT¨BNameStrn Composite VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¨BVwPrGrupT¨CNameStrn HasBackColorVsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¨CVwPrGrupT¨DNameStrn BackColor VsblInt PrGpStrn Appearance PValStrn&hFFFFFFEndGInt ¨DVwPrGrup<¨ENameStrnBackdropVsblInt PrGpStrn Appearance EndGInt ¨EVwPrGrupP¨FNameStrnTitle VsblInt PrGpStrn Appearance PValStrnUntitledEndGInt ¨FVwPrGrupL¨GNameStrnVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ¨GVwPrGrupT¨HNameStrn FullScreen VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¨HVwPrGrupT¨INameStrnMenuBarVisible VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ¨IVwPrGrupP¨JNameStrn CloseButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ¨JVwPrGrupT¨KNameStrn Resizeable VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¨KVwPrGrupT¨LNameStrn LiveResize VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¨LVwPrGrupX¨MNameStrnMaximizeButton VsblInt PrGpStrn Appearance PValStrnFalse EndGInt ¨MVwPrGrupT¨NNameStrnMinimizeButton VsblInt PrGpStrn Appearance PValStrnTrueEndGInt ¨NVwPrGrup@¨ONameStrn BalloonHelp VsblInt PrGpStrn Appearance EndGInt ¨OVwPrGrupP¨PNameStrn MacProcID VsblInt PrGpStrn Appearance PValStrn0 EndGInt ¨PVwPrGrup<¨QNameStrnMenuBar VsblInt PrGpStrn Appearance EndGInt ¨QEndGInt ¨6CBhvGrup¨RSuprStrn EditField EndGInt ¨RCBhvGrupĨSSuprStrn PushButton HInsGrup¨TnameStrnAction CompStrnsorcGrupT¨UEncoInt srclStrn Sub Action()srclStrn Self.Close srclStrnEnd Sub EndGInt ¨UEndGInt ¨TEndGInt ¨SCtrlGrupt¨VcclsStrn EditField nameStrn EditField PDefGrup8¨WnameStrn InitialParent EncoInt PValStrnEndGInt ¨WPDefGrup4¨XnameStrn DataField EncoInt PValStrnEndGInt ¨XPDefGrup4¨YnameStrn DataSource EncoInt PValStrnEndGInt ¨YPDefGrup(¨ZnameStrn Alignment PValInt EndGInt ¨ZPDefGrup0¨[nameStrn AcceptTabs PValStrnFalse EndGInt ¨[PDefGrup(¨\nameStrn LimitText PValInt EndGInt ¨\PDefGrup(¨]nameStrnReadOnlyPValStrnTrueEndGInt ¨]PDefGrup,¨^nameStrnMaskEncoInt PValStrnEndGInt ¨^PDefGruph¨_nameStrnTextEncoInt PValStrn