FiveTech Software tech support forums

... SalvaDialog(nType,oDlg) local cFileJpg1:= "TopTen_Lotto_Ritardatari.jpg" local cFileJpg2:= "TopTen_Lotto_Frequenti.jpg" local oRect:= oDlg:GetCliRect() If nType=1 oDlg:SaveAsImage( cFileJpg1, { oRect:nTop, oRect:nLeft, oRect:nbottom, oRect:nright-100 } ) else oDlg:SaveAsImage( ...

... oChild:CreateFromCode() oBrw:bChange := { || oChild:Refresh(), oChild:MakeTotals(), oChild:GoTop() } oWndDeposits:bResized := < || local oRect := oWndDeposits:GetCliRect() oBrw:nHeight := ( oRect:nHeight - oBar:nHeight - oMsgBar:nHeight ) * 0.6 oChild:nTop := oBrw:nTop + oBrw:nHeight ...

... oChild:CreateFromCode() oBrw:bChange := { || oChild:Refresh(), oChild:MakeTotals(), oChild:GoTop() } oWndDeposits:bResized := < || local oRect := oWndDeposits:GetCliRect() oBrw:nHeight := ( oRect:nHeight - oBar:nHeight - oMsgBar:nHeight ) * 0.6 oChild:nTop := oBrw:nTop + oBrw:nHeight ...

Estimado César,

Revisa la sintaxis:
function ContrastColor( hDC, oRect, nDefClr )

... 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 ...

... on whether the application is ANSI or Unicode. We can use simplified functions of FWH: GetClientArea( hWnd ) --> aRect oWnd:GetCliRect() --> oRect

... on whether the application is ANSI or Unicode. We can use simplified functions of FWH: GetClientArea( hWnd ) --> aRect oWnd:GetCliRect() --> oRect

... ) - ::nTop ) endif FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush ) SetBrushOrgEx( ::hDC, aOrg[ 1 ], aOrg[ 2 ] ) else oRect := ::DataRect() aOrg := SetBrushOrgEx( ::hDC, oRect:nLeft, oRect:nTop ) FillRect( ::hDC, oRect:aRect, ::oBrush:hBrush ) SetBrushOrgEx( ::hDC, ...

... iif(nNew<MCMV_YEAR,::SetCurrentView(MCMV_YEAR),) } ::oDtPick:bChange = { | o | ::ChangeDate( o ) } oPanel:bResized := <|| local oRect :=oPanel:GetCliRect() ::oDtPick:nWidth := oRect:nRight return nil > seem to run , but there is something bad

Can you try making this change in XBrowse.prg? Please locate the method METHOD PaintCellBtn( hDC, oRect, aColors ) CLASS TXBrwColumn The method looks like this: METHOD PaintCellBtn( hDC, oRect, aColors ) CLASS TXBrwColumn   local oBtn, oBrush   if ...

... can I read 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 ...

... needed, just a window adjustment ( NO window maximized ) If the slider is needed, just 1 line has to be changed METHOD Paint() CLASS TMetroPanel oRect:nTop := oRect:nBottom - SCRLB_HEIGHT adjusted to oRect:nTop := oRect:nBottom - SCRLB_HEIGHT - 40 The defined mainwindow DEFINE WINDOW oMWnd TITLE ...

... RESIZABLE FONT oFont oDlgTariffe:aMinMaxInfo := { nil, nil, nil, nil, 878, 570, nil, nil } //878, 570 oDlgTariffe:bResized := <|| local oRect := oDlgTariffe:GetCliRect() local x:= oBrw1:nBottom oBtnCheck:nLeft := oRect:nRight - 395 oBtnCheck:nTop := oRect:nBottom - 50 oBtnPrint:nLeft ...

... := oWnd:GetCliAreaRect():nHeight   oChild1:Show()   ACTIVATE WINDOW oWnd Return nil Conclusions: :GetCliRect() - returns an oRect with the relative gross coordinates, mean including the menu (SM_CYMENU), button and message bar,... :GetCliAreaRect() - returns an oRect with ...

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 it? Is there a ...