HMGforum.com

Code: Select all

/*
 * HMG - Harbour Win32 GUI library Demo
*/

#include "hmg.ch"

Function Main

Local aSer:={ {12314280,1220420,12312870,25347, 12347640} }
Local serie

For each serie in aSer
	For i:=1 To Len(serie)
		serie[i] := aSer[1][i] / 1000
	Next
Next

	Define Window GraphTest ;
		At 0,0 ;
		Width 640 ;
		Height 480 ;
		Title "Graph" ;
		Main ;
		Nomaximize ;
		Icon "Main" ;
		BackColor { 255 , 255 , 255 } ;
		On Init DrawBarGraph ( aSer ) ;

		Define Button Button_1
			Row	415
			Col	20
			Caption	'Bars'
			Action DrawBarGraph ( aSer )
		End Button

		Define Button Button_4
			Row	415
			Col	500
			Caption	'Print'
			Action PRINT GRAPH OF GraphTest PREVIEW DIALOG
		End Button

	End Window

	GraphTest.Center

	Activate Window GraphTest

Return

Procedure DrawBarGraph ( aSer )

	ERASE WINDOW GraphTest

	DRAW GRAPH							;
		IN WINDOW GraphTest					;
		AT 20,20						;
		TO 400,610						;
		TITLE "Sales and Product (in thousands)"		;
		TYPE BARS						;
		SERIES aSer						;
		YVALUES {"Jan","Feb","Mar","Apr","May"}			;
		DEPTH 15						;
		BARWIDTH 15						;
		HVALUES 10						;
		SERIENAMES {"Serie 1"}		;
		COLORS { {128,128,255} }	;
		SHOWGRID                        			;
		3DVIEW    						;	
		SHOWXVALUES                     			;
		SHOWYVALUES                     			;
		SHOWLEGENDS 						;
		NOBORDER

	
Return