Is undo feature contained in Tget class?
I dont't want to create something which already exist.
May thanks
Marco
METHOD UnDo() INLINE ::cText := ::oGet:Original
#include "fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oGet1 , cGet1 := SPACE(100)
LOCAL oGet2 , cGet2 := SPACE(100)
DEFINE DIALOG oDlg FROM 10 , 10 TO 400 , 700 PIXEL
@ 30 , 1 GET oGet1 VAR cGet1 OF oDlg SIZE 200 , 20 PIXEL
@ 70 , 1 GET oGet2 VAR cGet2 OF oDlg SIZE 200 , 20 PIXEL
ACTIVATE DIALOG oDLg CENTER
RETURN NIL
#include "fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg
LOCAL oGet1 , cGet1 := SPACE(100)
LOCAL oGet2 , cGet2 := SPACE(100)
DEFINE DIALOG oDlg FROM 10 , 10 TO 400 , 700 PIXEL
@ 30 , 1 GET oGet1 VAR cGet1 OF oDlg SIZE 200 , 20 PIXEL
@ 70 , 1 GET oGet2 VAR cGet2 OF oDlg SIZE 200 , 20 PIXEL
ACTIVATE DIALOG oDLg CENTER
RETURN NIL
#include "fivewin.ch"
#define crlf CHR(13)+CHR(10)
FUNCTION MAIN()
LOCAL oDlg
LOCAL oGet1 , cGet1 := "Aaaaa " + crlf + "Bbbbbbb "
LOCAL oGet2 , cGet2 := "Cccccc Dddd Eeeeee "
DEFINE DIALOG oDlg
@ 1 , 1 GET oGet1 VAR cGet1 OF oDlg SIZE 100 , 30 PIXEL MEMO
@ 3 , 1 GET oGet2 VAR cGet2 OF oDlg
ACTIVATE DIALOG oDlg CENTER
RETURN nil
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 90 guests