PC Toledo

Código: Selecionar todos

/*
 * MINIGUI - Harbour Win32 GUI library Demo
 *
 * Copyright 2002 Roberto Lopez <harbourminigui@gmail.com>
 * http://harbourminigui.googlepages.com/
*/

* Value property selects a record by its number (RecNo())
* Value property returns selected record number (recNo())
* Browse control does not change the active work area
* Browse control does not change the record pointer in any area
* (nor change selection when it changes)
* You can programatically refresh it using refresh method.
* Variables called <MemVar>.<WorkAreaName>.<FieldName> are created for
* validation in browse editing window. You can use it in VALID array.
* Using APPEND clause you can add records to table associated with WORKAREA
* clause. The hotkey to add records is Alt+A.
* Append Clause Can't Be Used With Fields Not Belonging To Browse WorkArea
* Using DELETE clause allows to mark selected record for deletion pressing <Del> key
* The leftmost column in a browse control must be left aligned.

* Enjoy !

#include "minigui.ch"

Function Main

	Private bColor := { || if ( recno()/2 == int(recno()/2) , { 255,255,255 } , { 240,240,240 } ) }	

	SET CENTURY ON

	DEFINE WINDOW Form_1 ;
		AT 0,0 ;
		WIDTH 640 HEIGHT 480 ;
		TITLE 'MiniGUI Browse Demo (1000 Records)' ;
		MAIN NOMAXIMIZE ;
		ON INIT OpenTables() ;
		ON RELEASE CloseTables()

		DEFINE MAIN MENU
			POPUP 'File'
				ITEM 'Set Browse Value'	ACTION Form_1.Browse_1.Value := 500
				ITEM 'Get Browse Value'	ACTION MsgInfo ( Str ( Form_1.Browse_1.Value ) )
				ITEM 'Refresh Browse'	ACTION Form_1.Browse_1.Refresh
				SEPARATOR
				ITEM 'Exit'		ACTION Form_1.Release
			END POPUP
			POPUP 'Help'
				ITEM 'About'		ACTION MsgInfo ("MiniGUI Browse Demo")
			END POPUP
		END MENU

		DEFINE STATUSBAR
			STATUSITEM 'Edit Record, Change "TYPE" and Bitmat Will be Updated'
		END STATUSBAR

		@ 10,10 BROWSE Browse_1									;
		WIDTH 610  										;
		HEIGHT 390 										;
                HEADERS { 'Type','First Name' , 'Last Name', 'Birth Date',  'Biography' } ;
		WIDTHS { 0,150 , 150 , 150 , 150 } ;
		WORKAREA Test ;
		FIELDS { 'Test->Types' , 'Test->First' , 'Test->Last' , 'Test->Birth' ,  'Test->Bio' } ;
		VALUE 1 ;
		DYNAMICBACKCOLOR { bColor , bColor, bColor, bColor, bColor } ;
		FONT "MS Sans Serif" SIZE 8;
		EDIT INPLACE;
		NOLINES ;
		IMAGE {"br0","br1","br2","br3","br4","br5","br6","br7","br8","br9"};
		JUSTIFY { ,, BROWSE_JTFY_CENTER, } // BROWSE_JTFY_LEFT por defecto, no es necesario escribirlo

	END WINDOW

	CENTER WINDOW Form_1

	Form_1.Browse_1.SetFocus

	ACTIVATE WINDOW Form_1

Return Nil

Procedure OpenTables()
/*
	Use test
	zap

	For i:= 1 To 500000
		append blank
		Replace code with i
		Replace First With 'First Name '+ Str(i)
		Replace Last With 'Last Name '+ Str(i)
		Replace Married With .t.
		replace birth with date()+i-10000
	Next i

	Index On Code To Code
	Use

*/
	Use test

Return Nil

Procedure CloseTables()
	Use
Return Nil

Código: Selecionar todos

	br0				BITMAP			br0.BMP
	br1				BITMAP			br1.BMP
	br2				BITMAP			br2.BMP
	br3				BITMAP			br3.BMP
	br4				BITMAP			br4.BMP
	br5				BITMAP			br5.BMP
	br6				BITMAP			br6.BMP
	br7				BITMAP			br7.BMP
	br8				BITMAP			br8.BMP
	br9				BITMAP			br9.BMP