FiveTech Software tech support forums

... // -------------- FUNCTION MYDLG( oDlg, oBtn, oFont ) LOCAL oDlg1, oBtn2, oSlider1, nSlidPos1 := 1, oSlider2, nSlidPos2 := 2 LOCAL oRect1 := oDlg:GetRect() LOCAL nTop1 := oRect1:nTop LOCAL nLeft1 := oRect1:nLeft LOCAL nTop2 := oBtn:nTop() + oBtn:nHeight() + 25 // 25 = dlg-title LOCAL nLeft2 := ...

... the position and the size of a dilalog box in my application? To get the dialog position from screen-top and left and the dialogsize oRect := oDlg:GetRect() nTop := oRect:nTop nLeft := oRect:nLeft nWidth := oDlg:nWidth nHeight := oDlg:nHeight // ---------------- Resizing a dialog You need as well ...

Hi, understanding that the method ::GetRect() always returns an oRect with the coordinates on the main window. But how to get the coordinates of a child window (TMdiChild) relative to the parent window (TMdiFrame) when the user moved/sized ...

In fact, ::nWidth()/::nHight()/::nWidth/::nHight/::GetRect() differs on both compilers and should not used to calculations for controls!?

... procedure RetornaRowColDoObj(oObj, nRow, nCol) /* */ local aPos, nLen if HB_IsObject(oObj) aPos := oObj:GetRect() if ValType(nRow) == 'N' nRow += aPos:nTop nCol += aPos:nLeft endif if (nLen := (GetSysMetrics(1)-(nRow+254))) < 0 nRow += nLen endif if ...

... procedure RetornaRowColDoObj(oObj, nRow, nCol) /* */ local aPos, nLen if HB_IsObject(oObj) aPos := oObj:GetRect() if ValType(nRow) == 'N' nRow += aPos:nTop nCol += aPos:nLeft endif if (nLen := (GetSysMetrics(1)-(nRow+254))) < 0 nRow += nLen endif if ...

very good

Problem solved.
Now I use nPos:nTop and nPos:nLeft, and it's working in the old FW and the new one.
I found that when using the array nPos, position 5 is nil in the old version, and not in the new version.
In the new version nPos[4] is equal to nPos[5] of the old version, and so on...

... that I also use it in my programs, to know the location of the mail window, when closing the program. I saved nPos[2] and nPos[3] of oMenuWnd:GetRect() to know the location, but now it is not OK anymore. How can I get the location of the window, so I can restore it again while opening it?

Thank you Antonio,

I was using this code since FW1.95, and never changed it because it was working fine

oDlg:Center() and oDlg:SetSize( nWidth, nHeight ) is working fine with FWH64 16.04 Rev Build3

Marc,

You can center a dialog (or any window or control) doing:

oDlg:Center()

to change the size fo a dialog (or any window or control) you can do:

oDlg:SetSize( nWidth, nHeight )

...  vwbreedte = min(vwbreedte,oMenuWnd:nWidth-60)    ........   oDlg:nWidth  = vWBreedte + 68   oDlg:move(oMenuWnd:nTop+4+24+oMenuWnd:GetRect()[2],(oMenuWnd:nWidth/2)-((vWBreedte+68)/2)+oMenuWnd:GetRect()[3])   ........RETURN  ...

Marc,

Could you post an example of how you are using it ? thanks

Hi,

In my program with FWH32 7.10, oWnd:GetRect()[3] returns -8
in the new program with FWH64 16.04 Revd Build3 it is returning 1048.

Is there a difference between the version 7.10 & 16.04 or is there a difference between the 32bit and the 64bit version?
What is the correct one?

... ) CENTER define button prompt "- zoom" of oBar action( oImg:nZoom--, oImg:refresh() ) CENTER OR : local oImage, oBrush, aRect := oDlg:GetRect() DEFINE IMAGE oImage FILENAME "..\bitmaps\pngs\chart.png" oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], ...