FiveTech Software tech support forums

Now I have the refill run ok

] corrected the position line

Problem to refill with agradient With FillRectEx( ::hDC, aPoints, aGrad)

https://i.postimg.cc/xT3CxpSJ/t9.png

new code


#include "fivewin.ch"#include "constant.ch"Function Test() local oDlg,oFont,oBold local oBtnClose local nBottom := 38 ...

For now I have to give up the refill of the area, I have created 10 circles to display all the shapes of the 10 lottery reels

https://i.postimg.cc/9fn022nx/gg.png

I saw that it can not do them automatically I do not understand why

if I associate a button with the function Mostra ...

hi Silvio,
Now How I can to refill the area with transparent color ?
have not work with it yet

i "think" you need Polygon API Function
https://docs.microsoft.com/en-us/windows/win32/api/wingdi/nf-wingdi-polygon

The Polygon function draws a polygon consisting of two or more vertices ...

... num1),val(num2),val(num3),val(num4),val(num5),nColor,oCiclo:apos)




https://i.postimg.cc/2S1JYLbd/ciclometric.gif



Now How I can to refill the area with transparent color ?


https://i.postimg.cc/0yk3BHx4/refi.jpg

I tried with FillRectEx( ::hDC, aPoints, aGrad)

I couldn't find a problem.

but I have a text colored and on msgitem is not refill with the background color

regards
Uwe

No need color but refill the msgitem background

fwexplorer.prg ?????????????????????????????????????????????????????????????????????

... MSGITEM ::oMsgItem1;
OF ::oWnd:oMsgBar ;
PROMPT ::aStatus[1] ;
SIZE 100 ;
COLOR RGB(0x9a,0xcd,0x32), RGB(0x9a,0xcd,0x32)

but I have a text colored and on msgitem is not refill with the background color
any solution please ?

I wish as this

https://i.postimg.cc/V69yYmc1/hh.png

... 1. I create a panel inside a dialog
on top of the dialog are tabs

2. I fill the panel with objects defined in function1 from tab1

3. I want to refill the panel with defined objects from tab2 calling function2

the replacement works but I have to clear the panel before refill it with objects ...

Mr. Ellano

Yes.
We can not refill the data using aData := {} and AAdd.
Because when we assign aData := {} again, this is a new array different from the array used in the Gets.
Also in Add,
AAdd( aData, { ..... } )
the array { ... } is again a new array which is different from the array used in the ...

... cCoffe_pot = "Quarter Empty"
cNagesUmor := "Drink more you are still tired"
case cCoffe_pot = "Half Empty"
cNagesUmor := "Empty bladder, then refill cup"
case cCoffe_pot = "Tree Quarter Empty"
cNagesUmor := "Better down that cup and refill before the pot gets cold!!"
overcase
cNagesUmor ...

... array or read a source database.

If you are reading a small database, you can add or delete records in the source database, then just call the Refill() method which will reload the array.

Depending on the size of the database rereading it could be too slow for a good user experience. If this is ...

... only work, if You RESTORE the original brush of the window or dialog inside the used area
BEFORE painting new images.
Using Your sample, You can REFILL the used area with green, before painting the new images.
It can be a colored bitmap ( green ) with the size of the used area.
A other solution : a ...

... insert ntype 1 or nType 2 erase the picture and draw only the part Left or Right

Perhaps it can run ok if the procedure not erase the picture but refill only the part left ( ntype 1) and right ( ntype 2)





Take This last source fro the release please :

Test.prg
#include "FiveWin.ch"function ...

Prueba modificando la clase:

METHOD Fill() CLASS TDBCombo

// Refill aItems and aList from cAlias->cFldItem and cAlias->cFldList

LOCAL nOldRecNo
LOCAL nItem, nList

::aItems := {}
::aList := {}

IF ! HB_IsObject( ::cAlias )

IF ::cAlias == ""
* IF Empty( ::cAlias )
// There's no workarea ...