FiveTech Software tech support forums

... probe: define dialog ..... TRANSPARENT activate dialog on init crea() stat fun crea() FOR x := 1 TO 16 REDEFINE CHECKBOX oChk[x] VAR lChk[x] ID (nID+x) OF oDlg oChk[x]:lTransparent := .T. NEXT RETURN NIL y nada, alguna otra idea? gracias paco

... la clase Say para que ::New() admitiera como un ultimo parámetro el identificador y colocando por defecto la llamada a ::GetNewId()... DEFAULT nId :=::GetNewId() y luego asignarlo a la variable de instancia ::nId * Probé cambiando directamente en el código a ::nId luego de haber declarado el ...

... !short: SAY */ #xcommand REDEFINE SAY [<oSay>] ; [ <label: PROMPT, VAR> <cText> ] ; [ PICTURE <cPict> ] ; [ ID <nId> ] ; [ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ; [ <color: COLOR,COLORS > <nClrText> [,<nClrBack> ] ] ; [ <update: ...

//-> Resuelto de esta Forma: //-> Esto esta en C:\FWH27\INCLUDE\FIVEWIN.CH #xcommand REDEFINE BITMAP [ <oBmp> ] ; [ ID <nId> ] ; [ <of: OF, WINDOW, DIALOG> <oWnd> ] ; [ <resource: NAME, RESNAME, RESOURCE> <cResName> ] ; [ <file: FILE, FILENAME, ...

... en la distribucion de harbour 0.99.70 pero mi ingles no pasa de unos pocos vocablos. Indica que la clase tiene estas datas: acTypes, SizeOf, nId, InternalBuffer Y estos métodos: Buffer([New],[lAdopt]), Value, DeValue([lAdopt]), Array, SayMembers(cPad), Init(aValues), Pointer([nNew],[lAdopt]) ...

... 2 ) ) ); } //----------------------------------------------------------------------------// HARBOUR HB_FUN_GETMENUSTRING( PARAMS ) // () hMenu, nId, nPosOrValue { BYTE bBuffer[ 200 ]; WORD wLen = GetMenuString( ( HMENU ) _parnl( 1 ), _parni( 2 ), ( char * ) bBuffer, 199, _parni( 3 ) ); _retclen( ...

Juan,

Debería funcionar sin problemas usando el método:

oAnimate := TAnimate():ReDefine( nId, oDlg )

en donde nId es el identificador del control en la caja de diálogo

Posteriormente puedes asignarle el fichero a animar con:

ACTIVATE DIALOG oDlg ;
ON INIT oAnimate:Open( cAvi )

... HELPID | HELP ID <nHelpId> ] Using a DTPicker from a resource Dialog Box REDEFINE DTPICKER [ <oDTPikcer> VAR ] <uVar> ; [ ID <nId> ] ; [ OF | WINDOW | DIALOG <oWnd> ] ; [ HELPID | HELP ID <nHelpId> ] ; [ COLOR | COLORS <nClrText> [,<nClrBack> ] ] ...

... sigue (para redefine) #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> ] ; [ VALID ...

Frank,

You can only do it from the ON INIT clause of the ACTIVATE DIALOG ... command:

GetDlgItem( oDlg:hWnd , nID ) --> hWndControl

hWndControl will be zero if it does not exists

Eugeniusz,

oBtn1:cToolTip := Str( oBtn1:nId )

Is it ok ?

... after. I want to create TABS on thescreen using a resource file (DLL or RC) Creating a tab from resources REDEFINE TABS [<oTabs>] ; [ ID <nId> ] ; [ OF | WINDOW | DIALOG <oWnd> ] ; [ PROMPT | PROMPTS | ITEMS <cPrompt,...> ] ; [ ACTION | EXECUTE <uAction> ] ; [ COLOR ...

Antonio, The answer is Yes. =============== from ttreevie.prg ============== METHOD ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) CLASS TTreeView DEFAULT oWnd := GetWndDefault(),; nClrFore := oWnd:nClrText,; nClrBack := oWnd:nClrPane,; // GetSysColor( COLOR_WINDOW ...

... en el método End(). * Mejora: El codeblock ACTION de los botones de la barra de herramientas recibe un segundo parámetro con el valor de índice nID del botón. * Mejora: En FWPPC, las cajas de diálogos ahora pueden usar menús tipo persiana "pulldown". Por favor, revisa el ejemplo samples\TestDlgM.prg. ...

... function TreeFree() called from Class TLinkList Method End(). * Enhancement: ToolBars buttons ACTION codeblock receive a second parameter with the nID (index value) of the button. * Enhancement: FWPPC, dialogboxes now accept to use a pulldown menu. Please review samples\TestDlgM.prg * New: Class ...