FiveTech Software tech support forums

... REDEFINE LISTBOX [ <oLbx> VAR ] <cnVar> ; [ ITEMS | PROMPTS <aItems> ] ; [ FILES | FILESPEC <cFileSpec> ] ; [ ID <nId> ] ; [ ON CHANGE <uChange> ] ; [ ON [ LEFT ] DBLCLICK <uLDblClick> ] ; [ OF | WINDOW | DIALOG <oWnd> ] ; [ HELPID | HELP ID ...

Francis,

MsgInfo( AScan( oDlg:aControls, { | o | o:nID == oGet:nID } ) )

Reinaldo,

You have to use TTreeView():ReDefine( nId, oWnd, nClrFore, nClrBack, lDesign, cMsg ) instead of TTreeView():New( ... ).

Use SysTreeView32 as the type of the control in your dialog resource.

Riccardo,

> Eval( bAction, Self ) -> Eval( bAction, Self, nID )

Ok, we have also modified it here, though we may finally create a new Class TTBButton and the TBButton object will be supplied instead of nID.

Antonio,
thank you, works fine.

I've modify the Method Commad of the TToolBar to have the nId of the buttom when pressed:
Eval( bAction, Self ) -> Eval( bAction, Self, nID )

Bye
Riccardo

... !short: DBCOMBO */ #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 ...

... oButton CLASSDATA lOk Init .F. ERROR HANDLER ERROR() METHOD New() METHOD Activate() METHOD Install() METHOD CheckOCX() ENDCLASS METHOD New( oWnd,nId ) CLASS FRAMESX local cCaption := "" ::CheckOCX() IF !::lOk MsgInfo( "Error to Install OCX Control" ) RETURN SELF ENDIF IF nId != NIL ::oControl ...

... oButton CLASSDATA lOk Init .F. ERROR HANDLER ERROR() METHOD New() METHOD Activate() METHOD Install() METHOD CheckOCX() ENDCLASS METHOD New( oWnd,nId ) CLASS FRAMESX ::CheckOCX() IF !::lOk MsgInfo( "Error to Install OCX Control" ) RETURN SELF ENDIF IF nId != NIL ::oControl := TActiveX():Redefine( ...

... RETURN NIL ENDIF CLASS xButton DATA oControl DATA oButton CLASSDATA lOk Init .F. METHOD New() METHOD Activate() ENDCLASS METHOD New( oWnd, nId ) CLASS xButton IF nId != NIL ::oControl := TActiveX():Redefine( nId, oWnd, "MyOCX.myControl" ) ELSE ::oControl := TActiveX():New( oWnd, "MyOCX.myControl" ...

Silvio,

You may use their DATA cargo to store an identifier, or check its position in oWnd:aControls, its nID, etc.

... function cNewFileName( cRootName, cExt, cPath ) local cFileName := cRootName + "1" local nId := 1 static cOldName DEFAULT cPath := "" if ! "." $ cExtension .and. .not. empty( cExtension ) cExtension = "." + cExtension endif cFileName += ...

... WS_CLIPSIBLINGS ) // Preparado para la ultima alienamiento //control:bGotFocus:=&("{ || alignDEL( "+chr(34)+cnomoDlg+"_"+ltrim(str(control:nId))+chr(34)+") }" ) cFont:=oGets[j]:caFonts aFont:=llenarray(cFont,0) if !EMPTY(cFont); aFont:=llenarray(cFont,0) IF LEN(aFont)>=14 //ALERT( , ...

... METHOD New( nTop, nLeft, nBottom, nRight, cLabel, oWnd, nClrText,; nClrPane, lPixel, lDesign, oFont, lTransparent ) CONSTRUCTOR METHOD ReDefine( nId, cLabel, oWnd, nClrText, nClrPane, oFont, lTransparent ) CONSTRUCTOR METHOD cToChar() INLINE Super:cToChar( "BUTTON" ) #ifndef __CLIPPER__ METHOD ...

... if classn <> "\\" if classn <> "TGET" if classn <> "TWBROWSE" aadd(items,{odlg:acontrols[x]:classname(),; odlg:acontrols[x]:nid,; odlg:acontrols[x]:hidden,; oDlg:aControls[x]:ctitle,x}) ELSE FOR Y = 1 TO LEN(oDlg:aControls[x]:aheaders) TXT=TXT+RTRIM(oDlg:aControls[x]:aheaders[Y])+"|" ...

... TControl DEFAULT ::lActive := .t., ::lDrag := .f., ::lCaptured := .f.,; ::lFocused := .f., ::lCancel := .f. if( ( ::hWnd := GetDlgItem( hDlg, ::nId ) ) != 0 ) If( ::lActive, ::Enable(), ::Disable() ) ::Link() if ::oFont != nil ::SetFont( ::oFont ) else ::GetFont() endif else #define NOVALID_CONTROLID ...