QBasic & Borland Pascal & C

home *** CD-ROM | disk | FTP | other *** search

/ QBasic & Borland Pascal & C / Delphi5.iso / Basic / Samples / VBUTIL / VBUTIL.ZIP / SHAPES.FRM (.txt) < prev next >

Wrap

Visual Basic Form | 1993-03-05 | 12.1 KB | 383 lines

Form1 Shape Tester Form1% MouseCoordBox QuitCom &Quit ScreenCom &Screen ClearCom Clear SaveAsCom Save As LoadCom ShapeCom S&hape PointCom Point LineCom RectangleCom Rectangle ArcCom EllipseCom Ellipse CircleCom Circle EraserCom Eraser TextCom FillStyleCom &Fill Style SolidCom Solid TransparentCom Transparent HLineCom Horizontal Line VLineCom Vertical Line UpDiagCom Upward Diagonal DownDiagCom Downward Diagonal CrossCom Cross DiagCrossCom Diagonal Cross ColorCom &Color BlackCom Black BlueCom GreenCom Green CyanCom RedCom MagentaCom Magenta YellowCom Yellow WhiteCom White GrayCom LineWidthCom Line &Width Size1Com Size3Com Size5Com Size8Com LineStyleCom &Line Style SolidLineCom Solid line ) DashesCom Dashes DotsCom DashDotCom Dash-Dot pattern DashDotDotCom Dash-dot-dot pattern InvisibleCom Invisible line InsideSolidCom Inside solid Form_Clickv @ Form_LoadY DateFormatOpt? Value> TimeFormat TimeFormatOpt* NowBtn_Click TextBox QuitBtn_ClickV CountryCmb_Change% CountryCmbI ComboItemm VScroll1_Change TimeScl_Changed ScrollBarValueBox TimeSclc ScrollValueBox Label1_Click TimerBtn_Click& CountO Total TextLine TimerBtna Caption ScrollValueBox_Change MaxLbl_Click~ TextBox_Change@ TextBox_LostFocus QuitBtn Enabled False MIN_VALUE MAX_VALUE MinLble MaxLbl SmallChange LargeChange properties PrintBtn_Click Filename CurrentLineNumber$ MAX_LINES/ PrintHeadingq Printer BadFile ExitSub PrintHadingW PageNumber0 PageNum} PageNumStr0 PrintTab TAB_SIZE PageNumberStr TextBox_KeyPress KeyAscii QuitCom_Click{ ClearCom_Click IsFirst Form_MouseDown+ ButtonK Shift ClearShapesm PointCom Checked LineComb RectangleCom ArcCom* EllipseCom CircleCom1 ArcCom_Click ArcComComR CircleCom_Click% EllipseCom_Clicks LineCom_Click PointCom_ClickW RectangleCom_Click ShapeCom_Click Radius7 WindowState TextComH TextCom_Click CurrentX. CurrentY ClearFillStyle` SolidComp TransparentCom HLineCom= VLineCom? UpDiagCom DownDiagCom CrossCom DiagCrossComT ClearColors& BlackCom BlueComy GreenComd CyanCom RedCom MagentaCom YellowCom WhiteComU GrayCom@ ColorCom_Click FillStyleCom_Click BlackCom_Click BlueCom_Click CyanCom_Click^ @ DiagCrossCom_Click DownDiagCom_Click GrayCom_Click GreenCom_Clicks HLineCom_Clickb MagentaCom_Click RedCom_Click SolidCom_Click TransparentCom_Click+ UpDiagCom_Click VLineCom_Click WhiteCom_Click YellowCom_Clickk ColorNum~ QBColorNumC FillColor CrossCom_Click FillStyle BackColorL TheColor CurveCom CurveCom_Click CurveConT Form_MouseMove CurrenYP DrawWidth DrawStyle @ ClearSize Size1Com Size3Com Size5Com Size8Com Size1Com_Click Size3Com_Click Size5Com_Click/ @ Size8Com_Click ClearDrawStyle SolidLineComi DashesCom DahesCom_Click DotsComw DashDorCom DashDotCom DashDotDotComC Invibible InvibibleCom InsideSolidCom DotCom InvisibleCom SolidLineCom_Click) DashesCom_Click DashesComCom DotsCom_Click= DashDotCom_Click DashDotDotCom_Clickl InsideSolidCom_Click InvisibleCom_Click LineWidthCom LineStyleCom LineWidth MousePointer DrawMode3 AutoRedraw WHITE ForeColor BLACK SOLID DASH_DOT DASH_DOT_DOT) INSIDE_SOLIDw INVISIBLE DIAGONAL_CROSS` DOWNWARD_DIAGONAL HORIZONTAL_LINE TRANSPARENT UPWARD_DIAGONAL VERTICAL_LINE CROSS- EraserCom EraserCom_Clickt LineStyleCom_Click Form_DragOverH Source State9 MouseDown EraseCom MouseIsDownX Form_MouseUp SaveAsCom_Click Image LineWidthCom_Click LoadCom_Click Picture BMPfile File6 ScreenCom_Click BadBMPinput ExitBMPinput BadBMPoutput ExitBMPoutputO Form_KeyPress# TempColorB ForColor FoerColor MouseCoordBox Form_KeyDown KeyCode Form1 Form_KeyUp TextStr ##0.0 ArcCom_Click BlackCom_Click BlueCom_Click CircleCom_Click ClearColors clear pending point? ClearCom_Click ClearDrawStyle clear pending point? ClearFillStyle clear pending point? ClearShapes clear pending point? ClearSize clear pending point? CrossCom_Click CyanCom_Click DashDotCom_Click DashDotDotCom_Click DashesCom_Click DiagCrossCom_Click DotsCom_Click DownDiagCom_Click EllipseCom_Click EraserCom_Click Form_Load SHAPES.BMP Cross select defaults Form_MouseDown calculate pie get the color using the QuickBasic color code * Eraser change mouse cursor * Text Enter text Text Input * Point * Line * Rectangle * Arc * Circle * Ellipse Form_MouseMove if mouse is still down and the Eraser is selected erase the graphics at the current coordinates Form_MouseUp restore mouse cursore GrayCom_Click GreenCom_Click HLineCom_Click InsideSolidCom_Click InvisibleCom_Click LineCom_Click LoadCom_Click Enter filename Cannot read file File I/O Error MagentaCom_Click PointCom_Click make the points noticable! QuitCom_Click RectangleCom_Click RedCom_Click SaveAsCom_Click Enter filename Save As Cannot write to file File I/O Error Size1Com_Click Size3Com_Click Size5Com_Click Size8Com_Click SolidCom_Click SolidLineCom_Click TextCom_Click TransparentCom_Click UpDiagCom_Click VLineCom_Click WhiteCom_Click YellowCom_Click