Hi,
I am looking for a sample code for a round or oval XbpPushButton.
Many thanks,
-Itai

hi,

> I am looking for a sample code for a round or oval XbpPushButton.

you can use CreateEllipticRgn() / SetWindowRgn() to create a Mask for Round 
Control

Thank you, Jim.
I'm going to study this.
-Itai

Hello Jim.
Good night.
Is it possible to change the color of the frame?

Fraternally
Beling

Em 29/09/2018 20:35, Jim Lee escreveu:
> hi,
>
>> I am looking for a sample code for a round or oval XbpPushButton.
>
> you can use CreateEllipticRgn() / SetWindowRgn() to create a Mask for Round
> Control
>
>
>

> Is it possible to change the color of the frame?

Frame Color is not Part of visual Style.
visual Style paint Frame with

@USER32:DrawFrameControl(hDC, rcs, nDFCS )
@USER32:DrawFocusRect(hDC,@rcs)

you can simulate with Xbase++ Ownerdraw

IF BAnd(aInfo[3], XBP_DRAWSTATE_FOCUS) == XBP_DRAWSTATE_FOCUS
   aLAttrs[GRA_AL_COLOR] := nColor1
   GraSetAttrLine(oPS, aLAttrs)
   aRect  := ::CurrentSize()
   aRect  := {0, 0, aRect[1] - 1, aRect[2] - 1}
   GraFocusRect(oPS, {aRect[1] + 3, aRect[2] + 3}, {aRect[3] - 2, aRect[4] - 
2})
ENDIF

p.s. when using Windows Imagelist you can create you own visual Style so no 
Color need
have a look at Pablo Website www.xbwin.com -> Forum

Carlos,

In the code that I sent you, you have the nBorderClr iVar that you can use 
to assign any color. You can check its effect in the sample that is 
included, also in the screenshot of my previous message.

Have not you received it?

Regards. Diego

Hello Diego.
Unfortunately I did not receive. Could you please to send it again?

Fraternally
Beling

Em 02/10/2018 04:13, Jose Antonio Diego Kereje escreveu:
> Carlos,
>
> In the code that I sent you, you have the nBorderClr iVar that you can
> use to assign any color. You can check its effect in the sample that is
> included, also in the screenshot of my previous message.
>
> Have not you received it?
>
> Regards. Diego
>

Itai,

Xbase does not draw the curves with a good resolution. As much as possible, 
I try not to use them. But integrating Jim's approach, I created a class to 
manage rounded buttons.

I think the result is pretty good.

Regards. Diego

Many, many thanks, Jose.
Looks perfect.
-Itai

I improved the code a bit to enable flat look and circular buttons.

Regards. Diego

Hello Diego.
Good afternoon. Would you like to share yours improveded code?

Fraternally
Beling

Em 30/09/2018 15:38, Jose Antonio Diego Kereje escreveu:
> I improved the code a bit to enable flat look and circular buttons.
>
> Regards. Diego

Sent to your mailbox.

Regards. Diego

Jose Antonio Diego Kereje je 30.09. 2018 ob 20:38 napisal:
> I improved the code a bit to enable flat look and circular buttons.
> 
> Regards. Diego

Incredibly good work ... especially full round buttons
I work with TopDown library but this sample is something
completely different.

Would you be so kind and send me the modified code?
What about a text in two rows?

Best regards

Miran Zupan
Slovenia
spczupan@spc-zupan.si


---
Ta e-pošta je bila pregledana z Avast protivirusnim programom.
https://www.avast.com/antivirus

> What about a text in two rows?

you just need to enhance Style with BS_MULTILINE

   oCheck1 := XbpPushButton():new()
   oCheck1:caption := "AAAAAAAAA"+CHR(13)+CHR(10)+"BBBBBBBB"
   oCheck1:create( , , aPos, {nIcoX,nIcoY} )
   IF lPimpIt
      PimpMyXb(oCheck1)
   ENDIF

PROCEDURE PimpMyXb(oObj)
LOCAL hWnd
LOCAL nStyle
   IF VALTYPE(oObj) = "O"
      hWnd   := oObj:GetHWnd()
      oObj:hide()
      nStyle := @user32:GetWindowLongA(hWnd, GWL_STYLE)
      nStyle := nOr(nStyle, BS_MULTILINE)
      @user32:SetWindowLongA(hWnd , GWL_STYLE , nStyle )
      oObj:Show()
   ENDIF
RETURN

Jim Lee je 2.10. 2018 ob 23:06 napisal:
>   oCheck1:caption := "AAAAAAAAA"+CHR(13)+CHR(10)+"BBBBBBBB"
Ehhh
Thank you

I forgot the combination  CHR(13)+CHR(10)

Best regards
Miran Zupan

---
Ta e-pošta je bila pregledana z Avast protivirusnim programom.
https://www.avast.com/antivirus

> What about a text in two rows?

That is simple and it is already enabled.

> Would you be so kind and send me the modified code?

I still want to make some changes. Later I will share the code.

Regards. Diego

On 10/2/2018 4:12 PM, Jose Antonio Diego Kereje wrote:
>> What about a text in two rows?
> 
> That is simple and it is already enabled.
> 
>> Would you be so kind and send me the modified code?
> 
> I still want to make some changes. Later I will share the code.
> 
> Regards. Diego
Hi Diego,

I certainly like your round buttons and would appreciate it if you would 
consider sharing your code with me.

Thanks... Jonathan

On 10/4/2018 9:32 PM, Jonathan Leeming wrote:
> On 10/2/2018 4:12 PM, Jose Antonio Diego Kereje wrote:
>>> What about a text in two rows?
>>
>> That is simple and it is already enabled.
>>
>>> Would you be so kind and send me the modified code?
>>
>> I still want to make some changes. Later I will share the code.
>>
>> Regards. Diego
> Hi Diego,
> 
> I certainly like your round buttons and would appreciate it if you would 
> consider sharing your code with me.
> 
> Thanks... Jonathan
Oops... I was using my home computer and did not realize that my email 
was not associated with my account / postings.

Thanks... Jonathan

jonathan.leeming@the-family-centre.com
Edmonton, Alberta, Canada

Sent!

Regards. Diego.

On 10/5/2018 5:32 AM, Jose Antonio Diego Kereje wrote:
> Sent!
> 
> Regards. Diego.
Received!!!

Thanks to Diego & Jim Lee for creating a very nice class... definitely 
created a lot of interest... 30 post and counting.

Thanks once again for sharing!

Regards... Jonathan

jonathan.leeming@the-family-centre.com
Edmonton, Alberta, Canada

Sent!

Regards. Diego

Hello Diego,

Your round button class picture I seen in the newsgroup. Can your share the
code for me ?

Regards,

M.B.BAIJU

Sent!

Regards. Diego

Hola Diego, también podría pedirte que me pases tu código ?
jlborlando@yahoo.com.ar
saludos, Jorge

"Jose Antonio Diego Kereje" wrote in message 
news:76100088$5532212e$36921@news.alaska-software.com...
> I improved the code a bit to enable flat look and circular buttons.
>
> Regards. Diego

On 10/2/18 7:35 AM, Jorge L. Borlando wrote:
> Hola Diego, también podría pedirte que me pases tu código ?
> jlborlando@yahoo.com.ar
> saludos, Jorge
> 
> "Jose Antonio Diego Kereje" wrote in message 
> news:76100088$5532212e$36921@news.alaska-software.com...
>> I improved the code a bit to enable flat look and circular buttons.
>>
>> Regards. Diego 
> 
Como siempre, excelentes ejemplos...

Estimado Diego

Me uno a la peticion, ramirezosvaldo@yahoo.com

Gracias de antemano

Saludos
Osvaldo Ramirez

Hola Osvaldo,

¡Enviado!

Saludos. Diego

Hello Diego.
Good morning.
Please send it to me. I lost the first one.

Fraternally
Beling

Em 03/10/2018 18:44, Jose Antonio Diego Kereje escreveu:
> Hola Osvaldo,
>
> ¡Enviado!
>
> Saludos. Diego

What is your email address?

I have sent it to you several times to beling@bipbip.com.br

Regards. Diego

Hello Diego.
This e-mail is correct. I do not know what is going wrong. May be it 
went to the spam box.
Please send it too to tassobr@aol.com

Fraternally
Beling


Em 04/10/2018 12:03, Jose Antonio Diego Kereje escreveu:
>
> What is your email address?
>
> I have sent it to you several times to beling@bipbip.com.br
>
> Regards. Diego

Good morning Diego.
Sorry for bothering you.
Did you find it convenient to resend the programs to me?
I could not find them in the emails mentioned.
I need to investigate what's going on.

Fraternally
Beling

Em 04/10/2018 12:13, Carlos a Beling escreveu:
> Hello Diego.
> This e-mail is correct. I do not know what is going wrong. May be it
> went to the spam box.
> Please send it too to tassobr@aol.com
>
> Fraternally
> Beling
>
>
> Em 04/10/2018 12:03, Jose Antonio Diego Kereje escreveu:
>>
>> What is your email address?
>>
>> I have sent it to you several times to beling@bipbip.com.br
>>
>> Regards. Diego

Hola Diego, no he recibido tu ejemplo

podrías enviar a jlborlando@gmail.com ?

muchas gracias, saludos cordiales

"Jose Antonio Diego Kereje" wrote in message 
news:4bb14a3a$48dd3e67$41395@news.alaska-software.com...
> Hola Osvaldo,
>
> ¡Enviado!
>
> Saludos. Diego

Hola Jorge,

¡Enviado!

Saludos. Diego

New class: RoundVerticalPB()

This is the latest version and I do not plan to make any more changes.

I send the new code to all of you who have the previous version.

Regards. Diego

Hi Jim,

Yes, I know everything you mention, because for a long time I have used the 
:styleClass, :styleParts and :controlState iVars (you can find my message in 
this same ng with the StyleClass iVar title, from April 1, 2015).

This thread is not about buttons (in general) and in your screenshot I do 
not see anything that can not be done currently with the XbpImageButton 
class of Xbase++. Neither, a competition.

In the thread three questions have been raised, the first essential and the 
other two secondary:

1. Make rounded buttons (Itai Ben-Artzi).
2. Be able to have non-standard appearance (Carlos A. Beling).
3. The possibility of multiline text (Zupan Miran)

I compiled your sample here (and in Pablo’s site) I have not seen functional 
rounded buttons, but yes, a great idea (the use of SetWindowRgn() function). 
That's why I decided to develop a code that would answer these (and not 
other) questions.

Regards. Diego

hi Diego,

i just want to say that Checkbox is a Button which can be made round too

> and in your screenshot I do  not see anything that can not be done
> currently with the XbpImageButton class of Xbase++. Neither, a 
> competition.

in last row there are some PUSHLIKE Checkbox as Button so you see no 
Difference 

PUSHLIKE Checkbox will stay down when o:Select.

Hi Jim,

I apologize, I did not mean to be rude or look angry. I do not speak English 
and it's hard for me to be able to express the usual nuances of a language.

My "problem" with your last screenshot is that I think it's out of the 
question of rounded buttons. I just wanted to express that.

Here we say: The relevant information helps, too much information only 
generates noise.

Regards. Diego

Hello Diego.
Good night.
I could not to find the Class XbpImageButton() in my Xbase++ 2.0 
Foundaton documentation.  Could you please to show to me where I can 
finding it?

Faternally
Beling

Em 07/10/2018 13:29, Jose Antonio Diego Kereje escreveu:
> Hi Jim,
>
> Yes, I know everything you mention, because for a long time I have used
> the :styleClass, :styleParts and :controlState iVars (you can find my
> message in this same ng with the StyleClass iVar title, from April 1,
> 2015).
>
> This thread is not about buttons (in general) and in your screenshot I
> do not see anything that can not be done currently with the
> XbpImageButton class of Xbase++. Neither, a competition.
>
> In the thread three questions have been raised, the first essential and
> the other two secondary:
>
> 1. Make rounded buttons (Itai Ben-Artzi).
> 2. Be able to have non-standard appearance (Carlos A. Beling).
> 3. The possibility of multiline text (Zupan Miran)
>
> I compiled your sample here (and in Pablo’s site) I have not seen
> functional rounded buttons, but yes, a great idea (the use of
> SetWindowRgn() function). That's why I decided to develop a code that
> would answer these (and not other) questions.
>
> Regards. Diego

> I could not to find the Class XbpImageButton() in my Xbase++ 2.0

CLASS XbpImageButton / XbpImageTabPage are from "Service Pack 1" for v1.9x

Hello JIm.
Good morning.
Many thanks.
Bad notice...

Fraternally
Beling

Em 08/10/2018 22:53, Jim Lee escreveu:
>> I could not to find the Class XbpImageButton() in my Xbase++ 2.0
>
> CLASS XbpImageButton / XbpImageTabPage are from "Service Pack 1" for v1.9x
>
>

On 10/6/18 1:16 PM, Jose Antonio Diego Kereje wrote:
> New class: RoundVerticalPB()
> 
> This is the latest version and I do not plan to make any more changes.
> 
> I send the new code to all of you who have the previous version.
> 
> Regards. Diego

Excelent!!!, Good job Diego

Best Regards
Osvaldo Ramirez

Hi to all "Round Buttons" lovers ...
just a hint (which all you already know ...)


oXbp := RoundPB():new()
    oXbp:tabStop  := .T.
    oXbp:caption  := TXT_CLOSE
    oXbp:nHoverClr:= GRA_CLR_ORANGE

//*** you can change the font for every button with ....
    oXbp:SetFontCompoundName( "12.Segoe UI" )

    oXbp:create( oDlg:drawingArea,, { aSize[ 1 ] - 188, aSize[ 2 ] - 280 }, { 28, 150 } )

Regards
Miran Zupan

---
Ta e-pošta je bila pregledana z Avast protivirusnim programom.
https://www.avast.com/antivirus

Diego,

> New class: RoundVerticalPB()
> This is the latest version and I do not plan to make any more changes.
> I send the new code to all of you who have the previous version.

They look beautiful.
I was just lurking to see how this would work out.
Didn't request a previous version, but I am interested in the final result.
Could I receive a copy of the source code as well, or would you share it
here?

Thanks a lot.

Peter

Hi,

New public version with cosmetic changes (uff!... the curves and Xbase++ do 
not "marry" well), support for TopLeft and BottomLeft origin, and execution 
of the :activate codeblock when pressing Return and Space Bar.

As always, the best result is obtained by using the topleft origin.

Regards. Diego

PS: I had the curiosity to know the interest in these things...

> New public version with cosmetic changes (uff!... the curves and Xbase++ 
> do
> not "marry" well), support for TopLeft and BottomLeft origin, and 
> execution
> of the :activate codeblock when pressing Return and Space Bar.

THX for your great Work.

> PS: I had the curiosity to know the interest in these things...

i guess People love to pimp there Apps 

I agree.


Em 09/10/2018 21:17, Jim Lee escreveu:
>> New public version with cosmetic changes (uff!... the curves and Xbase++
>> do
>> not "marry" well), support for TopLeft and BottomLeft origin, and
>> execution
>> of the :activate codeblock when pressing Return and Space Bar.
>
> THX for your great Work.
>
>> PS: I had the curiosity to know the interest in these things...
>
> i guess People love to pimp there Apps 
>
>

Hello Diego.
Many thanks again.

Fraternally
Beling

Em 09/10/2018 21:17, Jim Lee escreveu:
>> New public version with cosmetic changes (uff!... the curves and Xbase++
>> do
>> not "marry" well), support for TopLeft and BottomLeft origin, and
>> execution
>> of the :activate codeblock when pressing Return and Space Bar.
>
> THX for your great Work.
>
>> PS: I had the curiosity to know the interest in these things...
>
> i guess People love to pimp there Apps 
>
>

Jim,

Thank you for your contribution, without it I would not have developed this 
code.

Regards. Diego

Hi,

Correction of the visual mismatch generated when the Return/Spacebar key is 
pressed and then the button is clicked.

Regards. Diego

Diego,

> PS: I had the curiosity to know the interest in these things...

My apps all have a business look.
Peolple find my apps very usefull and easy to use, but as they make use of
the standard interface elements, they find them look dull as well.
I wanted to start a project on this and your buttons will help me to get a
headstart on this.

Thanks,
Peter