A new IDE for Manuel Mercado's SBUTTON

[ukoenig]

Hello

because many People are using SBUTTON from M. Mercado,
I will put my new IDE for the Samples as Download on this place.
I kept the samples like they are, but everything is adjusted to the IDE
and a Painter is included, to change Backgrounds, Images and Fonts.
As soon it is finished, I will add a < Download > - Comment to this post.



Lines-Display :


Say-Display :


Best Regards
Uwe

[mmercado]

Dear Uwe:

Thanks in advance from everybody (like me) who uses TSButton.

Best regards.

Manuel Mercado Gómez.

[ukoenig]

Dear Manuel,

I reached the Button-Section and wanted to change the Button-size ( Button from Resource )
Is there a Way, to show a resized / adjusted BMP ?

// New "Shape" feature in TSButton
@90, 300 SBUTTON oBtn[ 4 ] OF aChild[ 1 ] FONT oFont[ 2 ] ;
SIZE 150, 40 PIXELS ; // doesn't resize the BMP
RESOURCE "Lamp1", "Lamp2",, "Lamp3", "Shape3" ;
SHAPE ;
PROMPT "Exit" ;
TEXT ON_LEFT ;
ACTION aChild[ 1 ]:End();
COLORS CLR_BLACK ;
TOOLTIP "End Program" ;
MESSAGE 'See new "Shape" feature and 3D text (bas-relief), ' + ;
'default position, specific 3D colors'



Best Regards
Uwe

[Ruben Fernandez]

Estimados: EXCELENTE... Muchas gracias a ambos.

Saludos

Ruben Fernmandez
(Esperando la nueva TSButton...je,je,je)

[mmercado]

Is there a Way, to show a resized / adjusted BMP ?

No, with BITMAP shape, the size is provided by the dimentions of the bitmap and can't be resized.

Best regards.

Manuel Mercado Gómez.

[ukoenig]

Dear Manuel,

everything is included now ( nearly finished ) like the Background-Painter and a Source-Creator.
I have a Question about the HOTSPOT-section :
On Mouse-caption, I get a oversized Area and I couldn't find out, where it comes from.
As far as possible, I'm trying to use / include Your samples. Only some Object-adjustments needed.
( added some Space between the Buttons )



================= A part of the sample ========

FUNCTION TESTHOT1(oWnd)
LOCAL oFont, oMenu, oBrush
LOCAL nEle, oBtn[ 20 ], oBtn30, ;
aPrompt := {}, ;
aAction := {}, ;
aRVSP := { { 11, 11, 27, 26 }, { 11, 28, 27, 41 }, { 11, 43, 27, 58 } }, ;
aBVSP := { 'MsgInfo( "Preview" )', 'MsgInfo( "Save" )', 'MsgInfo( "Print" )' }, ;
aTVSP := { "Preview", "Save", "Print" }, ;
aRPS := { { 11, 17, 27, 32 }, { 11, 35, 27, 48 } }, ;
aBPS := { 'MsgInfo( "Print" )', 'MsgInfo( "Save" )' }, ;
aTPS := { "Print", "Save" }, ;
aRVP := { { 11, 19, 27, 34 }, { 11, 37, 27, 52 } }, ;
aBVP := { 'MsgInfo( "Preview" )', 'MsgInfo( "Print" )' }, ;
aTVP := { "Preview", "Print" }, ;
aROne := { 11, 10, 27, 62 }

For nEle := 1 To 18
AAdd( aPrompt, "TSButton Hot Spot Sample " + LTrim( Str( nEle ) ) )
Next

DEFINE BRUSH oBrush FILENAME ".\system\Blustone.bmp"

DEFINE DIALOG oDlg8 OF oWnd FROM 60, 50 TO nHeight - 80, nWidth- 300 PIXEL ;
FONT oFont BRUSH oBrush // COLORS CLR_BLACK, CLR_NBLUE

// The 1. Button

@ 5, 5 SBUTTON oBtn[ 1 ] PROMPT aPrompt[ 1 ] PIXEL OF oDlg8 ;
RESOURCE "VSP" FONT oFont COLOR CLR_BLUE SHAPE ;
ACTION MsgInfo( "Main Action Sample 1" ) ;
TOOLTIP "Test"

// aHotSpot, { aRect, bAction, cToolTip }
oBtn[ 1 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
oBtn[ 1 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
oBtn[ 1 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

...
...

Maybe something to be changed here ???

// moving the caption to a specific location inside the button (pixel coordinates)
For nEle := 1 To 18
oBtn[ nEle ]:SetText( Nil, 12, 77, .T. )
Next

ACTIVATE DIALOG oDlg8 VALID ( lACTIVE8 := .F., oBtn8:Enable(), .T. ) NOWAIT ;
ON INIT oDlg8:Move( 60, 50, nWidth- 350, nHeight - 150, .f. )

RETURN NIL

======================

The SAY is defined as TRANSPARENT but doesn't work

@50, 70 SAY "White Box" FONT oFont SIZE 60, 15 PIXEL TRANSPARENT
@50, 290 SAY "Blue Box" FONT oFont SIZE 60, 15 PIXEL TRANSPARENT
@50, 500 SAY "Green Box" FONT oFont SIZE 60, 15 PIXEL TRANSPARENT

I tested :

@50, 50 STSAY oSay PROMPT ;
"Class: TSTSay" + CRLF + "Command: STSAY" OF oWnd2 ;
SIZE 450, 150 PIXELS ;
FONT oFont COLOR CLR_RED, CLR_HGRAY ;
SHADED BLINK CLR_HRED, 500, 3000

it works perfect on the same Backround.



Label-Text-color is always BLACK ???

// label left aligned (default)
@400, 30 GRAY BOX SIZE 150, 150 OF oWnd3 PIXEL TEXT "Label" FONT oFont



Doesn't work
// @50, 70 SAY "White Box" FONT oFont SIZE 60, 15 PIXEL TRANSPARENT

Changed to :
@50, 70 STSAY oSay PROMPT "White Box" OF oWnd3 SIZE 60, 15 PIXELS ;
FONT oFont COLOR 16776960, CLR_HGRAY



Best Regards
Uwe

[ukoenig]

Dear Manuel,

I have 2 small Questions about the 2. Radio-sample :

1. How to display the BMP's transparent ( possible ) ?
( a Alpha-channel displays a black background )

DEFINE BITMAP oBmp[ 5 ] FILENAME c_path + "\System\Key1.bmp"
DEFINE BITMAP oBmp[ 6 ] FILENAME c_path + "\System\Key2.bmp"
DEFINE BITMAP oBmp[ 8 ] FILENAME c_path + "\System\Key4.bmp"

@200, 100 SRADIO oRad[ 12 ] VAR lActive OF oWnd7 ;
ITEMS "Enable/Disable all Radio Boxes" SIZE 70, 30 PIXEL ;
FONT oFont BITMAPS oBmp[ 5 ], oBmp[ 6 ],, oBmp[ 8 ] RAISED WBOX ;
COLOR CLR_BLACK, nRGB( 205, 192, 176 ) ;
MESSAGE "TSRadio Check Box, Button CHECK, Text RAISED, Own Box"



2. the changed BMP moves a bit in horizontal direction from the original Position, after Button-click.
Is there something to be adjusted ?



Best Regards
Uwe

[AIDA]

Hello and where I can download these new buttons as nice

Saluditos

[ukoenig]

Hello,
here are the Informations, You are looking for :

Manuel Mercado's Download-Link for SBUTTON release 7.0

http://www.box.net/shared/9vyw4zeo0k

The Tool, to select and create/modify the delivered SBUTTON-samples, is nearly finished.
I Download-Link will be added to this Post.

Best Regards
Uwe

[jose_murugosa]

Its a really interesting tool.

Congratulations!!

[ukoenig]

Hello Jose,

I still found another sample, that wasn't included.
It works fine, embedded inside the Tool.
Slowly everything is included for a first Download.

The background of the left part can be changed with the Painter :





Best regards
Uwe

[mmercado]

Dear Uwe:

I have a Question about the HOTSPOT-section :
On Mouse-caption, I get a oversized Area and I couldn't find out, where it comes from.
As far as possible, I'm trying to use / include Your samples. Only some Object-adjustments needed.
( added some Space between the Buttons )

Here you are a revised TestHots.prg

Code: Select all  Expand view

#include "FiveWin.ch"
#include "TSButton.ch"

#define CLR_NBLUE  nRGB( 142, 171, 194 )

//--------------------------------------------------------------------------//

Function Main()

   Local oWnd, oDlg, oFont, oMenu, nEle, oBtn[ 20 ], ;
         aPrompt := {}, ;
         aAction := {}, ;
         aRVSP  := { { 11, 11, 27, 26 }, { 11, 28, 27, 41 }, { 11, 43, 27, 58 } }, ;
         aBVSP  := { 'MsgInfo( "Preview" )', 'MsgInfo( "Save" )', 'MsgInfo( "Print" )' }, ;
         aTVSP  := { "Preview", "Save", "Print" }, ;
         aRPS   := { { 11, 17, 27, 32 }, { 11, 35, 27, 48 } }, ;
         aBPS   := { 'MsgInfo( "Print" )', 'MsgInfo( "Save" )' }, ;
         aTPS   := { "Print", "Save" }, ;
         aRVP   := { { 11, 19, 27, 34 }, { 11, 37, 27, 52 } }, ;
         aBVP   := { 'MsgInfo( "Preview" )', 'MsgInfo( "Print" )' }, ;
         aTVP   := { "Preview", "Print" }, ;
         aROne  := { 11, 10, 27, 62 }

   For nEle := 1 To 18
      AAdd( aPrompt, "TSButton Hot Spot Sample " + LTrim( Str( nEle ) ) )
   Next

   MENU oMenu
      MENUITEM "&File"
      MENUITEM "&Exit" ACTION oWnd:End()
   ENDMENU

   DEFINE FONT oFont NAME "MS Sans Serif" SIZE 0, -11 BOLD

   DEFINE WINDOW oWnd FROM 0, 0 TO 550, 800 PIXEL MENU oMenu ;
          COLOR CLR_BLACK, CLR_NBLUE TITLE "TSButton V.5.0 Hot Spots"

   DEFINE DIALOG oDlg FROM 0, 0 TO oWnd:nBottom, oWnd:nRight PIXEL ;
          FONT oFont OF oWnd COLORS CLR_BLACK, CLR_NBLUE ;
          STYLE nOr( WS_VISIBLE, WS_CHILD, WS_DLGFRAME )

   @  5, 30 SBUTTON oBtn[ 1 ] PROMPT aPrompt[ 1 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont COLOR CLR_BLUE BITMAP ;
            ACTION MsgInfo( "Main Action Sample 1" ) ;
            TOOLTIP "Test"

   oBtn[ 1 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 1 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 1 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @  5,200 SBUTTON oBtn[ 10 ] PROMPT aPrompt[ 10 ] PIXEL OF oDlg ;
            RESOURCE "PS" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 10" )

   oBtn[ 10 ]:AddHotSpot( aRPS[ 1 ], aBPS[ 1 ], aTPS[ 1 ] )
   oBtn[ 10 ]:AddHotSpot( aRPS[ 2 ], aBPS[ 2 ], aTPS[ 2 ] )

   @ 25, 30 SBUTTON oBtn[ 2 ] PROMPT aPrompt[ 2 ] PIXEL OF oDlg FONT oFont ;
            RESOURCE "VSP" BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 2" )

   oBtn[ 2 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 2 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 2 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @ 25,200 SBUTTON oBtn[ 11 ] PROMPT aPrompt[ 11 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 11" )

   oBtn[ 11 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 11 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 11 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @ 45, 30 SBUTTON oBtn[ 3 ] PROMPT aPrompt[ 3 ] PIXEL OF oDlg ;
            RESOURCE "VSP" BITMAP FONT oFont COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 3" )

   oBtn[ 3 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 3 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 3 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @ 45,200 SBUTTON oBtn[ 12 ] PROMPT aPrompt[ 12 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 12" )

   oBtn[ 12 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 12 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 12 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @ 65, 30 SBUTTON oBtn[ 4 ] PROMPT aPrompt[ 4 ] PIXEL OF oDlg ;
            RESOURCE "POnly" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 4" )

   oBtn[ 4 ]:AddHotSpot( aROne, {||MsgInfo( "Print" ) }, "Print" )

   @ 65,200 SBUTTON oBtn[ 13 ] PROMPT aPrompt[ 13 ] PIXEL OF oDlg ;
            RESOURCE "PS" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 13" )

   oBtn[ 13 ]:AddHotSpot( aRPS[ 1 ], aBPS[ 1 ], aTPS[ 1 ] )
   oBtn[ 13 ]:AddHotSpot( aRPS[ 2 ], aBPS[ 2 ], aTPS[ 2 ] )

   @ 85, 30 SBUTTON oBtn[ 5 ] PROMPT aPrompt[ 5 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 5" )

   oBtn[ 5 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 5 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 5 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @ 85,200 SBUTTON oBtn[ 14 ]  PROMPT aPrompt[ 14 ] PIXEL OF oDlg ;
            RESOURCE "SOnly" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 14" )

   oBtn[ 14 ]:AddHotSpot( aROne, {||MsgInfo( "Save" )}, "Save" )

   @105, 30 SBUTTON oBtn[ 6 ] PROMPT aPrompt[ 6 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 6" )

   oBtn[ 6 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 6 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 6 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @105,200 SBUTTON oBtn[ 15 ] PROMPT aPrompt[ 15 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 15" )

   oBtn[ 15 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 15 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 15 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @125, 30 SBUTTON oBtn[ 7 ] PROMPT aPrompt[ 7 ] PIXEL OF oDlg ;
            RESOURCE "VP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 7" )

   oBtn[ 7 ]:AddHotSpot( aRVP[ 1 ], aBVP[ 1 ], aTVP[ 1 ] )
   oBtn[ 7 ]:AddHotSpot( aRVP[ 2 ], aBVP[ 2 ], aTVP[ 2 ] )

   @125,200 SBUTTON oBtn[ 16 ] PROMPT aPrompt[ 16 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 16" )

   oBtn[ 16]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 16]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 16]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @145, 30 SBUTTON oBtn[ 8 ] PROMPT aPrompt[ 8 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 8" )

   oBtn[ 8 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 8 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 8 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @145,200 SBUTTON oBtn[ 17 ] PROMPT aPrompt[ 17 ] PIXEL OF oDlg ;
            RESOURCE "SOnly" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 17" )

   oBtn[ 17 ]:AddHotSpot( aROne, 'MsgInfo( "Save" )', "Save" )

   @165, 30 SBUTTON oBtn[ 9 ] PROMPT aPrompt[ 9 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 9" )

   oBtn[ 9 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 9 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 9 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   @165,200 SBUTTON oBtn[ 18 ] PROMPT aPrompt[ 18 ] PIXEL OF oDlg ;
            RESOURCE "VSP" FONT oFont BITMAP COLOR CLR_BLUE ;
            ACTION MsgInfo( "Main Action Sample 18" )

   oBtn[ 18 ]:AddHotSpot( aRVSP[ 1 ], aBVSP[ 1 ], aTVSP[ 1 ] )
   oBtn[ 18 ]:AddHotSpot( aRVSP[ 2 ], aBVSP[ 2 ], aTVSP[ 2 ] )
   oBtn[ 18 ]:AddHotSpot( aRVSP[ 3 ], aBVSP[ 3 ], aTVSP[ 3 ] )

   // moving the caption to a specific location inside the button (pixel coordinates)
   For nEle := 1 To 18
      oBtn[ nEle ]:SetText( Nil, 12, 77, .T. )
   Next

   ACTIVATE DIALOG oDlg NOWAIT

   SET MESSAGE OF oWnd TO "Super Buttons, New V.5.0 Hot Spots"

   ACTIVATE WINDOW oWnd MAXIMIZED ON INIT oDlg:SetFocus() ;
            VALID ( oFont:End(), .T. )

Return Nil

Label-Text-color is always BLACK ???

The clause "COLORS" in TSLines Boxes accepts 3 colors as follows....
COLORS nClrLight, nClrDark, nClrLabel

So you can use any color you want for light lines, dark lines and for the box label. Defaults are CLR_WHITE, CLR_GRAY and CLR_BLACK respectively.

About TSRadio, I'm checking it (was a bit forgotten), I'll comment your requests soon.

Best regards.

Manuel Mercado Gómez.

[ukoenig]

Dear Manuel,

Thank You very much.
Your new Sample is included and works perfect.



All 9 Tests together :
1 Button, 1 Say, 3 Lines / Boxes, 2 Radio's / Checkboxes, 1 Hotspot, 1 Shapes





A new Fontpainter added. Now all Parameters from SSAY can be tested at Runtime.



Best Regards
Uwe