Fixed and enhanced SAMPLES

[Pablo César]

Είστε ευπρόσδεκτοι, ο φίλος μου

[Leopoldo Blancas]

Hola,
Agregue un Boton de "Mantenimiento" que borra los registros marcados para borrar.

Archivo Main.prg
Reacomode la función "AbrirTablas"

Contactos.prg
En la función "Buscar" quite la linea "DBSetOrder(0), ya que hacia mal comportamiento.

Tipos.prg
Función "Agregar", agregue una linea para refrescar la grid.
******************************************************************************************************************************************
Hello,
Add a button "Maintenance" erasing records marked for deletion.

Main.prg file
Rearrange the "AbrirTablas" function

Contactos.prg
In the "Search" remove the line "DBSETORDER (0) as to misbehavior.

Tipos.prg
"Add", add a line to refresh the grid.

[danielmaximiliano]

Gracias Polo por la contribucion !

[Pablo César]

Qué bueno, Leopoldo !

Qué felicidad me dá ver a los colegas ayudando uno al otro en senso comun.

Permitame hacer algunas colocaciones, por favor sin querer desmerecer y espero no ser aburrido...

Agregue un Boton de "Mantenimiento" que borra los registros marcados para borrar.

Realmente esa opcion le faltaba ya que los registros deletados no desaparecen porque al usar el SET DELETE ON deja más lento... (esa mi opinion). Y ese boton de manutencion viene bien. Haberán colegas que es encuentra porque no es una buen práctica el uso de PACK cuando está trabajando en una red. Pero es válido desde que se implemente una rutina de abertura y repiticion para que no provoque error de abertura.

Archivo Main.prg
Reacomode la función "AbrirTablas"

Está mejor entendible, habian algunas variables que estaban por demás.
Solo que noté que creaste un indice para el Tipos.CDX (ICodTipo) que yo habia removido antes porque consideré mejor trabajar con LOCATE en lugar de SEEK (debido a pocos registros). Talvez sea válido eliminar ese indices? Cual es tu idea?
De todas formas, si creas un indice, tienes que abrirlo y al reindexarlo tambien tienes que actualizar. Y está faltando eso en ReindexaIndices con respecto a Contactos.CDX

Contactos.prg
En la función "Buscar" quite la linea "DBSetOrder(0), ya que hacia mal comportamiento.

Ahhh si, tenés razon: Resuelto. Yo lo habia puesto porque con índices en GRID lo deja desconcertado... pero está mejor ahora.

Tipos.prg
Función "Agregar", agregue una linea para refrescar la grid.

Qué bueno Leopoldo.

Actualizé

Actualizé el SAMPLES de acuerdo, le hice las implementaciones que mencione. Por favor avisame caso algo no esté funcionando adecuadamente. Gracias por tus aportes Leopoldo

---

Good, Leopoldo!What gives me happiness see colleagues helping each other in common sense.Let me do some placements, please inadvertently detracting and hope not to be boring.

Really it lacked that option because deleted records do not disappear because when using the ON DELETE SET GRID become slower... (that my opinion). And that goods handling button comes in handy. Will be some colleagues founding PACK a not a good practice when working on a network. But it's valid since by adding a opening and repitition routine then it does not cause error at databse opening.

It is now better for understing, there was too many unecessary variables.
I just noticed that you created an index for Tipos.CDX (ICodTipo) which I had removed before because I felt better to work with LOCATE rather than SEEK (due few records). Maybe we could delete as not necessary index? What's your idea about it?
Anyway, if you create an index, you have to open it and reindex it for updating. And that is Contactos.CDX missing in ReindexaIndices.

Ahhh yes, you are right: It's solved already. I put it because indexes GRID leaves bewildered... But it's better now.

Update the SAMPLES agree, I did mention implementations. Please let me know if something is not working properly. Thank you for your contributions Leopoldo

What good Leopoldo.

[Pablo César]

Hi Rathinagiri,

I have noted that C:\hmg.3.4.3\SAMPLES\Controls\Button\BUTTON_3 demo is not a simple BUTTON. The right to be is C:\hmg.3.4.3\SAMPLES\Controls\CheckButton\BUTTON_3

It's a CheckButton (there is not any SAMPLES subfolder with name CheckButton yet.

There is not CheckBox demo and neither subfolder for this control too.

We would add this Roberto's demo for missing one?

Code: Select all

/*
 *  HMG Checkbox Demo
 *  (c) 2010 Roberto Lopez
 *
 *  Adapted by Pablo César on 18th, October/2016
 *  Added My_OnChange(<ControlName>,<NewAction>)
*/

#include <hmg.ch>

Function Main()

Set Font To "Tahoma", 9

Define Window Win1              ;
    Row 10                      ;
    Col 10                      ;
    Width   400                 ;
    Height  300                 ;
    Title   'HMG Checkbox Demo' ;
    WindowType MAIN

    Define Label Label1
        Row 10
        Col 10
        Width 300
        Value 'This is for status!'
        BackColor {200,200,200}
        Alignment Center
        Alignment Center
    End Label

    Define CheckBox Check1
        Row     40
        Col     10
        Value       .F.
        Caption     'Simple CheckBox'
        Width       120
        OnChange MsgInfo( "CheckBox 1 Value is Changed!" )
    End CheckBox

    Define CheckBox Check2
        Row     70
        Col     10
        Width       280
        Value       .F.
        FontName    "Arial"
        FontSize    12
        FontBold    .t.
        FontItalic  .t.
        FontUnderline   .t.
        FontStrikeOut   .t.
        Caption     'CheckBox with Font Properties'
        OnChange MsgInfo( "CheckBox 2 Value is Changed!" )
    End CheckBox

    Define CheckBox Check3
        Row     120
        Col     10
        Width       250
        Value       .F.
        Caption     'CheckBox with OnGot/LostFocus Events'
        OnGotFocus { || Win1.Label1.Value := "CheckBox GotFocus!" }  
        OnLostFocus { || Win1.Label1.Value := "CheckBox LostFocus!" }  
    End CheckBox

    Define Button Button1
        Row 150
        Col 40
        Width   140
        Height  28
        Caption 'Change Event Block!'       
        OnClick My_OnChange("Check1",{|| MsgInfo( "Event Block of 'On Change' event of Checkbox 1 is Changed dynamically!" ) })
    End Button

    Define Button Button2
        Row 180
        Col 40
        Width   140
        Height  28
        Caption 'Win1.Check1.Value'         
        OnClick MsgInfo( Win1.Check1.value ) 
    End Button

End Window
Center Window Win1
Activate Window Win1
Return Nil

Function My_OnChange(cControl, bNewProc)
LOCAL nIndex:=GetControlIndex(cControl, "Win1")

_HMG_SYSDATA [ 12 ][nIndex] := bNewProc
_DoControlEventProcedure( bNewProc, nIndex )
Return Nil

I have found this and I adapted where have been:

OnClick Win1.Check1.OnChange := { || MsgInfo( "Event Block of 'On Change' event of Checkbox 1 is Changed dynamically!" ) }

I changed by:

OnClick My_OnChange("Check1",{|| MsgInfo( "Event Block of 'On Change' event of Checkbox 1 is Changed dynamically!" ) })

[Rathinagiri]

Thanks Pablo. Will look into.

[Pablo César]

நன்றி, நண்பர்

[Pablo César]

Hi Rathinagiri,

This C:\hmg.3.4.3\SAMPLES\Basics\MAIN_DEMO\DEMO.PRG it's good but could be improved.

Here's my two cents ( like as many colleagues use to say ):

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

	SET TOOLTIPSTYLE BALLOON

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 HEIGHT 490 ;
		TITLE 'HMG Demo' ;
		ICON 'DEMO.ICO' ;
		MAIN ;
		FONT 'Arial' SIZE 10 

		DEFINE STATUSBAR
			STATUSITEM 'HMG Power Ready!' 
		END STATUSBAR

		ON KEY ALT+A ACTION MsgInfo('Alt+A Pressed')

		DEFINE MAIN MENU 
			DEFINE POPUP '&File'
				ITEM 'InputWindow Test'	ACTION InputWindow_Click()
				ITEM 'More Tests'	ACTION Modal_CLick()	NAME File_Modal
				ITEM 'Topmost WIndow'	ACTION Topmost_Click()  NAME File_TopMost
				ITEM 'Standard WIndow'	ACTION Standard_Click()
				ITEM 'Editable Grid Test' ACTION EditGrid_Click()
				ITEM 'Child Window Test' ACTION Child_Click()
				SEPARATOR	
				POPUP 'More...'
					ITEM 'SubItem 1'	ACTION MsgInfo( 'SubItem Clicked' )
					ITEM 'SubItem 2'	ACTION MsgInfo( 'SubItem2 Clicked' )
				END POPUP
				SEPARATOR	
				ITEM 'Multiple Window Activation'	ACTION MultiWin_Click() 
				SEPARATOR	
				ITEM 'Capture (Without Arguments)'	ACTION Form_1.Capture() 
				ITEM 'Capture (With Arguments)'		ACTION Form_1.Capture( 'xxx.bmp' , 10,10,200,200 ) 
				SEPARATOR	
				ITEM 'Exit'		ACTION Form_1.Release
			END POPUP
			DEFINE POPUP 'F&older Functions'
				ITEM 'GetWindowsFolder()'	ACTION MsgInfo ( GetWindowsFolder() )
				ITEM 'GetSystemFolder()'	ACTION MsgInfo ( GetSystemFolder() )
				ITEM 'GetMyDocumentsFolder()'	ACTION MsgInfo ( GetMyDocumentsFolder() )
				ITEM 'GetDesktopFolder()'	ACTION MsgInfo ( GetDesktopFolder() )
				ITEM 'GetProgramFilesFolder()'	ACTION MsgInfo ( GetProgramFilesFolder())
				ITEM 'GetTempFolder()'		ACTION MsgInfo ( GetTempFolder() ) 
				SEPARATOR
				ITEM 'GetFolder()'		ACTION MsgInfo(GetFolder())
			END POPUP
			DEFINE POPUP 'Common &Dialog Functions'
				ITEM 'GetFile()'	ACTION Getfile ( { {'Images','*.jpg'} } , 'Open Image' )
				ITEM 'PutFile()'	ACTION Putfile ( { {'Images','*.jpg'} } , 'Save Image' )
				ITEM 'GetFont()'	ACTION GetFont_Click()
				ITEM 'GetColor()'	ACTION GetColor_Click()
			END POPUP
			DEFINE POPUP 'Sound F&unctions'
				ITEM 'PlayBeep()'	 ACTION PlayBeep() 
				ITEM 'PlayAsterisk()'	 ACTION PlayAsterisk() 
				ITEM 'PlayExclamation()' ACTION PlayExclamation() 
				ITEM 'PlayHand()'	 ACTION PlayHand() 
				ITEM 'PlayQuestion()'	 ACTION PlayQuestion() 
				ITEM 'PlayOk()'		 ACTION PlayOk() 
			END POPUP
			DEFINE POPUP 'M&isc'
				ITEM 'MemoryStatus() Function (Contributed by Grigory Filatov)' ACTION MemoryTest() 
				ITEM 'ShellAbout() Function (Contributed by Manu Exposito' ACTION ShellAbout() 
				ITEM 'BackColor / FontColor Clauses (Contributed by Ismael Dutra)' ACTION Color_CLick() 
				SEPARATOR
				ITEM 'Get Control Row Property' 	ACTION 	MsgInfo ( Str ( ( Form_1.Button_1.Row     ) ) , 'Maximize Button' )
				ITEM 'Get Control Col Property' 	ACTION 	MsgInfo ( Str ( ( Form_1.Button_1.Col     ) ) , 'Maximize Button' )
				ITEM 'Get Control Width Property' 	ACTION 	MsgInfo ( Str (  ( Form_1.Button_1.Width   ) ) , 'Maximize Button' )
				ITEM 'Get Control Hetight Property' 	ACTION 	MsgInfo ( Str (  ( Form_1.Button_1.Height  ) ) , 'Maximize Button' )
				SEPARATOR
				ITEM 'Set Control Row Property' 	ACTION Form_1.Button_1.Row 		:= 35
				ITEM 'Set Control Col Property' 	ACTION Form_1.Button_1.Col 		:= 40
				ITEM 'Set Control Width Property' 	ACTION Form_1.Button_1.Width 	:= 150
				ITEM 'Set Control Hetight Property' 	ACTION Form_1.Button_1.Height 	:= 50
				SEPARATOR
				ITEM 'Set Window Row Property' 		ACTION Form_1.Row := 10
				ITEM 'Set Window Col Property' 		ACTION Form_1.Col := 10
				ITEM 'Set Window Width Property' 	ACTION Form_1.Width	:= 550
				ITEM 'Set Window Hetight Property' 	ACTION Form_1.Height := 400
				SEPARATOR
				ITEM 'Get Window Row Property' 		ACTION MsgInfo ( Str ( ( Form_1.Row    ) ) )
				ITEM 'Get Window Col Property' 		ACTION MsgInfo ( Str ( ( Form_1.Col    ) ) )
				ITEM 'Get Window Width Property' 	ACTION MsgInfo ( Str ( ( Form_1.Width  ) ) )
				ITEM 'Get Window Hetight Property' 	ACTION MsgInfo ( Str ( ( Form_1.Height ) ) )
				SEPARATOR
				ITEM 'Execute Command' 			ACTION ExecTest()
				SEPARATOR
				ITEM 'Set Title Property'		ACTION Form_1.Title := 'New Title'
				ITEM 'Get Title Property'		ACTION MsgInfo (  ( Form_1.Title ) )
				SEPARATOR
				ITEM 'Set Caption Property'		ACTION SetCaptionTest()
				ITEM 'Get Caption Property'		ACTION GetCaptionTest()
				SEPARATOR
				ITEM 'Get Picture Property'		ACTION MsgInfo (  ( Form_1.Image_1.Picture ) , 'Image_1' ) 
				SEPARATOR
				ITEM 'Set ToolTip Property'		ACTION Form_1.Button_1.ToolTip := 'New ToolTip'
				ITEM 'Get ToolTip Property'		ACTION MsgInfo (  ( Form_1.Button_1.ToolTip ) , 'Maximize Button' )
				SEPARATOR
				ITEM 'Set FontName Property'		ACTION  Form_1.Button_1.FontName := 'Verdana'
				ITEM 'Get FontName Property'		ACTION MsgInfo (  ( Form_1.Button_1.FontName ) , 'Maximize Button' )
				SEPARATOR
				ITEM 'Set FontSize Property'		ACTION Form_1.Button_1.FontSize := 14
				ITEM 'Get FontSize Property'		ACTION MsgInfo ( Str ( ( Form_1.Button_1.FontSize ) ) )
				SEPARATOR
				ITEM 'Set RangeMin Property'		ACTION Form_1.Spinner_1.RangeMin := 1
				ITEM 'Get RangeMin Property'		ACTION MsgInfo ( Str ( ( Form_1.Spinner_1.RangeMin ) ) , 'Spinner_1')
				SEPARATOR
				ITEM 'Set RangeMax Property'		ACTION Form_1.Spinner_1.RangeMax := 1000
				ITEM 'Get RangeMax Property'		ACTION MsgInfo ( Str ( ( Form_1.Spinner_1.RangeMax ) ) ,'Spinner_1')
				SEPARATOR
				ITEM 'Set Grid Caption Property'	ACTION Form_1.Tab_1(1).Grid_1.Caption(1) := 'New Caption'
				ITEM 'Get Grid Caption Property'	ACTION MsgInfo ( ( Form_1.Tab_1(1).Grid_1.Caption(1) ) ,'Grid_1')
				SEPARATOR
				ITEM 'Set RadioGroup Caption Property'	ACTION Form_1.Tab_1(2).Radio_1.Caption(1) := 'New Caption'
				ITEM 'Get RadioGroup Caption Property'	ACTION MsgInfo ( ( Form_1.Tab_1(2).Radio_1.Caption(1) ) ,'Radio_1')
				SEPARATOR
				ITEM 'Set Tab Caption Property'	ACTION Form_1.Tab_1.Caption(1) := 'New Caption'
				ITEM 'Get Tab Caption Property'	ACTION MsgInfo ( ( Form_1.Tab_1.Caption(1) ) ,'Tab_1')

			END POPUP
			DEFINE POPUP 'H&elp'
				ITEM 'About'		ACTION MsgInfo ("Free GUI Library For Harbour","HMG Main Demo") 
			END POPUP
		END MENU

		DEFINE CONTEXT MENU 
			ITEM 'Check File - More Tests Item'	ACTION Context1_Click()
			ITEM 'UnCheck File - More Test Item'	ACTION Context2_Click() 
			ITEM 'Enable File - Topmost Window'	ACTION Context3_Click()
			ITEM 'Disable File - Topmost Window'	ACTION Context4_Click()
			SEPARATOR	
			ITEM 'About'				ACTION MsgInfo ("Free GUI Library For Harbour","HMG Main Demo") 
		END MENU

		DEFINE LABEL Label_Color
			ROW	5
			COL	450
			VALUE 'Right Click For Context Menu' 
			WIDTH 170 
			HEIGHT 22 
			FONTNAME 'Times New Roman' 
			FONTSIZE 10 
			FONTCOLOR BLUE
		END LABEL

		DEFINE LABEL Label_Color_2
			ROW	45
			COL	10
			VALUE 'ALT+A HotKey Test' 
			WIDTH 170 
			HEIGHT 22 
			FONTNAME 'Times New Roman'
			FONTSIZE 10 
			FONTCOLOR RED
		END LABEL
		
		DEFINE CHECKBUTTON CheckButton_1
			ROW	200
			COL	140
			CAPTION 'CheckButton!' 
			VALUE .T. 
			TOOLTIP 'CheckButton' 
		END CHECKBUTTON	

		DEFINE BUTTON ImageButton_1
			ROW	200
			COL	250
			PICTURE 'button.bmp' 
			ACTION PrintWindow ( 'Form_1',.T.,.T. )
			WIDTH 27 
			HEIGHT 27 
			TOOLTIP 'Print Preview' 
		END BUTTON

		DEFINE CHECKBUTTON CheckButton_2
			ROW	200
			COL	285
			PICTURE 'open.bmp'
			WIDTH 27 
			HEIGHT 27 
			VALUE .F. 
			TOOLTIP 'Graphical CheckButton'
		END CHECKBUTTON

		DEFINE TAB Tab_1 ;
			AT 5,195 ;
			WIDTH 430 ;
			HEIGHT 180 ;
			VALUE 1 ;
			TOOLTIP 'Tab Control' 

			DEFINE PAGE '&Grid'

				DEFINE GRID Grid_1
					ROW	30
					COL	10
					WIDTH 410 
					HEIGHT 140 
					HEADERS { '','Last Name','First Name'} 
					WIDTHS { 0,220,220}
					ITEMS { { 0,'Simpson','Homer'} , {1,'Mulder','Fox'} } 
					VALUE 1 
					TOOLTIP 'Grid Control' 
					ONHEADCLICK { {|| MsgInfo('Header 1 Clicked !')} , { || MsgInfo('Header 2 Clicked !')} } 
					IMAGE {"br_no","br_ok"} 
					ONDBLCLICK MsgInfo ('DoubleClick!','Grid') 
				END GRID

			END PAGE

			DEFINE PAGE '&Misc.'

				DEFINE FRAME TabFrame_1
					ROW	45
					COL	80
				        WIDTH 130
					HEIGHT 110
				END FRAME

				DEFINE LABEL Label_1
					ROW 	55
					COL	90
					VALUE '&This is a Label !!!' 
					WIDTH 100 
					HEIGHT 27 
				END LABEL

				DEFINE CHECKBOX Check_1
					ROW	80
					COL	90
					CAPTION 'Check 1' 
					VALUE .T. 
					TOOLTIP 'CheckBox' 
					ONCHANGE PLAYOK()
				END CHECKBOX

				DEFINE SLIDER Slider_1
					ROW	115
					COL	85
					RANGEMIN 1
					RANGEMAX 10 
					VALUE 5 
					TOOLTIP 'Slider'
				END SLIDER
				
				DEFINE FRAME TabFrame_2
					ROW	45
					COL	240
					WIDTH 125 
					HEIGHT 110 
				END FRAME

				DEFINE RADIOGROUP Radio_1
					ROW	50
					COL	260
					OPTIONS { 'One' , 'Two' , 'Three', 'Four' } 
					VALUE 1 
					WIDTH 100 
					TOOLTIP 'RadioGroup'
					ONCHANGE PLAYOK() 
				END RADIOGROUP

			END PAGE

			DEFINE PAGE '&EditBox'

				DEFINE EDITBOX 	Edit_1
					ROW	30
					COL	10
					WIDTH 410 
					HEIGHT 140 
					VALUE 'EditBox!!' 
					TOOLTIP 'EditBox' 
					MAXLENGTH 255 
				END EDITBOX

			END PAGE

			DEFINE PAGE '&ProgressBar'

				DEFINE PROGRESSBAR Progress_1
					ROW	80
					COL	120
					RANGEMIN 0
					RANGEMAX 65535		
				END PROGRESSBAR
				
				DEFINE BUTTON Btn_Prg
					ROW	80
					COL	250
					CAPTION '<- !!!' 
					ACTION Animate_CLick() 
					WIDTH 50 
					HEIGHT 28 
					TOOLTIP 'Animate Progressbar'
				END BUTTON

			END PAGE

		END TAB

		DEFINE DATEPICKER Date_1
			ROW	10
			COL	10
			VALUE CTOD('  / /  ') 
			TOOLTIP 'DatePicker Control' 
			SHOWNONE .T.
		END DATEPICKER

		DEFINE BUTTON Button_1
			ROW	200
			COL	10
			CAPTION 'Maximize' 
			ACTION Maximize_Click() 
			TOOLTIP 'Maximize'
		END BUTTON

		DEFINE BUTTON Button_2
			ROW	230
			COL	10
			CAPTION 'Minimize' 
			ACTION Minimize_Click() 
		END BUTTON
		
		DEFINE BUTTON Button_3
			ROW	260
			COL	10
			CAPTION 'Restore' 
			ACTION Restore_Click()
		END BUTTON

		DEFINE BUTTON Button_4
			ROW	290
			COL	10
			CAPTION '&Hide' 
			ACTION Hide_Click()
		END BUTTON
		
		DEFINE BUTTON Button_5
			ROW	320
			COL	10
			CAPTION 'Sho&w' 
			ACTION Show_Click()
		END BUTTON

		DEFINE BUTTON Button_6
			ROW	350
			COL	10
			CAPTION 'SetFocus' 
			ACTION Setfocus_Click()
		END BUTTON

		DEFINE BUTTON Button_7
			ROW	230
			COL	140
			CAPTION 'GetValue' 
			ACTION GetValue_Click()
		END BUTTON

		DEFINE BUTTON Button_8
			ROW	260
			COL	140
			CAPTION 'SetValue' 
			ACTION SetValue_Click()
		END BUTTON

		DEFINE BUTTON Button_9
			ROW	290
			COL	140
			CAPTION 'Enable' 
			ACTION Enable_Click()
		END BUTTON

		DEFINE BUTTON Button_10
			ROW	320
			COL	140
			CAPTION 'Disable' 
			ACTION Disable_Click()
		END BUTTON

		DEFINE BUTTON Button_11
			ROW	350
			COL	140
			CAPTION 'Delete All Items' 
			ACTION DeleteAllItems_Click()
			WIDTH 150 
			HEIGHT 28
		END BUTTON

		DEFINE BUTTON Button_12
			ROW	190
			COL	510
			CAPTION 'Delete Item' 
			ACTION DeleteItem_Click()
		END BUTTON

		DEFINE BUTTON Button_13
			ROW	220
			COL	510
			CAPTION 'Add Item' 
			ACTION AddItem_Click()
		END BUTTON

		DEFINE BUTTON Button_14
			ROW	250
			COL	510
			CAPTION 'Messages' 
			ACTION Msg_Click()
		END BUTTON

		DEFINE BUTTON Button_15
			ROW	280
			COL	510
			CAPTION 'Change Image' 
			ACTION SetPict()
		END BUTTON

		DEFINE FRAME Frame_1	
			ROW 	190
			COL	315
			CAPTION 'Frame' 
			WIDTH 170 
			HEIGHT 200 
		END FRAME

		DEFINE COMBOBOX Combo_1
			ROW	210
			COL	335
			ITEMS {'One','Two','Three'} 
			VALUE 2 
			TOOLTIP 'ComboBox' 
		END COMBOBOX

		DEFINE LISTBOX List_1	
			ROW	240
			COL	335
			WIDTH 120 
			HEIGHT 50 
			ITEMS {'Andres','Analia','Item 3','Item 4','Item 5'} 
			VALUE 2  
			TOOLTIP 'ListBox' 
			ONDBLCLICK 	MsgInfo('Double Click!','ListBox') 
		END LISTBOX

		DEFINE TEXTBOX Text_pass
			ROW	300
			COL	335
			VALUE 'Secret' 
			PASSWORD .T.
			TOOLTIP 'Password TextBox' 
			MAXLENGTH 16 
			UPPERCASE .T.
		END TEXTBOX
		
		DEFINE TEXTBOX Text_1
			ROW	330
			COL	335
			WIDTH 50 
			VALUE 'Hi!!!' 
			TOOLTIP 'TextBox' 
			MAXLENGTH 16 
			LOWERCASE .T.
			ONLOSTFOCUS MsgInfo('Focus Lost!') 
			ONENTER MsgInfo('Enter pressed')
		END TEXTBOX

		DEFINE TEXTBOX MaskedText
			ROW	330
			COL	395
			WIDTH 80 
			VALUE 12345.12 
			TOOLTIP "TextBox With Numeric And InputMask Clauses" 
			NUMERIC .T.
			INPUTMASK '99999.99' 
			ONCHANGE PlayOk() 
			ONENTER MsgInfo('Enter pressed') 
			RIGHTALIGN .T.
		END TEXTBOX

		DEFINE TEXTBOX Text_2
			ROW	360
			COL	335
			VALUE 123 
			NUMERIC .T.
			TOOLTIP 'Numeric TextBox' 
			MAXLENGTH 16 
			RIGHTALIGN .T.
		END TEXTBOX

		DEFINE SPINNER Spinner_1
			ROW	100
			COL	10
			RANGEMIN 0
			RANGEMAX 10 
			VALUE 5 
			WIDTH 100 
			TOOLTIP 'Range 1,65000'
			FONTBOLD .T.
		END SPINNER

		DEFINE LABEL Label_2
			ROW	380
			COL	15
			VALUE 'Timer Test:' 
		END LABEL
		
		DEFINE LABEL Label_3
			ROW	380
			COL	140
		END LABEL

		DEFINE TIMER Timer_1 ;
		INTERVAL 1000 ;
		ACTION Form_1.Label_3.Value := Time() 
		
		DEFINE IMAGE Image_1
			ROW	310
			COL	510
			PICTURE 'Demo.gif' 
			WIDTH 90 
			HEIGHT 90
		END IMAGE
		
	END WINDOW
	
	SET CONTROL Image_1 OF Form_1 CLIENTEDGE
	SET CONTROL Spinner_1 OF Form_1 CLIENTEDGE
	SET CONTROL Text_1 OF Form_1 CLIENTEDGE
	SET CONTROL Combo_1 OF Form_1 CLIENTEDGE
	
    
	CENTER WINDOW Form_1

	ACTIVATE WINDOW Form_1

Return Nil

*-----------------------------------------------------------------------------*
Procedure SetPict()
*-----------------------------------------------------------------------------*

	Form_1.Image_1.Picture := 'hmglogo.gif'
	Form_1.ImageButton_1.Picture := 'Open.Bmp'

Return Nil

*-----------------------------------------------------------------------------*
Procedure Maximize_CLick
*-----------------------------------------------------------------------------*

	Form_1.Maximize

Return Nil

*-----------------------------------------------------------------------------*
Procedure SetCaptionTest()
*-----------------------------------------------------------------------------*

	Form_1.Button_1.Caption 	:= 'New Caption'
	Form_1.Tab_1(2).Check_1.Caption := 'New Caption'
	Form_1.CheckButton_1.Caption 	:= 'New Caption'
	Form_1.Frame_1.Caption 		:= 'New Caption'

Return Nil
*-----------------------------------------------------------------------------*
Procedure GetCaptionTest()
*-----------------------------------------------------------------------------*

	MsgInfo ( ( Form_1.Button_1.Caption      ) , 'Button_1' )
	MsgInfo ( ( Form_1.Tab_1(2).Check_1.Caption ) , 'Check_1' )
	MsgInfo ( ( Form_1.CheckButton_1.Caption ) , 'CheckButton_1' )
	MsgInfo ( ( Form_1.Frame_1.Caption 	     ) , 'Frame_1' )

Return Nil
*-----------------------------------------------------------------------------*
Procedure ExecTest()
*-----------------------------------------------------------------------------*

	EXECUTE FILE "NOTEPAD.EXE" 

Return Nil
*-----------------------------------------------------------------------------*
Procedure InputWindow_Click
*-----------------------------------------------------------------------------*
Local Title , aLabels , aInitValues , aFormats , aResults 

Title 		:= 'InputWindow Test'

aLabels 	:= { 'Field 1:'	, 'Field 2:'	,'Field 3:'		,'Field 4:'	,'Field 5:'	,'Field 6:' }
aInitValues 	:= { 'Init Text', .t. 		,2			, Date() 	, 12.34 	,'Init text' }
aFormats 	:= { 20		, Nil 		,{'Option 1','Option 2'}, Nil 		, '99.99'	, 50 }

aResults 	:= InputWindow ( Title , aLabels , aInitValues , aFormats )

If aResults [1] == Nil

	MsgInfo ('Canceled','InputWindow')

Else

	MsgInfo ( aResults [1] , aLabels [1] )
	MsgInfo ( iif ( aResults [2] ,'.T.','.F.' ) , aLabels [2] )
	MsgInfo ( Str ( aResults [3] ) , aLabels [3] )
	MsgInfo ( DTOC ( aResults [4] ) , aLabels [4] )
	MsgInfo ( Str ( aResults [5] ) , aLabels [5] )
	MsgInfo ( aResults [6] , aLabels [6] )

EndIf

Return Nil
*-----------------------------------------------------------------------------*
Procedure EditGrid_Click
*-----------------------------------------------------------------------------*
Local aRows [20] [3]

	aRows [1]	:= {'Simpson','Homer','555-5555'}
	aRows [2]	:= {'Mulder','Fox','324-6432'} 
	aRows [3]	:= {'Smart','Max','432-5892'} 
	aRows [4]	:= {'Grillo','Pepe','894-2332'} 
	aRows [5]	:= {'Kirk','James','346-9873'} 
	aRows [6]	:= {'Barriga','Carlos','394-9654'} 
	aRows [7]	:= {'Flanders','Ned','435-3211'} 
	aRows [8]	:= {'Smith','John','123-1234'} 
	aRows [9]	:= {'Lopez','Roberto','000-0000'} 
	aRows [10]	:= {'Gomez','Juan','583-4832'} 
	aRows [11]	:= {'Fernandez','Raul','321-4332'} 
	aRows [12]	:= {'Borges','Javier','326-9430'} 
	aRows [13]	:= {'Alvarez','Alberto','543-7898'} 
	aRows [14]	:= {'Gonzalez','Ambo','437-8473'} 
	aRows [15]	:= {'Batistuta','Gol','485-2843'} 
	aRows [16]	:= {'Vinazzi','Amigo','394-5983'} 
	aRows [17]	:= {'Pedemonti','Flavio','534-7984'} 
	aRows [18]	:= {'Samarbide','Armando','854-7873'} 
	aRows [19]	:= {'Pradon','Alejandra','???-????'} 
	aRows [20]	:= {'Reyes','Monica','432-5836'} 

	DEFINE WINDOW Form_Grid ;
		AT 0,0 ;
		WIDTH 430 HEIGHT 400 ;
		TITLE 'Editable Grid Test'  ;
		MODAL NOSIZE ;
		FONT 'Arial' SIZE 10 

		DEFINE GRID Grid_1
			ROW	10
			COL	10
			WIDTH 405 
			HEIGHT 330 
			HEADERS {'Last Name','First Name','Phone'} 
			WIDTHS {140,140,140}
			ITEMS aRows 
			VALUE 1 
			TOOLTIP 'Editable Grid Control' 
			ALLOWEDIT .T.
		END GRID

	END WINDOW

	Form_Grid.Grid_1.Value := 20

	Form_Grid.Grid_1.SetFocus

	Form_Grid.Center

	Form_Grid.Activate

Return

*-----------------------------------------------------------------------------*
Procedure GetColor_Click
*-----------------------------------------------------------------------------*
Local Color

	Color := GetColor()

	MsgInfo( Str(Color[1]) , "Red Value")	
	MsgInfo( Str(Color[2]) , "Green Value")	
	MsgInfo( Str(Color[3]) , "Blue Value")	

Return Nil

*-----------------------------------------------------------------------------*
Procedure GetFont_Click
*-----------------------------------------------------------------------------*
Local a

	a := GetFont ( 'Arial' , 12 , .f. , .t. , {0,0,255} , .f. , .f. , 0 )

	if empty ( a [1] )

		MsgInfo ('Cancelled')

	Else

		MsgInfo( a [1] + Str( a [2] ) )

		if  a [3] == .t.
			MsgInfo ("Bold")
		else
			MsgInfo ("Non Bold")
		endif

		if  a [4] == .t.
			MsgInfo ("Italic")
		else
			MsgInfo ("Non Italic")
		endif

		MsgInfo ( str( a [5][1]) +str( a [5][2]) +str( a [5][3]), 'Color' )

		if  a [6] == .t.
			MsgInfo ("Underline")
		else
			MsgInfo ("Non Underline")
		endif

		if  a [7] == .t.
			MsgInfo ("StrikeOut")
		else
			MsgInfo ("Non StrikeOut")
		endif

		MsgInfo ( str ( a [8] ) , 'Charset' )

	EndIf

Return Nil
*-----------------------------------------------------------------------------*
Procedure MultiWin_Click
*-----------------------------------------------------------------------------*

	If (.Not. IsWIndowActive (Form_4) ) .And. (.Not. IsWIndowActive (Form_5) )

		DEFINE WINDOW Form_4 ;
			AT 100,100 ;
			WIDTH 200 HEIGHT 150 ;
			TITLE "Window 1" ;
			TOPMOST 

		END WINDOW
		DEFINE WINDOW Form_5 ;
			AT 300,300 ;
			WIDTH 200 HEIGHT 150 ;
			TITLE "Window 2" ;
			TOPMOST 

		END WINDOW

		ACTIVATE WINDOW Form_4 , Form_5

	EndIf

Return
*-----------------------------------------------------------------------------*
Procedure Context1_Click
*-----------------------------------------------------------------------------*

	Form_1.File_Modal.Checked := .T.
	MsgInfo ("File - More Tests Checked")

Return Nil
*-----------------------------------------------------------------------------*
Procedure Context2_Click
*-----------------------------------------------------------------------------*

	Form_1.File_Modal.Checked := .F.
	MsgInfo ("File - Modal Window Unchecked")

Return Nil
*-----------------------------------------------------------------------------*
Procedure Context3_Click
*-----------------------------------------------------------------------------*

	Form_1.File_Topmost.Enabled := .T.
	MsgInfo ("File - Topmost Window Enabled")

Return Nil
*-----------------------------------------------------------------------------*
Procedure Context4_Click
*-----------------------------------------------------------------------------*

	Form_1.File_Topmost.Enabled := .F.
	MsgInfo ("File - Topmost Window Disabled")

Return Nil
*-----------------------------------------------------------------------------*
Procedure Animate_CLick
*-----------------------------------------------------------------------------*
Local i

	For i = 0 To 65535 Step 25
		Form_1.Tab_1(4).Progress_1.Value := i
	Next i

Return
*-----------------------------------------------------------------------------*
Procedure Modal_CLick
*-----------------------------------------------------------------------------*

	DEFINE WINDOW Form_2 ;
		AT 0,0 ;
		WIDTH 430 HEIGHT 400 ;
		TITLE 'Modal Window & Multiselect Grid/List Test'  ;
		MODAL ;
		NOSIZE 

		DEFINE BUTTON BUTTON_1
			ROW	10
			COL	30
			CAPTION 'List GetValue' 
			ACTION MultiTest_GetValue()
		END BUTTON
		
		DEFINE BUTTON BUTTON_2
			ROW	40
			COL	30
			CAPTION 'List SetValue' 
			ACTION Form_2.List_1.Value := { 1 , 3 } 
		END BUTTON
		
		DEFINE BUTTON BUTTON_3
			ROW	70
			COL	30
			CAPTION 'List GetItem' 
			ACTION Multilist_GetItem()
		END BUTTON

		DEFINE BUTTON BUTTON_4
			ROW	100
			COL	30
			CAPTION 'List SetItem' 
			ACTION Form_2.List_1.Item ( 1 ) := 'New Value!!' 
		END BUTTON

		DEFINE BUTTON BUTTON_10
			ROW	130
			COL	30
			CAPTION 'GetItemCount' 
			ACTION MsgInfo ( Str ( ( Form_2.List_1.ItemCount ) ) )
		END BUTTON

		DEFINE BUTTON BUTTON_5
			ROW	10
			COL	150
			CAPTION 'Grid GetValue' 
			ACTION MultiGrid_GetValue()
		END BUTTON

		DEFINE BUTTON BUTTON_6
			ROW	40
			COL	150
			CAPTION 'Grid SetValue' 
			ACTION Form_2.Grid_1.Value := { 1 , 3 } 
		END BUTTON

		DEFINE BUTTON BUTTON_7
			ROW	70
			COL	150
			CAPTION 'Grid GetItem' 
			ACTION MultiGrid_GetItem()
		END BUTTON
		
		DEFINE BUTTON BUTTON_8
			ROW	100
			COL	150
			CAPTION 'Grid SetItem' 
			ACTION Form_2.Grid_1.Item(1) := {'Hi','All'} 
		END BUTTON
		
		DEFINE BUTTON BUTTON_9
			ROW	130
			COL	150
			CAPTION 'GetItemCount' 
			ACTION MsgInfo ( Str ( ( Form_2.Grid_1.ItemCount ) ) )
		END BUTTON

		DEFINE LISTBOX List_1
			ROW	180
			COL	30
			WIDTH 100 
			HEIGHT 135 
			ITEMS { 'Row 1' , 'Row 2' , 'Row 3' , 'Row 4' , 'Row 5' } 
			VALUE { 2 , 3 } 
			FONTNAME 'Arial' 
			FONTSIZE 10 
			TOOLTIP 'Multiselect ListBox (Ctrl+Click)' 
			MULTISELECT .T.
		END LISTBOX
		
		DEFINE GRID Grid_1
			ROW		180
			COL		150
			WIDTH		250 
			HEIGHT		135 
			HEADERS		{ 'Last Name' , 'First Name' } 
			WIDTHS		{ 120 , 120 }
			ITEMS		{ { 'Simpson' , 'Homer' } , { 'Mulder' , 'Fox' } , { 'Smart' , 'Max' } } 
			VALUE		{ 2 , 3 } 
			FONTNAME	'Arial' 
			FONTSIZE	10 
			TOOLTIP		'Multiselect Grid Control (Ctrl+Click)' 
			ONCHANGE	PlayBeep() 
			MULTISELECT	.T.
		END GRID

	END WINDOW
	
	SET CONTROL List_1 OF Form_2 CLIENTEDGE
	SET CONTROL Grid_1 OF Form_2 CLIENTEDGE

	Form_2.Center

	Form_2.Activate

Return Nil
Procedure MultiTest_GetValue
local a , i

	a :=  ( Form_2.List_1.Value )

	for i := 1 to len (a)
		MsgInfo ( str( a[i] ) ) 
	Next i

	If Len(a) == 0
		MsgInfo('No Selection')
	EndIf

Return
Procedure MultiGrid_GetValue
local a , i

	a :=  ( Form_2.Grid_1.Value )

	for i := 1 to len (a)
		MsgInfo ( str( a[i] ) ) 
	Next i

	If Len(a) == 0
		MsgInfo('No Selection')
	EndIf

Return
*-----------------------------------------------------------------------------*
procedure multilist_getitem
*-----------------------------------------------------------------------------*

	MsgInfo (  ( Form_2.List_1.Item ( 1 ) ) ) 

return
*-----------------------------------------------------------------------------*
Procedure MultiGrid_GetItem
*-----------------------------------------------------------------------------*
local a , i

	a := ( Form_2.Grid_1.Item ( 1 ) )

	for i := 1 to len (a)
		MsgInfo ( a[i] ) 
	Next i
Return
*-----------------------------------------------------------------------------*
Procedure Standard_CLick
*-----------------------------------------------------------------------------*
	If .Not. IsWindowDefined ( Form_Std )

		DEFINE WINDOW Form_Std ;
			AT 100,100 ;
			WIDTH 200 HEIGHT 200 ;
			TITLE "Standard Window" ;
			WINDOWTYPE STANDARD ;
			ON INIT { || MsgInfo ("ON INIT Procedure Executing !!!") } ;
			ON RELEASE { || MsgInfo ("ON RELEASE Procedure Executing !!!") }

		END WINDOW

		Form_Std.Activate

	Else
		MsgInfo ("Window Already Active","Warning!")	
	EndIf	

Return Nil
*-----------------------------------------------------------------------------*
Procedure Topmost_CLick
*-----------------------------------------------------------------------------*

	If .Not. IsWIndowActive ( Form_3 )

		DEFINE WINDOW Form_3 ;
			AT 100,100 ;
			WIDTH 150 HEIGHT 150 ;
			TITLE "Topmost Window" ;
			TOPMOST 

		END WINDOW

		Form_3.Center

		Form_3.Activate

	EndIf

Return Nil
*-----------------------------------------------------------------------------*
Procedure Minimize_CLick
*-----------------------------------------------------------------------------*

	Form_1.Minimize

Return Nil
*-----------------------------------------------------------------------------*
Procedure Restore_CLick
*-----------------------------------------------------------------------------*

	Form_1.Restore

Return Nil
*-----------------------------------------------------------------------------*
Procedure Hide_CLick
*-----------------------------------------------------------------------------*

	Form_1.Image_1.Visible 	:= .f.
	Form_1.Spinner_1.Visible := .f.
	Form_1.Tab_1.Visible 	:= .f.

Return Nil
*-----------------------------------------------------------------------------*
Procedure Show_CLick
*-----------------------------------------------------------------------------*

	Form_1.Image_1.Visible 	:= .t.
	Form_1.Spinner_1.Visible := .t.
	Form_1.Tab_1.Visible 	:= .t.

Return Nil
*-----------------------------------------------------------------------------*
Procedure Setfocus_CLick
*-----------------------------------------------------------------------------*

	Form_1.MaskedText.SetFocus

Return Nil
*-----------------------------------------------------------------------------*
Procedure GetValue_CLick
*-----------------------------------------------------------------------------*
Local s

s =     "Grid:                " + Str (  ( Form_1.Tab_1(1).Grid_1.Value ) 	)	+ chr(13) + chr(10)
s = s + "TextBox:             " +      ( Form_1.Text_1.Value 	)	+ chr(13) + chr(10)
s = s + "EditBox:             " +      ( Form_1.Tab_1(3).Edit_1.Value 	)	+ chr(13) + chr(10)
s = s + "RadioGroup:          " + Str (  Form_1.Tab_1(2).Radio_1.Value )	+ chr(13) + chr(10)
s = s + "Tab:                 " + Str (  Form_1.Tab_1.Value )	+ chr(13) + chr(10)
s = s + "ComboBox:            " + Str (  Form_1.Combo_1.Value )	+ chr(13) + chr(10)
s = s + "CheckBox:   	      " + Iif (  ( Form_1.Tab_1(2).Check_1.Value ) , ".T.",".F."	) + chr(13) + chr(10)
s = s + "Numeric TextBox:     " + Str (  Form_1.Text_2.Value )	+ chr(13) + chr(10)
s = s + "Password TextBox:    " +        Form_1.Text_Pass.Value	+ chr(13) + chr(10)
s = s + "Slider:	      " + Str (  Form_1.Tab_1(2).Slider_1.Value )	+ chr(13) + chr(10)	
s = s + "Spinner:             " + Str (  Form_1.Spinner_1.Value )	+ chr(13) + chr(10)
s = s + "TextBox (InputMask): " + Str (  Form_1.MaskedText.Value )	+ chr(13) + chr(10)
s = s + "DatePicker:          " + Dtoc(  ( Form_1.Date_1.Value )	) 

MsgInfo ( s , "Get Control Values" )

Return Nil
*-----------------------------------------------------------------------------*
Procedure SetValue_CLick
*-----------------------------------------------------------------------------*

	 Form_1.Tab_1(1).Grid_1.Value 	:= 2 
	 Form_1.Text_1.Value 	:= "New Text value" 
	 Form_1.Tab_1(3).Edit_1.Value 	:= "New Edit Value" 
	 Form_1.Tab_1(2).Radio_1.Value 	:= 4
	 Form_1.Tab_1.Value 	:= 2 
	 Form_1.Tab_1(2).Check_1.Value 	:= .t. 
	 Form_1.List_1.Value 	:= 1 
	 Form_1.Combo_1.Value 	:= 1 
	 Form_1.Date_1.Value 	:= CTOD("02/02/2002") 
	 Form_1.Tab_1(2).Label_1.Value 	:= "New Label Value" 
	 Form_1.Text_2.Value 	:= 999 
	 Form_1.Timer_1.Value 	:= 500 
	 Form_1.MaskedText.Value := 12.34 
	 Form_1.Spinner_1.Value := 6
Return Nil
*-----------------------------------------------------------------------------*
Procedure Enable_CLick
*-----------------------------------------------------------------------------*

	Form_1.Button_1.Enabled 	:= .T. 
	Form_1.Button_2.Enabled 	:= .T. 
	Form_1.Button_3.Enabled 	:= .T. 
	Form_1.Button_4.Enabled 	:= .T. 
	Form_1.Button_5.Enabled 	:= .T. 
	Form_1.Button_6.Enabled 	:= .T. 
	Form_1.Timer_1.Enabled 		:= .T. 
	Form_1.Spinner_1.Enabled 	:= .T. 
	Form_1.Tab_1(2).Radio_1.Enabled 		:= .T. 
	Form_1.Tab_1.Enabled 		:= .T. 
Return Nil
*-----------------------------------------------------------------------------*
Procedure Disable_CLick
*-----------------------------------------------------------------------------*

	Form_1.Button_1.Enabled 	:= .F. 
	Form_1.Button_2.Enabled 	:= .F. 
	Form_1.Button_3.Enabled 	:= .F. 
	Form_1.Button_4.Enabled 	:= .F. 
	Form_1.Button_5.Enabled 	:= .F. 
	Form_1.Button_6.Enabled 	:= .F. 
	Form_1.Timer_1.Enabled 		:= .F. 
	Form_1.Spinner_1.Enabled 	:= .F. 
	Form_1.Tab_1(2).Radio_1.Enabled 		:= .F. 
	Form_1.Tab_1.Enabled 		:= .F. 

Return Nil
*-----------------------------------------------------------------------------*
Procedure DeleteAllItems_CLick
*-----------------------------------------------------------------------------*

	Form_1.Tab_1(1).Grid_1.DeleteAllItems
	Form_1.List_1.DeleteAllItems 
	Form_1.Combo_1.DeleteAllItems

Return Nil
*-----------------------------------------------------------------------------*
Procedure DeleteItem_CLick
*-----------------------------------------------------------------------------*

	Form_1.Tab_1(1).Grid_1.DeleteItem ( 1 )
	Form_1.List_1.DeleteItem ( 1 )
	Form_1.Combo_1.DeleteItem ( 1 )

Return Nil
*-----------------------------------------------------------------------------*
Procedure AddItem_CLick
*-----------------------------------------------------------------------------*

	Form_1.Tab_1(1).Grid_1.AddItem ( { 1,"Kirk","James"} )
	Form_1.List_1.AddItem ( "New List Item"  )
	Form_1.Combo_1.AddItem (  "New Combo Item" )

Return Nil
*-----------------------------------------------------------------------------*
Procedure Msg_CLick
*-----------------------------------------------------------------------------*

	MsgBox		("MessageBox Test","MsgBox")
	MsgInfo 	("MessageBox Test","MsgInfo")
	MsgStop 	("MessageBox Test","MsgStop")
	MsgExclamation 	("MessageBox Test","MsgExclamation")
	MsgYesNo	("MessageBox Test","MsgYesNo")
	MsgOkCancel	("MessageBox Test","MsgOkCancel")
	MsgRetryCancel  ("MessageBox Test","MsgRetryCancel")

Return Nil
*-----------------------------------------------------------------------------*
Procedure MemoryTest
*-----------------------------------------------------------------------------*

	MsgInfo(str(MemoryStatus(1)), "Total memory in MB")
	MsgInfo(str(MemoryStatus(2)), "Available memory in MB")
	MsgInfo(str(MemoryStatus(3)), "Total page memory in MB")
	MsgInfo(str(MemoryStatus(3)-MemoryStatus(4)), "Used page memory in MB")
	MsgInfo(str(MemoryStatus(6)), "Available virtual memory in MB")

Return
*-----------------------------------------------------------------------------*
Procedure Color_CLick
*-----------------------------------------------------------------------------*
	DEFINE WINDOW Form_Color ;
		AT 100,100 ;
		WIDTH 200 HEIGHT 200 ;
		TITLE 'Color Window' ;
		BACKCOLOR RED

		DEFINE LABEL Label_9
			ROW	10
			COL	10
			VALUE 'A COLOR Label !!!' 
			WIDTH 140 
			HEIGHT 30 
			FONTNAME 'Times New Roman' 
			FONTSIZE 12 
			BACKCOLOR RED 
			FONTCOLOR YELLOW 
			FONTBOLD .T.
		END LABEL 

		DEFINE LABEL Label_99
			ROW	60
			COL	10
			VALUE 'Another COLOR Label !!!' 
			WIDTH 180 
			HEIGHT 30 
			FONTNAME 'Times New Roman' 
			FONTSIZE 10 
			BACKCOLOR WHITE 
			FONTCOLOR RED 
			FONTBOLD .T.
		END LABEL
	END WINDOW

	Form_Color.Activate

Return Nil
*-----------------------------------------------------------------------------*
Procedure Child_CLick
*-----------------------------------------------------------------------------*
	DEFINE WINDOW ChildTest ;
		AT 100,100 ;
		WIDTH 200 HEIGHT 200 ;
		TITLE 'Child Window' ;
		CHILD

	END WINDOW

	ChildTest.Activate

Return Nil

Upto now the only thing I've changed is at line 181 where says:

Code: Select all

		DEFINE BUTTON ImageButton_1
			ROW	200
			COL	250
			PICTURE 'button.bmp' 
			ACTION MsgInfo('Click!')  <=== To be useful for PrintWindow test
			WIDTH 27 
			HEIGHT 27 
			TOOLTIP 'Print Preview' 
		END BUTTON

I've replace the ACTION property as: PrintWindow ( 'Form_1',.T.,.T. )

PrintWindow function its useful and many user do not know it.

Please considered for next release if you considered relevant.

[Pablo César]

Hi Rathinagiri,

I have improved a little bit this C:\hmg.3.4.3\SAMPLES\Basics\MULTIPRG

Screen6.png (16.61 KiB) Viewed 8612 times

I saw empty .ch files, both prgs in lib sub-folders were without any call function (without any use)

To give better idea of lib contructions and utility I've changed. Also adapted to .hbc file for libpaths and libs names.

Users can easily see this example with more utility. If you considered good for updating for next HMG release, please I gratefuly thank you.

[Pablo César]

Hi Rathi and all,

Example C:\hmg.3.4.3\SAMPLES\Advanced\USER_COMPONENTS has been giving compilation error for long time. (Related by users on several occasions).

In this message I posted, it gives a hint to eliminate the error.

But reviewing the best logic and right using of two directives files for the user to make new USER components (files: i_UsrSOOP.ch and i_UsrInit.ch, included at Minigui.ch), now I have better suggestion and better results.

Please see in attached USER_COMPONENTS with 2 examples (new user control and new user command):

Custom Button

Screen7.png (8.48 KiB) Viewed 8562 times

New User command:
SET LEFTJUSTIFY OF <Form_Name> CHECKBOX <Check_Name>

Screen8.png (5.41 KiB) Viewed 8562 times

Attached is the file for your evaluation:
<Attached files -0 2 Demos, were removed because there is a newest version more ahead in this same topic.>

You will also need to rectify the "i_UsrSOOP.ch" file that is in <HMG_Root_Folder>\include folder which should have the following content:

Code: Select all

#xcommand DECLARE CUSTOM COMPONENTS <Window> ;
=> ;
#define BASE_USER_DEF ;;
#xtranslate <Window>.Print                       => PRINTWINDOW ( <"Window"> ) ;;
#xtranslate <Window>.Print()                     => PRINTWINDOW ( <"Window">, .T. ) ;;
#xtranslate <Window>.\<Control\>.Disable         => SetProperty ( <"Window">, \<"Control"\> , "Enabled", .F. ) ;;
#xtranslate <Window>.\<Control\>.Enable          => SetProperty ( <"Window">, \<"Control"\> , "Enabled", .T. ) ;;
#xtranslate <Window>.\<Control\>.Handle := \<v\> => SetProperty ( <"Window">, \<"Control"\> , "Handle", \<v\> ) ;;
#undef BASE_USER_DEF

All files in USER_COMPONENTS folder, have been changed.

• The last xtranslate line for Handle changing, it's only used and valid for user-controls ONLY.
  HMG's controls not. Was considered according Roberto's sample at that time.
• Two "Print" form was improved. One withou parentese that prints directly to printer defaul and Print() with parenthese for Print PreView option.
• Enable/Disabled was due assigned as SetProperty "Enabled" true/false.
• First menu item was changed from SetFocus to Visible property, which I considered more useful.
• FontColor trying to be fixed with Claudio's helps.
• User Button with new properties: WIDTH, HEIGHT and MULTILINE.

There is an unsuful and in duplicity i_UsrSOOP.ch file at CD:\hmg.3.4.3\hfcl folder. Could you please confirm for deleting at next HMG versions?

I would like to know if this example and the previous two messages satisfiy you and would be made available in the next HMG release. Could you confirm please.

---

Hi Claudio,

In this first example (Demo1), I tried to change the button style to BS_OWNERDRAW and I tried to change the button event function by adding the functions and they are like comment. I was not successful to adapt it.

Could you help me with this code ?

Solved this style, we could have a button that can change the FontColor of Caption.