FiveTech Software tech support forums

Estimado Leandro, En esas líneas se vacian los DBFs que guardan el undo y el redo:   SELECT 0   USE ( oGenVar:cUndoFileName + ".dbf" ) ALIAS TMPUNDO   ZAP   USE ( oGenVar:cRedoFileName + ".dbf" ...

... numbered lists within the control. Copy, cut, and paste: Users can perform clipboard operations to copy, cut, and paste text within the control. Undo and redo: The control may support undo and redo functionality to revert or restore changes made to the text. Spell checking: While the specific ...

... (Correct me if my opinion is not correct) From: https://learn.microsoft.com/en-us/windows/win32/controls/em-settextmode Sets the text mode or undo level of a rich edit control. The message fails if the control contains any text. What the companion requests is to be able to remove all the formatting ...

... apparatus in the event that a cut occurs. In any case, the rollback, as far as I know, does not exist in all bb.dd. and it doesn't totally undo everything Salu2

... to do, before doing them and after doing them, to confirm that they were performed successfully. If any of those operations fails, then you "undo" what you have done. That is traditionally known as a "rollback". SQL engines provide such capability but using DBFs we have to ...

Can it do in TGet classes?

Yes.
Posted after testing.

Dear Master,

Can it do in TGet classes?

nageswaragunupudi wrote:Do not use SETKEY.
If you want to undo when the user presses Ctrl-Z while editing the Get, then

Code: Select all  Expand view  RUN

oGet:bKeyChar := { |k,f,o| If( k == 26, ( o:cText := o:uOriginalValue, 0 ), nil ) }
 

oGet:undo() -> works Works only when oGet has focus. By any chance/mistake if oGet:undo() is called when oGet is out of focus, unexpected and undesirable results can happen. oGet:cText := v:oGet:Original -> works This ...

Dear Master, oGet:undo() -> worksoGet:cText := v:oGet:Original -> works // Do not responseSETKEY( 26    , {|p, l, v| GetUndo(v) } )  // orSetKey( VK_Z, {|p, l, v| IF( GetKeyState( ...

Dear Karinha, SetKey() do not accept CTRL+Z. It doesn't go through My_Function(). Maybe: #Define VK_Z 26  // 538  ?   SetKey( VK_Z, {|| IF( GetKeyState( VK_CONTROL ), MY_FUNCTION(), NIL ) } )  http://forums.fivetechsupport.com/viewtopic.php?f...

dutch wrote:Dear Master,

It doesn't work. Nothing change, any editing still the same. It doesn't change back to original.

nageswaragunupudi wrote:Please try

Code: Select all  Expand view  RUN

oGet:Undo()
 

This is far better than oGet:Undo()

Code: Select all  Expand view  RUN

oGet:cText := oGet:uOriginalValue
 

Maybe:

Code: Select all  Expand view  RUN

#Define VK_Z 26  // 538  ?

   SetKey( VK_Z, {|| IF( GetKeyState( VK_CONTROL ), MY_FUNCTION(), NIL ) } )
 

http://forums.fivetechsupport.com/viewtopic.php?f=6&t=8985

Regards, saludos.

Dear karinha, Your sample is working and I got it. TGet:undo() must still TGet in Focus. Is it possible to add Ctrl+Z to TGet for :undo()? I try as below at the main but ; 1. it works in case of typing more charactor. 2. it doesn't work in case delete ...

...    MENUITEM "Cancel"        ; // "Cancelar"          ACTION( oGet:Undo() )       MENUITEM "Empty"         ; // "Vacío"        ...

Dear Master,

It doesn't work. Nothing change, any editing still the same. It doesn't change back to original.

nageswaragunupudi wrote:Please try

Code: Select all  Expand view  RUN

oGet:Undo()