FiveTech Software tech support forums

Baxajaun wrote:José,

yo te recomiendo FivEdit de Cristóbal Navarroa. Además de ser una herramienta excepcional, Cristóbal da un soporte increible.

Muchas gracias.

Saludos,

Code: Select all  Expand view

/*----------------------------------------------------------------------------//
!short: SAY Y GET */

#xcommand @ <nRow>, <nCol> SAY [ <oSay> <label: PROMPT SAY,VAR SAY > ] <cText> GET [ <oGet> VAR ] <uVar> ;
             [ <pictsay: PICT SAY, PICTURE SAY> <cPictsay> ] ;
             [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
             [ FONT <oFont> ]  ;
             [ <lCentersay: CENTERED SAY, CENTER SAY > ] ;
             [ <lRightsay:  RIGHT SAY >    ] ;
             [ <lBorder: BORDER SAY >   ] ;
             [ <colorsay: COLOR SAY,COLORS SAY > <nClrTextsay> [,<nClrBacksay> ] ] ;
             [ SIZE SAY <nWidthsay>, <nHeightsay> ] ;
             [ <designsay: DESIGN SAY>  ] ;
             [ <updatesay: UPDATE SAY>  ] ;
             [ <lShaded: SHADED SAY, SHADOW SAY> ] ;
             [ <lBox:    BOX SAY  >  ] ;
             [ <lRaised: RAISED SAY> ] ;
             [ <adj: ADJUST SAY> ] ;
             [ <lTrans: TRANSPARENT SAY>];
             [ <pict: PICT, PICTURE> <cPict> ] ;
             [ VALID <ValidFunc> ] ;
             [ <color: COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
             [ SIZE <nWidth>, <nHeight> ]  ;
             [ <design: DESIGN> ] ;
             [ CURSOR <oCursor> ] ;
             [ MESSAGE <cMsg> ] ;
             [ <update: UPDATE> ] ;
             [ WHEN <uWhen> ] ;
             [ <lCenter: CENTER, CENTERED> ] ;
             [ <lRight: RIGHT> ] ;
             [ ON CHANGE <uChange> ] ;
             [ <readonly: READONLY, NO MODIFY> ] ;
             [ <pass: PASSWORD> ] ;
             [ <lNoBorder: NO BORDER, NOBORDER> ] ;
             [ <help:HELPID, HELP ID> <nHelpId> ] ;
             [ ACTION <uAction> ] ;
             [ BITMAP <cBmpName> ] ;
             [ CUEBANNER <cCueText> ] ;
      => ;
          [ <oSay> := ] TSay():New( Row2Pxl(<nRow>), Col2Pxl(<nCol>)/2, <{cText}>,;
             [<oWnd>], [<cPictsay>], FontSay(<oFont>), <.lCentersay.>, <.lRightsay.>, <.lBorder.>,;
             .T., <nClrTextsay>, <nClrBacksay>, SIZE_LARGO(<cText>,<cPictsay>)-8, SIZE_ANCHO(.f.),;
             <.designsay.>, <.updatesay.>, <.lShaded.>, <.lBox.>, <.lRaised.>, <.adj.>,;
             <.lTrans.>, [<(oSay)>] ) ;;
          [ <oGet> := ] TGet():New( Row2Pxl(<nRow>), Col2Pxl(<nCol>)/2+SIZE_LARGO(<cText>)-4, bSETGET(<uVar>),;
             [<oWnd>], SIZE_LARGO(<uVar>,<cPict>), SIZE_ANCHO(.f.), <cPict>, <{ValidFunc}>,;
             <nClrFore>, <nClrBack>, FontGet(), <.design.>,;
             <oCursor>, .T., <cMsg>, <.update.>, <{uWhen}>,;
             <.lCenter.>, <.lRight.>,;
             [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
             <.pass.>, [<.lNoBorder.>], <nHelpId>,,,,,, [\{|self| <uAction> \}],;
             <cBmpName>, [<(oGet)>], [<cCueText>] )