FiveTech Software tech support forums

... SIZE 0,24 DEFINE WINDOW oWnd FROM 0,0 TO 12,34 TITLE "Test Program" @ 20, 20 SAY "ENTER" OF oWnd PIXEL @ 60, 20 GET oName VAR cName OF oWnd PIXEL SIZE 200,30 @ 100, 80 BUTTON "EXIT" OF oWnd PIXEL SIZE 70,30 ACTION oWnd:End() SET FONT OF oWnd TO oFont0 ACTIVATE ...

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP 0.50; ON DOWN 0.50 MIN 0,50 MAX 200 RIGHTTOLEFT @ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont ...

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP 0.50; ON DOWN 0.50 MIN 0,50 MAX 200 RIGHTTOLEFT @ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont ...

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP aGet[ 4 ]:VarPut( nPuntataIniziale+=0.50 ) ; ON DOWN aGet[ 4 ]:VarPut( nPuntataIniziale-=0.50 ) MIN 0,50 MAX 200 RIGHTTOLEFT @ nRow,nCol+150 ...

@ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP aGet[ 4 ]:VarPut( nPuntataIniziale+=0.50 ) ;
ON DOWN aGet[ 4 ]:VarPut( nPuntataIniziale-=0.50 ) MIN 0,50 MAX 200 RIGHTTOLEFT

... := 0.50 @ nRow,nCol SAY oSay[1] PROMPT "Puntata iniziale" SIZE 100,24 PIXEL OF oDlg FONT oFont @ nRow,nCol+150 GET aGet[4] VAR nPuntataIniziale SIZE 90,20 PIXEL OF oDlg FONT oFont SPINNER ON UP nPuntataIniziale+=0.50; ON DOWN nPuntataIniziale-=0.50 MIN 0,50 MAX 200 RIGHTTOLEFT ...

... - 20 IF M->oDlgSegPan <> NIL LEC->( DBGOBOTTOM() ) oBrwConPan:refresh() IF nAncPan < 1300 @ nAltPan-80,nAncPan-225 SAY oVlrTot VAR nVlrTot PICT "999,999,999,999.99" SIZE 200,45 PIXEL FONT oFont OF oDlgSegPan CENTER ; COLOR RGB(247,144,39),cColorFondo ELSE @ nAltPan-85,nAncPan*nAjuAn3 ...

... (this code worked in the old version of fivewin 16.8 ) define dialog oDialog resource 'TECLADO' //(in .RC password=yes) redefine get oTexto var cTexto id 4020 of oDialog picture '@!k' color when .f. redefine button oBut1 id 4001 of oDialog action (oTexto:cText('A')) redefine button oBut2 ...

... (this code worked in the old version of fivewin 16.8 ) define dialog oDialog resource 'TECLADO' //(in .RC password=yes) redefine get oTexto var cTexto id 4020 of oDialog picture '@!k' color when .f. redefine button oBut1 id 4001 of oDialog action (oTexto:cText('A')) redefine button oBut2 ...

You can modify the command in FiveWin.ch: #xcommand @ <nRow>, <nCol> SAY [ <oSay> <label: PROMPT,VAR > ] <cText> ; [ <pict: PICT, PICTURE> <cPict> ] ; [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ; [ FONT <oFont> ] ; [ <lCenter: ...

... oBrw:oFont != nil oFont := TFont():New( oBrw:oFont:cFaceName, oBrw:oFont:nWidth,; oBrw:oFont:nHeight, .F., oBrw:oFont:lBold ) Endif @0,0 GET oGet VAR uVar ; SIZE aDim[ 4 ] - aDim[ 2 ] - If( bAction != nil, 12, 0 ),; aDim[ 3 ] - aDim[ 1 ] OF oDlg ; FONT oFont COLOR nClrFore, nClrBack oGet:oFont ...

... oQry:horario_2 cGet[09] := oQry:horario_3 cGet[10] := oQry:horario_4 EndIf DEFINE DIALOG oDlg RESOURCE "personal" REDEFINE GET oGet[01] VAR cGet[01] ID 100 OF oDlg VALID GetCodigo(cGet[01],modo) REDEFINE GET oGet[02] VAR cGet[02] ID 101 OF oDlg PICTURE "@!" REDEFINE GET oGet[03] ...

Hi to all, why in this memo REDEFINE GET oGet VAR cModifica ID 101 OF oDlg MEMO I found selected all text? Second question is I desire than if I perform a double click in a line all the current line has to be selected not only some characters (if ...

... puedo cambiar cualquiera de los RADIO y NO "anula" al Otro RADIO. Por que puede ser? Asi los tengo definidos REDEFINE RADIO oTipoCon VAR nTipoCont ID Con_Comercial, Con_Vivienda OF oDlgCF when agrega REDEFINE RADIO oLey VAR nLey ID Con_2022, Con_2023 OF oDlgCF when agrega Gracias. ...

... puedo cambiar cualquiera de los RADIO y NO "anula" al Otro RADIO. Por que puede ser? Asi los tengo definidos REDEFINE RADIO oTipoCon VAR nTipoCont ID Con_Comercial, Con_Vivienda OF oDlgCF when agrega REDEFINE RADIO oLey VAR nLey ID Con_2022, Con_2023 OF oDlgCF when agrega Gracias.