FiveTech Software tech support forums

... SAY */ #xcommand REDEFINE SENSITIVE SAY [<oSSay>] ; [ <label: PROMPT, VAR> <cText> ] ; [ PICTURE <cPict> ] ; [ ID <nId> ] ; [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ; [ ACTION <uAction,...> ] ; [ <lCenter: CENTERED, CENTER > ] ; [ <lRight: ...

Joel,

El codeblock te está manteniendo el último valor de i. Tienes que usar lo que se denomina "detached locals":

oDlg:aControls[i]:bAction:= GenBlock( oDlg, i, Self )

...

function GenBlock( oDlg, i, Self )

return {|nId| ::PutVal(oDlg:aControls[i]:cTitle) }

... este es mi código : *---// recorro los botones del dialogo y les asigno su Action for i:=1 to len(oDlg:aControls[i]) oDlg:aControls[i]:bAction:={|nId| ::PutVal(oDlg:aControls[i]:cTitle) } next *----------------------------* METHOD PutVal(cTitle) CLASS TBmpGet ? cTitle retu Nil cuendo clikeo sobre ...

Carlos,

GetDlgCtrlID( hCtrl ) --> nId

... Tienes que tener freeimagen.dll en la carpeta del ejecutable. Después debes tener en el prg: #xcommand REDEFINE Image [ <oBmp> ] ; [ ID <nId> ] ; [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; [ <resource: NAME, RESNAME, RESOURCE> <cResName> ] ; [ <file: FILE, FILENAME, ...

Willi, Prueba esto: SetRClicked( oMesa ) oMesa[ oMesa:nId ]:bRClicked = { | nRow, nCol | OpcionMesa( 2, oMesa:nId - 200 ) } return nil y llama a SetRClicked() antes del NEXT Si no funcionase así, prueba con: SetRClicked( oMesa, nCount ) oMesa[ nCount ...

... este codigo. FOR nCont := 1 TO 60 REDEFINE BTNBMP oMesa[nCont] ; RESOURCE "VACIA" NOBORDER ; ID (200 + nCont) OF oDls ; ACTION ( OpcionMesa(1, ::nId - 200) ) NEXT nCont oMesa[::nId]:bRClicked := {|nRow,nCol| OpcionMesa(2, ::nId - 200)} El error sale en la linea roja WARNING c1003 AMBIGUOS REFERENCE ...

... FOR nCont := 1 TO 60 REDEFINE BTNBMP oMesa[nCont] ; RESOURCE "VACIA" NOBORDER ; ID (200 + nCont) OF oFld:aDialogs[1] ; ACTION ( OpcionMesa(1, ::nId - 200) ) NEXT nCont oMesa [::nId]: bRClicked := {|nRow,nCol| OpcionMesa(2, ::nId - 200)} aqui al compilar sale un error, al parecer no acepta ::nId, ...

... REDEFINE COMBOBOX [ <oCbx> VAR ] <cVar> ; [ <items: PROMPTS, ITEMS> <aItems> ] ; [ ID <nId> ] ; [ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ ON ...

... _parc( 2 ), _parclen( 2 ) ) ); } //----------------------------------------------------------------------------// CLIPPER READCOMM( PARAMS ) // ( nId, @ cBuffer ) --> nBytesRead { _retni( ReadComm( _parni( 1 ), _parc( 2 ), _parclen( 2 ) ) ); } //----------------------------------------------------------------------------// ...

... de los #xcomm#~??654556 #xcommand REDEFINE DBCOMBO [ <oCbx> VAR ] <cVar> ; [ <items: ITEMS, PROMPTS> <aItems> ] ; [ ID <nId> ] ; [ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ ON CHANGE <uChange> ] ; [ ON ...

... STATIC FUNCTION wCamCreaWnd; (cTitle AS STRING,; nStyle AS LONG,; x AS LONG, y AS LONG, nWidth AS LONG, nHeight AS LONG,; hWndParent AS LONG, nID AS LONG) AS LONG PASCAL; FROM "capCreateCaptureWindowA" LIB "avicap32.dll" ********************************************************** ...

... (redimensionable) y montaba el browse. Para que el browse se redimensione cuando se redimensiona la ventana, pongo la siguiente orden : oWnd[nId]:SetControl(oLbx[nId]) con lo cual cuando la ventana cambia de tamaño el browse también. Bien ahora la pregunta. He puesto un vtaskbar a la izquierda ...