FiveTech Software tech support forums

... EXIT(oWnd,cPath,pPRG_ABRV) ON INIT OpenMast() On Resize SetLogo( oLogo,oWnd )
RETURN (NIL)

Function SetLogo( oLogo,oWnd )
Local nX,nY
oWnd:CoorsUpdate()
oWnd:oWndClient:CoorsUpdate()
oLogo:CoorsUpdate()
oLogo:Hide()
nX := oWnd:oWndClient:nWidth() - oLogo:nWidth()
nY := oWnd:oWndClient ...

... nBodyHeight and call oTaskBarPanel:UpdateRegion()

tried but it not refresh
if I collapse then it refresh


oPanel2:nBodyHeight:= aDim[ 2 ] + 50
oPanel2:CoorsUpdate()
oPanel2:UpdateRegion()
oPanel2:refresh()

result

https://i.postimg.cc/pTty7B3M/n.png

also the text is not good i.e. is broken

hi Antonio,
oParent:CoorsUpdate()
thx,

i have try it but it does not work :(
still get 0,0

what i´m doing wrong
#include "FiveWin.ch"

PROCEDURE MAIN
LOCAL oWnd, oText_1, oBtn, cFilter := "*.*" + SPACE( 10 )
LOCAL cLog := cFileSetExt( ExeName(), "LOG" )

FErase(cLog)

DEFINE WINDOW oWnd FROM ...

Dear Jimmy,

Before calling you code please do:

oParent:CoorsUpdate()

... oWnd:nTop nLeft := oWnd:nLeft nBottom := oWnd:nBottom nRight := oWnd:nRight
give me {0,0,600,800 }
but i have use CENTER

when using
oWnd:CoorsUpdate()
before i got "real" Coordinate

Request : when MENU is "activate" is it possible to "include" :CoorsUpdate()

---

so i still search ...

... To get the coordinates of the window you will have to add the width or height of any objects attached to the window client oClient.

oWnd:coorsUpdate()
nTop:= oWnd:nTop
nTop:= nTop + if(oWnd:oTop!=nil,oWnd:oTop:nHeight,0)
// Note that oMenu doesn't have an attribute nHeight. It is fixed at 20 ...

... program just before the Activate Window:
@ 0,0 Bitmap oLogo File Mcs_AppPath() + "Images\EocwdLogo.bmp" of oWnd:oWndClient PIXEL NOBORDER
oWnd:CoorsUpdate()
oWnd:bPainted := {|| SetLogo( oLogo,oWnd )}

Here is the function that runs during the paint event.
Function SetLogo( oLogo,oWnd )
Local nX ...

Otto wrote:Dear Mr. Rao,
thank you.
I mean why is ? oDlgParent:nTop if I send the DIALOG oDlg to the function always 0.
Best regards
Otto

First call oDlgParent:CoorsUpdate()
and then check nTop, nLeft, nBottom, nRight

I tried with :

:ScrollAdjust()
:Refresh( .t. )
:CoorsUpdate()

but not run ok

... the coordinates of "Define Window", and "oWnd:Move".
I am trying to set the windows to the same position after saving the coordinates as:

oWnd:CoorsUpdate()

hIni:nLeft := ROUND(oWnd:nLEFT / WIN_CHARPIX_W,0)
hIni:nWidth := ROUND((oWnd:nRIGHT - oWnd:nLEFT) / WIN_CHARPIX_W,0)
hIni:nTop := ROUND ...

::CoorsUpdate() was missing

Without it, it fails

Ok I found SetCoors(), and CoorsUpdate() which contains the Function GetCoors() in it. SetCoors() is a method of the TWindow class. Thank you, I will give them a shot.

James I also discovered this, below is the code to the Method "SetCoors" in the TWindow class:

METHOD SetCoors( oRect ) CLASS ...

I am moving a resource dialog off to the right screen of my two monitors.
My application is running on the left monitor.

I call oDlg:coorsupdate()
Save Top, Left, Right, Bottom to my ini file.
But I haven't figure out how to successfully display the dialog in the same place.

I use
Activate Dialog ...

Horacio,

Prueba a llamar a oDlg:CoorsUpdate() antes de tomar los valores de nBottom y nRight

... IF !::lFocus
RETU NIL
ENDIF

IF oObj == NIL
oObj := ::oControlItem:oObj
ENDIF

IF ValType( oObj ) <> 'O'
RETU NIL
ENDIF

oObj:CoorsUpdate()

SetWindowPos( oObj:hWnd, HWND_TOP ,;
oObj:nTop, oObj:nLeft ,;
oObj:nWidth, oObj:nHeight )

if ::lactive
oitemact := ::oControlItem ...