HMGforum.com

Code: Select all

#include <hmg.ch>

Function Main

   define window sample at 0, 0 width 800 height 600 main
      define label sortedlabel
         row 10
         col 10
         width 200
         value 'Grid with sorted data'
      end label   
      define grid sorted
         row 40
         col 10
         width 200
         widths { 100, 100 }
         headers { 'Month', 'ID' }
         height 200
         items { ;
                 {'April', 'Month4' },;
                 {'August', 'Month8' },;
                 {'December', 'Month12' },;
                 {'February', 'Month2' },;
                 {'January', 'Month1' },;
                 {'July', 'Month7' },;
                 {'June', 'Month6' },;
                 {'March', 'Month3' },;
                 {'May', 'Month5' },;
                 {'November', 'Month11' },;
                 {'October', 'Month10' },;
                 {'September', 'Month9' } }
         value 1
      end grid         
      define label unsortedlabel
         row 240
         col 10
         width 200
         value 'Grid with unsorted data'
      end label   
      define grid unsorted
         row 270
         col 10
         width 200
         widths { 100, 100 }
         headers { 'Month', 'ID' }
         height 200
         items { {'January', 'Month1' },;
                 {'February', 'Month2' },;
                 {'March', 'Month3' },;
                 {'April', 'Month4' },;
                 {'May', 'Month5' },;
                 {'June', 'Month6' },;
                 {'July', 'Month7' },;
                 {'August', 'Month8' },;
                 {'September', 'Month9' },;
                 {'October', 'Month10' },;
                 {'November', 'Month11' },;
                 {'December', 'Month12' }}
         value 1
      end grid         
   end window
   sample.center
   sample.activate
Return

Code: Select all

* HMG-IDE Form Designer Generated Code
* (c) Roberto Lopez - http://sites.google.com/site/hmgweb

DEFINE WINDOW TEMPLATE AT 133 , 302 WIDTH 550 HEIGHT 350 VIRTUAL WIDTH Nil VIRTUAL HEIGHT Nil TITLE "" ICON NIL  CURSOR NIL ON INIT Nil ON RELEASE Nil ON INTERACTIVECLOSE Nil ON MOUSECLICK Nil ON MOUSEDRAG Nil ON MOUSEMOVE Nil ON SIZE Nil ON MAXIMIZE Nil ON MINIMIZE Nil ON PAINT Nil BACKCOLOR Nil NOTIFYICON NIL NOTIFYTOOLTIP NIL ON NOTIFYCLICK Nil ON GOTFOCUS Nil ON LOSTFOCUS Nil ON SCROLLUP Nil ON SCROLLDOWN Nil ON SCROLLLEFT Nil ON SCROLLRIGHT Nil ON HSCROLLBOX Nil ON VSCROLLBOX Nil

    DEFINE GRID Grid_1
        ROW    90
        COL    40
        WIDTH  470
        HEIGHT 200
        ITEMS { {""} }
        VALUE 1
        WIDTHS { 170,300 }
        HEADERS {'Client ID','Client Name'}
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONDBLCLICK Nil
        ONHEADCLICK Nil
        ONQUERYDATA Nil
        MULTISELECT .F.
        ALLOWEDIT .F.
        VIRTUAL .F.
        DYNAMICBACKCOLOR Nil
        DYNAMICFORECOLOR Nil
        COLUMNWHEN Nil
        COLUMNVALID Nil
        COLUMNCONTROLS {{'TEXTBOX','NUMERIC','9999'},{'TEXTBOX','CHARACTER'}}
        SHOWHEADERS .T.
        CELLNAVIGATION .F.
        NOLINES .F.
        HELPID Nil
        IMAGE Nil
        JUSTIFY Nil
        ITEMCOUNT Nil
        BACKCOLOR NIL
        FONTCOLOR NIL
        HEADERIMAGES Nil
        ROWSOURCE "Clients"
        COLUMNFIELDS {'cl_id','cl_name'}
        ALLOWAPPEND .F.
        ALLOWDELETE .F.
        BUFFERED .F.
        DYNAMICDISPLAY Nil
        ONSAVE Nil
        LOCKCOLUMNS 0
    END GRID

    DEFINE TEXTBOX Next_Client_ID
        ROW    40
        COL    220
        WIDTH  120
        HEIGHT 24
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        ONCHANGE Nil
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONENTER Nil
        HELPID Nil
        TABSTOP .T.
        VISIBLE .T.
        READONLY .F.
        RIGHTALIGN .F.
        DISABLEDBACKCOLOR Nil
        DISABLEDFONTCOLOR Nil
        CASECONVERT NONE
        BACKCOLOR NIL
        FONTCOLOR NIL
        INPUTMASK Nil
        FORMAT Nil
        NUMERIC .T. 
        VALUE Nil
    END TEXTBOX

END WINDOW