FiveTech Software tech support forums

i like to request EDIT_LOGIC This is implemented as: oCol:SetCheck( [aBmps], [lEdit], [aPrompts] Parameters: aBmps: Optional. Array or 2 or 3 bitmaps to be displayed when the value is .T., .F., nil. If omitted, xbrowse provides default bitmaps which ...

... )}, .F.,;         Upper("TOP"), {|Self,nOption| ( If( nOption == 8, oWnd:End(),  MsgInfo( "Action defined to " + StrTran( ::aPrompts[ nOption ], "&", "" ) ) ) )},, .T., 50,,;        .F.,, .F.,, "oFld" ) this i compare with Parameter in my ...

I am trying to build a dynamic TFolderEx so when it is REDEFINE, the value for aPrompts and aDialogs will come from file. What do I need to change at its pre-processor directive so instead of coding    REDEFINE FOLDEREX ::oFolder ID 110 OF ::oDlg   ;      PROMPTS ...

CLASS TRibbonBar FROM TControl CLASSDATA lRegistered AS LOGICAL DATA oBold, oFont DATA aLeft DATA aPrompts DATA aDialogs DATA aSizes DATA aGrad DATA aGradFld DATA aGradOver DATA aGradHigh DATA aQuickRGrad DATA nQuickHigh INIT 32 <---- New METHOD Paint() CLASS TRibbonBar ...

hi Antonio, have some (small) Problem with TFolder() when i assign {} as 3rd Parameter (aPrompts) of TFolder() and use AddItem() than Control will not appear :?   oTabs := TFolder():New( 0, 0,{} , , oMain, 1, , , .t.,;                          ...

... nil  https://imagizer.imageshack.com/v2/xq90/923/jrDy6T.png What you are asking is achieved by using oRec:SetPrompt( aPrompts )    oRec:SetPrompt( { { "first", "Name" }, { "Last", "Surname" }, ...

Try with Prueba asi /* *********************************************************************************** */ FUNCTION XChoice( aPrompts, cTitle ) /*by nageswaragunupudi » Mon Aug 19, 2013 8:30 pm You may try using this function in the place of AChoice */ local nSelect := 0 DEFAULT cTitle ...

Mr. Rao, xChoice() function works with FWH 1906? Wiht FWH 15.07 works fine. Note: aPrompts is an array like { "Hola", "que tal" } /* *********************************************************************************** */FUNCTION XChoice( aPrompts, ...

... as libmysql.dll or libmariadb.dll. SetCheck() In case you want to have both bitmaps and prompts then please use: oCol:SetCheck( aBitmaps, .T., aPrompts ) In your case : oBrw:aCols[ 1 ]:SetCheck( { "Imagenes\level1.bmp", "Imagenes\level2.bmp" }, .T., { "S", "N" ...

I made Local cCursorTab:= TCursor():New(,'HAND') oApp():oGrid := TFolderex():New( , , , , oApp():oDlg, , ,, aPrompts) oApp():oGrid:cursor:=cCursorTab and this is the error give me Application =========== Path and name: C:\WORK\Prg\Archivia\Main.Exe (32 bits) Size: 6,055,424 bytes ...

... que hacer algo asi y me funciono, que te expongo en tu ejemplo: [code} FUNCTION build_pages( oFolder ) LOCAL oDialog FOR J := 1 TO LEN( oFolder:aPrompts ) DEFINE DIALOG oDialog OF oFolder STYLE NOR( WS_VISIBLE, WS_DLGFRAME, WS_CHILD) TRANSPARENT FOR I := 1 TO LEN(oBtn) IF oBtn[I,4] = J DO CASE ...

... CU->(DbGoTop()) oApp():oGrid:Refresh(.t.) return nil endif do case case nOrder= 1 set filter to left(CU->FIRST,1)=oApp():oTab:aPrompts[n] case nOrder= 2 set filter to left(CU->LAST,1)=oApp():oTab:aPrompts[n] endcase CU->(DbGoTop()) oApp():oGrid:Refresh(.t.) return nil ...

... Cufiltrar(oApp():oGrid, oApp():oTab,oApp():oTab:nOption) ) Function Cufiltrar (oGrid,oTab,n,nOrder) ?alltrim(oApp():oTab:aPrompts[n] ) do case case nOrder= 1 CU->(DbSetFilter( alltrim(Left(CU->First,1))==alltrim(oApp():oTab:aPrompts[n] ) )) case nOrder= 2 CU->(DbSetFilter( ...

... CU->(DbSetOrder(1)),; CU->(DbGoTop()) ,; IIF( oApp():oTab:nOption=1, oApp():oGrid:Seek(""),; oApp():oGrid:Seek(alltrim(oApp():oTab:aPrompts[oApp():oTab:nOption] )) ),; oApp():oGrid:Refresh(.t.) ) it run ok bu tI mean to show sample only that customer init for "A" or "B" ...

... desde donde se llama a ExtDrawIcon() En concreto: ::aCoors[ nAt ] = ExtDrawIcon( hDC, ::aCoors[ nAt, 1 ], ::aCoors[ nAt, 2 ], ; ::aIcons[ nAt ], ::aPrompts[ nAt ], hFont, ; ::nClrText, ::nClrPane, lFocused, .t., ::lEdit ) Yo probaría a cambiar el color de ::nClrPane Prueba asi: oIconGroup:bGotFocus ...