FiveTech Software tech support forums

... position.
- `nKeyFlags`: Key flags.

25. **`FillArea()`**:
- **Description**: Fills a specific area of the button bar.
- **Parameters**:
- `aRect`: Rectangle coordinates.
- `uFill`: Fill value.

26. **`Paint()`**:
- **Description**: Paints the button bar.

27. **`CloseGroup ...

... define SM_XVIRTUALSCREEN 76
#define SM_YVIRTUALSCREEN 77
#define SM_CXVIRTUALSCREEN 78
#define SM_CYVIRTUALSCREEN 79

local oWndMM
local oBar
local aRect

IF CountMonitors() > 1
Return( GetSysMetrics(0) + 1 )
EndIf
Return(0 ...

... objeto TRect

* Mejora: La función RingGradientFill() ahora puede usar gradientes de color Alpha.

* Nuevo: Nueva función GDIP_ELLIPSE( hDC, aRect, nBorderClr, [nFillClr] )
Puede usar colores Alpha.

* Nuevo: Nueva función GDIP_RINGGRAD( hDC, x, y, naRad1, naRad2, nInnerClr,nOuterClr ...

... nRadiusY] ) --> TRect object

* Enahancement: function RingGradientFill() can now use alpha
color gradients

* New function GDIP_ELLIPSE( hDC, aRect, nBorderClr, [nFillClr] )
Can use alpha colors

* New function GDIP_RINGGRAD( hDC, x, y, naRad1, naRad2, nInnerClr,nOuterClr)
Gradient fill of ...

Puedes probar con estas claúsulas:

[INRECT <aInRect>];
aRect for paint: coordinates relative to nTop and nBottom of get

[INSIZE <nInWidth>, <nInHeight> ];
Width and Height for box paint

Dear Michel,

Do you use this ? Maybe you wrote ON MOVE by mistake:

ACTIVATE DIALOG ArcLeg RESIZE16 NOWAIT ON MOVE ArcLeg:Move(aRect[1],aRect[4],,,.T.)

or

ACTIVATE DIALOG ArcLeg RESIZE16 NOWAIT ON INIT ArcLeg:Move(aRect[1],aRect[4],,,.T.)

Dear Detlef,

Please modify this line in tget.prg this way:

FW_SayText( ::hDC, If( Empty( Eval( ::bSetGet ) ), "", Transform( Eval( ::bSetGet ), ::cPicture ) ), aRect, "R", ::oFont, ::nClrText )

now it works as you need

From Whatnew

* TWindow Method SayText( cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder )
Applies to all derived classes like dialogs and controls
To be used in o:bPainted.


function FW_SayText( hDC or oWnd, cText, aRect, cAlign, oFont, nClrText, nClrBack, lBorder )
Can be used with ...

... oStruc:CtlID
itemID := oStruc:itemID
itemAction := oStruc:itemAction
itemState := oStruc:itemState
hwndItem := oStruc:hwndItem
hDC := oStruc:hDC
aRect := oStruc:aRect
itemData := oStruc:itemData
each Element of Combobox have to be “paint” by “your” CODE
you get a hDC and and aRect to “paint” Data ...

... aStruc ) = "__itemSetObj( {{CTLTYPE, 3}, {CTLID, 109}, {ITEMID, 0}, {ITEMACTION, 1}, {ITEMSTATE, 4096}, {HWNDITEM, 1770774}, {HDC, 1157698194}, {ARECT, {3, 3, 35, 70}}, {ITEMDATA, `ęƒ}}, {{TDRAWITEMSTRUCT,}} )"

nPointer = 1373540
it seems to have what is need for Ownerdraw ComboBox ... now work ...

Method oWnd:DrawImage( cPngFile, aRect ) works. Is it possible to read from bitmap not all the picture, but only the required fragment ?

oWnd:bPainted := { || oWnd:DrawImage( cPngFile, aRect )

hi Antonio,

Antonio Linares wrote:In FWH you have function GetWndRect( hWnd ) --> aRect

Yes ... just a Sample for Xbase++ and HMG Syntax

i want to use "as much old Code" as possible so i like to know how under FiveWin, thx

Dear Jimmy,

In FWH you have function GetWndRect( hWnd ) --> aRect

... 46;cc/SxdKLwbC/bu&#46;png

// refill area of Polygon hBrush1 := CreateSolidBrush&#40; nColor &#41; hOld1:= SelectObject&#40; hBrush1 &#41; aRect:= &#123; aPoints &#91;1&#93;&#91;1&#93;, aPoints &#91;2&#93;&#91;1&#93;, aPoints &#91;3&#93;&#91;1&#93;, aPoints &#91;4&#93;&#91;1&#93; &#125 ...