Roberto,Roberto Lopez wrote:Could you be so kind to post a little sample showing what exactly the problem is ? (I'm not sure of fully understand the situation).gfilatov wrote: There are no problems with values for tab child controls.
But an incompatibility exists for old codes which used zero value of row/col for containers self.
You have already seen this sample and I know your reaction.
But users don't want to update the old code which worked properly in the previous HMG builds.
Code: Select all
/*
* MINIGUI - Harbour Win32 GUI library Demo
*
* Copyright 2002 Roberto Lopez <harbourminigui@gmail.com>
* http://harbourminigui.googlepages.com/
*/
#include "minigui.ch"
Function Main
DEFINE WINDOW Form_0 ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'MiniGUI ToolBar Demo' ;
ICON 'DEMO.ICO' ;
MAIN ;
FONT 'Arial' SIZE 10
DEFINE STATUSBAR
STATUSITEM 'HMG Power Ready!'
END STATUSBAR
DEFINE MAIN MENU
POPUP '&File'
ITEM '&Disable ToolBar Button' ACTION Form_0.Toolbar_1.Button_1.Enabled := .F.
ITEM '&Enable ToolBar Button' ACTION Form_0.Toolbar_1.Button_1.Enabled := .T.
SEPARATOR
ITEM 'Get ToolBar Button Caption' ACTION MsgInfo( Form_0.Toolbar_1.Button_1.Caption)
SEPARATOR
ITEM 'Set ToolBar Button Caption' ACTION SetProperty ( 'Form_0' , 'ToolBar_1' , 'Button_1' , 'Caption' , 'New New' )
SEPARATOR
ITEM '&Exit' ACTION Form_0.Release
END POPUP
POPUP '&Help'
ITEM '&About' ACTION MsgInfo ("MiniGUI ToolBar demo")
END POPUP
END MENU
DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 85,85 FLAT BORDER
BUTTON Button_1 ;
CAPTION '&More ToolBars...' ;
PICTURE 'button1.bmp' ;
ACTION Modal_Click() TOOLTIP 'ONE'
BUTTON Button_2 ;
CAPTION '&Button 2' ;
PICTURE 'button2.bmp' ;
ACTION MsgInfo('Click! 2') TOOLTIP 'TWO'
BUTTON Button_3 ;
CAPTION 'Button &3' ;
PICTURE 'button3.bmp' ;
ACTION MsgInfo('Click! 3') TOOLTIP 'THREE'
END TOOLBAR
END WINDOW
Form_0.Toolbar_1.Col := Form_0.Width - Form_0.Toolbar_1.Width - 15 // this problem string
CENTER WINDOW Form_0
ACTIVATE WINDOW Form_0
Return Nil
*-----------------------------------------------------------------------------*
Procedure Modal_CLick
*-----------------------------------------------------------------------------*
DEFINE WINDOW Form_2 ;
AT 0,0 ;
WIDTH 400 HEIGHT 300 ;
TITLE 'ToolBar Test' ;
MODAL NOSIZE
DEFINE TOOLBAR ToolBar_1 FLAT BUTTONSIZE 100,30 BOTTOM RIGHTTEXT
BUTTON Button_1 ;
CAPTION '&Undo' ;
PICTURE 'button4.bmp' ;
ACTION MsgInfo('UnDo Click!')
BUTTON Button_2 ;
CAPTION '&Save' ;
PICTURE 'button5.bmp' ;
ACTION MsgInfo('Save Click!')
BUTTON Button_3 ;
CAPTION '&Close' ;
PICTURE 'button6.bmp' ;
ACTION Form_2.Release
END TOOLBAR
END WINDOW
Form_2.Center
Form_2.Activate
Return Nil