Simple Tutorial - 10 : Getting Large Text

[esgici]

Simple tutorial based upon HMG Offical Tutorial for beginners.

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

Regards

esgici