Dialog Style Program (contd.)
This second part of the tutorial will focus on first making the program run and then adding functionality to it.
Adding the form source to the project
We can now start getting the program to run. The first thing we need to do is include the form source code:
After adding this line, save the file. At this point, two dependent entries will appear in the Project View tree. One is
colorlab_form.sma the other
uisyshelphdr.sma is included by the form source code but is not visible to the project. To resolve this, we need to add the include directory to the project as well as the library
uisyshelp.sml. After this has been done the Project Settings Includes and libraries tab should look like this:
Setting up the program
The first step with getting the program running is to write the code that initializes the program, creates the form, creates the dialogue window, and then waits for events. As it turns out, this does not require an excessive amount of program code.
main() Function of the colorlab Program
include "colorlab_form.sma" constant iSTARTCOLOR 0xffffff function main() wxform f wxdialog d integer e e = 0 f =@ colorlab(error=e) if f =@= .nul errormsg(e) else d =@ wxdialog.new(1, 1, innerwidth=f.width, innerheight=f.height, visible=.false, \ captiontext="SIMPOL Color Lab", error=e) if d =@= .nul errormsg(e) else adjustformcolorvals(f, iSTARTCOLOR) f.setcontainer(d) centerdialogonparent(d) d.processmodal(.inf) end if end if end function
The code above is fairly straightforward. It calls the generated
colorlab() function to create the form. If anything goes wrong, it calls the
errormsg() function. Assuming the form was successfully created it creates the dialogue window, sizing is based on the size of the form. Here we again check for success and assuming everything worked call a function to initialise the form for a specific colour value (this is stored in the constant
iSTARTCOLOR) Finally, the form is centred on the display, and then set to wait forever (or until the dialogue is either made invisible or by the user clicking Close)
The program as-is will not compile successfully as the source code for the form contains assignments of function names for handling events, but those functions have not yet been created
Getting the basic form running
We are going to now add all the minimum bits remaining to get our program to run and show the form. It will not do anything, but we will be able to see the form come up in the dialogue window, as well as close the window and have the program exit correctly.
In order to do this, we need to add the functions, even if they don’t yet do anything. That code is below
The remaining Empty Functions of the colorlab Program
function adjustformcolorvals(wxform f, integer rgbval, string ignorescrollbar="") end function function hexval_olf(wxformedittext me) end function function decval_olf(wxformedittext me) end function function redval_olf(wxformedittext me) end function function greenval_olf(wxformedittext me) end function function blueval_olf(wxformedittext me) end function function redscroll_os(wxformscrollbar me, string scrolltype) end function function greenscroll_os(wxformscrollbar me, string scrolltype) end function function bluescroll_os(wxformscrollbar me, string scrolltype) end function function okbtn_oc(wxformbutton me) wxdialog d d =@ me.form.container d.setvisible(.false) end function function errormsg(string s) wxmessagedialog(message=s, captiontext="SIMPOL Color Lab Error", style="ok", icon="error") end function
The only function which does anything so far is
okbtn_oc, which sets the dialogue visibility to
.false resulting in the code exiting the
processmodal() method and the program exiting.
Another useful naming convention can be seen in the names of the functions. The beginning portion of the name indicates the control with which it is associated, followed by an underscore, and then a set of letters describing the event. Below is a table of potentially useful names for the portion following the underscore.
At this point, it should be possible to build and run the program. It’s not very functional yet, but it is a nice place to be since now all that is left is manipulating the form in response to user-generated events (or in other words, filling in those empty functions).
Finishing the color lab program
Now that we have the basic programming running and displaying the form, all that remains is to fill in the functions that are currently empty. One thing that we can do to minimize the amount of coding is to use a common piece of code for some of the functions and call it from each of them. In this case, the scrollbar event handling functions will all be similar as will the functions that handle the edit control events for the three colour values. Everything will eventually call the
adjustformcolorvals() function. Since that is the function that everything has in common
The Full Implementation of the
function adjustformcolorvals(wxform f, integer rgbval, string ignorescrollbar="") integer red, green, blue blue = rgbval / 0x10000 green = (rgbval mod 0x10000) / 0x100 red = ((rgbval mod 0x10000) mod 0x100) f!tbHexColorValue.settext(.tostr(rgbval, 16)) f!tbDecColorValue.settext(.tostr(rgbval, 10)) f!tbRed.settext(.tostr(red, 10)) f!tbGreen.settext(.tostr(green, 10)) f!tbBlue.settext(.tostr(blue, 10)) f!sbRed.setbackgroundrgb(red) f!sbGreen.setbackgroundrgb(green * 0x100) f!sbBlue.setbackgroundrgb(blue * 0x10000) if ignorescrollbar != "red" f!sbRed.setscroll(position=red) end if if ignorescrollbar != "green" f!sbGreen.setscroll(position=green) end if if ignorescrollbar != "blue" f!sbBlue.setscroll(position=blue) end if f!rBorder.setrgb(rgb=rgbval) end function
This function takes the final colour value, and then use it to set the value of all other controls. It is a very basic function, it takes the colour value that comes as an RGB value and splits it into the red, green, and blue. It then assigns the value to each of the edit controls and uses the individual colour values to set the background for each of the scrollbars. Furthermore, it sets the position of the thumb in the scrollbars. Finally, it sets the colour of the rectangle to that of the colour passed.
While playing around with this, it was noticed that setting the position of a scrollbar that had caused the event resulted in a strange flicker, so an extra parameter was created that is ignored by the other functions, but which is passed by the code that handles the scrollbar events. This lets the function choose not to set the scroll position for the scrollbar that is passed.
The next two functions are quite similar but different enough to deserve different function implementations. In each case, the functions retrieve the current value of the control, convert it to a value, force the value to be within a valid range, and then they each call the
The Code for the
function hexval_olf(wxformedittext me) integer rgbval string hexcolor hexcolor = me.gettext() hexcolor = .if(hexcolor <= "", "0", hexcolor) rgbval = .toval(hexcolor, nohexdigits(hexcolor), 16) rgbval = .max(.min(0xffffff, rgbval), 0) adjustformcolorvals(me.form, rgbval) end function function decval_olf(wxformedittext me) integer rgbval string deccolor deccolor = me.gettext( deccolor = .if(deccolor <= "", "0", deccolor) rgbval = .toval(deccolor, nodigits(deccolor), 10) rgbval = .max(.min(0xffffff, rgbval), 0) adjustformcolorvals(me.form, rgbval) end function
There are two special function calls in the previous code,
nodigits(). Each is designed to extract all of the characters of a specific type, either normal digits or the normal plus hexadecimal digits. The result is passed to the
.toval() function as the characters to ignore when converting the value.
The next task is to handle the events for the individual colour values. As mentioned earlier, these will, in fact, be exactly the same code in each case, since the change to any single colour value still requires all the colour values to be read. All the event handlers will call the exact same function, which we will call
Handling the Events for the Colour Edit Controls
function handleonecolorchange(wxform f) integer red, green, blue, rgbval string color color = f!tbRed.gettext() red = .toval(color, nodigits(color), 10) red = .max(0, .min(255, red)) color = f!tbGreen.gettext() green = .toval(color, nodigits(color), 10) green = .max(0, .min(255, green)) color = f!tbBlue.gettext() blue = .toval(color, nodigits(color), 10) blue = .max(0, .min(255, blue)) rgbval = calcrgbval(red, green, blue) adjustformcolorvals(f, rgbval) end function function redval_olf(wxformedittext me) handleonecolorchange(me.form) end function function greenval_olf(wxformedittext me) handleonecolorchange(me.form) end function function blueval_olf(wxformedittext me) handleonecolorchange(me.form) end function function calcrgbval(integer red, integer green, integer blue) integer rgbval rgbval = blue * 0x10000 + green * 0x100 + red end function rgbval
The final piece of the puzzle is to handle the events for the scrollbars, and this next piece of code does that. Again, all three have much in common, so they all call one common routine called
Handling the Scroll Bar Events
function getcurrentcolorvals(wxform f, integer red, integer green, integer blue) red = f!sbRed.position green = f!sbGreen.position blue = f!sbBlue.position end function function doscrollbars(wxform f, string ignorescrollbar) integer red, green, blue, rgbval red = 0; green = 0; blue = 0 getcurrentcolorvals(f, red, green, blue) rgbval = calcrgbval(red, green, blue) adjustformcolorvals(f, rgbval, ignorescrollbar) end function function redscroll_os(wxformscrollbar me, string scrolltype) doscrollbars(me.form, "red")
end function function greenscroll_os(wxformscrollbar me, string scrolltype) doscrollbars(me.form, "green") end function function bluescroll_os(wxformscrollbar me, string scrolltype) doscrollbars(me.form, "blue") end function
The first function in the previous chunk of code is called by the
doscrollbars() function to retrieve the component colour values from the position property of each of the scrollbars. Since we set the range of the scrollbars to 256 and the thumb size to 1, that means that the range of valid positions is from 0 through 255. Once the component values have been retrieved, it calls the
calcrgbval() function that is also called by the
Finally, here is the code for the two functions mentioned earlier for extracting the valid digits from the string passed.
Extracting the Digits from String Values
function nodigits(string s) end function s-"0"-"1"-"2"-"3"-"4"-"5"-"6"-"7"-"8"-"9" function nohexdigits(string s) end function s-"0"-"1"-"2"-"3"-"4"-"5"-"6"-\ "7"-"8"-"9"-"a"-"b"-"c"-"d"-\ "e"-"f"-"A"-"B"-"C"-"D"-"E"-"F"
In the preceding section, we have learned to design a basic form using the Form Designer, including setting default values, using system theme colours, and working with the sizing and alignment tools. We have also saved that form in the new XML-based form format and also as SIMPOL source code. We have worked with included source files and SIMPOL language libraries. Finally, the resulting form was incorporated in a project that used dialogue to host the form and then waited on events, which were then handled by the program code. We also validated the input that was entered.
This sort of program component is a common requirement for more complex applications, where any number of similar dialogue-style user-interface components will be needed to ensure a user-friendly experience.