Harbour MiniGUI 2.6.1

[Roberto Lopez]

English:

- Fixed: Problems with InputItems in Browse control. Reported by Fernando Chirico and Grigory Filatov.

- Fixed: Programatic change to Tab control Value do no excecute 'OnChange' procedure. Reported by: Gert Winderlich.

Español:

- Solucionado: Problemas con la propiedad InputItems en el control Browse. Reportado por Fernando Chirico y Grigory Filatov.

- Solucionado: Los cambios en la propiedad Value del control Tab no ejecutan el procedimiento OnChange. Reportado por: Gert Winderlich.

[gfilatov]

English:
...
- Fixed: Programatic change to Tab control Value do no execute 'OnChange' procedure. Reported by: Gert Winderlich.

Roberto,

This change provokes a double OnChange action at the using Alt+<letter> hotkeys in the Tab control.

Look at the following sample:

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_1 ;
		AT 0,0 ;
		WIDTH 640 HEIGHT 480 ;
		TITLE 'Harbour MiniGUI Demo' ;
		MAIN ;
		ON SIZE SizeTest()

		DEFINE MAIN MENU
			DEFINE POPUP 'Test'
				MENUITEM 'Set Page 2' ACTION ( Form_1.tab_1.Value := 2 )
				SEPARATOR 
				MENUITEM 'Add page' ACTION Form_1.Tab_1.AddPage ( 2 , 'New Page' , 'Info.Bmp' )
				MENUITEM 'Delete Page' ACTION Form_1.tab_1.DeletePage ( 2 )
				SEPARATOR 
				MENUITEM 'Get Row' ACTION MsgInfo(Str(Form_1.tab_1.Row))
				MENUITEM 'Get Col' ACTION MsgInfo(Str(Form_1.tab_1.Col))
				MENUITEM 'Get Width' ACTION MsgInfo(Str(Form_1.tab_1.Width))
				MENUITEM 'Get Height' ACTION MsgInfo(Str(Form_1.tab_1.Height))
				SEPARATOR
				MENUITEM 'Set Row' ACTION Form_1.tab_1.Row := Val( InputBox('',''))
				MENUITEM 'Set Col' ACTION Form_1.tab_1.Col:= Val( InputBox('',''))
				MENUITEM 'Set Width' ACTION Form_1.tab_1.Width:= Val( InputBox('',''))
				MENUITEM 'Set Height' ACTION Form_1.tab_1.Height:= Val( InputBox('',''))
				SEPARATOR
				* Optional Syntax (Reffer button as tab child )
				MENUITEM 'Get Button Caption' ACTION MsgInfo ( Form_1.Tab_1(1).Button_1.Caption ) 
				MENUITEM 'Set Button Caption' ACTION Form_1.Tab_1(1).Button_1.Caption := 'New'
			END POPUP
		END MENU

		DEFINE TAB Tab_1 ;
			AT 10,10 ;
			WIDTH 600 ;
			HEIGHT 400 ;
			VALUE 1 ;
			TOOLTIP 'Tab Control' ;
			ON CHANGE MsgInfo('Page is Changed!')

			PAGE 'Page &1' IMAGE 'Exit.Bmp'

			      @ 100,100 BUTTON Button_1 CAPTION "Test" WIDTH 50 HEIGHT 50 ACTION MsgInfo('Test!')

			END PAGE

			PAGE 'Page &2' IMAGE 'Info.Bmp'

			END PAGE

			PAGE 'Page &3' IMAGE 'Check.Bmp'

			END PAGE

		END TAB

	END WINDOW

	Form_1.Center

	Form_1.Activate

Return Nil

Procedure SizeTest()

	Form_1.Tab_1.Width := Form_1.Width - 30
	Form_1.Tab_1.Height := Form_1.Height - 100

Return

BTW The similar problem with no execute 'OnChange' procedure exists for CheckBox control also.

Look at the sample below:

Code: Select all

#include "minigui.ch"

Function Main()

DEFINE WINDOW Form_Main ;
AT 0,0 ;
WIDTH 640 HEIGHT 480 ;
TITLE 'Demo' ;
MAIN

@ 50,34 CHECKBOX CheckBox_1 CAPTION "Check Box" ON Change MsgInfo("Changed")

@ 10,34 BUTTON B_1 CAPTION "Change Value" ACTION ChangeCheckValue()

END WINDOW

CENTER WINDOW Form_Main
ACTIVATE WINDOW Form_Main
Return Nil

Function ChangeCheckValue()
Form_Main.CheckBox_1.Value := !Form_Main.CheckBox_1.Value
Return Nil

[Roberto Lopez]

This change provokes a double OnChange action at the using Alt+<letter> hotkeys in the Tab control.

OOPS...!

I'll take a look at that.

Thanks for the report.

Regards,

Roberto.

[Roberto Lopez]

This change provokes a double OnChange action at the using Alt+<letter> hotkeys in the Tab control.
<...>
BTW The similar problem with no execute 'OnChange' procedure exists for CheckBox control also.

I've fixed both and I've publish the fixes.

Thanks again.

Regards,

Roberto.