maybe that my problem has long been solved but as a beginner I tried all and found no solution.
Code: Select all
//Testprogram Mouseclick in Textbox
#include "hmg.ch"
PROCEDURE main()
DEFINE WINDOW form_1 ;
AT 0,0 ;
WIDTH 600 ;
HEIGHT 230 ;
FONT 'Arial' SIZE 9 ;
TITLE ' Test Program for TextBoxes' ;
MAIN
@ 60,20 LABEL label_1 OF form_1 ;
HEIGHT 20 ;
WIDTH 300 ;
VALUE "Textbox-1 (3 x alpha-Char. and Upper)" ;
FONT 'Arial' SIZE 12
@ 60,370 TEXTBOX text_1 OF form_1 ;
HEIGHT 20 ;
WIDTH 60 ;
VALUE '' ;
FONT 'Arial' SIZE 12;
INPUTMASK 'AAA' ;
ON CHANGE {||THIS.VALUE := HMG_UPPER(THIS.VALUE)}
@ 90,20 LABEL label_2 OF form_1 ;
HEIGHT 20 ;
WIDTH 300 ;
VALUE "Textbox-2 (4 x numeric-Characters)" ;
FONT 'Arial' SIZE 12
@ 90,370 TEXTBOX text_2 OF form_1 ;
HEIGHT 20 ;
WIDTH 60 ;
VALUE '' ;
FONT 'Arial' SIZE 12 ;
INPUTMASK '9999'
@ 120,20 LABEL label_3 OF form_1 ;
HEIGHT 20 ;
WIDTH 350 ;
VALUE "Textbox-3 (17 x alphanumeric Char. and Upper)" ;
FONT 'Arial' SIZE 12
@ 120,370 TEXTBOX text_3 OF form_1 ;
HEIGHT 20 ;
WIDTH 200 ;
VALUE '' ;
FONT 'Arial' SIZE 12 ;
INPUTMASK '!!!!!!!!!!!!!!!!!'
END WINDOW
CENTER WINDOW Form_1
ACTIVATE WINDOW Form_1
RETURN Nil
My second problem is in Textbox-1 with UPPERCASE instead of ON CHANGE. (I only want uppercase alpha-characters). Somebody an idea to solve it ?
THX Karl