Undo feature

[MarcoBoschi]

Is undo feature contained in Tget class?
I dont't want to create something which already exist.

May thanks
Marco

[Antonio Linares]

Marco,

It is already implemented in Class TGet:

Code: Select all  Expand view

  METHOD UnDo() INLINE ::cText := ::oGet:Original

oGet:UnDo()
oGet:Refresh()

[MarcoBoschi]

If I press right mouse button a menu appears.

The first voice "Annulla" (Undo) is disabled

How can I activate it?

This is the code

Many thanks

marco

Code: Select all  Expand view

#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

[Enrico Maria Giordano]

Undo become enabled after a Cut and Delete operation. I suppose it should be active after a Paste operation too.

EMG

[MarcoBoschi]

Enrico,
Ok Now I see the voice "Undo" enabled but only If I use popup menu.
If I work with keyboard, for instance backspace or delete key, the "undo" voice is never enabled

[MarcoBoschi]

In your opinion Is it possible to manage Cut, Copy, Undo and Paste actions with four different buttons?

Obviously, only four buttons for all dialog's objects

Starting from this sample code

King regards

Marco

Code: Select all  Expand view

#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

[MarcoBoschi]

up

[Enrico Maria Giordano]

Put your customized popup menu in oGet:bRClicked or in TGet:RButtonDown().

EMG

[MarcoBoschi]

Ok,
the last question.

Is it possible to manage these operation with four buttons in your opinion?
I've tried but without success.

Marco

[Enrico Maria Giordano]

Yes, buttons or menus doesn't make any differences.

EMG

[MarcoBoschi]

I state to have an old version (october 2009)

This is the problem:

- I modify first memo get: insert a third line with "Ccccccc"
- I change focus passing on second GET
- I realize to get wrong I have to write "Dddddddd"
- I return into first GET
- Press CTRL_Z
- I note an exact Undo operation the get returns to Initiali value

The problem is on other get, the second one not memo.

This operation does not work at all

Code: Select all  Expand view

#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

[Antonio Linares]

viewtopic.php?f=3&t=23101&p=124072#p124072