FiveTech Software tech support forums

... .... ENDMENU ACTIVATE POPUP oMenu OF oParent AT oBrw:nTop+nRow, oBrw:nLeft+nCol RETURN (NIL) and another on action Function MenuContextual(oControl,oBrw,oDbf,cIniUser,cSection,lExport,lColConfig,oParent,oCont ) .... ENDMENU return oMenu and another with btnbmp ocolonne .... ACTION oColonne:ShowPopUp( ...

... is shown behind the controls too. If we want to display the background (color/brush/gradient) of a control to be shown, then we should set oControl:lTransparent := .F. in the dialog's init clause. Please test the small sample. This way you can show the gradient of oTitle on a transparent ...

... is shown behind the controls too. If we want to display the background (color/brush/gradient) of a control to be shown, then we should set oControl:lTransparent := .F. in the dialog's init clause. Please test the small sample. This way you can show the gradient of oTitle on a transparent ...

Dear Jimmy,

nAt = AScan( ::aControls, { | oControl | oControl:hWnd == hChild } )
::aControls[ nAt ]

... run ok the border color https://i.postimg.cc/GpgQV8XH/hh.gif I set the btnbmps into the scrollpanel with :nClrBorder := { || (IIF(ocontrol:lMOver,CLR_BLUE,CLR_HGRAY)) }

Dear Enrico,

tbtnclr.prg modified as:

static Function PickColor(nColor,oControl)

many thanks for your feedback

Dear Jimmy,

Please try with:

oControl:PostMsg( WM_KEYDOWN, 32 )

or

oControl:PostMsg( WM_CHAR, 32 )

You may give the focus to a specific control before sending the key

oControl:SetFocus()

oControl:SaveToBmp("test.bmp")

Enviado desde mi SM-M325FV mediante Tapatalk

cnavarro wrote:Y si investigas tambien con el

oControl:bLButtonUp = { | nRow, nCol | ....

\samples\TESTMOUS.PRG ?

Regards, saludos.

Y si investigas tambien con el

oControl:bLButtonUp = { | nRow, nCol | ....

... if the user select a checkbox and then click on ok the procedure call this function Function ChangeBrowse(oBrw,oControl)            local aItems:= {}            AEval( oBrw:aCols, { ...

Silvio, can you please try this: Function ChangeBrowse( oBrw, oControl) local aItems:= {} AEval( oBrw:aCols, { |o| If( o:lHide,, iif( len(alltrim(o:cHeader))>0, AAdd( aItems, o:cHeader ) , ) ) } ) oControl[2]:setItems(aItems) oControl[2]:refresh() oBrw:Setfocus() ...

Silvio, can you please try this: Function ChangeBrowse( oBrw, oControl) local aItems:= {} AEval( oBrw:aCols, { |o| If( o:lHide,, iif( len(alltrim(o:cHeader))>0, AAdd( aItems, o:cHeader ) , ) ) } ) oControl[2]:setItems(aItems) oControl[2]:refresh() oBrw:Setfocus() ...

... is correct, we advise you to create the controls only the first time and when refreshing data subsequently, you only change the data displayed by oControl:SetText( cNewText ). The code to refresh the data can be something like this: for i := 1 to Len( oVar_AA )   for j := 1 to ...