POSIBLE BUG - TEXTBOX PASSWORD

HMG en Español

Moderator: Rathinagiri

Post Reply
User avatar
SALINETAS24
Posts: 415
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 31 times
Been thanked: 44 times

POSIBLE BUG - TEXTBOX PASSWORD

Post by SALINETAS24 »

Hola a todos, estoy haciendo una prueba con un MENU con la opción SPLITBOX, para lo cual he tomado el ejemplo de HMG\SPLITBOX_7 y le he añadido dos textbox.
Un TextBox normal, el cual funciona correctamente.
El otro TextBox contiene la clausula PASSWORD y este tiene un funcionamiento anomalo. Cuando salimos del Textbox se borran todos los demas objetos que estan dentro del SPLITBOX. :o

¿A alquien más le ha pasado..? ¿Se puede solucionar...?

Saludos y vamos con una cervecita bien fresquita, que ya aprieta el calor... :)




Code: Select all

/*
 * HMG - Harbour Win32 GUI library Demo
 *
 * Copyright 2002 Roberto Lopez <mail.box.hmg@gmail.com>
 * http://www.hmgforum.com//
*/

#include "hmg.ch"


Function Main
LOCAL _cClv:="EJEMPLO"

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 740 HEIGHT 580 ;
		TITLE 'HMG SplitBox Demo' ;
		MAIN ;
		FONT 'Arial' SIZE 10 

		DEFINE STATUSBAR
			STATUSITEM 'HMG Power Ready - Click / Drag Grippers And Enjoy !' 
		END STATUSBAR

		DEFINE MAIN MENU 
			POPUP '&Help'
				ITEM 'About'		ACTION MsgInfo ("HMG SplitBox Demo","A COOL Feature ;)") 
			END POPUP
		END MENU

		DEFINE SPLITBOX 

			COMBOBOX Combo_1 ;
				ITEMS {'One','Two','Three'} ;
				VALUE 2 ;
				TOOLTIP 'ComboBox' ;
				GRIPPERTEXT "Combo: " 

			DEFINE TOOLBAR ToolBar_1 BUTTONSIZE 30,30 FLAT RIGHTTEXT CAPTION 'ToolBar 1' 

				BUTTON Button_1 ;
				CAPTION '&Undo' ;
				PICTURE 'button4.bmp' ;
				ACTION MsgInfo(str(Form_1.Combo_1.Value)) 

				BUTTON Button_2 ;
				CAPTION '&Save' ;
				PICTURE 'button5.bmp' ;
				ACTION MsgInfo('Save Click!') 
	
				BUTTON Button_3 ;
				CAPTION '&Close' ;
				PICTURE 'button6.bmp' ;
				ACTION MsgInfo('Close Click!') 

				BUTTON Button_10 ;
				CAPTION '&Login' ;
				PICTURE 'button14.bmp' ;
				ACTION MsgInfo('Login Click!') 

			END TOOLBAR

			DEFINE TOOLBAR ToolBar_2 BUTTONSIZE 100,30 FLAT RIGHTTEXT  CAPTION 'ToolBar 2'

				BUTTON Button_4 ;
				CAPTION 'S&earch' ;
				PICTURE 'button7.bmp' ;
				ACTION MsgInfo('Search Click!') 

				BUTTON Button_5 ;
				CAPTION '&View' ;
				PICTURE 'button8.bmp' ;
				ACTION MsgInfo('View') 
	
				BUTTON Button_6 ;
				CAPTION '&Help' ;
				PICTURE 'button9.bmp' ;
				ACTION MsgInfo('Help Click!') 

				BUTTON Button_8 ;
				CAPTION 'Sort &Asc' ;
				PICTURE 'button11.bmp' ;
				ACTION MsgInfo('Ascending Click!') 
	
				BUTTON Button_9 ;
				CAPTION 'Sort &Desc' ;
				PICTURE 'button12.bmp' ;
				ACTION MsgInfo('Descending Click!') 

			END TOOLBAR

			GRID Grid_1 ;
			WIDTH 300 ;
			HEIGHT 200 ;
			HEADERS {'Last Name','First Name'} ;
			WIDTHS {180,180};
			ITEMS { {'Simpson','Homer'} , {'Mulder','Fox'} } VALUE 1 ;
			TOOLTIP 'Grid Control'

			LOAD WINDOW Test AS SplitChild_1
			LOAD WINDOW Test AS SplitChild_2

			LISTBOX List_1 ;
			WIDTH 200 ;
			HEIGHT 100 ;
			ITEMS {'Item 1','Item 2','Item 3','Item 4','Item 5'} ;
			VALUE 3  ;
			TOOLTIP 'ListBox 1' MULTISELECT BREAK

			EDITBOX Edit_1 ;
			WIDTH 200 ;
			HEIGHT 100 ;
			VALUE 'EditBox!!' ;
			TOOLTIP 'EditBox' ;
			MAXLENGTH 255 ;

		END SPLITBOX
		@ 450,10 LABEL   cPas1 VALUE "PassWord"  TRANSPARENT AUTOSIZE 
		@ 450,90 TEXTBOX cPas2 VALUE _cClv WIDTH  200  MAXLENGTH 12 // PASSWORD 
		@ 480,10 LABEL   cPas3 VALUE "PassWord"  TRANSPARENT AUTOSIZE 
		@ 480,90 TEXTBOX cPas4 VALUE _cClv WIDTH  200  MAXLENGTH 12  PASSWORD 
	END WINDOW

	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return Nil



Attachments
SPLITBOX_7.rar
EJEMPLO COMPLETO
(1.22 MiB) Downloaded 15 times
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:

User avatar
salamandra
Posts: 189
Joined: Thu Jul 31, 2008 8:33 pm
DBs Used: DBF
Location: Brazil
Has thanked: 50 times
Been thanked: 8 times

Post by salamandra »

:) Hola @SALINETAS24,
Aqui con Windows 10 x64 funciona perfectamente bien.
No hé conseguido reproducir el error que has comentado.


Salamandra - Brazil
There is one time in which is crucial awakening. That time is now. ( Buddha )

User avatar
SALINETAS24
Posts: 415
Joined: Tue Feb 27, 2018 3:06 am
DBs Used: DBF
Has thanked: 31 times
Been thanked: 44 times

Post by SALINETAS24 »

Gracias Salamandra, yo sigo trabajando bajo XP.
Probare ejecutar bajo un Window más moderno...
Saludos
Como dijo el gran pensador Hommer Simpson..., - En este mundo solo hay 3 tipos de personas, los que saben contar y los que no. :shock:

Post Reply