FiveTech Software tech support forums

... problema... Saludos Cristobal Disculpa Adrian El CreateFromResource funciona poniendo el id dentro de la llamada a la function CreateFromResource( nID ), pero en la definicion entonces no se usa el Redefine El XBrowse se define igual que si lo definieras por codigo y al final se pondria oBrw1:CreateFromResource( ...

... your message Excuse my English Using the HIGHLIGHT clause? # xcommand REDEFINE RICHEDIT [<oRTF> VAR] <uVar>;               [ID <nId>];               [<dlg: OF, WINDOW, dialog> <oDlg>];               [HELP ID> <help:HELPID, <nHelpId>];               ...

... After your posts I manually searched xbrowse.ch and found this: #xcommand REDEFINE [ COLUMN ] XBROWSE <oBrw> [<clauses,...>] ID <nID> [<moreClauses,...>] ; => @ 0,0 XBROWSE <oBrw> [<clauses>] ID <nID> [<moreClauses>] Of course my automatic search ...

The problem is not in the. RC
You are calling the method CreateFromCode, and you have to call the method

:CreateFromResource( nId )

... start: 0 hours 0 mins 2 secs Error occurred at: 11/14/13, 12:59:36 Error description: Error BASE/1004 Class: 'NUMERIC' has no exported method: NID Args: [ 1] = N 1210 Stack Calls =========== Called from: => NID( 0 ) Called from: Lib\TLayout.prg => TLAYOUT:CALCULEHORIZONTAL( 175 ) Called ...

...  1767G 1767G 1785  1798  1812 NHORZRES()             (function  in ?)    WINDOW.PRG      900 NHWNDFROM              WINDOW.PRG     1838  1839 NID                    WINDOW.PRG      436   967   978   983  1374  1378  1382  1388  1391  1746 NIDCTL                  WINDOW.PRG      560   707  1488 ...

... := 0, nCol := 0, nWidth := 200,; nHeight := 200 ::nTop = nRow ::nLeft = nCol ::nBottom = nRow + nHeight ::nRight = nCol + nWidth ::oWnd = oWnd ::nId = ::GetNewId() ::nStyle = nOR( WS_CHILD, WS_VISIBLE, WS_TABSTOP ) ::cProgID = cProgID ::cString = ActXString( cProgID ) ::Register() ? 'paso1' if ...

Hola Todo los get tiene un variable nId Aqui un Ejemplo de como usarlo con SETKEY SetKey( VK_F3, { |handle, n, oGet| ;            iif( lok .and. oGet:nID = id_IDrutcli .and. (alias_clientes)->( dbSeek( oIng:Rutcli ...

... Buscando una solución le definí un DefControl estándar al TAPNEL, tal que así: METHOD DefControl( oCtrl ) CLASS TPanel   DEFAULT oCtrl:nId := oCtrl:GetNewId()      IF ::aControl = NIL     ::aControls := {}      ENDIF      AAdd( ::aControls, oCtrl )      oCtrl:hWnd ...

... a mano con @ 10,10 .... . Segundo lo que falla es el TSAY que no se asocia con el panel. La línea del INITiATE: IF( ( ::hWnd := GetDlgItem( hDlg,::nId ) ) # 0 ) me devuelve 0 y creo que es porque no reconoce ::nId como item del panel. Seguramente tendrá algo que ver que no viene de recurso pues ...

... TPANEL:DEFCONTROL". Así que le implementé un METHOD DefControl() AL TPANEL, tal que así: METHOD DefControl( oCtrl )   DEFAULT oCtrl:nId := oCtrl:GetNewId() // AUNQUE oCtrl YA TRAE UNO   IF ::aControls = NIL      ::aControls = {}   ENDIF   AADD( ::aControls, ...

... case Event == "DoCreateEvent" // "EventAddedEx" IF ::lDoInsert ::InsertEvent( aParms[ 1 ], @aParms[2], @aParms[3] ) // oEvent, nId, lResult ENDIF case Event == "DoUpdateEvent" .and. aParms[ 1 ]:CustomProperties:Property( "id" ) != Nil ::UpdatefromEvent( aParms[ ...

... Where I'm wrong ? #xcommand REDEFINE COMBOLIST [ <oCbx> VAR ] <cVar> ; [ <items: PROMPTS, ITEMS> <aItems> ] ; [ ID <nId> ] ; [ <dlg:OF,WINDOW,DIALOG> <oWnd> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ ON CHANGE <uChange> ] ; [ VALID ...

... itself ? Frances, I think it is not supported, tested but nothing happens. From DTPICKER.CH : [ <oDTPicker> := ] TDatePick ():ReDefine( <nId>, bSETGET(<uVar>),; <oDlg>, <nHelpId>, <nClrFore>, <nClrBack>, <oFont>, <oCursor>,; <cMsg>, <.update.>, ...

... cambios para colorear, estoy probando ya con los registros de hecho estoy usando mysql, no dbf's, asi que por lo pronto ya me atore con el nId del calinfo, estoy revisando la clase a ver por donde van los tiros, o es para trabajar con dbf's? mientras seguire probando y te comento saludos ...