FiveTech Software tech support forums

... nItem,2),oBrowse,355,.F.,0,aAcc_Desc})




*---------------------------------------------------------------------------*
FUNCTION HEditCol( nCol, uVar, cPicture, bValid, nClrFore, nClrBack,aItems, bAction, aVarArry ...

Look commad for RICHEDT5

#command @ <nTop>, <nLeft> RICHEDIT5 [ <oRTF> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <lHScroll: HSCROLL> ] ;
[ <readonly: READONLY, NO MODIFY> ] ;
[ WHEN ...

... devuelve
oItem:cPromt y en caso contrario devuelve 'nil'.
Si n está dentro del rango, oItem[ n ] := newValue también funciona.

* Función XEval( uVar, p1, p2, ... ) mejorada.
Ahora uVar también puede ser un nombre de función que termine con "()".
Si la función nombrada está enlazada, la función ...

... size and if n is '0' returns
oItem:cPromt and else returns 'nil'
If n is within the range, oItem[ n ] := newValue works too.

* Enhanced XEval( uVar, p1, p2, ... )
Now uVar can also be function name ending with "()".
If the named function is linked, the function is executed
with params p1,p2 ...

... de botones.

- Añadida una barra de botones para controlar la definición del control RichEdt5.
#command @ <nTop>, <nLeft> RICHEDIT5 [ <oRTF> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <lHScroll ...

... nR, nC, nT )
Show / Hide ButtonBar

- Added ButtonBar to control RichEdt5 definition
#command @ <nTop>, <nLeft> RICHEDIT5 [ <oRTF> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg ...

... ACTIVATE WINDOW oWnd

return nil

//----------------------------------------------------------------------------//

function ShowMsg( cProc, nLine, uVar )

local oDlg

msgstop(cproc)
msgstop(nline)
msgstop(uvar)

DEFINE DIALOG oDlg FROM 2, 2 TO 8, 20 TITLE "I am a Dialog"

@ 1, 1 BUTTON "&Ok ...

... nHeight> ];
[ INFIELDFONT <oFont> ] ;

https&#58;//mybergland&#46;com/FWForum/infieldget&#46;jpg

<nRow>, <nCol> FORMAT GET [ <oFGet> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <memo: MULTILINE, MEMO, TEXT> ] ;
[ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth ...

try to change movements of Mouse

Static Function GetTimeDblClick()
local oReg := TReg32():New( HKEY_CURRENT_USER, "Control Panel\Mouse" )
local uVar

uVar := oReg:Get( "DoubleClickSpeed", "500" )

IF uVar == NIL
uVar = 500
ENDIF
oReg:Close()

RETURN Val( uVar )

... alineado a la izquierda, esté alineado a la derecha ???

Gracias.

Utiliza la clausula RIGHT


#command @ <nRow>, <nCol> EDIT [ <oEdit> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ <lMemo: MEMO,TEXT,MULTILINE> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <lPixel: PIXEL, PIXELS ...

... CURRENT_USER 2147483649

//---------------------------------------------------------------------------//

function Main()

LOCAL oReg, cName, uVar

oReg = TReg32():New( HKEY_CURRENT_USER, "SOFTWARE\Medida\Etiqueta" )
IF oReg:nError <> 0
oReg = TReg32():Create( HKEY_CURRENT_USER, "SOFTWARE ...

... option value="' + aItems[ n ][ 1 ] + '">' + aItems[ n ][ 1 ] + "</option>"
else
? '<option value="' + aItems[ n ] + '"' + ;
If( AScan( aItems, uVar ) == n, " selected ", "" ) + '>' + aItems[ n ] + "</option>" ---->esto es lo que no me anda
endif
next

...deberia hacerlo pero no lo hace
. en ...

... DTPICKER.CH) to create this kind of control with the typical
syntax of all Fivewin controls:

@ <nRow>, <nCol> DTPICKER [ <oDTPicker> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ VALID <ValidFunc> ] ;
[ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth>, <nHeight ...

... DTPICKER.CH) to create this kind of control with the typical
syntax of all Fivewin controls:

@ <nRow>, <nCol> DTPICKER [ <oDTPicker> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ VALID <ValidFunc> ] ;
[ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth>, <nHeight ...

Fernando


#command @ <nTop>, <nLeft> RICHEDIT5 [ <oRTF> VAR ] <uVar> ;
[ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ FONT <oFont> ] ;
[ <pixel: PIXEL> ] ;
[ MESSAGE <cMsg> ] ;
[ <lHScroll: HSCROLL> ] ;
[ <readonly: READONLY, NO MODIFY> ] ;
[ WHEN <uWhen ...