// CheckBox3- // // This program demonstrates operations on left-text checkboxes, including // simulated checkbox clicks, double clicks, showing and hiding checkboxes, // enabling and disabling checkboxes, moving checkboxes, and resizing checkboxes. program checkBox3; #linker( "comdlg32.lib" ) #linker( "comctl32.lib" ) ?@NoDisplay := true; ?@NoStackAlign := true; #includeOnce( "stdlib.hhf" ) #includeOnce( "howl.hhf" ) const applicationName := "CheckBox #3"; formX := w.CW_USEDEFAULT; // Let Windows position this guy formY := w.CW_USEDEFAULT; formW := 600; formH := 600; static align( 4 ); bkgBrush_g :dword; bkgColor_g :dword; // Forward declarations for the onClick widgetProcs that we're going to // call when a button is pressed. proc onClick1 :widgetProc; @forward; proc hideShowCheckBox :widgetProc; @forward; proc enableDisableCheckBox :widgetProc; @forward; proc moveCheckBox :widgetProc; @forward; proc resizeCheckBox :widgetProc; @forward; proc onDblClick :widgetProc; @forward; proc onQuit :widgetProc; @forward; // Here's the main form definition for the app: wForm( mainAppWindow ); var showState :boolean; b1Enabled :boolean; align(4); wCheckBox ( checkBox1, // Field name in mainWindow object "Check Box #1 abcde", // Caption for push button 10, // x position 10, // y position 125, // width 25, // height onClick1 // "on click" event handler ) wCheckBoxLT ( checkBox2, // Field name in mainWindow object "Check Box #2 abcde", // Caption for push button 10, // x position 70, // y position 125, // width 25, // height onClick1 // "on click" event handler ) wPushButton ( button2, // Field name in mainWindow object "Hide checkbox 1", // Caption for push button 175, // x position 10, // y position 150, // width 25, // height hideShowCheckBox // initial "on click" event handler ) wPushButton ( button3, // Field name in mainWindow object "Disable checkbox 1", // Caption for push button 175, // x position 40, // y position 150, // width 25, // height enableDisableCheckBox // initial "on click" event handler ) wPushButton ( button4, // Field name in mainWindow object "Move checkbox 1", // Caption for push button 175, // x position 70, // y position 150, // width 25, // height moveCheckBox // initial "on click" event handler ) wPushButton ( button5, // Field name in mainWindow object "Resize checkboxes", // Caption for push button 175, // x position 100, // y position 150, // width 25, // height resizeCheckBox // initial "on click" event handler ) wPushButton ( button6, // Field name in mainWindow object "DblClick to Click", // Caption for push button 175, // x position 130, // y position 150, // width 25, // height NULL // no single click handler ) // Place a quit button in the lower-right-hand corner of the form: wPushButton ( quitButton, // Field name in mainWindow object "Quit", // Caption for push button 450, // x position 525, // y position 125, // width 25, // height onQuit // "on click" event handler ) endwForm // Must invoke the following macro to emit the code generated by // the wForm macro: mainAppWindow_implementation(); // The onDblClick widget proc will handle a double click on button6 // and simulate a single click on checkBox1. proc onDblClick:widgetProc; begin onDblClick; mov( mainAppWindow.checkBox1, esi ); (type wCheckBox_t [esi]).click(); mov( mainAppWindow.checkBox2, esi ); (type wCheckBox_t [esi]).click(); end onDblClick; // The resizeCheckBox widget proc will resize checkBox1 between widths 125 and 150. proc resizeCheckBox:widgetProc; begin resizeCheckBox; mov( mainAppWindow.checkBox1, esi ); (type wCheckBox_t [esi]).get_width(); if( eax = 125 ) then stdout.put( "Resizing check box to width 150" nl ); (type wCheckBox_t [esi]).set_width( 150 ); mov( mainAppWindow.checkBox2, esi ); (type wCheckBox_t [esi]).set_width( 150 ); else stdout.put( "Resizing check box to width 125" nl ); (type wCheckBox_t [esi]).set_width( 125 ); mov( mainAppWindow.checkBox2, esi ); (type wCheckBox_t [esi]).set_width( 125 ); endif; end resizeCheckBox; // The moveCheckBox widget proc will move checkBox1 between y positions 10 and 40. proc moveCheckBox:widgetProc; begin moveCheckBox; mov( mainAppWindow.checkBox1, esi ); (type wCheckBox_t [esi]).get_y(); if( eax = 10 ) then stdout.put( "Moving check box to y-position 40" nl ); (type wCheckBox_t [esi]).set_y( 40 ); else stdout.put( "Moving check box to y-position 10" nl ); (type wCheckBox_t [esi]).set_y( 10 ); endif; end moveCheckBox; // The enableDisableCheckBox widget proc will hide and show checkBox1. proc enableDisableCheckBox:widgetProc; begin enableDisableCheckBox; mov( thisPtr, esi ); if( mainAppWindow.b1Enabled ) then (type wCheckBox_t [esi]).set_text( "Enable checkbox 1" ); mov( false, mainAppWindow.b1Enabled ); stdout.put( "Disabling button 1" nl ); mov( mainAppWindow.checkBox1, esi ); (type wCheckBox_t [esi]).disable(); else (type wCheckBox_t [esi]).set_text( "Disable checkbox 1" ); mov( true, mainAppWindow.b1Enabled ); stdout.put( "Enabling button 1" nl ); mov( mainAppWindow.checkBox1, esi ); (type wCheckBox_t [esi]).enable(); endif; end enableDisableCheckBox; // The hideShowCheckBox widget proc will hide and show checkBox1. proc hideShowCheckBox:widgetProc; begin hideShowCheckBox; mov( thisPtr, esi ); if( mainAppWindow.showState ) then (type wCheckBox_t [esi]).set_text( "Hide checkbox 1" ); mov( false, mainAppWindow.showState ); stdout.put( "Showing button 1" nl ); mov( mainAppWindow.checkBox1, esi ); (type wCheckBox_t [esi]).show(); else (type wCheckBox_t [esi]).set_text( "Show checkbox 1" ); mov( true, mainAppWindow.showState ); stdout.put( "Hiding button 1" nl ); mov( mainAppWindow.checkBox1, esi ); (type wCheckBox_t [esi]).hide(); endif; end hideShowCheckBox; // Here's the onClick handler for the checkbox. As it's a simple // 2-state checkbox, simply invert the state every time it's clicked. proc onClick1:widgetProc; begin onClick1; // Invert the check in the check box: mov( thisPtr, esi ); (type wCheckBox_t [esi]).get_check(); xor( 1, eax ); and( 1, eax ); (type wCheckBox_t [esi]).set_check( eax ); end onClick1; // Here's the onClick event handler for our quit button on the form. // This handler will simply quit the application: proc onQuit:widgetProc; begin onQuit; // Quit the app: w.PostQuitMessage( 0 ); end onQuit; // We'll use the main application form's onCreate method to initialize // the various buttons on the form. // // This could be done in appStart, but better to leave appStart mainly // as boilerplate code. Also, putting this code here allows us to use // "this" to access the mainAppWindow fields (a minor convenience). method mainAppWindow_t.onCreate; var thisPtr :dword; begin onCreate; mov( esi, thisPtr ); // Initialize the showState and enableDisableButton data fields: mov( false, this.showState ); mov( true, this.b1Enabled ); // Set up button6's onDblClick handler: mov( thisPtr, esi ); mov( this.button6, esi ); (type wPushButton_t [esi]).set_onDblClick( &onDblClick ); end onCreate; /////////////////////////////////////////////////////////////////////////////// // // // The following is mostly boilerplate code for all apps (about the only thing // you would change is the size of the main app's form) // // /////////////////////////////////////////////////////////////////////////////// // // When the main application window closes, we need to terminate the // application. This overridden method handles that situation. Notice the // override declaration for onClose in the wForm declaration given earlier. // Without that, mainAppWindow_t would default to using the wVisual_t.onClose // method (which does nothing). method mainAppWindow_t.onClose; begin onClose; // Tell the winmain main program that it's time to terminate. // Note that this message will (ultimately) cause the appTerminate // procedure to be called. w.PostQuitMessage( 0 ); end onClose; // When the application begins execution, the following procedure // is called. This procedure must create the main // application window in order to kick off the execution of the // GUI application: procedure appStart; begin appStart; push( esi ); // Create the main application window: w.GetSysColor( w.COLOR_MENU ); mov( eax, bkgColor_g ); w.CreateSolidBrush( eax ); mov( eax, bkgBrush_g ); mainAppWindow.create_mainAppWindow ( applicationName, // Window title w.WS_EX_CONTROLPARENT, // Need this to support TAB control selection w.WS_OVERLAPPEDWINDOW, // Style NULL, // No parent window formX, // x-coordinate for window. formY, // y-coordinate for window. formW, // Width formH, // Height bkgColor_g, // Background color true // Make visible on creation ); mov( esi, pmainAppWindow ); // Save pointer to main window object. pop( esi ); end appStart; // appTerminate- // // Called when the application is quitting, giving the app a chance // to clean up after itself. // // Note that this is called *after* the mainAppWindow_t.onClose method // executes (indeed, mainAppWindow_t.onClose, by posting the quit message, // is what actually causes the program to begin terminating, which leads // to the execution of this procedure). procedure appTerminate; begin appTerminate; // Clean up the main application's form. // Note that this will recursively clean up all the widgets on the form. mainAppWindow.destroy(); w.DeleteObject( bkgBrush_g ); end appTerminate; // appException- // // Gives the application the opportunity to clean up before // aborting when an unhandled exception comes along: procedure appException( theException:dword in eax ); begin appException; raise( eax ); end appException; // The main program for a HOWL application must simply // call the HowlMainApp procedure. begin checkBox3; HowlMainApp(); end checkBox3;