How change the size of a Bar... ( from final user)

Posts: 7317

Joined: Thu Oct 18, 2012 07:17 PM

How change the size of a Bar... ( from final user)
Posted: Sat May 14, 2016 03:17 PM

I have a Main window with a bar
at INIT the height of Bar is 0

on this bar I wish create two bars
each bar (oBar1 or oBar2) is created when his value (lbar1 or lBar2 ) is true ( the final user set if true or false)
and the height of Bar must add of 25

I made also a minimal test to try this problem but I not Found the solution
Someone can Help me pls .thanks

Code (fw): Select all Collapse

#include "fivewin.ch"

Static oBar
Static oBar1,oBar2 ,oBar3
Static oWnd

Static lBar1,lBar2,lBar3

Function Test()

lBar1:=.t.
lBar2:=.t.
lBar3:=.f.

 DEFINE WINDOW oWndMain FROM 0, 0 TO 23, 79 MENU BuildMenu()  MDI

   SetBar()


 ACTIVATE WINDOW oWndMain

return nil

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

Function SetBar()



   DEFINE BUTTONBAR oBar OF oWndMain 3D SIZE 26,1




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


IF lBar1


   oBar:nHeight+=28

 @ oBar:nHeight-28, -1 BUTTONBAR oBar1 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
            BUTTONSIZE 26, 27
          oBar1:l2015:=.t.
 DEFINE BUTTON  OF oBar1 GROUP ;
          NOBORDER ;
           TOOLTIP "this is bar1" ;
          ACTION NIL

 DEFINE BUTTON  OF oBar1 GROUP ;
          NOBORDER ;
          ACTION NIL
Endif

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


IF lBar2

      oBar:nHeight+=28

 @ oBar:nHeight-28, -1 BUTTONBAR oBar2 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
            BUTTONSIZE 26, 27
            oBar2:l2015:=.t.
 DEFINE BUTTON  OF oBar2 GROUP ;
          NOBORDER ;
          ACTION NIL

 DEFINE BUTTON  OF oBar2 GROUP ;
          NOBORDER ;
          TOOLTIP "this is bar2" ;
          ACTION NIL
Endif

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

 IF lBar3

   oBar:nHeight+=28

 @ oBar:nHeight-28, -1 BUTTONBAR oBar3 OF oBar 3D SIZE oBar:nWidth - 1, 29 ;
            BUTTONSIZE 26, 27

 oBar3:l2015:=.t.

 DEFINE BUTTON  OF oBar3 GROUP ;
          NOBORDER ;
           TOOLTIP "this is bar3" ;
          ACTION NIL

 DEFINE BUTTON  OF oBar3 GROUP ;
          NOBORDER ;
          ACTION NIL
Endif


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








return nil


function BuildMenu()
LOCAL oMenu

   MENU oMenu  2015

  


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



        MENUITEM "&Help"
        MENU
             MENUITEM "&About FivePad..." RESOURCE "Help" ;
                      MESSAGE "Displays program information, version number and " + ;
                              "copyright" ;
                      ACTION NIL

               MENUITEM "&Statistic." RESOURCE "Help" ;
                      MESSAGE "  " ;
                      ACTION NIL

        ENDMENU
   ENDMENU

   RETURN oMenu

it run ok ..only there is a space from Menu and the first bar .....

but Perhaps there is another method ?

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com

FiveTech Support Forums

Continue the discussion