Getting Large Text (The EditBox Control)
The EditBox control allows to handle large (multiline) text data.
Code: Select all
@ 10,10 EDITBOX Edit_1 ;
WIDTH 300 ;
HEIGHT 150
Code: Select all
#include "minigui.ch"
Function Main
DEFINE WINDOW Win_1 ;
AT 0,0 ;
WIDTH 400 ;
HEIGHT 300 ;
TITLE 'EditBox Test' ;
MAIN
DEFINE MAIN MENU
POPUP "First Popup"
ITEM 'Change EditBox Content' ACTION ;
Win_1.Edit_1.Value := 'New EditBox Value'
ITEM 'Retrieve EditBox Content' ACTION ;
MsgInfo ( Win_1.Edit_1.Value)
END POPUP
END MENU
@ 10,10 EDITBOX Edit_1 ;
WIDTH 300 ;
HEIGHT 150
END WINDOW
CENTER WINDOW Win_1
ACTIVATE WINDOW Win_1
Return
![Image](http://vivaclipper.googlepages.com/EditBox.jpg)
Regards
esgici