Page 1 of 1
Harbour MiniGUI 2.6.1
Posted: Wed Aug 27, 2008 7:36 pm
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.
Re: Harbour MiniGUI 2.6.1
Posted: Thu Aug 28, 2008 8:03 am
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
Re: Harbour MiniGUI 2.6.1
Posted: Thu Aug 28, 2008 9:47 am
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.
Re: Harbour MiniGUI 2.6.1
Posted: Thu Aug 28, 2008 4:54 pm
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.