Part 2 of the restructure.

* Moved all the images from the prototype directory.
* Removed all the obsolete examples

14 files changed, 0 insertions, 2787 deletions

diff --git a/examples/gui/widgettest/Makefile b/examples/gui/widgettest/Makefile
deleted file mode 100644
index 2c9fa63e..00000000
--- a/examples/gui/widgettest/Makefile
+++ /dev/null
@@ -1,1320 +0,0 @@
-#
-# Makefile generated by fpcmake v1.00 [2000/12/14]
-#
-
-defaultrule: all
-
-#####################################################################
-# Autodetect OS (Linux or Dos or Windows NT)
-# define inUnix when running under Unix (Linux,FreeBSD)
-# define inWinNT when running under WinNT
-#####################################################################
-
-# We need only / in the path
-override PATH:=$(subst \,/,$(PATH))
-
-# Search for PWD and determine also if we are under linux
-PWD:=$(strip $(wildcard $(addsuffix /pwd.exe,$(subst ;, ,$(PATH)))))
-ifeq ($(PWD),)
-PWD:=$(strip $(wildcard $(addsuffix /pwd,$(subst :, ,$(PATH)))))
-ifeq ($(PWD),)
-nopwd:
-	@echo You need the GNU utils package to use this Makefile!
-	@echo Get ftp://ftp.freepascal.org/pub/fpc/dist/go32v2/utilgo32.zip
-	@exit
-else
-inUnix=1
-endif
-else
-PWD:=$(firstword $(PWD))
-endif
-
-# Detect NT - NT sets OS to Windows_NT
-# Detect OS/2 - OS/2 has OS2_SHELL defined
-ifndef inUnix
-ifeq ($(OS),Windows_NT)
-inWinNT=1
-else
-ifdef OS2_SHELL
-inOS2=1
-endif
-endif
-endif
-
-# The extension of executables
-ifdef inUnix
-SRCEXEEXT=
-else
-SRCEXEEXT=.exe
-endif
-
-# The path which is searched separated by spaces
-ifdef inUnix
-SEARCHPATH=$(subst :, ,$(PATH))
-else
-SEARCHPATH=$(subst ;, ,$(PATH))
-endif
-
-# Base dir
-ifdef PWD
-BASEDIR:=$(shell $(PWD))
-else
-BASEDIR=.
-endif
-
-#####################################################################
-# FPC version/target Detection
-#####################################################################
-
-# What compiler to use ?
-ifndef FPC
-# Compatibility with old makefiles
-ifdef PP
-FPC=$(PP)
-else
-FPC=ppc386
-endif
-endif
-override FPC:=$(subst $(SRCEXEEXT),,$(FPC))
-override FPC:=$(subst \,/,$(FPC))$(SRCEXEEXT)
-
-# Target OS
-ifndef OS_TARGET
-OS_TARGET:=$(shell $(FPC) -iTO)
-endif
-
-# Source OS
-ifndef OS_SOURCE
-OS_SOURCE:=$(shell $(FPC) -iSO)
-endif
-
-# Target CPU
-ifndef CPU_TARGET
-CPU_TARGET:=$(shell $(FPC) -iTP)
-endif
-
-# Source CPU
-ifndef CPU_SOURCE
-CPU_SOURCE:=$(shell $(FPC) -iSP)
-endif
-
-# FPC version
-ifndef FPC_VERSION
-FPC_VERSION:=$(shell $(FPC) -iV)
-endif
-
-export FPC OS_TARGET OS_SOURCE CPU_TARGET CPU_SOURCE FPC_VERSION FPCOPT
-
-#####################################################################
-# FPCDIR Setting
-#####################################################################
-
-# Test FPCDIR to look if the RTL dir exists
-ifdef FPCDIR
-override FPCDIR:=$(subst \,/,$(FPCDIR))
-ifeq ($(wildcard $(FPCDIR)/rtl),)
-ifeq ($(wildcard $(FPCDIR)/units),)
-override FPCDIR=wrong
-endif
-endif
-else
-override FPCDIR=wrong
-endif
-
-# Detect FPCDIR
-ifeq ($(FPCDIR),wrong)
-ifdef inUnix
-override FPCDIR=/usr/local/lib/fpc/$(FPC_VERSION)
-ifeq ($(wildcard $(FPCDIR)/units),)
-override FPCDIR=/usr/lib/fpc/$(FPC_VERSION)
-endif
-else
-override FPCDIR:=$(subst /$(FPC),,$(firstword $(strip $(wildcard $(addsuffix /$(FPC),$(SEARCHPATH))))))
-override FPCDIR:=$(FPCDIR)/..
-ifeq ($(wildcard $(FPCDIR)/rtl),)
-ifeq ($(wildcard $(FPCDIR)/units),)
-override FPCDIR:=$(FPCDIR)/..
-ifeq ($(wildcard $(FPCDIR)/rtl),)
-ifeq ($(wildcard $(FPCDIR)/units),)
-override FPCDIR=c:/pp
-endif
-endif
-endif
-endif
-endif
-endif
-
-ifndef PACKAGESDIR
-PACKAGESDIR=$(FPCDIR)/packages
-endif
-ifndef TOOLKITSDIR
-TOOLKITSDIR=
-endif
-ifndef COMPONENTSDIR
-COMPONENTSDIR=
-endif
-
-# Create units dir
-ifneq ($(FPCDIR),.)
-UNITSDIR=$(FPCDIR)/units/$(OS_TARGET)
-endif
-
-#####################################################################
-# User Settings
-#####################################################################
-
-
-# Targets
-
-override EXEOBJECTS+=widgettest
-
-# Clean
-
-
-# Install
-
-ZIPTARGET=install
-
-# Defaults
-
-override NEEDOPT=-S2h
-
-# Directories
-
-
-# Packages
-
-override PACKAGES+=rtl fcl fpgfx fpgui
-
-# Libraries
-
-
-# Info
-
-INFOTARGET=fpc_infocfg fpc_infoobjects fpc_infoinstall 
-
-#####################################################################
-# Shell tools
-#####################################################################
-
-# echo
-ifndef ECHO
-ECHO:=$(strip $(wildcard $(addsuffix /gecho$(EXEEXT),$(SEARCHPATH))))
-ifeq ($(ECHO),)
-ECHO:=$(strip $(wildcard $(addsuffix /echo$(SRCEXEEXT),$(SEARCHPATH))))
-ifeq ($(ECHO),)
-ECHO:=echo
-ECHOE:=echo
-else
-ECHO:=$(firstword $(ECHO))
-ECHOE=$(ECHO) -E
-endif
-else
-ECHO:=$(firstword $(ECHO))
-ECHOE=$(ECHO) -E
-endif
-endif
-
-# To copy pograms
-ifndef COPY
-COPY:=cp -fp
-endif
-
-# Copy a whole tree
-ifndef COPYTREE
-COPYTREE:=cp -rfp
-endif
-
-# To move pograms
-ifndef MOVE
-MOVE:=mv -f
-endif
-
-# Check delete program
-ifndef DEL
-DEL:=rm -f
-endif
-
-# Check deltree program
-ifndef DELTREE
-DELTREE:=rm -rf
-endif
-
-# To install files
-ifndef INSTALL
-ifdef inUnix
-INSTALL:=install -c -m 644
-else
-INSTALL:=$(COPY)
-endif
-endif
-
-# To install programs
-ifndef INSTALLEXE
-ifdef inUnix
-INSTALLEXE:=install -c -m 755
-else
-INSTALLEXE:=$(COPY)
-endif
-endif
-
-# To make a directory.
-ifndef MKDIR
-ifdef inUnix
-MKDIR:=install -m 755 -d
-else
-MKDIR:=ginstall -m 755 -d
-endif
-endif
-
-export ECHO ECHOE COPY COPYTREE MOVE DEL DELTREE INSTALL INSTALLEXE MKDIR
-
-#####################################################################
-# Default Tools
-#####################################################################
-
-# assembler, redefine it if cross compiling
-ifndef AS
-AS=as
-endif
-
-# linker, but probably not used
-ifndef LD
-LD=ld
-endif
-
-# ppas.bat / ppas.sh
-ifdef inUnix
-PPAS=ppas.sh
-else
-ifdef inOS2
-PPAS=ppas.cmd
-else
-PPAS=ppas.bat
-endif
-endif
-
-# ldconfig to rebuild .so cache
-ifdef inUnix
-LDCONFIG=ldconfig
-else
-LDCONFIG=
-endif
-
-# ppumove
-ifndef PPUMOVE
-PPUMOVE:=$(strip $(wildcard $(addsuffix /ppumove$(SRCEXEEXT),$(SEARCHPATH))))
-ifeq ($(PPUMOVE),)
-PPUMOVE=
-else
-PPUMOVE:=$(firstword $(PPUMOVE))
-endif
-endif
-export PPUMOVE
-
-# ppufiles
-ifndef PPUFILES
-PPUFILES:=$(strip $(wildcard $(addsuffix /ppufiles$(SRCEXEEXT),$(SEARCHPATH))))
-ifeq ($(PPUFILES),)
-PPUFILES=
-else
-PPUFILES:=$(firstword $(PPUFILES))
-endif
-endif
-export PPUFILES
-
-# Look if UPX is found for go32v2 and win32. We can't use $UPX becuase
-# upx uses that one itself (PFV)
-ifndef UPXPROG
-ifeq ($(OS_TARGET),go32v2)
-UPXPROG:=1
-endif
-ifeq ($(OS_TARGET),win32)
-UPXPROG:=1
-endif
-ifdef UPXPROG
-UPXPROG:=$(strip $(wildcard $(addsuffix /upx$(SRCEXEEXT),$(SEARCHPATH))))
-ifeq ($(UPXPROG),)
-UPXPROG=
-else
-UPXPROG:=$(firstword $(UPXPROG))
-endif
-else
-UPXPROG=
-endif
-endif
-export UPXPROG
-
-# ZipProg, you can't use Zip as the var name (PFV)
-ifndef ZIPPROG
-ZIPPROG:=$(strip $(wildcard $(addsuffix /zip$(SRCEXEEXT),$(SEARCHPATH))))
-ifeq ($(ZIPPROG),)
-ZIPPROG=
-else
-ZIPPROG:=$(firstword $(ZIPPROG))
-endif
-endif
-export ZIPPROG
-
-ZIPOPT=-9
-ZIPEXT=.zip
-
-# Tar
-ifndef TARPROG
-TARPROG:=$(strip $(wildcard $(addsuffix /tar$(SRCEXEEXT),$(SEARCHPATH))))
-ifeq ($(TARPROG),)
-TARPROG=
-else
-TARPROG:=$(firstword $(TARPROG))
-endif
-endif
-export TARPROG
-
-ifeq ($(USETAR),bz2)
-TAROPT=vI
-TAREXT=.tar.bz2
-else
-TAROPT=vz
-TAREXT=.tar.gz
-endif
-
-#####################################################################
-# Default extensions
-#####################################################################
-
-# Default needed extensions (Go32v2,Linux)
-LOADEREXT=.as
-EXEEXT=.exe
-PPLEXT=.ppl
-PPUEXT=.ppu
-OEXT=.o
-ASMEXT=.s
-SMARTEXT=.sl
-STATICLIBEXT=.a
-SHAREDLIBEXT=.so
-RSTEXT=.rst
-FPCMADE=fpcmade
-
-# Go32v1
-ifeq ($(OS_TARGET),go32v1)
-PPUEXT=.pp1
-OEXT=.o1
-ASMEXT=.s1
-SMARTEXT=.sl1
-STATICLIBEXT=.a1
-SHAREDLIBEXT=.so1
-FPCMADE=fpcmade.v1
-endif
-
-# Go32v2
-ifeq ($(OS_TARGET),go32v2)
-FPCMADE=fpcmade.dos
-endif
-
-# Linux
-ifeq ($(OS_TARGET),linux)
-EXEEXT=
-HASSHAREDLIB=1
-FPCMADE=fpcmade.lnx
-endif
-
-# Linux
-ifeq ($(OS_TARGET),freebsd)
-EXEEXT=
-HASSHAREDLIB=1
-FPCMADE=fpcmade.freebsd
-endif
-
-# Win32
-ifeq ($(OS_TARGET),win32)
-PPUEXT=.ppw
-OEXT=.ow
-ASMEXT=.sw
-SMARTEXT=.slw
-STATICLIBEXT=.aw
-SHAREDLIBEXT=.dll
-FPCMADE=fpcmade.w32
-endif
-
-# OS/2
-ifeq ($(OS_TARGET),os2)
-PPUEXT=.ppo
-ASMEXT=.so2
-OEXT=.oo2
-SMARTEXT=.so
-STATICLIBEXT=.ao2
-SHAREDLIBEXT=.dll
-FPCMADE=fpcmade.os2
-endif
-
-# library prefix
-LIBPREFIX=lib
-ifeq ($(OS_TARGET),go32v2)
-LIBPREFIX=
-endif
-ifeq ($(OS_TARGET),go32v1)
-LIBPREFIX=
-endif
-
-# determine which .pas extension is used
-ifndef PASEXT
-ifdef EXEOBJECTS
-override TESTPAS:=$(strip $(wildcard $(addsuffix .pas,$(firstword $(EXEOBJECTS)))))
-else
-override TESTPAS:=$(strip $(wildcard $(addsuffix .pas,$(firstword $(UNITOBJECTS)))))
-endif
-ifeq ($(TESTPAS),)
-PASEXT=.pp
-else
-PASEXT=.pas
-endif
-endif
-
-
-# Check if the dirs really exists, else turn it off
-ifeq ($(wildcard $(UNITSDIR)),)
-UNITSDIR=
-endif
-ifeq ($(wildcard $(TOOLKITSDIR)),)
-TOOLKITSDIR=
-endif
-ifeq ($(wildcard $(PACKAGESDIR)),)
-PACKAGESDIR=
-endif
-ifeq ($(wildcard $(COMPONENTSDIR)),)
-COMPONENTSDIR=
-endif
-
-
-# PACKAGESDIR packages
-
-PACKAGERTL=1
-PACKAGEFCL=1
-PACKAGEFPGFX=1
-PACKAGEFPGUI=1
-
-ifdef PACKAGERTL
-ifneq ($(wildcard $(FPCDIR)/rtl),)
-ifneq ($(wildcard $(FPCDIR)/rtl/$(OS_TARGET)),)
-PACKAGEDIR_RTL=$(FPCDIR)/rtl/$(OS_TARGET)
-else
-PACKAGEDIR_RTL=$(FPCDIR)/rtl
-endif
-ifeq ($(wildcard $(PACKAGEDIR_RTL)/$(FPCMADE)),)
-override COMPILEPACKAGES+=package_rtl
-package_rtl:
-	$(MAKE) -C $(PACKAGEDIR_RTL) all
-endif
-UNITDIR_RTL=$(PACKAGEDIR_RTL)
-else
-PACKAGEDIR_RTL=
-ifneq ($(wildcard $(UNITSDIR)/rtl),)
-ifneq ($(wildcard $(UNITSDIR)/rtl/$(OS_TARGET)),)
-UNITDIR_RTL=$(UNITSDIR)/rtl/$(OS_TARGET)
-else
-UNITDIR_RTL=$(UNITSDIR)/rtl
-endif
-else
-UNITDIR_RTL=
-endif
-endif
-ifdef UNITDIR_RTL
-override NEEDUNITDIR+=$(UNITDIR_RTL)
-endif
-endif
-ifdef PACKAGEFCL
-ifneq ($(wildcard $(FPCDIR)/fcl),)
-ifneq ($(wildcard $(FPCDIR)/fcl/$(OS_TARGET)),)
-PACKAGEDIR_FCL=$(FPCDIR)/fcl/$(OS_TARGET)
-else
-PACKAGEDIR_FCL=$(FPCDIR)/fcl
-endif
-ifeq ($(wildcard $(PACKAGEDIR_FCL)/$(FPCMADE)),)
-override COMPILEPACKAGES+=package_fcl
-package_fcl:
-	$(MAKE) -C $(PACKAGEDIR_FCL) all
-endif
-UNITDIR_FCL=$(PACKAGEDIR_FCL)
-else
-PACKAGEDIR_FCL=
-ifneq ($(wildcard $(UNITSDIR)/fcl),)
-ifneq ($(wildcard $(UNITSDIR)/fcl/$(OS_TARGET)),)
-UNITDIR_FCL=$(UNITSDIR)/fcl/$(OS_TARGET)
-else
-UNITDIR_FCL=$(UNITSDIR)/fcl
-endif
-else
-UNITDIR_FCL=
-endif
-endif
-ifdef UNITDIR_FCL
-override NEEDUNITDIR+=$(UNITDIR_FCL)
-endif
-endif
-ifdef PACKAGEFPGFX
-ifneq ($(wildcard $(PACKAGESDIR)/fpgfx),)
-ifneq ($(wildcard $(PACKAGESDIR)/fpgfx/$(OS_TARGET)),)
-PACKAGEDIR_FPGFX=$(PACKAGESDIR)/fpgfx/$(OS_TARGET)
-else
-PACKAGEDIR_FPGFX=$(PACKAGESDIR)/fpgfx
-endif
-ifeq ($(wildcard $(PACKAGEDIR_FPGFX)/$(FPCMADE)),)
-override COMPILEPACKAGES+=package_fpgfx
-package_fpgfx:
-	$(MAKE) -C $(PACKAGEDIR_FPGFX) all
-endif
-UNITDIR_FPGFX=$(PACKAGEDIR_FPGFX)
-else
-PACKAGEDIR_FPGFX=
-ifneq ($(wildcard $(UNITSDIR)/fpgfx),)
-ifneq ($(wildcard $(UNITSDIR)/fpgfx/$(OS_TARGET)),)
-UNITDIR_FPGFX=$(UNITSDIR)/fpgfx/$(OS_TARGET)
-else
-UNITDIR_FPGFX=$(UNITSDIR)/fpgfx
-endif
-else
-UNITDIR_FPGFX=
-endif
-endif
-ifdef UNITDIR_FPGFX
-override NEEDUNITDIR+=$(UNITDIR_FPGFX)
-endif
-endif
-ifdef PACKAGEFPGUI
-ifneq ($(wildcard $(PACKAGESDIR)/fpgui),)
-ifneq ($(wildcard $(PACKAGESDIR)/fpgui/$(OS_TARGET)),)
-PACKAGEDIR_FPGUI=$(PACKAGESDIR)/fpgui/$(OS_TARGET)
-else
-PACKAGEDIR_FPGUI=$(PACKAGESDIR)/fpgui
-endif
-ifeq ($(wildcard $(PACKAGEDIR_FPGUI)/$(FPCMADE)),)
-override COMPILEPACKAGES+=package_fpgui
-package_fpgui:
-	$(MAKE) -C $(PACKAGEDIR_FPGUI) all
-endif
-UNITDIR_FPGUI=$(PACKAGEDIR_FPGUI)
-else
-PACKAGEDIR_FPGUI=
-ifneq ($(wildcard $(UNITSDIR)/fpgui),)
-ifneq ($(wildcard $(UNITSDIR)/fpgui/$(OS_TARGET)),)
-UNITDIR_FPGUI=$(UNITSDIR)/fpgui/$(OS_TARGET)
-else
-UNITDIR_FPGUI=$(UNITSDIR)/fpgui
-endif
-else
-UNITDIR_FPGUI=
-endif
-endif
-ifdef UNITDIR_FPGUI
-override NEEDUNITDIR+=$(UNITDIR_FPGUI)
-endif
-endif
-
-
-#####################################################################
-# Default Directories
-#####################################################################
-
-# Linux and freebsd use unix dirs with /usr/bin, /usr/lib
-# When zipping use the target as default, when normal install then
-# use the source os as default
-ifdef ZIPNAME
-# Zipinstall
-ifeq ($(OS_TARGET),linux)
-UNIXINSTALLDIR=1
-endif
-ifeq ($(OS_TARGET),freebsd)
-UNIXINSTALLDIR=1
-endif
-else
-# Normal install
-ifeq ($(OS_SOURCE),linux)
-UNIXINSTALLDIR=1
-endif
-ifeq ($(OS_SOURCE),freebsd)
-UNIXINSTALLDIR=1
-endif
-endif
-
-# set the prefix directory where to install everything
-ifndef PREFIXINSTALLDIR
-ifdef UNIXINSTALLDIR
-PREFIXINSTALLDIR=/usr
-else
-PREFIXINSTALLDIR=/pp
-endif
-endif
-export PREFIXINSTALLDIR
-
-# Where to place the resulting zip files
-ifndef DESTZIPDIR
-DESTZIPDIR:=$(BASEDIR)
-endif
-export DESTZIPDIR
-
-#####################################################################
-# Install Directories
-#####################################################################
-
-# set the base directory where to install everything
-ifndef BASEINSTALLDIR
-ifdef UNIXINSTALLDIR
-BASEINSTALLDIR=$(PREFIXINSTALLDIR)/lib/fpc/$(FPC_VERSION)
-else
-BASEINSTALLDIR=$(PREFIXINSTALLDIR)
-endif
-endif
-
-# set the directory where to install the binaries
-ifndef BININSTALLDIR
-ifdef UNIXINSTALLDIR
-BININSTALLDIR=$(PREFIXINSTALLDIR)/bin
-else
-BININSTALLDIR=$(BASEINSTALLDIR)/bin/$(OS_TARGET)
-endif
-endif
-
-# set the directory where to install the units.
-ifndef UNITINSTALLDIR
-UNITINSTALLDIR=$(BASEINSTALLDIR)/units/$(OS_TARGET)
-ifdef UNITSUBDIR
-UNITINSTALLDIR:=$(UNITINSTALLDIR)/$(UNITSUBDIR)
-endif
-endif
-
-# Where to install shared libraries
-ifndef LIBINSTALLDIR
-ifdef UNIXINSTALLDIR
-LIBINSTALLDIR=$(PREFIXINSTALLDIR)/lib
-else
-LIBINSTALLDIR=$(UNITINSTALLDIR)
-endif
-endif
-
-# Where the source files will be stored
-ifndef SOURCEINSTALLDIR
-ifdef UNIXINSTALLDIR
-SOURCEINSTALLDIR=$(PREFIXINSTALLDIR)/src/fpc-$(FPC_VERSION)
-else
-SOURCEINSTALLDIR=$(BASEINSTALLDIR)/source
-endif
-ifdef SOURCESUBDIR
-SOURCEINSTALLDIR:=$(SOURCEINSTALLDIR)/$(SOURCESUBDIR)
-endif
-endif
-
-# Where the doc files will be stored
-ifndef DOCINSTALLDIR
-ifdef UNIXINSTALLDIR
-DOCINSTALLDIR=$(PREFIXINSTALLDIR)/doc/fpc-$(FPC_VERSION)
-else
-DOCINSTALLDIR=$(BASEINSTALLDIR)/doc
-endif
-endif
-
-# Where to install the examples, under linux we use the doc dir
-# because the copytree command will create a subdir itself
-ifndef EXAMPLEINSTALLDIR
-ifdef UNIXINSTALLDIR
-EXAMPLEINSTALLDIR=$(DOCINSTALLDIR)/examples
-else
-EXAMPLEINSTALLDIR=$(BASEINSTALLDIR)/examples
-endif
-ifdef EXAMPLESUBDIR
-EXAMPLEINSTALLDIR:=$(EXAMPLEINSTALLDIR)/$(EXAMPLESUBDIR)
-endif
-endif
-
-# Where the some extra (data)files will be stored
-ifndef DATAINSTALLDIR
-DATAINSTALLDIR=$(BASEINSTALLDIR)
-endif
-
-#####################################################################
-# Redirection
-#####################################################################
-
-ifndef REDIRFILE
-REDIRFILE=log
-endif
-
-ifdef REDIR
-ifndef inUnix
-override FPC=redir -eo $(FPC)
-endif
-# set the verbosity to max
-override FPCOPT+=-va
-override REDIR:= >> $(REDIRFILE)
-endif
-
-
-#####################################################################
-# Compiler Command Line
-#####################################################################
-
-# Load commandline OPTDEF and add FPC_CPU define
-override FPCOPTDEF:=-d$(CPU_TARGET)
-
-# Load commandline OPT and add target and unit dir to be sure
-ifneq ($(OS_TARGET),$(OS_SOURCE))
-override FPCOPT+=-T$(OS_TARGET)
-endif
-
-# User dirs should be first, so they are looked at first
-ifdef UNITDIR
-override FPCOPT+=$(addprefix -Fu,$(UNITDIR))
-endif
-ifdef LIBDIR
-override FPCOPT+=$(addprefix -Fl,$(LIBDIR))
-endif
-ifdef OBJDIR
-override FPCOPT+=$(addprefix -Fo,$(OBJDIR))
-endif
-ifdef INCDIR
-override FPCOPT+=$(addprefix -Fi,$(INCDIR))
-endif
-
-# Smartlinking
-ifdef LINKSMART
-override FPCOPT+=-XX
-endif
-
-# Smartlinking creation
-ifdef CREATESMART
-override FPCOPT+=-CX
-endif
-
-# Debug
-ifdef DEBUG
-override FPCOPT+=-gl -dDEBUG
-endif
-
-# Release mode (strip, optimize and don't load ppc386.cfg)
-# 0.99.12b has a bug in the optimizer so don't use it by default
-ifdef RELEASE
-ifeq ($(FPC_VERSION),0.99.12)
-override FPCOPT+=-Xs -OGp3 -n
-else
-override FPCOPT+=-Xs -OG2p3 -n
-endif
-endif
-
-# Strip
-ifdef STRIP
-override FPCOPT+=-Xs
-endif
-
-# Optimizer
-ifdef OPTIMIZE
-override FPCOPT+=-OG2p3
-endif
-
-# Verbose settings (warning,note,info)
-ifdef VERBOSE
-override FPCOPT+=-vwni
-endif
-
-ifdef NEEDOPT
-override FPCOPT+=$(NEEDOPT)
-endif
-
-ifdef NEEDUNITDIR
-override FPCOPT+=$(addprefix -Fu,$(NEEDUNITDIR))
-endif
-
-ifdef UNITSDIR
-override FPCOPT+=-Fu$(UNITSDIR)
-endif
-
-# Target dirs and the prefix to use for clean/install
-ifdef TARGETDIR
-override FPCOPT+=-FE$(TARGETDIR)
-ifeq ($(TARGETDIR),.)
-override TARGETDIRPREFIX=
-else
-override TARGETDIRPREFIX=$(TARGETDIR)/
-endif
-endif
-ifdef UNITTARGETDIR
-override FPCOPT+=-FU$(UNITTARGETDIR)
-ifeq ($(UNITTARGETDIR),.)
-override UNITTARGETDIRPREFIX=
-else
-override UNITTARGETDIRPREFIX=$(TARGETDIR)/
-endif
-else
-ifdef TARGETDIR
-override UNITTARGETDIR=$(TARGETDIR)
-override UNITTARGETDIRPREFIX=$(TARGETDIRPREFIX)
-endif
-endif
-
-# Add commandline options last so they can override
-ifdef OPT
-override FPCOPT+=$(OPT)
-endif
-
-# Add defines from FPCOPTDEF to FPCOPT
-ifdef FPCOPTDEF
-override FPCOPT+=$(FPCOPTDEF)
-endif
-
-# Error file ?
-ifdef ERRORFILE
-override FPCOPT+=-Fr$(ERRORFILE)
-endif
-
-# Was a config file specified ?
-ifdef CFGFILE
-override FPCOPT+=@$(CFGFILE)
-endif
-
-# For win32 the options are passed using the environment FPCEXTCMD
-ifeq ($(OS_SOURCE),win32)
-override FPCEXTCMD:=$(FPCOPT)
-override FPCOPT:=!FPCEXTCMD
-export FPCEXTCMD
-endif
-
-# Compiler commandline
-override COMPILER:=$(FPC) $(FPCOPT)
-
-# also call ppas if with command option -s
-# but only if the OS_SOURCE and OS_TARGE are equal
-ifeq (,$(findstring -s ,$(COMPILER)))
-EXECPPAS=
-else
-ifeq ($(OS_SOURCE),$(OS_TARGET))
-EXECPPAS:=@$(PPAS)
-endif
-endif
-
-#####################################################################
-# Standard rules
-#####################################################################
-
-all: fpc_all
-
-debug: fpc_debug
-
-smart: fpc_smart
-
-shared: fpc_shared
-
-showinstall: fpc_showinstall
-
-install: fpc_install
-
-sourceinstall: fpc_sourceinstall
-
-exampleinstall: fpc_exampleinstall
-
-zipinstall: fpc_zipinstall
-
-zipsourceinstall: fpc_zipsourceinstall
-
-zipexampleinstall: fpc_zipexampleinstall
-
-clean: fpc_clean
-
-distclean: fpc_distclean
-
-cleanall: fpc_cleanall
-
-info: fpc_info
-
-.PHONY:  all debug smart shared showinstall install sourceinstall exampleinstall zipinstall zipsourceinstall zipexampleinstall clean distclean cleanall info
-
-#####################################################################
-# Exes
-#####################################################################
-
-.PHONY: fpc_exes
-
-ifdef EXEOBJECTS
-override EXEFILES=$(addsuffix $(EXEEXT),$(EXEOBJECTS))
-override EXEOFILES:=$(addsuffix $(OEXT),$(EXEOBJECTS)) $(addprefix $(LIBPREFIX),$(addsuffix $(STATICLIBEXT),$(EXEOBJECTS)))
-
-override ALLTARGET+=fpc_exes
-override INSTALLEXEFILES+=$(EXEFILES)
-override CLEANEXEFILES+=$(EXEFILES) $(EXEOFILES)
-
-endif
-
-fpc_exes: $(EXEFILES)
-
-#####################################################################
-# General compile rules
-#####################################################################
-
-.PHONY: fpc_packages fpc_all fpc_debug
-
-$(FPCMADE): $(ALLTARGET)
-	@$(ECHO) Compiled > $(FPCMADE)
-
-fpc_packages: $(COMPILEPACKAGES)
-
-fpc_all: fpc_packages $(FPCMADE)
-
-fpc_debug:
-	$(MAKE) all DEBUG=1
-
-# Search paths for .ppu if targetdir is set
-ifdef UNITTARGETDIR
-vpath %$(PPUEXT) $(UNITTARGETDIR)
-endif
-
-# General compile rules, available for both possible PASEXT
-
-.SUFFIXES: $(EXEEXT) $(PPUEXT) $(OEXT) .pas .pp
-
-%$(PPUEXT): %.pp
-	$(COMPILER) $< $(REDIR)
-	$(EXECPPAS)
-
-%$(PPUEXT): %.pas
-	$(COMPILER) $< $(REDIR)
-	$(EXECPPAS)
-
-%$(EXEEXT): %.pp
-	$(COMPILER) $< $(REDIR)
-	$(EXECPPAS)
-
-%$(EXEEXT): %.pas
-	$(COMPILER) $< $(REDIR)
-	$(EXECPPAS)
-
-#####################################################################
-# Library
-#####################################################################
-
-.PHONY: fpc_smart fpc_shared
-
-ifdef LIBVERSION
-LIBFULLNAME=$(LIBNAME).$(LIBVERSION)
-else
-LIBFULLNAME=$(LIBNAME)
-endif
-
-# Default sharedlib units are all unit objects
-ifndef SHAREDLIBUNITOBJECTS
-SHAREDLIBUNITOBJECTS:=$(UNITOBJECTS)
-endif
-
-fpc_smart:
-	$(MAKE) all LINKSMART=1 CREATESMART=1
-
-fpc_shared: all
-ifdef HASSHAREDLIB
-ifndef LIBNAME
-	@$(ECHO) "LIBNAME not set"
-else
-	$(PPUMOVE) $(SHAREDLIBUNITOBJECTS) -o$(LIBFULLNAME)
-endif
-else
-	@$(ECHO) "Shared Libraries not supported"
-endif
-
-#####################################################################
-# Install rules
-#####################################################################
-
-.PHONY: fpc_showinstall fpc_install
-
-ifdef EXTRAINSTALLUNITS
-override INSTALLPPUFILES+=$(addsuffix $(PPUEXT),$(EXTRAINSTALLUNITS))
-endif
-
-ifdef INSTALLPPUFILES
-override INSTALLPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(INSTALLPPUFILES))
-ifdef PPUFILES
-INSTALLPPULINKFILES:=$(shell $(PPUFILES) -S -O $(INSTALLPPUFILES))
-else
-INSTALLPPULINKFILES:=$(wildcard $(subst $(PPUEXT),$(OEXT),$(INSTALLPPUFILES)) $(addprefix $(LIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(INSTALLPPUFILES))))
-endif
-override INSTALLPPULINKFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(INSTALLPPULINKFILES))
-endif
-
-ifdef INSTALLEXEFILES
-override INSTALLEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(INSTALLEXEFILES))
-endif
-
-fpc_showinstall: $(SHOWINSTALLTARGET)
-ifdef INSTALLEXEFILES
-	@$(ECHO) -e $(addprefix "\n"$(BININSTALLDIR)/,$(INSTALLEXEFILES))
-endif
-ifdef INSTALLPPUFILES
-	@$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPUFILES))
-ifneq ($(INSTALLPPULINKFILES),)
-	@$(ECHO) -e $(addprefix "\n"$(UNITINSTALLDIR)/,$(INSTALLPPULINKFILES))
-endif
-ifneq ($(wildcard $(LIBFULLNAME)),)
-	@$(ECHO) $(LIBINSTALLDIR)/$(LIBFULLNAME)
-ifdef HASSHAREDLIB
-	@$(ECHO) $(LIBINSTALLDIR)/$(LIBNAME)
-endif
-endif
-endif
-ifdef EXTRAINSTALLFILES
-	@$(ECHO) -e $(addprefix "\n"$(DATAINSTALLDIR)/,$(EXTRAINSTALLFILES))
-endif
-
-fpc_install: $(INSTALLTARGET)
-# Create UnitInstallFiles
-ifdef INSTALLEXEFILES
-	$(MKDIR) $(BININSTALLDIR)
-# Compress the exes if upx is defined
-ifdef UPXPROG
-	-$(UPXPROG) $(INSTALLEXEFILES)
-endif
-	$(INSTALLEXE) $(INSTALLEXEFILES) $(BININSTALLDIR)
-endif
-ifdef INSTALLPPUFILES
-	$(MKDIR) $(UNITINSTALLDIR)
-	$(INSTALL) $(INSTALLPPUFILES) $(UNITINSTALLDIR)
-ifneq ($(INSTALLPPULINKFILES),)
-	$(INSTALL) $(INSTALLPPULINKFILES) $(UNITINSTALLDIR)
-endif
-ifneq ($(wildcard $(LIBFULLNAME)),)
-	$(MKDIR) $(LIBINSTALLDIR)
-	$(INSTALL) $(LIBFULLNAME) $(LIBINSTALLDIR)
-ifdef inUnix
-	ln -sf $(LIBFULLNAME) $(LIBINSTALLDIR)/$(LIBNAME)
-endif
-endif
-endif
-ifdef EXTRAINSTALLFILES
-	$(MKDIR) $(DATAINSTALLDIR)
-	$(INSTALL) $(EXTRAINSTALLFILES) $(DATAINSTALLDIR)
-endif
-
-#####################################################################
-# SourceInstall rules
-#####################################################################
-
-.PHONY: fpc_sourceinstall
-
-ifndef SOURCETOPDIR
-SOURCETOPDIR=$(BASEDIR)
-endif
-
-fpc_sourceinstall: clean
-	$(MKDIR) $(SOURCEINSTALLDIR)
-	$(COPYTREE) $(SOURCETOPDIR) $(SOURCEINSTALLDIR)
-
-#####################################################################
-# exampleinstall rules
-#####################################################################
-
-.PHONY: fpc_exampleinstall
-
-fpc_exampleinstall: $(addsuffix _clean,$(EXAMPLEDIROBJECTS))
-ifdef EXAMPLESOURCEFILES
-	$(MKDIR) $(EXAMPLEINSTALLDIR)
-	$(COPY) $(EXAMPLESOURCEFILES) $(EXAMPLEINSTALLDIR)
-endif
-ifdef EXAMPLEDIROBJECTS
-ifndef EXAMPLESOURCEFILES
-	$(MKDIR) $(EXAMPLEINSTALLDIR)
-endif
-	$(COPYTREE) $(addsuffix /*,$(EXAMPLEDIROBJECTS)) $(EXAMPLEINSTALLDIR)
-endif
-
-#####################################################################
-# Zip
-#####################################################################
-
-.PHONY: fpc_zipinstall
-
-# Create suffix to add
-ifndef PACKAGESUFFIX
-PACKAGESUFFIX=$(OS_TARGET)
-ifeq ($(OS_TARGET),go32v2)
-PACKAGESUFFIX=go32
-endif
-ifeq ($(OS_TARGET),win32)
-PACKAGESUFFIX=w32
-endif
-endif
-
-# Temporary path to pack a file
-ifndef PACKDIR
-ifndef inUnix
-PACKDIR=$(BASEDIR)/pack_tmp
-else
-PACKDIR=/tmp/fpc-pack
-endif
-endif
-
-# Maybe create default zipname from packagename
-ifndef ZIPNAME
-ifdef PACKAGENAME
-ZIPNAME=$(PACKAGEPREFIX)$(PACKAGENAME)$(PACKAGESUFFIX)
-endif
-endif
-
-# Use tar by default under linux
-ifndef USEZIP
-ifdef inUnix
-USETAR=1
-endif
-endif
-
-fpc_zipinstall:
-ifndef ZIPNAME
-	@$(ECHO) "Please specify ZIPNAME!"
-	@exit 1
-else
-	$(MAKE) $(ZIPTARGET) PREFIXINSTALLDIR=$(PACKDIR)
-ifdef USETAR
-	$(DEL) $(DESTZIPDIR)/$(ZIPNAME)$(TAREXT)
-	cd $(PACKDIR) ; $(TARPROG) cf$(TAROPT) $(DESTZIPDIR)/$(ZIPNAME)$(TAREXT) * ; cd $(BASEDIR)
-else
-	$(DEL) $(DESTZIPDIR)/$(ZIPNAME)$(ZIPEXT)
-	cd $(PACKDIR) ; $(ZIPPROG) -Dr $(ZIPOPT) $(DESTZIPDIR)/$(ZIPNAME)$(ZIPEXT) * ; cd $(BASEDIR)
-endif
-	$(DELTREE) $(PACKDIR)
-endif
-
-.PHONY:  fpc_zipsourceinstall
-
-fpc_zipsourceinstall:
-	$(MAKE) fpc_zipinstall ZIPTARGET=sourceinstall PACKAGESUFFIX=src
-
-.PHONY:  fpc_zipexampleinstall
-
-fpc_zipexampleinstall:
-	$(MAKE) fpc_zipinstall ZIPTARGET=exampleinstall PACKAGESUFFIX=exm
-
-#####################################################################
-# Clean rules
-#####################################################################
-
-.PHONY: fpc_clean fpc_cleanall fpc_distclean
-
-ifdef EXEFILES
-override CLEANEXEFILES:=$(addprefix $(TARGETDIRPREFIX),$(CLEANEXEFILES))
-endif
-
-ifdef EXTRACLEANUNITS
-override CLEANPPUFILES+=$(addsuffix $(PPUEXT),$(EXTRACLEANUNITS))
-endif
-
-ifdef CLEANPPUFILES
-override CLEANPPUFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPUFILES))
-# Get the .o and .a files created for the units
-ifdef PPUFILES
-CLEANPPULINKFILES:=$(shell $(PPUFILES) $(CLEANPPUFILES))
-else
-CLEANPPULINKFILES:=$(wildcard $(subst $(PPUEXT),$(OEXT),$(CLEANPPUFILES)) $(addprefix $(LIBPREFIX),$(subst $(PPUEXT),$(STATICLIBEXT),$(CLEANPPUFILES))))
-endif
-override CLEANPPULINKFILES:=$(addprefix $(UNITTARGETDIRPREFIX),$(CLEANPPULINKFILES))
-endif
-
-fpc_clean: $(CLEANTARGET)
-ifdef CLEANEXEFILES
-	-$(DEL) $(CLEANEXEFILES)
-endif
-ifdef CLEANPPUFILES
-	-$(DEL) $(CLEANPPUFILES)
-endif
-ifneq ($(CLEANPPULINKFILES),)
-	-$(DEL) $(CLEANPPULINKFILES)
-endif
-ifdef CLEANRSTFILES
-	-$(DEL) $(addprefix $(UNITTARGETDIRPREFIX),$(CLEANRSTFILES))
-endif
-ifdef EXTRACLEANFILES
-	-$(DEL) $(EXTRACLEANFILES)
-endif
-ifdef LIBNAME
-	-$(DEL) $(LIBNAME) $(LIBFULLNAME)
-endif
-	-$(DEL) $(FPCMADE) $(PPAS) link.res $(FPCEXTFILE) $(REDIRFILE)
-
-fpc_distclean: fpc_clean
-
-# Also run clean first if targetdir is set. Unittargetdir is always
-# set if targetdir or unittargetdir is specified
-ifdef UNITTARGETDIR
-TARGETDIRCLEAN=fpc_clean
-endif
-
-fpc_cleanall: $(CLEANTARGET) $(TARGETDIRCLEAN)
-ifdef CLEANEXEFILES
-	-$(DEL) $(CLEANEXEFILES)
-endif
-	-$(DEL) *$(OEXT) *$(PPUEXT) *$(RSTEXT) *$(ASMEXT) *$(STATICLIBEXT) *$(SHAREDLIBEXT) *$(PPLEXT)
-	-$(DELTREE) *$(SMARTEXT)
-	-$(DEL) $(FPCMADE) $(PPAS) link.res $(FPCEXTFILE) $(REDIRFILE)
-
-#####################################################################
-# Info rules
-#####################################################################
-
-.PHONY: fpc_info fpc_cfginfo fpc_objectinfo fpc_toolsinfo fpc_installinfo \
-	fpc_dirinfo
-
-fpc_info: $(INFOTARGET)
-
-fpc_infocfg:
-	@$(ECHO)
-	@$(ECHO)  == Configuration info ==
-	@$(ECHO)
-	@$(ECHO)  FPC....... $(FPC)
-	@$(ECHO)  Version... $(FPC_VERSION)
-	@$(ECHO)  CPU....... $(CPU_TARGET)
-	@$(ECHO)  Source.... $(OS_SOURCE)
-	@$(ECHO)  Target.... $(OS_TARGET)
-	@$(ECHO)
-
-fpc_infoobjects:
-	@$(ECHO)
-	@$(ECHO)  == Object info ==
-	@$(ECHO)
-	@$(ECHO)  LoaderObjects..... $(LOADEROBJECTS)
-	@$(ECHO)  UnitObjects....... $(UNITOBJECTS)
-	@$(ECHO)  ExeObjects........ $(EXEOBJECTS)
-	@$(ECHO)
-	@$(ECHO)  ExtraCleanUnits... $(EXTRACLEANUNITS)
-	@$(ECHO)  ExtraCleanFiles... $(EXTRACLEANFILES)
-	@$(ECHO)
-	@$(ECHO)  ExtraInstallUnits. $(EXTRAINSTALLUNITS)
-	@$(ECHO)  ExtraInstallFiles. $(EXTRAINSTALLFILES)
-	@$(ECHO)
-
-fpc_infoinstall:
-	@$(ECHO)
-	@$(ECHO)  == Install info ==
-	@$(ECHO)
-ifdef DATE
-	@$(ECHO)  DateStr.............. $(DATESTR)
-endif
-ifdef PACKAGEPREFIX
-	@$(ECHO)  PackagePrefix........ $(PACKAGEPREFIX)
-endif
-ifdef PACKAGENAME
-	@$(ECHO)  PackageName.......... $(PACKAGENAME)
-endif
-	@$(ECHO)  PackageSuffix........ $(PACKAGESUFFIX)
-	@$(ECHO)
-	@$(ECHO)  BaseInstallDir....... $(BASEINSTALLDIR)
-	@$(ECHO)  BinInstallDir........ $(BININSTALLDIR)
-	@$(ECHO)  LibInstallDir........ $(LIBINSTALLDIR)
-	@$(ECHO)  UnitInstallDir....... $(UNITINSTALLDIR)
-	@$(ECHO)  SourceInstallDir..... $(SOURCEINSTALLDIR)
-	@$(ECHO)  DocInstallDir........ $(DOCINSTALLDIR)
-	@$(ECHO)  DataInstallDir....... $(DATAINSTALLDIR)
-	@$(ECHO)
-	@$(ECHO)  DestZipDir........... $(DESTZIPDIR)
-	@$(ECHO)  ZipName.............. $(ZIPNAME)
-	@$(ECHO)
-
-#####################################################################
-# Local Makefile
-#####################################################################
-
-ifneq ($(wildcard fpcmake.loc),)
-include fpcmake.loc
-endif
-
diff --git a/examples/gui/widgettest/Makefile.fpc b/examples/gui/widgettest/Makefile.fpc
deleted file mode 100644
index 57009620..00000000
--- a/examples/gui/widgettest/Makefile.fpc
+++ /dev/null
@@ -1,10 +0,0 @@
-#
-#   Makefile.fpc for fpGUI WidgetTest example
-#
-
-[targets]
-programs=widgettest
-
-[require]
-options=-S2h
-packages=fcl fpgfx fpgui
diff --git a/examples/gui/widgettest/checkboxform.frm b/examples/gui/widgettest/checkboxform.frm
deleted file mode 100644
index 6b0ec377..00000000
--- a/examples/gui/widgettest/checkboxform.frm
+++ /dev/null
@@ -1,17 +0,0 @@
-object CheckBoxForm: TCheckBoxForm
-  BorderWidth = 8
-  Text = 'Check box test'
-  object Box: TFBoxLayout
-    Orientation = Vertical
-    object GrayCheckBox: TFCheckBox
-      Text = 'Gray other check boxes'
-      OnClick = GrayCheckBoxClick
-    end
-    object CheckBox1: TFCheckBox
-      Text = 'First other check box'
-    end
-    object CheckBox2: TFCheckBox
-      Text = 'Second other check box'
-    end
-  end
-end
diff --git a/examples/gui/widgettest/comboboxform.frm b/examples/gui/widgettest/comboboxform.frm
deleted file mode 100644
index 4953eccf..00000000
--- a/examples/gui/widgettest/comboboxform.frm
+++ /dev/null
@@ -1,19 +0,0 @@
-object ComboBoxForm: TComboBoxForm
-  BorderWidth = 8
-  Text = 'Combo box test'
-  OnCreate = FormCreate
-  object VertBox: TFBoxLayout
-    Orientation = Vertical
-    object GrayCheckBox: TFCheckBox
-      Text = 'Gray combo boxes'
-      OnClick = GrayCheckBoxClick
-    end
-    object BetaLabel: TFLabel
-      Text = '(the drop-down lists are work in progress)'
-    end
-    object ComboBox1: TFComboBox
-    end
-    object ComboBox2: TFComboBox
-    end
-  end
-end
diff --git a/examples/gui/widgettest/editform.frm b/examples/gui/widgettest/editform.frm
deleted file mode 100644
index 8e8c97de..00000000
--- a/examples/gui/widgettest/editform.frm
+++ /dev/null
@@ -1,85 +0,0 @@
-object EditForm: TEditForm

-  BorderWidth = 8

-  Text = 'Edit field test'

-  object Grid: TFGridLayout

-    ColCount = 3

-    RowCount = 5

-    GridPositions = <

-      item

-	      Widget = Label1

-      end

-      item

-	      x = 1

-	      Widget = Edit1

-      end

-      item

-	      x = 2

-	      Widget = GrayCheckBox1

-      end

-      item

-        y = 1

-	      width = 3

-	      Widget = Separator

-      end

-      item

-        y = 2

-	      Widget = Label2

-      end

-      item

-	      x = 1

-        y = 2

-	      Widget = Edit2

-      end

-      item

-	      x = 2

-        y = 2

-	      Widget = GrayCheckBox2

-      end

-      item

-        x = 1

-	      y = 3

-	      Widget = PasswordDisplay

-      end

-      item

-	      Widget = cbBorderStyle

-        x = 2

-	      y = 4

-	      Width = 1

-	      Height = 1

-      end>

-    object Label1: TFLabel

-      Text = 'Normal edit field:'

-      CanExpandWidth = False

-    end

-    object Edit1: TFEdit

-      Text = 'Edit1'

-    end

-    object GrayCheckBox1: TFCheckBox

-      Text = 'Disabled'

-      OnClick = GrayCheckBox1Click

-    end

-    object Separator: TSeparator

-    end

-    object Label2: TFLabel

-      Text = 'Password edit field:'

-      CanExpandWidth = False

-    end

-    object Edit2: TFEdit

-      PasswordChar = '*'

-      Text = 'Edit2'

-      OnChange = Edit2Change

-    end

-    object GrayCheckBox2: TFCheckBox

-      Text = 'Show Text'

-      OnClick = GrayCheckBox2Click

-    end

-    object PasswordDisplay: TFLabel

-      Text = '(Password field)'

-      CanExpandWidth = False

-    end

-    object cbBorderStyle: TFButton

-      Text = 'Alternate Border Style'

-      OnClick = cbBorderStyleClick

-    end

-  end

-end
diff --git a/examples/gui/widgettest/gridform.frm b/examples/gui/widgettest/gridform.frm
deleted file mode 100644
index 26680064..00000000
--- a/examples/gui/widgettest/gridform.frm
+++ /dev/null
@@ -1,9 +0,0 @@
-object GridForm: TGridForm
-  BorderWidth = 8
-  Text = 'Grid test'
-  OnCreate = FormCreate
-  object StringGrid: TFStringGrid
-    ColCount = 10
-    RowCount = 15
-  end
-end
diff --git a/examples/gui/widgettest/groupboxform.frm b/examples/gui/widgettest/groupboxform.frm
deleted file mode 100644
index e3b7111e..00000000
--- a/examples/gui/widgettest/groupboxform.frm
+++ /dev/null
@@ -1,49 +0,0 @@
-object GroupBoxForm: TGroupBoxForm
-  BorderWidth = 8
-  Text = 'Group box test'
-  object HorzBox: TFBoxLayout
-    VertAlign = vertTop
-    object GroupBox1: TFGroupBox
-      Text = 'Group box #1'
-      object VertBox1: TFBoxLayout
-        Orientation = Vertical
-        object GrayCheckBox: TFCheckBox
-          Text = 'Gray other group box'
-	  OnClick = GrayCheckBoxClick
-        end
-        object Button: TFButton
-	  Enabled = False
-          Text = 'Reset radio buttons'
-	  OnClick = ButtonClick
-	end
-      end
-    end
-    object GroupBox2: TFGroupBox
-      Text = 'Group box #2'
-      object VertBox2: TFBoxLayout
-        Orientation = Vertical
-	object Radio1: TFRadioButton
-	  Checked = True
-	  Text = 'Option 1'
-	  OnClick = RadioButtonClick
-	end
-	object Radio2: TFRadioButton
-	  Text = 'Option 2'
-	  OnClick = RadioButtonClick
-	end
-	object Radio3: TFRadioButton
-	  Text = 'Option 3'
-	  OnClick = RadioButtonClick
-	end
-	object Radio4: TFRadioButton
-	  Text = 'Option 4'
-	  OnClick = RadioButtonClick
-	end
-	object Radio5: TFRadioButton
-	  Text = 'Option 5'
-	  OnClick = RadioButtonClick
-	end
-      end
-    end
-  end
-end
diff --git a/examples/gui/widgettest/listboxform.frm b/examples/gui/widgettest/listboxform.frm
deleted file mode 100644
index 2071b122..00000000
--- a/examples/gui/widgettest/listboxform.frm
+++ /dev/null
@@ -1,23 +0,0 @@
-object ListBoxForm: TListBoxForm
-  BorderWidth = 8
-  Text = 'List box test'
-  object ListBox: TFListBox
-    Items.Strings = (
-      'procedure KeyPressed(var Event: TXKeyPressedEvent); message X.KeyPress;'
-      'procedure KeyReleased(var Event: TXKeyReleasedEvent); message X.KeyRelease;'
-      'procedure ButtonPressed(var Event: TXButtonPressedEvent); message X.ButtonPress;'
-      'procedure ButtonReleased(var Event: TXButtonReleasedEvent); message X.ButtonRelease;'
-      'procedure EnterWindow(var Event :TXEnterWindowEvent); message X.EnterNotify;'
-      'procedure LeaveWindow(var Event :TXLeaveWindowEvent); message X.LeaveNotify;'
-      'procedure PointerMoved(var Event: TXPointerMovedEvent); message X.MotionNotify;'
-      'procedure Expose(var Event: TXExposeEvent); message X.Expose;'
-      'procedure FocusIn(var Event: TXFocusInEvent); message X.FocusIn;'
-      'procedure FocusOut(var Event: TXFocusOutEvent); message X.FocusOut;'
-      'procedure Map(var Event: TXMapEvent); message X.MapNotify;'
-      'procedure Unmap(var Event: TXUnmapEvent); message X.UnmapNotify;'
-      'procedure Reparent(var Event: TXReparentEvent); message X.ReparentNotify;'
-      'procedure DestroyWindow(var Event: TXDestroyWindowEvent); message X.DestroyNotify;'
-      'procedure Configure(var Event: TXConfigureEvent); message X.ConfigureNotify;'
-      'procedure ClientMessage(var Event: TXClientMessageEvent); message X.ClientMessage;')
-  end
-end
diff --git a/examples/gui/widgettest/mainform.frm b/examples/gui/widgettest/mainform.frm
deleted file mode 100644
index bf91f0fd..00000000
--- a/examples/gui/widgettest/mainform.frm
+++ /dev/null
@@ -1,91 +0,0 @@
-object MainForm: TMainForm

-  Text = 'Widget tests'

-  BorderWidth = 8

-  WindowOptions = [woWindow]

-  object Box: TFBoxLayout

-    CanExpandWidth = False

-    Spacing = 8

-    Orientation = Vertical

-    object Label: TFLabel

-      CanExpandWidth = True

-      Text = 'Choose a test form:'

-    end

-    object CheckboxBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Check boxes'

-      OnClick = CheckboxBtnClick

-    end

-    object RadioButtonBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Radio buttons'

-      OnClick = RadioButtonBtnClick

-    end

-    object GroupBoxBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Group boxes'

-      OnClick = GroupBoxBtnClick

-    end

-    object EditBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Edit fields'

-      OnClick = EditBtnClick

-    end

-    object ScrollBarBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Scroll bars'

-      OnClick = ScrollBarBtnClick

-    end

-    object ScrollBoxBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Scroll boxes'

-      OnClick = ScrollBoxBtnClick

-    end

-    object ListBoxBtn: TFButton

-      CanExpandWidth = True

-      Text = 'List boxes'

-      OnClick = ListBoxBtnClick

-    end

-    object ComboBoxBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Combo boxes'

-      OnClick = ComboBoxBtnClick

-    end

-    object GridBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Grids'

-      OnClick = GridBtnClick

-    end

-    object MenuBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Menus'

-      OnClick = MenuBtnClick

-    end

-    object PanelBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Panel'

-      OnClick = PanelBtnClick

-    end

-    object ProgressBarBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Progress Bar'

-      OnClick = ProgressBarBtnClick

-    end

-    object MemoBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Memo widget'

-      OnClick = MemoBtnClick

-    end

-    object ShowMessageBtn: TFButton

-      CanExpandWidth = True

-      Text = 'ShowMessage()'

-      OnClick = ShowMessageBtnClick

-    end

-    object Separator: TSeparator

-    end

-    object ExitBtn: TFButton

-      CanExpandWidth = True

-      Text = 'Exit'

-      OnClick = ExitBtnClick

-    end

-  end

-end

diff --git a/examples/gui/widgettest/radiobuttonform.frm b/examples/gui/widgettest/radiobuttonform.frm
deleted file mode 100644
index 97e338c3..00000000
--- a/examples/gui/widgettest/radiobuttonform.frm
+++ /dev/null
@@ -1,33 +0,0 @@
-object RadioButtonForm: TRadioButtonForm
-  BorderWidth = 8
-  Text = 'Radio button test'
-  object Box: TFBoxLayout
-    Orientation = Vertical
-    object GrayCheckbox: TFCheckbox
-      Text = 'Gray radio buttons'
-      OnClick = GrayCheckboxClick
-    end
-    object HorzBox: TFBoxLayout
-      object ButtonBox1: TFBoxLayout
-        Orientation = Vertical
-        object Radio1a: TFRadioButton
-	        Checked = True
-          Text = 'Button 1 a'
-        end
-        object Radio1b: TFRadioButton
-          Text = 'Button 1 b'
-        end
-      end
-      object ButtonBox2: TFBoxLayout
-        Orientation = Vertical
-        object Radio2a: TFRadioButton
-          Text = 'Button 2 a'
-        end
-        object Radio2b: TFRadioButton
-	        Checked = True
-          Text = 'Button 2 b'
-        end
-      end
-    end
-  end
-end
diff --git a/examples/gui/widgettest/scrollbarform.frm b/examples/gui/widgettest/scrollbarform.frm
deleted file mode 100644
index bc820b77..00000000
--- a/examples/gui/widgettest/scrollbarform.frm
+++ /dev/null
@@ -1,175 +0,0 @@
-object ScrollBarForm: TScrollBarForm
-  BorderWidth = 8
-  Text = 'Scroll bar test'
-  object VertBox: TFBoxLayout
-    Orientation = Vertical
-    object GrayCheckBox: TFCheckBox
-      Text = 'Gray everything'
-      OnClick = GrayCheckBoxClick
-    end
-    object HorzBox: TFBoxLayout
-      object HorzGrid: TFGridLayout
-        ColCount = 3
-        RowCount = 6
-        ColSpacing = 8
-        GridPositions = <
-          item
-	    x = 2
-	    Widget = Col3Label
-	  end
-	  item
-	    y = 1
-	    Widget = Label1
-	  end
-	  item
-	    x = 1
-	    y = 1
-	    Widget = ScrollBar1
-	  end
-	  item
-	    x = 2
-	    y = 1
-	    Widget = PosLabel1
-	  end
-	  item
-	    y = 2
-	    Widget = Label2
-	  end
-	  item
-	    x = 1
-	    y = 2
-	    Widget = ScrollBar2
-	  end
-	  item
-	    x = 2
-	    y = 2
-	    Widget = PosLabel2
-	  end
-	  item
-	    y = 3
-	    Widget = Label3
-	  end
-	  item
-	    x = 1
-	    y = 3
-	    Widget = ScrollBar3
-	  end
-	  item
-	    x = 2
-	    y = 3
-	    Widget = PosLabel3
-	  end
-	  item
-	    y = 4
-	    Widget = Label4
-	  end
-	  item
-	    x = 1
-	    y = 4
-	    Widget = ScrollBar4
-	  end
-	  item
-	    x = 2
-	    y = 4
-	    Widget = PosLabel4
-	  end
-	  item
-	    y = 5
-	    Widget = Label5
-	  end
-	  item
-	    x = 1
-	    y = 5
-	    Widget = ScrollBar5
-	  end
-	  item
-	    x = 2
-	    y = 5
-	    Widget = PosLabel5
-	  end>
-        object Col3Label: TFLabel
-	  Alignment = taCenter
-          Text = 'Position'
-        end
-        object Label1: TFLabel
-	  Alignment = taRightJustify
-          Text = '0..1, PageSize=0:'
-        end
-        object ScrollBar1: TFScrollBar
-          Min = 0
-          Max = 1
-	  OnChange = ScrollBar1Change
-        end
-        object PosLabel1: TFLabel
-	  Alignment = taCenter
-          Text = '---'
-        end
-        object Label2: TFLabel
-	  Alignment = taRightJustify
-          Text = '0..1, PageSize=1:'
-        end
-        object ScrollBar2: TFScrollBar
-          Max = 1
-          PageSize = 1
-	  OnChange = ScrollBar2Change
-        end
-        object PosLabel2: TFLabel
-	  Alignment = taCenter
-          Text = '---'
-        end
-        object Label3: TFLabel
-	  Alignment = taRightJustify
-          Text = '-2..3, PageSize=0:'
-        end
-        object ScrollBar3: TFScrollBar
-          Min = -2
-          Max = 3
-	  OnChange = ScrollBar3Change
-        end
-        object PosLabel3: TFLabel
-	  Alignment = taCenter
-          Text = '---'
-        end
-        object Label4: TFLabel
-	  Alignment = taRightJustify
-          Text = '-5..9, PageSize=4:'
-        end
-        object ScrollBar4: TFScrollBar
-          Min = -5
-          Max = 9
-          PageSize = 4
-	  OnChange = ScrollBar4Change
-        end
-        object PosLabel4: TFLabel
-	  Alignment = taCenter
-          Text = '---'
-        end
-        object Label5: TFLabel
-	  Alignment = taRightJustify
-          Text = '-100..200, PageSize=7:'
-        end
-        object ScrollBar5: TFScrollBar
-          Min = -100
-          Max = 200
-          PageSize = 7
-	  OnChange = ScrollBar5Change
-        end
-        object PosLabel5: TFLabel
-	  Alignment = taCenter
-          Text = '---'
-	      end
-      end
-      object VertBar: TSeparator
-        Orientation = Vertical
-      end
-      object VerTFLabel: TFLabel
-        Text = 'Vertical:'
-      end
-      object VertScrollBar: TFScrollBar
-        Orientation = Vertical
-        Min = -2
-	Max = 3
-      end
-    end
-  end
-end
diff --git a/examples/gui/widgettest/scrollboxform.frm b/examples/gui/widgettest/scrollboxform.frm
deleted file mode 100644
index b83d47a1..00000000
--- a/examples/gui/widgettest/scrollboxform.frm
+++ /dev/null
@@ -1,14 +0,0 @@
-object ScrollBoxForm: TScrollBoxForm

-  BorderWidth = 8

-  Text = 'Scroll box test'

-  WindowOptions = [woWindow]

-  object VertLayout: TFBoxLayout

-    Orientation = Vertical

-    object Label1: TFLabel

-      CanExpandWidth = True

-      Text = 'ScrollBox should be transparent in this demo.'

-    end

-    object ScrollBox: TFScrollBox

-    end

-  end

-end

diff --git a/examples/gui/widgettest/widgettest.lpi b/examples/gui/widgettest/widgettest.lpi
deleted file mode 100644
index 6f4700f4..00000000
--- a/examples/gui/widgettest/widgettest.lpi
+++ /dev/null
@@ -1,55 +0,0 @@
-<?xml version="1.0"?>
-<CONFIG>
-  <ProjectOptions>
-    <PathDelim Value="/"/>
-    <Version Value="5"/>
-    <General>
-      <Flags>
-        <SaveOnlyProjectUnits Value="True"/>
-        <AlwaysBuild Value="False"/>
-      </Flags>
-      <SessionStorage Value="InProjectDir"/>
-      <MainUnit Value="0"/>
-      <IconPath Value="./"/>
-      <TargetFileExt Value=""/>
-    </General>
-    <PublishOptions>
-      <Version Value="2"/>
-      <IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
-      <ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
-    </PublishOptions>
-    <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-        <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/>
-      </local>
-    </RunParams>
-    <RequiredPackages Count="1">
-      <Item1>
-        <PackageName Value="fpguipackage"/>
-        <MinVersion Minor="3" Valid="True"/>
-      </Item1>
-    </RequiredPackages>
-    <Units Count="1">
-      <Unit0>
-        <Filename Value="widgettest.pas"/>
-        <IsPartOfProject Value="True"/>
-        <UnitName Value="WidgetTest"/>
-      </Unit0>
-    </Units>
-  </ProjectOptions>
-  <CompilerOptions>
-    <Version Value="5"/>
-    <Parsing>
-      <SyntaxOptions>
-        <IncludeAssertionCode Value="True"/>
-        <AllowLabel Value="False"/>
-      </SyntaxOptions>
-    </Parsing>
-    <Other>
-      <CustomOptions Value="-FUunits -dTraceEventsX -dDebugX
-"/>
-      <CompilerPath Value="$(CompPath)"/>
-    </Other>
-  </CompilerOptions>
-</CONFIG>
diff --git a/examples/gui/widgettest/widgettest.pas b/examples/gui/widgettest/widgettest.pas
deleted file mode 100644
index 22a70a89..00000000
--- a/examples/gui/widgettest/widgettest.pas
+++ /dev/null
@@ -1,887 +0,0 @@
-program WidgetTest;
-
-uses
-  SysUtils
-  ,Classes
-  ,fpGFX
-  ,fpGUI
-  ;
-
-type
-
-  // forward declarations
-  TCheckboxForm       = class;
-  TRadioButtonForm    = class;
-  TGroupBoxForm       = class;
-  TEditForm           = class;
-  TScrollBarForm      = class;
-  TScrollBoxForm      = class;
-  TListBoxForm        = class;
-  TComboBoxForm       = class;
-  TGridForm           = class;
-  TMenuForm           = class;
-  TPanelForm          = class;
-  TProgressBarForm    = class;
-  TMemoForm           = class;
-
-  { TMainForm }
-
-  TMainForm = class(TFForm)
-  private
-    _frmCheckBox: TCheckboxForm;
-    _frmRadioButton: TRadioButtonForm;
-    _frmGroupBox: TGroupBoxForm;
-    _frmEdit: TEditForm;
-    _frmScrollBar: TScrollBarForm;
-    _frmScrollBox: TScrollBoxForm;
-    _frmListBox: TListBoxForm;
-    _frmComboBox: TComboBoxForm;
-    _frmGrid: TGridForm;
-    _frmMenu: TMenuForm;
-    _frmPanel: TPanelForm;
-    _frmProgressBar: TProgressBarForm;
-    _frmMemo: TMemoForm;
-  public
-    constructor Create(AOwner: TComponent); override;
-    destructor  Destroy; override;
-  published
-    Box: TFBoxLayout;
-    Title: TFLabel;
-    CheckboxBtn: TFButton;
-    RadioButtonBtn: TFButton;
-    GroupBoxBtn: TFButton;
-    EditBtn: TFButton;
-    ScrollBarBtn: TFButton;
-    ScrollBoxBtn: TFButton;
-    ListBoxBtn: TFButton;
-    ComboBoxBtn: TFButton;
-    GridBtn: TFButton;
-    MenuBtn: TFButton;
-    PanelBtn: TFButton;
-    ProgressBarBtn: TFButton;
-    MemoBtn: TFButton;
-    ShowMessageBtn: TFButton;
-    Separator: TSeparator;
-    ExitBtn: TFButton;
-    procedure CheckBoxBtnClick(Sender: TObject);
-    procedure RadioButtonBtnClick(Sender: TObject);
-    procedure GroupBoxBtnClick(Sender: TObject);
-    procedure EditBtnClick(Sender: TObject);
-    procedure ScrollBarBtnClick(Sender: TObject);
-    procedure ScrollBoxBtnClick(Sender: TObject);
-    procedure ListBoxBtnClick(Sender: TObject);
-    procedure ComboBoxBtnClick(Sender: TObject);
-    procedure GridBtnClick(Sender: TObject);
-    procedure ExitBtnClick(Sender: TObject);
-    procedure MenuBtnClick(Sender: TObject);
-    procedure PanelBtnClick(Sender: TObject);
-    procedure ProgressBarBtnClick(Sender: TObject);
-    procedure MemoBtnClick(Sender: TObject);
-    procedure ShowMessageBtnClick(Sender: TObject);
-  end;
-
-
-  TTestForm = class(TFForm)
-  end;
-
-
-  TCheckboxForm = class(TTestForm)
-    Box: TFBoxLayout;
-    GrayCheckBox, CheckBox1, CheckBox2: TFCheckbox;
-    procedure GrayCheckBoxClick(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  TRadioButtonForm = class(TTestForm)
-    Box, HorzBox, ButtonBox1, ButtonBox2: TFBoxLayout;
-    GrayCheckBox: TFCheckbox;
-    Radio1a, Radio1b, Radio2a, Radio2b: TFRadioButton;
-    procedure GrayCheckBoxClick(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  TGroupBoxForm = class(TTestForm)
-    HorzBox, VertBox1, VertBox2: TFBoxLayout;
-    GroupBox1, GroupBox2: TFGroupBox;
-    GrayCheckBox: TFCheckbox;
-    Button: TFButton;
-    Radio1, Radio2, Radio3, Radio4, Radio5: TFRadioButton;
-    procedure GrayCheckBoxClick(Sender: TObject);
-    procedure ButtonClick(Sender: TObject);
-    procedure RadioButtonClick(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  { TEditForm }
-
-  TEditForm = class(TTestForm)
-  published
-    Grid: TFGridLayout;
-    VertBox, HorzBox1, HorzBox2: TFBoxLayout;
-    Label1, Label2, PasswordDisplay: TFLabel;
-    Edit1, Edit2: TFEdit;
-    GrayCheckBox1, GrayCheckBox2: TFCheckbox;
-    Separator: TSeparator;
-    cbBorderStyle: TFButton;
-    procedure GrayCheckBox1Click(Sender: TObject);
-    procedure GrayCheckBox2Click(Sender: TObject);
-    procedure cbBorderStyleClick(Sender: TObject);
-    procedure Edit2Change(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  TScrollBarForm = class(TTestForm)
-    VertLayout: TFBoxLayout;
-    GrayCheckBox: TFCheckbox;
-    HorzBox: TFBoxLayout;
-    HorzGrid, VertGrid: TFGridLayout;
-    VertBar: TSeparator;
-    VerTFLabel, Label1, Label2, Label3, Label4, Label5: TFLabel;
-    PosLabel1, PosLabel2, PosLabel3, PosLabel4, PosLabel5: TFLabel;
-    VerTFScrollBar, ScrollBar1, ScrollBar2, ScrollBar3,
-      ScrollBar4, ScrollBar5: TFScrollBar;
-    procedure GrayCheckBoxClick(Sender: TObject);
-    procedure ScrollBar1Change(Sender: TObject);
-    procedure ScrollBar2Change(Sender: TObject);
-    procedure ScrollBar3Change(Sender: TObject);
-    procedure ScrollBar4Change(Sender: TObject);
-    procedure ScrollBar5Change(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  TScrollBoxForm = class(TTestForm)
-    VertLayout: TFBoxLayout;
-    Label1: TFLabel;
-    ScrollBox: TFScrollBox;
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  TListBoxForm = class(TTestForm)
-    ListBox: TFListBox;
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  TComboBoxForm = class(TTestForm)
-  published
-    VertLayout: TFBoxLayout;
-    GrayCheckBox: TFCheckbox;
-    BetaLabel: TFLabel;
-    ComboBox1: TFComboBox;
-    ComboBox2: TFComboBox;
-    procedure GrayCheckBoxClick(Sender: TObject);
-    procedure FormCreate(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-
-  TGridForm = class(TTestForm)
-    StringGrid: TFStringGrid;
-    procedure FormCreate(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-  
-
-  { TMenuForm }
-
-  TMenuForm = class(TTestForm)
-  private
-    procedure   CloseMenuClicked(Sender: TObject);
-    procedure   AboutMenuClicked(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-  published
-    BoxLayout: TFBoxLayout;
-    MainMenu: TFMenuBar;
-    Title: TFLabel;
-    p1, p2, p3, p4, p5, p6: TFPanel;
-    MenuBox: TFBoxLayout;
-    Separator: TSeparator;
-  end;
-  
-  
-  TPanelForm = class(TTestForm)
-  private
-    procedure   RadioButtonClick(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-    destructor  Destroy; override;
-  published
-    MainLayout: TFBoxLayout;
-    StyleGroup: TFGroupBox;
-    rbPlain, rbLowered, rbRaised: TFRadioButton;
-    VBox1: TFBoxLayout;
-    Panel: TFPanel;
-    Separator: TSeparator;
-  end;
-  
-
-  TProgressBarForm = class(TTestForm)
-  private
-    procedure   cbShowPercentClick(Sender: TObject);
-    procedure   RadioButtonClick(Sender: TObject);
-    procedure   GeneratePercentage(Sender: TObject);
-  public
-    constructor Create(AOwner: TComponent); override;
-    destructor  Destroy; override;
-  published
-    MainLayout: TFGridLayout;
-    VBox: TFBoxLayout;
-    PB: TFProgressBar;
-    cbShowPercent: TFCheckbox;
-    gbColor: TFGroupBox;
-    rbBlue: TFRadioButton;
-    rbRed: TFRadioButton;
-    rbGreen: TFRadioButton;
-    Separator: TSeparator;
-    btnRandom: TFButton;
-  end;
-  
-  
-  { TMemoForm }
-
-  TMemoForm = class(TTestForm)
-  private
-    BoxLayout: TFBoxLayout;
-    Memo: TFMemo;
-    lblTitle: TFLabel;
-  public
-    constructor Create(AOwner: TComponent); override;
-  end;
-
-{ TMemoForm }
-
-constructor TMemoForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  Name := 'MemoForm';
-  Text := 'Memo Test';
-  BorderWidth := 8;
-
-  BoxLayout := TFBoxLayout.Create(self);
-  BoxLayout.Orientation := Vertical;
-  self.InsertChild(BoxLayout);
-
-  lblTitle := TFLabel.Create('Work in progress! No mouse or cursor support yet.', self);
-  lblTitle.FontColor := clBlue;
-  lblTitle.CanExpandWidth := True;
-  BoxLayout.InsertChild(lblTitle);
-  
-  Memo := TFMemo.Create(self);
-  BoxLayout.InsertChild(Memo);
-  
-  Memo.Lines.Text :=
-    'constructor TMemoForm.Create(AOwner: TComponent);             ' + #10 +
-    'begin                                                         ' + #10 +
-    '  inherited Create(AOwner);                                   ' + #10 +
-    '  Name := ''MemoForm'';                                       ' + #10 +
-    '  Text := ''Memo Test'';                                      ' + #10 +
-    '  BorderWidth := 8;                                           ' + #10 +
-    '                                                              ' + #10 +
-    '  BoxLayout := TFBoxLayout.Create(self);                      ' + #10 +
-    '  BoxLayout.Orientation := Vertical;                          ' + #10 +
-    '  self.InsertChild(BoxLayout);                                ' + #10 +
-    '                                                              ' + #10 +
-    '  lblTitle := TFLabel.Create(''Work in progress!'', self);    ' + #10 +
-    '  lblTitle.FontColor := clBlue;                               ' + #10 +
-    '  lblTitle.CanExpandWidth := True;                            ' + #10 +
-    '  BoxLayout.InsertChild(lblTitle);                            ' + #10 +
-    '                                                              ' + #10 +
-    '  Memo := TFMemo.Create(self);                                ' + #10 +
-    '  BoxLayout.InsertChild(Memo);                                ';
-end;
-
-
-{ TListBoxForm }
-
-constructor TListBoxForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-{ TScrollBoxForm }
-
-constructor TScrollBoxForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-
-{ TMenuForm }
-
-procedure TMenuForm.CloseMenuClicked(Sender: TObject);
-begin
-  writeln('...Close menu clicked');
-  Close;
-end;
-
-procedure TMenuForm.AboutMenuClicked(Sender: TObject);
-begin
-  writeln('   About menu clicked from <' + Sender.ClassName + '>');
-  if Sender is TFMenuItem then
-    writeln('   from: ' + TFMenuItem(Sender).Text);
-end;
-
-constructor TMenuForm.Create(AOwner: TComponent);
-var
-  lMenuItem: TFMenuItem;
-begin
-  inherited Create(AOwner);
-  Name := 'MenuForm';
-  Text := 'Menu Test';
-  
-  BoxLayout := TFBoxLayout.Create(self);
-  BoxLayout.Orientation := Vertical;
-  
-  MainMenu := TFMenuBar.Create(self);
-  BoxLayout.InsertChild(MainMenu);
-
-  MainMenu.AddMenu('Close', 'C', @CloseMenuClicked);
-//  MainMenu.AddMenu('File');
-  MainMenu.AddMenu('Edit');
-  MainMenu.AddMenu('Options');
-  MainMenu.AddMenu('Windows');
-  lMenuItem := MainMenu.AddMenu('Help');
-  lMenuItem.SubMenu.AddMenu('Online Help');
-  lMenuItem.SubMenu.AddMenu('Tutorials');
-  lMenuItem.SubMenu.AddMenu('About', '', @AboutMenuClicked);
-
-  Separator := TSeparator.Create(self);
-  BoxLayout.InsertChild(Separator);
-  
-  Title := TFLabel.Create(self);
-  Title.CanExpandWidth := True;
-  Title.Alignment := taCenter;
-  Title.Text := 'This is work in progress...';
-  Title.FontColor := clBlue;
-  BoxLayout.InsertChild(Title);
-
-  Child := BoxLayout;
-end;
-
-
-{ TPanelForm }
-
-procedure TPanelForm.RadioButtonClick(Sender: TObject);
-begin
-  case TFRadioButton(Sender).Tag of
-    1: Panel.BevelStyle := bsPlain;
-    2: Panel.BevelStyle := bsLowered;
-    3: Panel.BevelStyle := bsRaised;
-  end;
-end;
-
-constructor TPanelForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  Name := 'PanelForm';
-  Text := 'Panel Test';
-  BorderWidth := 8;
-
-  MainLayout := TFBoxLayout.Create(self);
-  MainLayout.Orientation := Vertical;
-  
-  StyleGroup := TFGroupBox.Create('Bevel Style:', self);
-  StyleGroup.CanExpandWidth := True;
-  MainLayout.InsertChild(StyleGroup);
-  
-  VBox1 := TFBoxLayout.Create(self);
-  VBox1.Orientation := Vertical;
-  StyleGroup.InsertChild(VBox1);
-  
-  rbPlain := TFRadioButton.Create('Plain', self);
-  rbPlain.Tag := 1;
-  rbPlain.OnClick := @RadioButtonClick;
-  rbLowered := TFRadioButton.Create('Lowered', self);
-  rbLowered.Tag := 2;
-  rbLowered.OnClick := @RadioButtonClick;
-  rbRaised := TFRadioButton.Create('Raised', self);
-  rbRaised.Tag := 3;
-  rbRaised.OnClick := @RadioButtonClick;
-  rbRaised.Checked := True;
-  VBox1.InsertChild(rbPlain);
-  VBox1.InsertChild(rbLowered);
-  VBox1.InsertChild(rbRaised);
-  
-  Separator := TSeparator.Create(self);
-  MainLayout.InsertChild(Separator);
-
-  Panel := TFPanel.Create('My Panel', self);
-  MainLayout.InsertChild(Panel);
-  
-  Child := MainLayout;
-end;
-
-destructor TPanelForm.Destroy;
-begin
-  inherited Destroy;
-end;
-
-
-{ TProgressBarForm }
-
-procedure TProgressBarForm.cbShowPercentClick(Sender: TObject);
-begin
-  PB.ShowPercentage := cbShowPercent.Checked;
-end;
-
-procedure TProgressBarForm.RadioButtonClick(Sender: TObject);
-begin
-  case TFRadioButton(Sender).Tag of
-    1: PB.FillColor := clRed;
-    2: PB.FillColor := clGreen;
-    3: PB.FillColor := clBlue;
-  end;
-end;
-
-procedure TProgressBarForm.GeneratePercentage(Sender: TObject);
-begin
-  PB.Position := Random(100);
-end;
-
-constructor TProgressBarForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  Text := 'Progress Bar Demo';
-  BorderWidth := 8;
-
-  MainLayout := TFGridLayout.Create(self);
-  MainLayout.RowCount := 4;
-  MainLayout.ColCount := 2;
-  
-  VBox := TFBoxLayout.Create(self);
-  VBox.Orientation := Vertical;
-  
-  gbColor   := TFGroupBox.Create('Fill Color', self);
-  rbRed           := TFRadioButton.Create('Red', self);
-  rbRed.Tag       := 1;
-  rbRed.OnClick   := @RadioButtonClick;
-  rbRed.Checked   := True;
-
-  rbGreen         := TFRadioButton.Create('Green', self);
-  rbGreen.Tag     := 2;
-  rbGreen.OnClick := @RadioButtonClick;
-
-  rbBlue          := TFRadioButton.Create('Blue', self);
-  rbBlue.Tag      := 3;
-  rbBlue.OnClick  := @RadioButtonClick;
-
-  VBox.InsertChild(rbRed);
-  VBox.InsertChild(rbGreen);
-  VBox.InsertChild(rbBlue);
-  gbColor.InsertChild(VBox);
-  MainLayout.AddWidget(gbColor, 0, 0, 1, 2);
-
-  cbShowPercent := TFCheckbox.Create('Show Percentage', self);
-  cbShowPercent.Checked := True;
-  cbShowPercent.OnClick := @cbShowPercentClick;
-  cbShowPercent.CanExpandWidth := True;
-  MainLayout.AddWidget(cbShowPercent, 1, 0, 1, 1);
-  
-  btnRandom := TFButton.Create('Randomize', self);
-  btnRandom.OnClick := @GeneratePercentage;
-  MainLayout.AddWidget(btnRandom, 1, 1, 1, 1);
-
-  Separator := TSeparator.Create(self);
-  MainLayout.AddWidget(Separator, 0, 2, 2, 1);
-  
-  PB := TFProgressBar.Create('', self);
-  PB.Position := 75;
-  MainLayout.AddWidget(PB, 0, 3, 2, 1);
-  
-  Child := MainLayout;
-end;
-
-destructor TProgressBarForm.Destroy;
-begin
-  inherited Destroy;
-end;
-
-
-// -------------------------------------------------------------------
-//   TMainForm
-// -------------------------------------------------------------------
-
-constructor TMainForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-destructor TMainForm.Destroy;
-begin
-  _frmCheckBox.Free;
-  _frmRadioButton.Free;
-  _frmGroupBox.Free;
-  _frmEdit.Free;
-  _frmScrollBar.Free;
-  _frmScrollBox.Free;
-  _frmListBox.Free;
-  _frmComboBox.Free;
-  _frmGrid.Free;
-  _frmMenu.Free;
-  _frmPanel.Free;
-  _frmProgressBar.Free;
-  _frmMemo.Free;
-  inherited Destroy;
-end;
-
-
-procedure TMainForm.CheckBoxBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmCheckBox) then
-    _frmCheckBox := TCheckboxForm.Create(self);
-  _frmCheckBox.Show;
-end;
-
-
-procedure TMainForm.RadioButtonBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmRadioButton) then
-    _frmRadioButton := TRadioButtonForm.Create(self);
-  _frmRadioButton.Show;
-end;
-
-
-procedure TMainForm.GroupBoxBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmGroupBox) then
-    _frmGroupBox := TGroupBoxForm.Create(self);
-  _frmGroupBox.Show;
-end;
-
-
-procedure TMainForm.EditBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmEdit) then
-    _frmEdit := TEditForm.Create(self);
-  _frmEdit.Show;
-end;
-
-
-procedure TMainForm.ScrollBarBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmScrollBar) then
-    _frmScrollBar := TScrollBarForm.Create(self);
-  _frmScrollBar.Show;
-end;
-
-
-procedure TMainForm.ScrollBoxBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmScrollBox) then
-    _frmScrollBox := TScrollBoxForm.Create(self);
-  _frmScrollBox.Show;
-end;
-
-
-procedure TMainForm.ListBoxBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmListBox) then
-    _frmListBox := TListBoxForm.Create(self);
-  _frmListBox.Show;
-end;
-
-
-procedure TMainForm.ComboBoxBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmComboBox) then
-    _frmComboBox := TComboBoxForm.Create(self);
-  _frmComboBox.Show;
-end;
-
-
-procedure TMainForm.GridBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmGrid) then
-    _frmGrid := TGridForm.Create(self);
-  _frmGrid.Show;
-end;
-
-
-procedure TMainForm.ExitBtnClick(Sender: TObject);
-begin
-  Close;
-end;
-
-
-procedure TMainForm.MenuBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmMenu) then
-    _frmMenu := TMenuForm.Create(self);
-  _frmMenu.Show;
-  _frmMenu.SetPosition(Point(Left + Width + 5, FindForm.Top));
-end;
-
-procedure TMainForm.PanelBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmPanel) then
-    _frmPanel := TPanelForm.Create(self);
-  _frmPanel.ShowModal;
-//  _frmPanel.SetPosition(Point(Left + Width + 5, FindForm.Top));
-end;
-
-procedure TMainForm.ProgressBarBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmProgressBar) then
-    _frmProgressBar := TProgressBarForm.Create(self);
-  _frmProgressBar.Show;
-  _frmProgressBar.SetPosition(Point(Left + Width + 5, FindForm.Top));
-end;
-
-procedure TMainForm.MemoBtnClick(Sender: TObject);
-begin
-  if not Assigned(_frmMemo) then
-    _frmMemo := TMemoForm.Create(self);
-  _frmMemo.Show;
-  _frmMemo.SetPosition(Point(Left + Width + 5, FindForm.Top));
-end;
-
-procedure TMainForm.ShowMessageBtnClick(Sender: TObject);
-begin
-  ShowMessage('Hello World!');
-end;
-
-
-// -------------------------------------------------------------------
-//   TCheckboxForm
-// -------------------------------------------------------------------
-
-procedure TCheckboxForm.GrayCheckBoxClick(Sender: TObject);
-begin
-  CheckBox1.Enabled := not GrayCheckBox.Checked;
-  CheckBox2.Enabled := not GrayCheckBox.Checked;
-end;
-
-constructor TCheckboxForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-
-// -------------------------------------------------------------------
-//   TRadioButtonForm
-// -------------------------------------------------------------------
-
-procedure TRadioButtonForm.GrayCheckBoxClick(Sender: TObject);
-begin
-  HorzBox.Enabled := not GrayCheckBox.Checked;
-end;
-
-constructor TRadioButtonForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-
-// -------------------------------------------------------------------
-//   TGroupBoxForm
-// -------------------------------------------------------------------
-
-procedure TGroupBoxForm.GrayCheckBoxClick(Sender: TObject);
-begin
-  GroupBox2.Enabled := not GrayCheckBox.Checked;
-end;
-
-
-procedure TGroupBoxForm.ButtonClick(Sender: TObject);
-begin
-  Radio1.Checked := True;
-  Button.Enabled := False;
-end;
-
-
-procedure TGroupBoxForm.RadioButtonClick(Sender: TObject);
-begin
-  Button.Enabled := not Radio1.Checked;
-end;
-
-constructor TGroupBoxForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-
-// -------------------------------------------------------------------
-//   TEditForm
-// -------------------------------------------------------------------
-
-procedure TEditForm.GrayCheckBox1Click(Sender: TObject);
-begin
-  Edit1.Enabled := not GrayCheckBox1.Checked;
-end;
-
-
-procedure TEditForm.GrayCheckBox2Click(Sender: TObject);
-begin
-//  Edit2.Enabled := not GrayCheckBox2.Checked;
-  if GrayCheckBox2.Checked then
-    Edit2.PasswordChar := #0
-  else
-    Edit2.PasswordChar := '*';
-end;
-
-procedure TEditForm.cbBorderStyleClick(Sender: TObject);
-begin
-//  SaveForm(self);
-  if Edit1.BorderStyle = bsNone then
-  begin
-    Edit1.BorderStyle := bsSingle;
-    Edit2.BorderStyle := bsSingle;
-  end
-  else
-  begin
-    Edit1.BorderStyle := bsNone;
-    Edit2.BorderStyle := bsNone;
-  end;
-end;
-
-
-procedure TEditForm.Edit2Change(Sender: TObject);
-begin
-//  PasswordDisplay.Text := '(= ' + Edit2.Text + ')';
-end;
-
-constructor TEditForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-  Edit1.Text := 'Gráficas Magnificacion! Teste';
-  Edit2.Text := 'Gráficas';
-  Edit2.PasswordChar := '*';
-end;
-
-
-// -------------------------------------------------------------------
-//   TScrollBarForm
-// -------------------------------------------------------------------
-
-procedure TScrollBarForm.GrayCheckBoxClick(Sender: TObject);
-begin
-  HorzBox.Enabled := not GrayCheckBox.Checked;
-end;
-
-
-procedure TScrollBarForm.ScrollBar1Change(Sender: TObject);
-begin
-  PosLabel1.Text := IntToStr(ScrollBar1.Position);
-end;
-
-
-procedure TScrollBarForm.ScrollBar2Change(Sender: TObject);
-begin
-  PosLabel2.Text := IntToStr(ScrollBar2.Position);
-end;
-
-
-procedure TScrollBarForm.ScrollBar3Change(Sender: TObject);
-begin
-  PosLabel3.Text := IntToStr(ScrollBar3.Position);
-end;
-
-
-procedure TScrollBarForm.ScrollBar4Change(Sender: TObject);
-begin
-  PosLabel4.Text := IntToStr(ScrollBar4.Position);
-end;
-
-
-procedure TScrollBarForm.ScrollBar5Change(Sender: TObject);
-begin
-  PosLabel5.Text := IntToStr(ScrollBar5.Position);
-end;
-
-constructor TScrollBarForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-
-// -------------------------------------------------------------------
-//   TComboBoxForm
-// -------------------------------------------------------------------
-
-procedure TComboBoxForm.GrayCheckBoxClick(Sender: TObject);
-begin
-  ComboBox1.Enabled := not GrayCheckBox.Checked;
-  ComboBox2.Enabled := not GrayCheckBox.Checked;
-end;
-
-
-procedure TComboBoxForm.FormCreate(Sender: TObject);
-var
-  i: integer;
-begin
-  for i := 1 to 20 do
-  begin
-    ComboBox1.Items.Add(Format('Item 1.%d...', [i]));
-    ComboBox2.Items.Add(Format('Item 2.%d...', [i]));
-  end;
-  ComboBox2.Items.Add('A long item that should cause a horizontal scrollbar to appear.');
-  BetaLabel.FontColor := clBlue;
-end;
-
-constructor TComboBoxForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-
-// -------------------------------------------------------------------
-//   TGridForm
-// -------------------------------------------------------------------
-
-procedure TGridForm.FormCreate(Sender: TObject);
-var
-  x, y: Integer;
-begin
-  for y := 0 to StringGrid.RowCount - 1 do
-    for x := 0 to StringGrid.ColCount - 1 do
-      StringGrid.Cells[x, y] := Format('%d, %d', [x, y]);
-      
-  StringGrid.Cells[3, 3] := 'This is one long piece of text';
-end;
-
-constructor TGridForm.Create(AOwner: TComponent);
-begin
-  inherited Create(AOwner);
-  LoadForm(self);
-end;
-
-
-var
-  MainForm: TMainForm;
-begin
-  WriteLn('Version: ' + {$I %date%} + ' ' + {$I %time%});
-  GFApplication.Initialize;
-  
-  MainForm := TMainForm.Create(GFApplication);
-  try
-    MainForm.Show;
-    GFApplication.Run;
-  finally
-    MainForm.Free;
-  end;
-end.