FiveTech Software tech support forums

I made #include "FiveWin.ch"Function test()local oDlg,ofontlocal oBrowselocal aData:= {}local oBrush1,oBrush2local obtn    DEFINE BRUSH oBrush1  STYLE HORIZONTAL    DEFINE BRUSH oBrush2  STYLE HORIZONTAL   DEFINE FONT oFont NAME "TAHOMA" SIZE 00, ...

... A little test #include "Fivewin.ch" FUNCTION MAIN() local oWnd, oDlg, oSay1, oSay2, oFont, oBrush1, oBrush2 DEFINE FONT oFont NAME "Arial" SIZE 0,-18 BOLD DEFINE BRUSH oBrush1 FILE "MARBLE.bmp" DEFINE BRUSH oBrush2 FILE ...

... complete window is moved on imagecapture. All other functions are working. DEFINE WINDOW oWnd FROM 0,0 TO 850, 600 PIXEL ; STYLE WS_POPUP BRUSH oBrush1 http://www.service-fivewin.de/IMAGES/Move9.jpg regards Uwe :?: :?:

I use a brush to colorize a dialog DEFINE BRUSH oBrush1 COLOR COLORE_MIO oApp:oMyDialog:SetBrush(oBrush1) for reasons that I am not here to list now I would need to know if I can color a two-color dialog i.e. having a light blue color for two fingers ...

It is working now LOCAL oBrush1 := Brush():NewSolidBrush ( 255, 255, 128, 0 ) // Orange DEFINE FONT oFontLarge NAME "Arial" SIZE 0, -30 BOLD ITALIC // font and size oGraphics:DrawTextLFont( 50, 125, "mod harbour", ...

... for each sample FUNCTION DRAWROUNDRECT(oWnd, oFont1) LOCAL hdc := oWnd:getdc(), aImage LOCAL oPen := Pen():New( 255, 0, 0, 255 , 10, .T.) LOCAL oBrush1 := Brush():NewSolidBrush( 255, 255, 128, 0 ) // Orange LOCAL oBrush2 := Brush():NewGradientBrush( 300, 200, 200, 200, 1,; 255, 255, 128, 0,; ...

I tried to insert

IF !Empty(cBackBrush)
DEFINE BRUSH oBrush1 FILENAME cBackBrush
ELSE
DEFINE BRUSH oBrush1 COLOR COLORE_SABBIA
ENDIF

oPanel:bResized := { || oPanel:SetBrush( oBrush1) }

but it is the same

... I think it has to be MDI to run. DEFINE WINDOW oWnd TITLE "RibbonBar Test " + FWVERSION from 1,1 to 600,600 pixel MDI MENU oMenu brush oBrush1 It errors out on this line because it expects the MDI window to exist. DEFINE DIALOG oDlgRB[1] FROM 0,0 TO 538,782 OF oWndr:oWndClient PIXEL ...

... i move the scroll the bruh make error see here : https://s33.postimg.cc/74wtlgf0v/Immagine.png How I can resolve it ? DEFINE BRUSH oBrush1 FILENAME ".\bitmaps\spiaggia.bmp" DEFINE DIALOG oDlg SIZE 1100,700 BRUSH oBrush1 ; STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, ...

... window-size and wanted backgound-color 3. past the copied image 4. save the new merged image as new image 5. use it as a wnd-brush DEFINE BRUSH oBrush1 FILENAME c_path1 + "Backgrd.png" DEFINE WINDOW oWnd FROM 50, 50 TO 600, 800 TITLE "GDIPLUS-test" ; STYLE WS_POPUP BRUSH ...

Antonio, THANK YOU VERY MUCH ! it works fine that way. Now I understand the logic. it can be a brush-combination : DEFINE BRUSH oBrush1 STYLE NULL DEFINE BRUSH oBrush2 COLOR 255 with some calculations, it will be possible, to get some nice effects. I will add four possible forms : 1. round ...

... ayuda? Gracias. //--------------------- FUNCTION Sys280(oWPpal) LOCAL oWnd, oDlg, oIco, oLbx, oBrw, cNom, n, nx, oFon1, nNroReg, oBtn[6], oBrush, oBrush1, oFld1, oDlgActive DEFINE BRUSH oBrush COLOR RGB(238,238,238) DEFINE BRUSH oBrush1 FILE "wall.bmp" DEFINE ICON oIco RESOURCE "GUIINGALentes" ...

Antonio
Este mismo criterio hay que seguir con los : oBrush := oBrush1 p.e., es decir no usarlo?
Gracias

... Tengo un dialog al que le cambio el fondo (brush) durante la ejecución de la aplicación. Con los say no tengo problema porque hago oSay:setbrush(oBrush1). El problema lo tengo con un RadioButton al cual no se le puede hacer oRadio:setbrush(oBrush1) porque da error . Más abajo una captura de pantalla ...

... echarte una mano en lo que esté a mi alcance...... .../... local cControl := "TPanel" local aPnels := {} local aClrPnels := {} local oBrush1 local cPanel := "wcia21.bmp" //"wcia2.bmp" Local oBrw1 Local oBrw2 hDC := GetDeskTopWindow() aRes := GetClientRect( hDC ...