Is undo feature contained in Tget class?
I dont't want to create something which already exist.
May thanks
Marco
Marco Boschi
info@marcoboschi.it
info@marcoboschi.it
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Undo feature
Marco,
It is already implemented in Class TGet:
oGet:UnDo()
oGet:Refresh()
It is already implemented in Class TGet:
METHOD UnDo() INLINE ::cText := ::oGet:OriginaloGet:UnDo()
oGet:Refresh()
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
The first voice "Annulla" (Undo) is disabled
How can I activate it?
This is the code
Many thanks
marco
#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 NILMarco Boschi
info@marcoboschi.it
info@marcoboschi.it
Undo become enabled after a Cut and Delete operation. I suppose it should be active after a Paste operation too.
EMG
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
Marco Boschi
info@marcoboschi.it
info@marcoboschi.it
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
Obviously, only four buttons for all dialog's objects
Starting from this sample code
King regards
Marco
#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 NILMarco Boschi
info@marcoboschi.it
info@marcoboschi.it
up
Marco Boschi
info@marcoboschi.it
info@marcoboschi.it
Put your customized popup menu in oGet:bRClicked or in TGet:RButtonDown().
EMG
Ok,
the last question.
Is it possible to manage these operation with four buttons in your opinion?
I've tried but without success.
Marco
Marco Boschi
info@marcoboschi.it
info@marcoboschi.it
Yes, buttons or menus doesn't make any differences.
EMG
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
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
#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 nilMarco Boschi
info@marcoboschi.it
info@marcoboschi.it