How to Resize Button in program?

[dutch]

Dear All,

I would like to resize the button (same concept with visual design as *::lDrag* is move). How can I resize the button in my program as in workshop?

Thanks for any idea.

Regards,
Dutch

[Antonio Linares]

Dutch,

oButton:SetSize( nWidth, nHeight [, lRepaint ] )

or:

oButton:nWidth := nNewWidth
oButton:nHeight := nNewHeight

[dutch]

Dear Antonio,

Thanks for prompt reply but I need to resize with mouse as in BRW. It like to move with mouse by ::lDrag.

Regards,
Dutch

[Antonio Linares]

Dutch,

Code: Select all  Expand view

oButton:lDrag := .T.
oButton:ShowDots()
 

[dutch]

Dear Antonio,

Dutch,

Code: Select all  Expand view

oButton:lDrag := .T.
oButton:ShowDots()
 

It cannot resize button. I means resize in horizontal.

Regards,
Dutch

[mmercado]

Hello Dutch:

I would like to resize the button (same concept with visual design as *::lDrag* is move). How can I resize the button in my program as in workshop?

Here you are a working sample.

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

   Local oWnd, oBtn, ;
         nTop    := 20, ;
         nLeft   := 20, ;
         lPixel  := .T., ;
         lDrag   := .T., ;
         nWidth  := 60, ;
         nHeight := 40

   DEFINE Window oWnd

   oBtn := TButton():New( nTop, nLeft, "&Test", oWnd, {|| Nil }, nWidth, nHeight,,,, lPixel, lDrag )

   Activate Window oWnd

Return Nil

Best regards.

Manuel Mercado Gómez.

[dutch]

Dear Manuel,

The sample is exactly what I want but the really what I need is TSBUTTON().

Code: Select all  Expand view

    @ nRow, nCol SBUTTON oBtns[nShow] PROMPT cName ;
                     SIZE nWidth, nHeight ;
                     FONT oFnt[3] ;
                     OF oDlg ;
                     TEXT POSITION ON_LEFT ;   
                     ROUNDRECT ;
                     W97 ;
                     TOOLTIP cFullName ;
                     PIXEL COLOR CLR_WHITE, CLR_RED ;
                     ACTION RoomInfo( ltrim(aName[nShow][4]), cStatus )
             oBtns[nShow]:lDrag := .T.

It can move but cannot resize.

Regards,
Dutch

[mmercado]

Dear Dutch:

The sample is exactly what I want but the really what I need is TSBUTTON()

Here you are a working sample with TSButton:

Code: Select all  Expand view

#include "FiveWin.ch"

Function Main()

   Local oWnd, oBtn, ;
         nTop    := 20, ;
         nLeft   := 20, ;
         lPixel  := .T., ;
         lDrag   := .T., ;
         nWidth  := 60, ;
         nHeight := 60, ;
         cShape  := "CRYSTAL", ;
         nCapPos := 3 // caption at bottom

   DEFINE Window oWnd

   oBtn := TSButton():New( nTop, nLeft, "&Test", oWnd,, { "\fwh\bitmaps\Save16.bmp" }, ;
                           { nWidth, nHeight }, lPixel, {||Nil},,,,,,,,,,,, nCapPos,,, cShape,,, lDrag )

   Activate Window oWnd

Return Nil

Best regards.

Manuel Mercado Gómez.

[Silvio]

Manuel,
when you drag this button, it create a hand into control, do you see it ?
it make also a box arround the control with gray color, do you see it ?
when you use this drag and move it you can see the button smaller do you see it
perhaps there is an error

[mmercado]

Hello Silvio:

when you drag this button, it create a hand into control, do you see it ?

Yes, I do.

it make also a box arround the control with gray color, do you see it ?

Yes, I do.

when you use this drag and move it you can see the button smaller do you see it

No, I don't see the button smaller, I see the rectangle bigger than dots boundaries.

perhaps there is an error

Perhaps, in TControl Class

Best regards.

Manuel Mercado Gómez.

[MdaSolution]

Maestro,

strange ....I have the same error !!

On this picture you can see I cannot put the bitmap = near to +

all picture are 64,64 size




Isent you my sample but perhaps I not Know how explan you my problem !

[dutch]

Dear All,

Thank you for all idea.

Regards,
Dutch