HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main
   set navigation extended
   define window main at 0, 0 width 400 height 300 main
      define label text1label
         row 10
         col 10
         width 100
         value 'Text1'
      end label
      define textbox t1
         row 10
         col 110
         width 200
         value 'Some text'
      end textbox   
      define label combo1label
         row 40
         col 10
         width 100
         value 'Combo1'
      end label
      define combobox c1
         row 40
         col 110
         width 200
         items { 'Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday' }         
         value 1
         onlostfocus c1focuslost()
      end combobox   
      define label text2label
         row 70
         col 10
         width 100
         value 'Text2'
      end label
      define textbox t2
         row 70
         col 110
         width 200
         value 'Some text'
      end textbox   
   end window
   main.center
   main.activate
Return

function c1focuslost
   msginfo( 'Here' )
return nil