FiveTech Software tech support forums

... because I'm old man , but here I see the border color allways black https://i.postimg.cc/CKC4YVFZ/k.jpg @ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007 aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ...

... because I'm old man , but here I see the border color allways black https://i.postimg.cc/CKC4YVFZ/k.jpg @ oBrw:nBottom+1, oBrw:nWidth-44.4 BTNBMP aBtnBrow[1] SIZE 20,20 PIXEL OF oDlg NOROUND 2007 aBtnBrow[1]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ...

I resolved but on another mode @ oBrowse:nBottom+3, oBrowse:nWidth-44.4 BTNBMP aBtnBrow[3] SIZE 12,10.3 PIXEL OF oDlg NOROUND 2007 aBtnBrow[3]:bClrGrad := { |lInvert| If( lInvert, aBru[ 2 ]:hBrush, aBru[ 1 ]:hBrush ) } aBtnBrow[3]:nClrBorder := { || (IIF(aBtnBrow[3]:lMOver,,CLR_GRAY)) ...

Perfecto, lo solucione con SIZE oWndr:nWidth, owndr:nHeight

Muchas gracias.
Saludos
Jorge

... How I must set the scroll to have the same height of the xbrowse ? I made oDlg:bResized := <|| local oRect := oDlg:GetCliRect() oBar:nWidth:= oRect:nRight oBrw:nWidth:= oRect:nRight-290 oBrw:nHeight:= oRect:nBottom-45 oPanel:nTop := oRect:ntop +40 oPanel:nLeft := oRect:nleft+5 oPanel:nBottom ...

... * FWMariaRowSet: - Mejora en la velocidad de ordenación de los campos de tipo carácter (char). * Nueva función FW_SaveThumbnail( cImage, cThumb, nWidth, [nHeight] ) --> lSuccess La podemos encontrar en source\function\imgtxtio.prg

... FileSysObj() --> oFileSystem * FWMariaRowSet: - improvement in sorting speeds of char fields. * New function FW_SaveThumbnail( cImage, cThumb, nWidth, [nHeight] ) --> lSuccess in source\function\imgtxtio.prg

... disk access again), the screen refreshes will be very fast. Btw, I just created and added a new function FW_SaveThumbnail( cImageFile, cThumbFile, nWidth, [nHeight] ) --> lSucess.

oDlg:oClient:=TActiveX():New(oDlg, "Shell.Explorer.2", 0, 0, oDlg:nWidth, oDlg:nHeight) oDlg:oClient:Do("Navigate2", "https://www.website/") do while .T. oDk:=oDlg:oClient:GetProp("Document") if valtype(oDk)="U".or.oDk:ReadyState!="complete" ...

... quick lookup for any data type. (In devellop mode) XBROWSER aPics TITLE "WEB IMAGES" SETUP ( oBrw:nRowHeight := 200, oBrw:aCols[ 1 ]:nWidth := 300, ; oBrw:aCols[ 1 ]:cDataType := 'F', oBrw:aCols[ 1 ]:nDataBmpAlign := AL_CENTER ) XBROWSER aPics TITLE "DOWNLOADED IMAGES" COLUMNS ...

... DATA nQuickHigh INIT 32 <---- New METHOD Paint() CLASS TRibbonBar ... if ::aQuickRGrad != NIL GradientFill( ::hDC, 0, 0, ::nQuickHigh, ::nWidth, ::aQuickRGrad ) endif ...

... OF oASKFORM ACTION ...   ACTIVATE WINDOW oASKFORM CENTER when ask for for Coordinate   nTop0    := oParent:nTop   nLeft0   := oParent:nLeft   nWidth0  := oParent:nWidth   nHeight0 := oParent:nHeight   nTop     := oObj:nTop   nLeft    := oObj:nLeft   nWidth   := oObj:nWidth   nHeight  := oObj:nHeight ...

... := { || SetLogo( oApp:oLogo, oApp:oWinMain ) and the procedure make error when I resize Error description: Error BASE/1004 Metodo non disponibile: NWIDTH Args: [ 1] = C c:\work\fwh\bitmaps\fivetech.bmp Stack Calls =========== Called from: => NWIDTH( 0 ) Called from: Source\ut\ut_boxlotto.prg ...

i also found this CODE Code: SetWindowPos( oObj:hWnd, HWND_TOPMOST ,; oObj:nTop, oObj:nLeft ,; oObj:nWidth, oObj:nHeight ) which i can use at INIT Is this working as expected? YES :D Can this be useful? SetForegroundWindow( oWnd:hWnd NO. it will come to foreground but ...

i also found this CODE
Code:
SetWindowPos( oObj:hWnd, HWND_TOPMOST ,;
oObj:nTop, oObj:nLeft ,;
oObj:nWidth, oObj:nHeight )

which i can use at INIT

Is this working as expected?

Can this be useful?

Code: Select all  Expand view

SetForegroundWindow( oWnd:hWnd