Harbour MiniGUI 2.6.1

HMG announcements; Latest HMG-related news, releases, fixes and updates.

Moderator: Rathinagiri

Post Reply
User avatar
Roberto Lopez
HMG Founder
Posts: 4004
Joined: Wed Jul 30, 2008 6:43 pm

Harbour MiniGUI 2.6.1

Post by 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.
Regards/Saludos,

Roberto


(Veritas Filia Temporis)
User avatar
gfilatov
Posts: 1057
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Contact:

Re: Harbour MiniGUI 2.6.1

Post by gfilatov »

Roberto Lopez wrote: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
Kind Regards,
Grigory Filatov

"Everything should be made as simple as possible, but no simpler." Albert Einstein
User avatar
Roberto Lopez
HMG Founder
Posts: 4004
Joined: Wed Jul 30, 2008 6:43 pm

Re: Harbour MiniGUI 2.6.1

Post by Roberto Lopez »

gfilatov wrote: 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.
Regards/Saludos,

Roberto


(Veritas Filia Temporis)
User avatar
Roberto Lopez
HMG Founder
Posts: 4004
Joined: Wed Jul 30, 2008 6:43 pm

Re: Harbour MiniGUI 2.6.1

Post by Roberto Lopez »

gfilatov wrote: 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.
Regards/Saludos,

Roberto


(Veritas Filia Temporis)
Post Reply