Bernard Bout

Comments

# re: Glow-In-The-Dark Buttons with GDI+X @ Thursday, October 30, 2008 11:09 AM

Looks nice here, pity though I could not make it run on my machine, no glow no glory. The pictures are stored like: c:\docume~1\bbout\locals~1\temp\38347065.bmp
In the zipfile there are NO pictures included. Maybe we need those as well?

Hi BL

Thanks for not just lurking but actually posting a comment. No you dont need those.

From your query, it is obvious you have not read my post properly. Here is what the post says with regard to the images:

"You may have to delete the image stored in the Picture property of the sample form as these images are not included. However the builder will show what exactly the button will look like at runtime and also generate a new image"

So all you really need to do is delete the path stored in the form property and re run the builder and click "Apply" to have your very own bitmaps.

boudewijn Lutgerink

# re: Glow-In-The-Dark Buttons with GDI+X @ Thursday, October 30, 2008 4:45 PM

son fantasticos...muchas gracias  espero y sigan publicando mas cosas nuevas de fox..por alguna cosa ahi esta mi correo...soy programador de fox ...y felicidades por los ejemplos muy bueno... desde el salvador...

Gracias por su reconocimiento, Juanz

juanz

# re: Glow-In-The-Dark Buttons with GDI+X @ Friday, March 06, 2009 11:25 PM

********Bernard : can filter what is good for you to publish ***************************************

Bravo Bernard ,this is my remarks.

1-can put Mousepointer=15 (hand)
-when clic the button,a variant is the halo flashes with another color and hear to a sound(this property can be enabled/disabled)
i just add a property isSound and  this in the click class

if this.isSound=.t.
TRY
LOCAL lcBell
lcBell = SET("Bell")
SET BELL TO (ADDBS(GETENV('windir')))+"MEDIA\tada.WAV"
?? CHR(7)
SET BELL TO (lcBell)
CATCH
ENDTRY
endi
That can be done but I prefer to work silently :)

2-If i choice a small button ,the font is wide and looks not synchronizable with the button width.Can use some ratio (caption width/button width)
I see that the gdiplus function  measureSTring can measure the pixels of string caption and can arrange it with the adequat font ( to stretch the caption in the button).Its like the classic function TxtWidth.
Good idea. I will look into that.

That can be doing with the anchor property(in certain limit).
I see also the builder by dbclick on can return visual setting directly.

for reproduce the wrapmode effect of a commandbutton,i see this solution:
in imgcanvas.beforedraw
lnLeft = this.width/10    &&2
lnTop = This.Height/10     &&2
This.drawhalotext(loHalocolour,lcFont,lnFontsize,loFontColour,lcText,lnLeft,lnTop,This.mouseover)

in imgcanvas.drawhalotext
loPath.AddString(tcText, ;
.FontFamily.New(tcFont), ;
.FontStyle.Bold, ;
tnFontsize, ;
.Rectangle.New(tnLeft,tnTop,0.8*this.width,0.8*this.height),;
loStringFormat)

that can draw multiline caption,centered.
Another good idea for improvement. I will check it out

3-very nice trick with font wingding effect.

4-When apply the builder in a button this is drawn on design time (dbclick on  aGlowBuilder).
 can we  automatically do that for each button with the properties set at design time - (many pictures in temp folder)-without viewing the builder ?
I will check it out

5-why the font monotype corsiva dont work anywhere in gdiplusX ?
No idea

6-Button can be also circular,elliptic,..
Yes it can like my other buttons. I showed a small square button anyway.

Conclusion: great work with beautiful new effects and nice designs.
Thanks for your comments Yousfi
Thanks Bernard.

YOUSFI BENAMEUR

# re: Glow-In-The-Dark Buttons with GDI+X @ Wednesday, April 22, 2009 4:53 PM

fantastics Buttons.., i like very much, i have a problem when put this buttons in a container, and form is resize, they no resize, until i put the mouse on. how can I fix this?

Have you set the Anchor property of the buttons and the container?

Jimmy Alcala

# re: Glow-In-The-Dark Buttons with GDI+X @ Wednesday, April 22, 2009 5:34 PM

Yes, i set the anchor property, when button is in form work fine, but button is in container only resize with mouse on....

Gracias por tu atención

Do this:

1. Add a container to the form. Set the container.Anchor = 15

2. Place a button inside the container. Set button Anchor property = 15

3. Run form. Resize form and see that the button also increases.

Jimmy Alcala