FiveTech Software tech support forums

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

... Multiplo" ;        FONT oFont ;        SIZE 760,180 on oDlg:bResized I add oFld:nTop := oRect:nBottom - 250 oFld:nWidth := oRect:nWidth-100

... - FW_ActiveMonitors() --> nMonitors Número de monitores extendidos actualmente activos. - FW_VirtualScreen() --> oRect El objeto TRect representa el área de pantalla virtual cubierta por todos los monitores extendidos. (Nota: el objeto tiene las datas nTop, nLeft, ...

... fwh\source\function\getsysin.prg - FW_ActiveMonitors() --> nMonitors Number of extended monitors currently active. - FW_VirtualScreen() --> oRect TRect object representing the area of virtual screen covered by all the extended monitors. (Note: The object has datas nTop, nLeft, nBottom, nRight, ...

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