topic-18959

Board index FiveWin for Harbour/xHarbour A new IDE for Manuel Mercado's SBUTTON

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

A new IDE for Manuel Mercado's SBUTTON
Posted: Tue Jun 01, 2010 09:42 AM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Tue Jun 01, 2010 04:28 PM

Dear Uwe:

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

Best regards.

Manuel Mercado Gómez.

manuelmercado at prodigy dot net dot mx

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Tue Jun 01, 2010 06:12 PM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

Ruben Fernandez

Posts: 366

Joined: Wed Aug 30, 2006 05:25 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Tue Jun 01, 2010 08:27 PM

Estimados: EXCELENTE... Muchas gracias a ambos.

Saludos

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

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Tue Jun 01, 2010 10:19 PM

ukoenig wrote: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.

manuelmercado at prodigy dot net dot mx

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Mon Jun 07, 2010 12:03 PM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Sun Jun 20, 2010 12:27 PM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

AIDA

Posts: 880

Joined: Fri Jan 12, 2007 08:35 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Sun Jun 20, 2010 03:00 PM

Hello and where I can download these new buttons as nice :mrgreen:

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Sun Jun 20, 2010 07:40 PM

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 :lol:

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

jose_murugosa

Posts: 1279

Joined: Mon Feb 06, 2006 04:28 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Mon Jun 21, 2010 10:43 AM

Its a really interesting tool.

Congratulations!!

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Tue Jun 22, 2010 09:17 AM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

mmercado

Posts: 782

Joined: Wed Dec 19, 2007 07:50 AM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Wed Jun 23, 2010 10:44 AM

Dear Uwe:

ukoenig wrote: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 (fw): Select all Collapse

#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

ukoenig wrote: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.

manuelmercado at prodigy dot net dot mx

ukoenig

Posts: 4043

Joined: Wed Dec 19, 2007 06:40 PM

Re: A new IDE for Manuel Mercado's SBUTTON
Posted: Wed Jun 23, 2010 11:41 AM

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

Since 1995 ( the first release of FW 1.9 )

i work with FW.

If you have any questions about special functions, maybe i can help.

FiveTech Support Forums

Continue the discussion