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.
¿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