FiveTech Software tech support forums

Hello, I tested drawing text with GDIPLUS with Methods oGraphics:DrawText( nTop, nLeft, cText, cFont, nFont, oBrush ) oGraphics:DrawTextLFont( nTop, nLeft, cText, oFont, nH, oBrush, hDC, lB, lIt, lUnd, lStr, nOri, nEsc ) NO text displayed :( There aren't any tests or informations ...

... ) oMetro:DrawImage( aImage, aRect, nil, 1 ) a working solution // metro image-background ( FREEIMAGE needed ) DEFINE IMAGE oImage FILENAME cImage oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], .T. ) ) // 1 = stretch, 2 : fitoutside, 3:fitinside oImage:End() oMetro:SetBrush( ...

... ) oMetro:DrawImage( aImage, aRect, nil, 1 ) a working solution // metro image-background ( FREEIMAGE needed ) DEFINE IMAGE oImage FILENAME cImage oBrush := TBrush():new( ,,,, ResizeBmp( oImage:hBitmap, aRect[4], aRect[3], .T. ) ) // 1 = stretch, 2 : fitoutside, 3:fitinside oImage:End() oMetro:SetBrush( ...

...        ENDDO        oListini:close()     Select (nArea)   return alist_temp DEFINE DIALOG oDlg RESOURCE "Combos" BRUSH oBrush TRANSPARENT REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS ArrTranspose( aListini )[ 2] // I wish show trim(oListini:id) ID 100 OF oDlg; ON CHANGE ...

... 0 TO ScreenHeight() + 20, ScreenWidth() PIXEL ; STYLE nOr( WS_POPUP ); COLOR CLR_WHITE, CLR_GREEN oMetro := MakeMetroPanel( oMWnd ) DEFINE BRUSH oBrush FILE c_Path1 + "earth.bmp" RESIZE oMetro:SetBrush( oBrush ) oBrush:End() oMetro:bRClicked := { |r,c,f,o| msginfo( 'HWND' + NUMTOHEX( ...

Uwe, on Window I tried with DEFINE WINDOW ::oWnd BRUSH obrush STYLE WS_POPUP and the user must click on a button to exit from ::oWnd but I cannot show the caption and menu pulldown ( no good) on DIALOG it is different because I need to have DEFINE DIALOG ...

You can.
In the above example, set the oBrush to the brush you want depending on whatever condition you specify.

... make-file from above ? to test texture-brushes and rounded images. http://www.pflegeplus.com/IMAGES/testround1.jpg that works ! oBrush := Brush():NewSolidBrush( 255, 255, 128, 0 ) // Orange needed obrush must be a GDI-texture- or imagebrush to fill a rounded area oGraphics := ...

... // nTrans2, nRed2, nGreen2, nBlue2 ) CLASS Brush // nType : 1_> horizontal 2-> vertical 3->diagonal derecha 4-> diagonal izq LOCAL oBrush := Brush():NewGradientBrush( 0, 0, 200, 200, 1,; // just the area / size :?: 255, 131, 193, 193,; 255, 255, 255, 255 ) tested as well the same ...

Yes

oPath:FillPath( oGraphics, oBrush )

FOUND !!!

oPath := Path():new()
oPath:AddRoundRect( 500, 400, 80, 100, 30 )
oGraphics:DrawPath( oPen, oPath )

oPath := Path():new()
oPath:AddRoundRect( 630, 400, 80, 100, 30 )
oGraphics:FillPath( oBrush, oPath)

regards
Uwe

Testing GDIPLUS I noticed a missing brush like used in oGraphics:DrawRect( oPen, oBrush , 400, 400, 70, 60 ) // oPen, [oBrush], nLeft, nTop, nWidth, nHight oGraphics:DrawEllipse( oPen, oBrush , 500, 100, 60, 60 ) // oPen, [oBrush], nLeft, nTop, nWidth, nHight http://www.pflegeplus.com/IMAGES/Border5.jpg ...

... una barra de botones, https://i.ibb.co/QM5fNDg/buttonbar2.jpg Este es mi codigo: function Main() local oWnd, oBar, oMsgBar, oBtn, oBrush, oFont DEFINE BRUSH oBrush COLOR RGB(255,255,255) DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-14 DEFINE WINDOW oWnd BRUSH oBrush TITLE ...

... usuario. aca dejo parte del codigo: Define Dialog oDlgMainMenu resource "oDlgMainMenu" title 'Registro de Datos de la Empresa' BRUSH oBrush TRANSPARENT oDlgMainMenu:lHelpIcon:=.f. Redefine GROUP oGrpSuperUser ID 1 OF oDlgMainMenu TRANSPARENT /////////////////////////// Menu Super ...

... nil  https://imagizer.imageshack.com/v2/xq90/922/ugaSiZ.png nClrBack in FW_SayText(...) can be 1) Color value 2) Alpha Color 3) oBrush or hBrush In case of (2) and (3), entire rectangle is filled with the color/brush. In case of (1) the text is painted using nClrText/nClrBack ...