FiveTech Software tech support forums

https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42569&sid=69d117ede39f4731baa91e08b8dd8f79 https://forums.fivetechsupport.com/viewtopic.php?f=3&t=42971&sid=69d117ede39f4731baa91e08b8dd8f79 Regards. Karinha en los enlaces que me pasas veo la fun...

Victor: El efecto del LimitText se logra asi: #include 'fivewin.ch'Function Main()    Local oDlg    Local oGet    Local cVar := Space( 10000 )    DEFINE DIALOG oDlg;           SIZE 200,200       @1,1 GET oGet;        ...

Victor: El efecto del LimitText se logra asi: #include 'fivewin.ch'Function Main()    Local oDlg    Local oGet    Local cVar := Space( 10000 )    DEFINE DIALOG oDlg;           SIZE 200,200       @1,1 GET oGet;        ...

...   DEFINE DIALOG oDlg;           SIZE 200,200        @1,1 GET oGet;         VAR cVar;         MEMO;         SIZE 90,70;         OF oDlg    oGet:LimitText(10)        ACTIVATE DIALOG oDlg CENTEREDReturn ( Nil )  Pero el resultado es este: https://i.ibb.co/tqyqnzt/2023-04-07-19h13-28.gif ...

... MULTILINE PIXEL             ;      OF oDlg FONT oFont2 COLOR RGB(0,0,128), RGB(159,233,255) UPDATE        ;      ON CHANGE( SB_LimitText( oGet[14] ) ) // By AleSB   // Limpia GET Multiline.   oGet[14]:bGotFocus = { || oGet[14]:SetSel( ...

... Method SaveImage() - Mira el ejemplo nuevo: \fwh\samples\imgb64.prg * Clase TEdit ( source\classes\edit.prg ) Añadidas las claúsulas UPDATE y LIMITTEXT [BY n CHARS] al comando REDEFINE EDIT para proporcionarle la misma funcionalidad que al comando @ r,c EDIT para editar controles también creados ...

... can be saved using: method SaveImage() - See new sample \fwh\samples\imgb64.prg * TEdit class ( source\classes\edit.prg ) Added clauses UPDATE and LIMITTEXT [BY n CHARS] to REDEFINE EDIT command providing the same functionality as @ r,c EDIT command to edit controls created from resources also. ...

Added clauses UPDATE and LIMITTEXT [BY n CHARS] to REDEFINE EDIT command in FWH 2101

... WORKS   redefine EDIT gnum var vnum id 4002 of d_loc2    ACTIVATE DIALOG d_loc2 CENTEREDreturn nil  But when I put "LIMITTEXT BY 10 CHARS UPDATE" I cannot compile it anymore, through this error: No code generated. test.prg(2810) Error E0030 Syntax error "syntax ...

... you wanted. Clicking at any place will take the cursor to that place even if there are spaces. This has been the behavior of Get class since ages. Limittext value of -1 is for multiline edit. For single line edit it is 0. In any case normal ANSI get ignores this setting. FWH provides EDIT class ...

... color CLR_3  update Estuve investigando tanto aqui, como en los docs de Harbour y no encuentro nada. Solo encontre algo de LimitText( -1 ) para dejarlo libre, pero no me funciona. Me dice "No exported method". Lo uso de la siguiente manera: // Despues del redefine ...

Antonio Linares wrote:Hakan,

Please try this from the ON INIT of the dialog:

oMemo:LimitText( -1 ) // No text size limits

Also you may try using the FWH function RichEdit() instead of MemoEdit()

Thank you. It seems it works.

Hakan,

Please try this from the ON INIT of the dialog:

oMemo:LimitText( -1 ) // No text size limits

Also you may try using the FWH function RichEdit() instead of MemoEdit()

Thank you very much Rao!

Disable Enter key by

Code: Select all  Expand view  RUN

ON INIT oGet:WinStyle( ES_WANTRETURN, .f. )

Then the user can enter only 200 characters and can not use Enter key at all.