TSButton

[Otto]

Hello Manuel,
Is it possible to change from "CRYSTAL" to "SUNSET" on the fly.
If yes would you please be so kind to show me how to do.

Code: Select all  Expand view

FUNCTION TischBesetzen(oBtn)

oBtn:Settext("besetzt")
//    set     SUNSET ?

oBtn:SetColor(CLR_WHITE, nRGB( 220, 0, 0 ))
oBtn:refresh()

return nil


Thanks in advance
Otto

[mmercado]

Hi Otto:

Is it possible to change from "CRYSTAL" to "SUNSET" on the fly

Try this:

Code: Select all  Expand view

   oBtn:nShape := 8
   oBtn:Refresh()

My best wishes for this new year.

Manuel Mercado.

[Otto]

Hello Manuel,
thank you.
One aditional question:
If I have first an Office style button which I change to SUNSET the borders of the Office button are a little bit exceeded.
Is there a trick to clear these or should I paint a BOX first?

Best regards,
Otto

PS: Thanks to TSButton my new ECR becomes a beauty.

[mmercado]

One aditional question:
If I have first an Office style button which I change to SUNSET the borders of the Office button are a little bit exceeded.
Is there a trick to clear these or should I paint a BOX first?.

I think you can do this:

oBtn:Hide()
oBtn:nShape := 8
oBtn:Show()

Best regards.

Manuel Mercado.

[sanilpmc]

Hello Manuel/Otto

Do TSButton support High Resolution BMP's like Alphachannel BMP's ?

Sanil