HMG Tutor 22
More Organization II (SPLITBOX Control)
Controls defined as part of this container can be arranged by users, using a gripper-bar located at control’s left side. You must omit ‘@,’ in control definition.
#include "hmg.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 640 HEIGHT 450 ;
TITLE 'Tutor 22: SplitBox Test' ;
MAIN
DEFINE SPLITBOX
LISTBOX List_1 ;
WIDTH 200 ;
HEIGHT 400 ;
ITEMS {'Item 1','Item 2','Item 3','Item 4','Item 5'} ;
VALUE 3 ;
TOOLTIP 'ListBox 1'
EDITBOX Edit_1 ;
WIDTH 200 ;
HEIGHT 400 ;
VALUE 'EditBox!!' ;
TOOLTIP 'EditBox' ;
MAXLENGTH 255
END SPLITBOX
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return Nil
