FiveTech Software tech support forums

... to add a < resize-function > for the image :?: aImage := oWnd:ReadImage( cBackImage, , .t. ) :bPaintBack := < |Self| FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) // MsgAlert( FW_ValToExp( ::DataRect():aRect ) ) // returns the array of the used painting area -> { 23, ...

... {|| aOrg := SetBrushOrgEx( ::hDC, nBmpWidth( ::oWnd:oBrush:hBitmap ) - ::nLeft, nBmpHeight( ::oWnd:oBrush:hBitmap ) - ::nTop ), FillRect( ::hDC, GetClientRect( ::hWnd ), ::oWnd:oBrush:hBrush ), SetBrushOrgEx( ::hDC, aOrg[ 1 ], aOrg[ 2 ] ) } Aparentemente en el método Paint(), el dato ::lTransparent ...

I tried making local aRect:= GetClientRect(oBtn:hWnd) FW_SayText( hDC, ; ltrim( str( ncella ) ), ; { aRect[1], aRect[2]+5 ,aRect[3]-10,aRect[4]-20 },oBold, CLR_WHITE, nARGB(255, colororange) , .f. ) https://i.postimg.cc/65sLbh1W/nu.png ...

... 1 ) it doesn't work for a METRO-image-background DEFINE METROPANEL oMetro OF oWnd TITLE "Stammdaten" ; COLOR aVal[8], CLR_BLUE aRect := GETCLIENTRECT( oMetro:hWnd ) aImage := oMetro:ReadImage( cImage, , .t. ) oMetro:DrawImage( aImage, aRect, nil, 1 ) a working solution // metro image-background ...

... 1 ) it doesn't work for a METRO-image-background DEFINE METROPANEL oMetro OF oWnd TITLE "Stammdaten" ; COLOR aVal[8], CLR_BLUE aRect := GETCLIENTRECT( oMetro:hWnd ) aImage := oMetro:ReadImage( cImage, , .t. ) oMetro:DrawImage( aImage, aRect, nil, 1 ) a working solution // metro image-background ...

//------------- BMP-Brush ----------- FUNCTION DRAW_BMP( hDC, oBitmap, aColors, nColorSel ) LOCAL oBMPBrush, aGrad LOCAL aRect := GETCLIENTRECT( oBitmap:hWnd ) IF nColorSel = 1 aGrad := { { .5, CLR_WHITE, aColors[2] }, { .5, aColors[2], CLR_BLACK } } ELSE aGrad := { { .5, CLR_WHITE, aColors[4] ...

... here https://i.postimg.cc/RCL5Fnsc/uiui.png How I can resolve it ? I thinked to calculate the rect of btnbmp with Local arrayBtn:= GetClientRect (oBtn) but then I not Know how change the exactly position for that symbol I hope U understand now

... } ) If the first Image is resize (more big or more small) how I can recalculate the position of the second image ? I 'mtrying... Local arrayBtn:= GetClientRect (oBtn) FW_DrawImage( hDC, "BTN_PNG_NOTE", { ; arrayBtn[1]+35,; arrayBtn[2]+30,; arrayBtn[3]+50,; arrayBtn[4]+50 } ) but not ...

... := Graphics():New( oWnd:hDC ) LOCAL oGraphics3 := Graphics():New( oWnd:hDC ) LOCAL oGraphics4 := Graphics():New( oWnd:hDC ) LOCAL aRect := GETCLIENTRECT( oWnd:hWnd ), oPen1, oPen2 oGraphics1:DrawImage( oImage1, aRect[1] + 150 , aRect[2] + 250 , 200, 200 ) oGraphics1:destroy() oPen1 := Pen():New( ...

... if it is true, because it's not very clear explained here: https://docs.microsoft.com/en-us/windows/desktop/api/winuser/nf-winuser-getclientrect Retrieves the coordinates of a window's client area. The client coordinates specify the upper-left and lower-right corners of the client ...

Antonio buenos dias, gracias por la ayuda Agrego la VM.LIB (xharbour), y me manda estos errorres :( :( Proyecto: Kept5, Entorno: BorlandDLL: [1]:Harbour.Exe Source\Tseguro.prg /m /n /es2 /ki /iP:\32bits\xharbour\include;P:\32bits\FWH\INCLUDE /i /oObj\Tseguro.c xHarbour Compiler build 1.2.1 (SimpLex)...

... NOBORDER ; FONT oFntBrow STYLE 2015 .... ACTIVATE DIALOG oDlgMesas ; ON INIT ( SetTotals(cScoNumDoc), oBrwConsu:SetFocus() ) ; ON PAINT ( aRct := GetClientRect( oDlgMesas:hWnd ), ; GradColor(oDlgMesas:hDC, aRct, CLR_WHITE, LightColor(100, RGB( 216, 230, 246 )) )); CENTERED VALID (DestroyBtns( ...

... ResizeWndMain())} my resize function oApp():oBar is a ribbonbar Function ResizeWndMain() local aClient if oApp():oDlg != NIL aClient := GetClientRect (oApp():oWndMain:hWnd ) oApp():oDlg:SetSize( aClient[4], aClient[3] - oApp():oBar:nHeight - oApp():oWndMain:oMsgBar:nHeight ) oApp():oDlg:Refresh() ...

... I click then it insert a space from tab and the dialog activated and I not Know How refresh the dialog to change the size I tried with aClient := GetClientRect (oWnd:hWnd ) and the setsize but it not refresh http://www.iispascalcomiforti.it/wp-content/uploads/2017/04/nnnn.jpg

... SYSREFRESH() nLoop += 1 ENDDO // Ocultando la calculadora ShowWindow( ::hwndcalc, 0 ) // Recupera el ancho y alto del área cliente //aRect := GetClientRect( ::hwndcalc ) // Redimensiona el picturebox al ancho y alto del programa //::ocontainer:nWidth := ( aRect[4] - aRect[2] ) + 25 //::ocontainer:nHeight ...