PureBasic Forums - English

Posted: **Thu Jan 24, 2013 6:04 pm**

This is a big "thank you" message for Form Designer.
I decided to start a new project following the route shown by Polo in this thread:
http://www.purebasic.fr/english/viewtop ... 22&t=52214

Apart from the main file, I created the form pbf file, and a third file for procedures; it is quite easy to modify freely the form and let the application grow.

I added in the main file a slightly modified version of SpeedBar Gadget (by Uwe) after Window Initialization call so the form code is untouched:
http://www.purebasic.fr/english/viewtop ... t=speedbar

Code: Select all

InitWindow_Main()

    SpeedBarGadget(#Graph_PRESS, 503, 8, 295, 115, 0) 
    SpeedBarSetAttribute(#Graph_PRESS, #SpeedBarMaximum, 1)
    SpeedBarSetAttribute(#Graph_PRESS, #SpeedBarDigits, 0)
    
    SpeedBarGadget(#Graph_TEMP, 503, 138, 295, 115, 0)
    SpeedBarSetAttribute(#Graph_TEMP, #SpeedBarMaximum, 1)
    SpeedBarSetAttribute(#Graph_TEMP, #SpeedBarDigits, 0)    
    
    SpeedBarGadget(#Graph_CURR, 503, 268, 295, 115, 0)
    SpeedBarSetAttribute(#Graph_CURR, #SpeedBarMaximum, 1)
    SpeedBarSetAttribute(#Graph_CURR, #SpeedBarDigits, 0)
    
    SpeedBarSetAttribute(#Graph_CURR, #SpeedBarValueColor, #Green)          
    SpeedBarSetAttribute(#Graph_PRESS, #SpeedBarValueColor, #Yellow)          
    SpeedBarSetAttribute(#Graph_TEMP, #SpeedBarValueColor, #Red) 
    SpeedBarSetAttribute(#Graph_CURR,  #SpeedBarGridColor, #Gray)    
    SpeedBarSetAttribute(#Graph_PRESS,  #SpeedBarGridColor, #Gray)    
    SpeedBarSetAttribute(#Graph_TEMP,  #SpeedBarGridColor, #Gray)  
    SpeedBarSetAttribute(#Graph_CURR,  #SpeedBarSplitsY, 5)  
    SpeedBarSetAttribute(#Graph_PRESS,  #SpeedBarSplitsY, 5)  
    SpeedBarSetAttribute(#Graph_TEMP,  #SpeedBarSplitsY, 5)  
    
    SpeedBarPaint(#Graph_CURR)
    SpeedBarPaint(#Graph_PRESS)
    SpeedBarPaint(#Graph_TEMP)

WindowBounds(Window_Main, 800, 400, #PB_Ignore, 400)

Posted: **Thu Jan 24, 2013 7:11 pm**

Thanks for posting that Luciano, it's really nice to see a real project using the form designer!

PureBasic Forums - English

It works ! thank you

It works ! thank you

Re: It works ! thank you