FiveTech Software tech support forums

... ELSE

MsgInfo( 'Error de apertura de archivo', 'Informe' )

return( .F. )

ENDIF

titulolistado := "Listado de Slots"

CursorWait()

DEFINE BRUSH oBrush COLOR CLR_WHITE // aqui

PRINT oPrn NAME "Lista de Slots" PREVIEW MODAL

DEFINE FONT oFont11 NAME "TIMES NEW ROMAN" SIZE 0, - 14 BOLD OF ...

... SIZE 0,-10 OF oPrn
DEFINE FONT oFont15 NAME "TAHOMA" SIZE 0,-8 OF oPrn
DEFINE FONT oFont16 NAME "CAMBRIA" SIZE 0,-10 BOLD ITALIC OF oPrn
DEFINE BRUSH oBrush COLOR CLR_WHITE
DEFINE PEN oPen WIDTH 1 COLOR CLR_BLACK


aDesde := oPrn:Cmtr2Pix(0.5,2.5)
aAncho := oPrn:Cmtr2Pix(3,2.5)


cmt ...

... Main()
LOCAL cUser := space(10)
LOCAL cName := space(50)
LOCAL cEmpresa := "SysCtrl"
LOCAL oDlg,oGet1,oGet2, oCbx, oBtn1, oBtn2
LOCAL oBrush
LOCAL lVal := .f.
LOCAL oFont
DEFINE BRUSH oBrush COLOR nRGB( 255, 255, 255 )
DEFINE FONT oFont NAME "Tahoma" SIZE 0, -12 BOLD
DEFINE DIALOG ...

... BLUE }, 2 ) // Sets background using a codeblock for the color and gradient mode.
content_copy
download
Use code with caution.
Harbour

126. MakeBrush()

Description: Creates a brush object for painting the browse background. Method version for use within codeblocks.

Parameters: None

Return ...

... 2. Destroy()

Description: Destructor for the TXBrowse class. Releases resources associated with the browse control, including bitmaps, pens, brushes, and data connections.

Parameters: None

Return Value: OBJECT - Returns the TXBrowse object (Self).

Usage Example:

oBrw:Destroy()
content_copy ...

... n "public: __cdecl Gdiplus::Region::~Region(void)" (??1Region@Gdiplus@@QEAA@XZ)
FiveHC64.lib(gdipfwh.obj) : error LNK2019: s¡mbolo externo GdipCloneBrush sin resolver al que se hace referencia en la funci¢n "public: virtual class Gdiplus::Brush * __cdecl Gdiplus::Brush::Clone(void)const " (?Clone ...

... Array containing bitmap handles and related data for all states. |
| `aGradRect` | Array | Rectangle coordinates for gradient filling. |
| `aBrushOrg` | Array | Brush origin coordinates. |
| `cGrpLabel` | String | Group label for grouped buttons. |
| `aGrpClr` | Array | Group color settings ...

FWH Class TBrushEx documentation:
### Class Documentation: `TBrushEx`

#### Overview
The `TBrushEx` class is designed to create a brush from a bitmap. The bitmap can be generated with specific dimensions and colors, and it can include a gradient effect (either vertical or horizontal). If a second ...

FWH Class TBrush documentation:
### **Class Documentation: `TBrush`**

The `TBrush` class is designed to manage and manipulate brush objects in a Windows-based graphical environment. Brushes are used to fill shapes, backgrounds, and other graphical elements with colors, patterns, or gradients. This ...

... RIGHT, BOTTOM, FLOAT).
- `oCursor`: Cursor object.
- `l2007`, `l2010`, `l2013`, `l2015`: Office style flags.
- `lBorder`: Border flag.
- `oBrush`: Brush object.
- `aGrad`: Gradient array.
- `nColor`: Color value.
- `lHScroll`: Horizontal scroll flag.
- `nAlto`: Height adjustment ...

... FUNCTION Salir( )

IF MsgNoYes( "Seguro desea salir de la aplicación ?", oApp:cAplicacion) // + " " + oApp:cVersion)

// FONTES aqui:
// RELEASE BRUSH oBrush
// RELEASE FONT oFont

DbCommitAll()
DbUnLockAll()
DbCloseAll()
FreeResources() // SET RESOURCES TO
Release All
SysRefresh()
HB ...

Puedes hacerlo con BRUSH también:

Regards, saludos.

Full code of my function


Function MuestraFoto(cTexto)
Local oBrush2
Local oWnd2
Local oMonitor2 := FW_GetMonitor( 2 )

DEFINE FONT oBold NAME 'Tahoma' SIZE 0, -320 BOLD
DEFINE BRUSH oBRush2 RESOURCE "LAYER" TILED

DEFINE WINDOW oWnd2 FROM oMonitor2:Row(50), oMonitor2:Col(10) TO ;
oMonitor2:Row ...

Silvio,
Redraw the background only over the part where the old figure is.
oGraphics:DrawEllipse( oPen2, oBrush2 , 500, 100, 60, 60 )
but for oBrush2 take the background brush.
Or clear the entire drawing area.

Best regards,
Otto

>Redraw the background only over the part where the old figure is ...

Silvio,
Redraw the background only over the part where the old figure is.
oGraphics:DrawEllipse( oPen2, oBrush2 , 500, 100, 60, 60 )
but for oBrush2 take the background brush.
Or clear the entire drawing area.

Best regards,
Otto