summaryrefslogtreecommitdiff
path: root/examples/gui/widgettest
diff options
context:
space:
mode:
Diffstat (limited to 'examples/gui/widgettest')
-rw-r--r--examples/gui/widgettest/Makefile1320
-rw-r--r--examples/gui/widgettest/Makefile.fpc10
-rw-r--r--examples/gui/widgettest/checkboxform.frm17
-rw-r--r--examples/gui/widgettest/comboboxform.frm19
-rw-r--r--examples/gui/widgettest/editform.frm74
-rw-r--r--examples/gui/widgettest/gridform.frm9
-rw-r--r--examples/gui/widgettest/groupboxform.frm49
-rw-r--r--examples/gui/widgettest/listboxform.frm23
-rw-r--r--examples/gui/widgettest/mainform.frm87
-rw-r--r--examples/gui/widgettest/radiobuttonform.frm33
-rw-r--r--examples/gui/widgettest/scrollbarform.frm175
-rw-r--r--examples/gui/widgettest/scrollboxform.frm14
-rw-r--r--examples/gui/widgettest/widgettest.lpi61
-rw-r--r--examples/gui/widgettest/widgettest.pas749
14 files changed, 2640 insertions, 0 deletions
diff --git a/examples/gui/widgettest/Makefile b/examples/gui/widgettest/Makefile
new file mode 100644
index 00000000..2c9fa63e
--- /dev/null
+++ b/examples/gui/widgettest/Makefile
@@ -0,0 +1,1320 @@
+#
+# 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
new file mode 100644
index 00000000..57009620
--- /dev/null
+++ b/examples/gui/widgettest/Makefile.fpc
@@ -0,0 +1,10 @@
+#
+# 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
new file mode 100644
index 00000000..cc03310d
--- /dev/null
+++ b/examples/gui/widgettest/checkboxform.frm
@@ -0,0 +1,17 @@
+object CheckBoxForm: TCheckBoxForm
+ BorderWidth = 8
+ Text = 'Check box test'
+ object Box: TBoxLayout
+ Orientation = Vertical
+ object GrayCheckBox: TCheckBox
+ Text = 'Gray other check boxes'
+ OnClick = GrayCheckBoxClick
+ end
+ object CheckBox1: TCheckBox
+ Text = 'First other check box'
+ end
+ object CheckBox2: TCheckBox
+ Text = 'Second other check box'
+ end
+ end
+end
diff --git a/examples/gui/widgettest/comboboxform.frm b/examples/gui/widgettest/comboboxform.frm
new file mode 100644
index 00000000..23dd1f07
--- /dev/null
+++ b/examples/gui/widgettest/comboboxform.frm
@@ -0,0 +1,19 @@
+object ComboBoxForm: TComboBoxForm
+ BorderWidth = 8
+ Text = 'Combo box test'
+ OnCreate = FormCreate
+ object VertBox: TBoxLayout
+ Orientation = Vertical
+ object GrayCheckBox: TCheckBox
+ Text = 'Gray combo boxes'
+ OnClick = GrayCheckBoxClick
+ end
+ object BetaLabel: TLabel
+ Text = '(the drop-down lists are work in progress)'
+ end
+ object ComboBox1: TComboBox
+ end
+ object ComboBox2: TComboBox
+ end
+ end
+end
diff --git a/examples/gui/widgettest/editform.frm b/examples/gui/widgettest/editform.frm
new file mode 100644
index 00000000..51c2b888
--- /dev/null
+++ b/examples/gui/widgettest/editform.frm
@@ -0,0 +1,74 @@
+object EditForm: TEditForm
+ BorderWidth = 8
+ Text = 'Edit field test'
+ object Grid: TGridLayout
+ ColCount = 3
+ RowCount = 4
+ 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>
+ object Label1: TLabel
+ Text = 'Normal edit field:'
+ CanExpandWidth = False
+ end
+ object Edit1: TEdit
+ Text = 'Edit1'
+ end
+ object GrayCheckBox1: TCheckBox
+ Text = 'Disabled'
+ OnClick = GrayCheckBox1Click
+ end
+ object Separator: TSeparator
+ end
+ object Label2: TLabel
+ Text = 'Password edit field:'
+ CanExpandWidth = False
+ end
+ object Edit2: TEdit
+ PasswordChar = '*'
+ Text = 'Edit2'
+ OnChange = Edit2Change
+ end
+ object GrayCheckBox2: TCheckBox
+ Text = 'Disabled'
+ OnClick = GrayCheckBox2Click
+ end
+ object PasswordDisplay: TLabel
+ Text = '(Password field)'
+ CanExpandWidth = False
+ end
+ end
+end
diff --git a/examples/gui/widgettest/gridform.frm b/examples/gui/widgettest/gridform.frm
new file mode 100644
index 00000000..43d673fd
--- /dev/null
+++ b/examples/gui/widgettest/gridform.frm
@@ -0,0 +1,9 @@
+object GridForm: TGridForm
+ BorderWidth = 8
+ Text = 'Grid test'
+ OnCreate = FormCreate
+ object StringGrid: TStringGrid
+ ColCount = 10
+ RowCount = 15
+ end
+end
diff --git a/examples/gui/widgettest/groupboxform.frm b/examples/gui/widgettest/groupboxform.frm
new file mode 100644
index 00000000..85ddff8f
--- /dev/null
+++ b/examples/gui/widgettest/groupboxform.frm
@@ -0,0 +1,49 @@
+object GroupBoxForm: TGroupBoxForm
+ BorderWidth = 8
+ Text = 'Group box test'
+ object HorzBox: TBoxLayout
+ VertAlign = vertTop
+ object GroupBox1: TGroupBox
+ Text = 'Group box #1'
+ object VertBox1: TBoxLayout
+ Orientation = Vertical
+ object GrayCheckBox: TCheckBox
+ Text = 'Gray other group box'
+ OnClick = GrayCheckBoxClick
+ end
+ object Button: TButton
+ Enabled = False
+ Text = 'Reset radio buttons'
+ OnClick = ButtonClick
+ end
+ end
+ end
+ object GroupBox2: TGroupBox
+ Text = 'Group box #2'
+ object VertBox2: TBoxLayout
+ Orientation = Vertical
+ object Radio1: TRadioButton
+ Checked = True
+ Text = 'Option 1'
+ OnClick = RadioButtonClick
+ end
+ object Radio2: TRadioButton
+ Text = 'Option 2'
+ OnClick = RadioButtonClick
+ end
+ object Radio3: TRadioButton
+ Text = 'Option 3'
+ OnClick = RadioButtonClick
+ end
+ object Radio4: TRadioButton
+ Text = 'Option 4'
+ OnClick = RadioButtonClick
+ end
+ object Radio5: TRadioButton
+ Text = 'Option 5'
+ OnClick = RadioButtonClick
+ end
+ end
+ end
+ end
+end
diff --git a/examples/gui/widgettest/listboxform.frm b/examples/gui/widgettest/listboxform.frm
new file mode 100644
index 00000000..7d7c4f4c
--- /dev/null
+++ b/examples/gui/widgettest/listboxform.frm
@@ -0,0 +1,23 @@
+object ListBoxForm: TListBoxForm
+ BorderWidth = 8
+ Text = 'List box test'
+ object ListBox: TListBox
+ 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
new file mode 100644
index 00000000..d0e5f62f
--- /dev/null
+++ b/examples/gui/widgettest/mainform.frm
@@ -0,0 +1,87 @@
+object MainForm: TMainForm
+ Text = 'Widget tests'
+ BorderWidth = 8
+ WindowOptions = [woWindow]
+ object Box: TBoxLayout
+ CanExpandWidth = False
+ Spacing = 8
+ Orientation = Vertical
+ object Label: TLabel
+ CanExpandWidth = True
+ Text = 'Choose a test form:'
+ end
+ object CheckboxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Check boxes'
+ OnClick = CheckboxBtnClick
+ end
+ object RadioButtonBtn: TButton
+ CanExpandWidth = True
+ Text = 'Radio buttons'
+ OnClick = RadioButtonBtnClick
+ end
+ object GroupBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Group boxes'
+ OnClick = GroupBoxBtnClick
+ end
+ object EditBtn: TButton
+ CanExpandWidth = True
+ Text = 'Edit fields'
+ OnClick = EditBtnClick
+ end
+ object ScrollBarBtn: TButton
+ CanExpandWidth = True
+ Text = 'Scroll bars'
+ OnClick = ScrollBarBtnClick
+ end
+ object ScrollBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Scroll boxes'
+ OnClick = ScrollBoxBtnClick
+ end
+ object ListBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'List boxes'
+ OnClick = ListBoxBtnClick
+ end
+ object ComboBoxBtn: TButton
+ CanExpandWidth = True
+ Text = 'Combo boxes'
+ OnClick = ComboBoxBtnClick
+ end
+ object GridBtn: TButton
+ CanExpandWidth = True
+ Text = 'Grids'
+ OnClick = GridBtnClick
+ end
+ object MenuBtn: TButton
+ CanExpandWidth = True
+ Text = 'Menus'
+ OnClick = MenuBtnClick
+ end
+ object PanelBtn: TButton
+ CanExpandWidth = True
+ Text = 'Panel'
+ OnClick = PanelBtnClick
+ end
+ object ProgressBarBtn: TButton
+ CanExpandWidth = True
+ Text = 'Progress Bar'
+ OnClick = ProgressBarBtnClick
+ end
+ object StdDialogBtn: TButton
+ CanExpandWidth = True
+ Text = 'Std Dialog'
+ OnClick = StdDialogBtnClick
+ Enabled = False
+ end
+ object Separator: TSeparator
+ end
+ object ExitBtn: TButton
+ CanExpandWidth = True
+ Text = 'Exit'
+ OnClick = ExitBtnClick
+ end
+ end
+end
diff --git a/examples/gui/widgettest/radiobuttonform.frm b/examples/gui/widgettest/radiobuttonform.frm
new file mode 100644
index 00000000..eac18c90
--- /dev/null
+++ b/examples/gui/widgettest/radiobuttonform.frm
@@ -0,0 +1,33 @@
+object RadioButtonForm: TRadioButtonForm
+ BorderWidth = 8
+ Text = 'Radio button test'
+ object Box: TBoxLayout
+ Orientation = Vertical
+ object GrayCheckbox: TCheckbox
+ Text = 'Gray radio buttons'
+ OnClick = GrayCheckboxClick
+ end
+ object HorzBox: TBoxLayout
+ object ButtonBox1: TBoxLayout
+ Orientation = Vertical
+ object Radio1a: TRadioButton
+ Checked = True
+ Text = 'Button 1 a'
+ end
+ object Radio1b: TRadioButton
+ Text = 'Button 1 b'
+ end
+ end
+ object ButtonBox2: TBoxLayout
+ Orientation = Vertical
+ object Radio2a: TRadioButton
+ Text = 'Button 2 a'
+ end
+ object Radio2b: TRadioButton
+ 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
new file mode 100644
index 00000000..5c238e23
--- /dev/null
+++ b/examples/gui/widgettest/scrollbarform.frm
@@ -0,0 +1,175 @@
+object ScrollBarForm: TScrollBarForm
+ BorderWidth = 8
+ Text = 'Scroll bar test'
+ object VertBox: TBoxLayout
+ Orientation = Vertical
+ object GrayCheckBox: TCheckBox
+ Text = 'Gray everything'
+ OnClick = GrayCheckBoxClick
+ end
+ object HorzBox: TBoxLayout
+ object HorzGrid: TGridLayout
+ 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: TLabel
+ Alignment = taCenter
+ Text = 'Position'
+ end
+ object Label1: TLabel
+ Alignment = taRightJustify
+ Text = '0..1, PageSize=0:'
+ end
+ object ScrollBar1: TScrollBar
+ Min = 0
+ Max = 1
+ OnChange = ScrollBar1Change
+ end
+ object PosLabel1: TLabel
+ Alignment = taCenter
+ Text = '---'
+ end
+ object Label2: TLabel
+ Alignment = taRightJustify
+ Text = '0..1, PageSize=1:'
+ end
+ object ScrollBar2: TScrollBar
+ Max = 1
+ PageSize = 1
+ OnChange = ScrollBar2Change
+ end
+ object PosLabel2: TLabel
+ Alignment = taCenter
+ Text = '---'
+ end
+ object Label3: TLabel
+ Alignment = taRightJustify
+ Text = '-2..3, PageSize=0:'
+ end
+ object ScrollBar3: TScrollBar
+ Min = -2
+ Max = 3
+ OnChange = ScrollBar3Change
+ end
+ object PosLabel3: TLabel
+ Alignment = taCenter
+ Text = '---'
+ end
+ object Label4: TLabel
+ Alignment = taRightJustify
+ Text = '-5..9, PageSize=4:'
+ end
+ object ScrollBar4: TScrollBar
+ Min = -5
+ Max = 9
+ PageSize = 4
+ OnChange = ScrollBar4Change
+ end
+ object PosLabel4: TLabel
+ Alignment = taCenter
+ Text = '---'
+ end
+ object Label5: TLabel
+ Alignment = taRightJustify
+ Text = '-100..200, PageSize=7:'
+ end
+ object ScrollBar5: TScrollBar
+ Min = -100
+ Max = 200
+ PageSize = 7
+ OnChange = ScrollBar5Change
+ end
+ object PosLabel5: TLabel
+ Alignment = taCenter
+ Text = '---'
+ end
+ end
+ object VertBar: TSeparator
+ Orientation = Vertical
+ end
+ object VertLabel: TLabel
+ Text = 'Vertical:'
+ end
+ object VertScrollBar: TScrollBar
+ Orientation = Vertical
+ Min = -2
+ Max = 3
+ end
+ end
+ end
+end
diff --git a/examples/gui/widgettest/scrollboxform.frm b/examples/gui/widgettest/scrollboxform.frm
new file mode 100644
index 00000000..b7e5412d
--- /dev/null
+++ b/examples/gui/widgettest/scrollboxform.frm
@@ -0,0 +1,14 @@
+object ScrollBoxForm: TScrollBoxForm
+ BorderWidth = 8
+ Text = 'Scroll box test'
+ WindowOptions = [woWindow]
+ object VertLayout: TBoxLayout
+ Orientation = Vertical
+ object Label1: TLabel
+ CanExpandWidth = True
+ Text = 'ScrollBox should be transparent in this demo.'
+ end
+ object ScrollBox: TScrollBox
+ end
+ end
+end
diff --git a/examples/gui/widgettest/widgettest.lpi b/examples/gui/widgettest/widgettest.lpi
new file mode 100644
index 00000000..68a02fd5
--- /dev/null
+++ b/examples/gui/widgettest/widgettest.lpi
@@ -0,0 +1,61 @@
+<?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="2">
+ <Item1>
+ <PackageName Value="LCL"/>
+ <MinVersion Major="1" Valid="True"/>
+ </Item1>
+ <Item2>
+ <PackageName Value="fpGUI_laz"/>
+ </Item2>
+ </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>
+ <CodeGeneration>
+ <Generate Value="Faster"/>
+ </CodeGeneration>
+ <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
new file mode 100644
index 00000000..1bc7654e
--- /dev/null
+++ b/examples/gui/widgettest/widgettest.pas
@@ -0,0 +1,749 @@
+program WidgetTest;
+
+uses
+ SysUtils
+ ,Classes
+ ,gfxbase
+ ,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;
+
+ { TMainForm }
+
+ TMainForm = class(TForm)
+ 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;
+ public
+ destructor Destroy; override;
+ published
+ Box: TBoxLayout;
+ Title: TLabel;
+ CheckboxBtn: TButton;
+ RadioButtonBtn: TButton;
+ GroupBoxBtn: TButton;
+ EditBtn: TButton;
+ ScrollBarBtn: TButton;
+ ScrollBoxBtn: TButton;
+ ListBoxBtn: TButton;
+ ComboBoxBtn: TButton;
+ GridBtn: TButton;
+ MenuBtn: TButton;
+ PanelBtn: TButton;
+ ProgressBarBtn: TButton;
+ StdDialogBtn: TButton;
+ Separator: TSeparator;
+ ExitBtn: TButton;
+ 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 StdDialogBtnClick(Sender: TObject);
+ procedure MenuBtnClick(Sender: TObject);
+ procedure PanelBtnClick(Sender: TObject);
+ procedure ProgressBarBtnClick(Sender: TObject);
+ end;
+
+
+ TTestForm = class(TForm)
+ end;
+
+
+ TCheckBoxForm = class(TTestForm)
+ Box: TBoxLayout;
+ GrayCheckBox, CheckBox1, CheckBox2: TCheckBox;
+ procedure GrayCheckBoxClick(Sender: TObject);
+ end;
+
+
+ TRadioButtonForm = class(TTestForm)
+ Box, HorzBox, ButtonBox1, ButtonBox2: TBoxLayout;
+ GrayCheckBox: TCheckBox;
+ Radio1a, Radio1b, Radio2a, Radio2b: TRadioButton;
+ procedure GrayCheckBoxClick(Sender: TObject);
+ end;
+
+
+ TGroupBoxForm = class(TTestForm)
+ HorzBox, VertBox1, VertBox2: TBoxLayout;
+ GroupBox1, GroupBox2: TGroupBox;
+ GrayCheckBox: TCheckBox;
+ Button: TButton;
+ Radio1, Radio2, Radio3, Radio4, Radio5: TRadioButton;
+ procedure GrayCheckBoxClick(Sender: TObject);
+ procedure ButtonClick(Sender: TObject);
+ procedure RadioButtonClick(Sender: TObject);
+ end;
+
+
+ TEditForm = class(TTestForm)
+ Grid: TGridLayout;
+ VertBox, HorzBox1, HorzBox2: TBoxLayout;
+ Label1, Label2, PasswordDisplay: TLabel;
+ Edit1, Edit2: TEdit;
+ GrayCheckBox1, GrayCheckBox2: TCheckBox;
+ Separator: TSeparator;
+ procedure GrayCheckBox1Click(Sender: TObject);
+ procedure GrayCheckBox2Click(Sender: TObject);
+ procedure Edit2Change(Sender: TObject);
+ end;
+
+
+ TScrollBarForm = class(TTestForm)
+ VertLayout: TBoxLayout;
+ GrayCheckBox: TCheckBox;
+ HorzBox: TBoxLayout;
+ HorzGrid, VertGrid: TGridLayout;
+ VertBar: TSeparator;
+ VertLabel, Label1, Label2, Label3, Label4, Label5: TLabel;
+ PosLabel1, PosLabel2, PosLabel3, PosLabel4, PosLabel5: TLabel;
+ VertScrollBar, ScrollBar1, ScrollBar2, ScrollBar3,
+ ScrollBar4, ScrollBar5: TScrollBar;
+ procedure GrayCheckBoxClick(Sender: TObject);
+ procedure ScrollBar1Change(Sender: TObject);
+ procedure ScrollBar2Change(Sender: TObject);
+ procedure ScrollBar3Change(Sender: TObject);
+ procedure ScrollBar4Change(Sender: TObject);
+ procedure ScrollBar5Change(Sender: TObject);
+ end;
+
+
+ TScrollBoxForm = class(TTestForm)
+ VertLayout: TBoxLayout;
+ Label1: TLabel;
+ ScrollBox: TScrollBox;
+ end;
+
+
+ TListBoxForm = class(TTestForm)
+ ListBox: TListBox;
+ end;
+
+
+ TComboBoxForm = class(TTestForm)
+ published
+ VertLayout: TBoxLayout;
+ GrayCheckBox: TCheckBox;
+ BetaLabel: TLabel;
+ ComboBox1: TComboBox;
+ ComboBox2: TComboBox;
+ procedure GrayCheckBoxClick(Sender: TObject);
+ procedure FormCreate(Sender: TObject);
+ end;
+
+
+ TGridForm = class(TTestForm)
+ StringGrid: TStringGrid;
+ procedure FormCreate(Sender: TObject);
+ end;
+
+
+ TMenuForm = class(TTestForm)
+ private
+ FLayout: TBoxLayout;
+ public
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ published
+ BoxLayout: TBoxLayout;
+ MainMenu: TMenuBar;
+ Title: TLabel;
+ p1, p2, p3, p4, p5, p6: TPanel;
+ HBox: TBoxLayout;
+ end;
+
+
+ TPanelForm = class(TTestForm)
+ private
+ procedure RadioButtonClick(Sender: TObject);
+ public
+ constructor Create(AOwner: TComponent); override;
+ destructor Destroy; override;
+ published
+ MainLayout: TBoxLayout;
+ StyleGroup: TGroupBox;
+ rbPlain, rbLowered, rbRaised: TRadioButton;
+ VBox1: TBoxLayout;
+ Panel: TPanel;
+ 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: TGridLayout;
+ VBox: TBoxLayout;
+ PB: TProgressBar;
+ cbShowPercent: TCheckBox;
+ gbColor: TGroupBox;
+ rbBlue: TRadioButton;
+ rbRed: TRadioButton;
+ rbGreen: TRadioButton;
+ Separator: TSeparator;
+ btnRandom: TButton;
+ end;
+
+
+{ TMenuForm }
+
+constructor TMenuForm.Create(AOwner: TComponent);
+begin
+ inherited Create(AOwner);
+ Name := 'MenuForm';
+ Text := 'Menu Test';
+
+ BoxLayout := TBoxLayout.Create(self);
+ BoxLayout.Orientation := Vertical;
+
+ MainMenu := TMenuBar.Create(self);
+ BoxLayout.InsertChild(MainMenu);
+ FLayout := TBoxLayout.Create(self);
+ FLayout.Spacing := 0;
+ FLayout.BorderSpacing := 6;
+ FLayout.HorzAlign := horzLeft;
+ MainMenu.InsertChild(FLayout);
+
+{
+ MainMenu.AddMenu('File');
+ MainMenu.AddMenu('Edit');
+ MainMenu.AddMenu('Options');
+ MainMenu.AddMenu('Windows');
+ MainMenu.AddMenu('Help');
+}
+
+ FLayout.InsertChild(TPanel.Create('File', self));
+ FLayout.InsertChild(TPanel.Create('Edit', self));
+
+ HBox := TBoxLayout.Create(self);
+ HBox.HorzAlign := horzLeft;
+ HBox.Spacing := 0;
+ BoxLayout.InsertChild(HBox);
+ p1 := TPanel.Create('File', self);
+ p1.BevelStyle := bsPlain;
+ p2 := TPanel.Create('Edit', self);
+ p2.BevelStyle := bsPlain;
+ p3 := TPanel.Create('Options', self);
+ p3.BevelStyle := bsPlain;
+ p4 := TPanel.Create('Windows', self);
+ p4.BevelStyle := bsPlain;
+ p5 := TPanel.Create('Help', self);
+ p5.BevelStyle := bsPlain;
+// HBox.InsertChild(p1);
+// HBox.InsertChild(p2);
+ HBox.InsertChild(p3);
+ HBox.InsertChild(p4);
+ HBox.InsertChild(p5);
+ HBox.InsertChild(TPanel.Create('Testing', self));
+
+
+ Title := TLabel.Create(self);
+ Title.CanExpandWidth := True;
+ Title.Alignment := taCenter;
+ Title.Text := 'This is work in progress...';
+ Title.FontColor := clBlue;
+ BoxLayout.InsertChild(Title);
+
+ Child := BoxLayout;
+end;
+
+destructor TMenuForm.Destroy;
+begin
+ inherited Destroy;
+end;
+
+{ TPanelForm }
+
+procedure TPanelForm.RadioButtonClick(Sender: TObject);
+begin
+ case TRadioButton(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 := TBoxLayout.Create(self);
+ MainLayout.Orientation := Vertical;
+
+ StyleGroup := TGroupBox.Create('Bevel Style:', self);
+ StyleGroup.CanExpandWidth := True;
+ MainLayout.InsertChild(StyleGroup);
+
+ VBox1 := TBoxLayout.Create(self);
+ VBox1.Orientation := Vertical;
+ StyleGroup.InsertChild(VBox1);
+
+ rbPlain := TRadioButton.Create('Plain', self);
+ rbPlain.Tag := 1;
+ rbPlain.OnClick := @RadioButtonClick;
+ rbLowered := TRadioButton.Create('Lowered', self);
+ rbLowered.Tag := 2;
+ rbLowered.OnClick := @RadioButtonClick;
+ rbRaised := TRadioButton.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 := TPanel.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 TRadioButton(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 := TGridLayout.Create(self);
+ MainLayout.RowCount := 4;
+ MainLayout.ColCount := 2;
+
+ VBox := TBoxLayout.Create(self);
+ VBox.Orientation := Vertical;
+
+ gbColor := TGroupBox.Create('Fill Color', self);
+ rbRed := TRadioButton.Create('Red', self);
+ rbRed.Tag := 1;
+ rbRed.OnClick := @RadioButtonClick;
+ rbRed.Checked := True;
+
+ rbGreen := TRadioButton.Create('Green', self);
+ rbGreen.Tag := 2;
+ rbGreen.OnClick := @RadioButtonClick;
+
+ rbBlue := TRadioButton.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 := TCheckbox.Create('Show Percentage', self);
+ cbShowPercent.Checked := True;
+ cbShowPercent.OnClick := @cbShowPercentClick;
+ cbShowPercent.CanExpandWidth := True;
+ MainLayout.AddWidget(cbShowPercent, 1, 0, 1, 1);
+
+ btnRandom := TButton.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 := TProgressBar.Create('', self);
+ PB.Position := 75;
+ MainLayout.AddWidget(PB, 0, 3, 2, 1);
+
+ Child := MainLayout;
+end;
+
+destructor TProgressBarForm.Destroy;
+begin
+ inherited Destroy;
+end;
+
+
+// -------------------------------------------------------------------
+// TMainForm
+// -------------------------------------------------------------------
+
+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;
+ inherited Destroy;
+end;
+
+
+procedure TMainForm.CheckBoxBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmCheckBox) then
+ _frmCheckBox.Show
+ else
+ Application.CreateForm(TCheckBoxForm, _frmCheckBox);
+end;
+
+
+procedure TMainForm.RadioButtonBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmRadioButton) then
+ _frmRadioButton.Show
+ else
+ Application.CreateForm(TRadioButtonForm, _frmRadioButton);
+end;
+
+
+procedure TMainForm.GroupBoxBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmGroupBox) then
+ _frmGroupBox.Show
+ else
+ Application.CreateForm(TGroupBoxForm, _frmGroupBox);
+end;
+
+
+procedure TMainForm.EditBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmEdit) then
+ _frmEdit.Show
+ else
+ Application.CreateForm(TEditForm, _frmEdit);
+end;
+
+
+procedure TMainForm.ScrollBarBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmScrollBar) then
+ _frmScrollBar.Show
+ else
+ Application.CreateForm(TScrollBarForm, _frmScrollBar);
+end;
+
+
+procedure TMainForm.ScrollBoxBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmScrollBox) then
+ _frmScrollBox.Show
+ else
+ Application.CreateForm(TScrollBoxForm, _frmScrollBox);
+end;
+
+
+procedure TMainForm.ListBoxBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmListBox) then
+ _frmListBox.Show
+ else
+ Application.CreateForm(TListBoxForm, _frmListBox);
+end;
+
+
+procedure TMainForm.ComboBoxBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmComboBox) then
+ _frmComboBox.Show
+ else
+ Application.CreateForm(TComboBoxForm, _frmComboBox);
+end;
+
+
+procedure TMainForm.GridBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmGrid) then
+ _frmGrid.Show
+ else
+ Application.CreateForm(TGridForm, _frmGrid);
+end;
+
+
+procedure TMainForm.ExitBtnClick(Sender: TObject);
+begin
+ Close;
+end;
+
+
+procedure TMainForm.StdDialogBtnClick(Sender: TObject);
+var
+ dlg: TStandardDialog;
+begin
+ {$Note This needs to be reworked completely! }
+ if Assigned(dlg) then
+ dlg.Show
+ else
+ Application.CreateForm(TStandardDialog, dlg);
+// dlg := TStandardDialog.Create(self);
+
+// dlg.Text := 'This is a single line of text.';
+// dlg.Show;
+end;
+
+
+procedure TMainForm.MenuBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmMenu) then
+ _frmMenu.Show
+ else
+ begin
+ _frmMenu := TMenuForm.Create(self);
+// Application.AddForm(_frmMenu);
+ _frmMenu.Show;
+ end;
+ _frmMenu.SetPosition(Point(Left + Width + 5, FindForm.Top));
+end;
+
+procedure TMainForm.PanelBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmPanel) then
+ _frmPanel.Show
+ else
+ begin
+ _frmPanel := TPanelForm.Create(self);
+ _frmPanel.Show;
+ end;
+ _frmPanel.SetPosition(Point(Left + Width + 5, FindForm.Top));
+end;
+
+procedure TMainForm.ProgressBarBtnClick(Sender: TObject);
+begin
+ if Assigned(_frmProgressBar) then
+ _frmProgressBar.Show
+ else
+ begin
+ _frmProgressBar := TProgressBarForm.Create(self);
+ _frmProgressBar.Show;
+ end;
+ _frmProgressBar.SetPosition(Point(Left + Width + 5, FindForm.Top));
+end;
+
+
+// -------------------------------------------------------------------
+// TCheckBoxForm
+// -------------------------------------------------------------------
+
+procedure TCheckBoxForm.GrayCheckBoxClick(Sender: TObject);
+begin
+ CheckBox1.Enabled := not GrayCheckBox.Checked;
+ CheckBox2.Enabled := not GrayCheckBox.Checked;
+end;
+
+
+// -------------------------------------------------------------------
+// TRadioButtonForm
+// -------------------------------------------------------------------
+
+procedure TRadioButtonForm.GrayCheckBoxClick(Sender: TObject);
+begin
+ HorzBox.Enabled := not GrayCheckBox.Checked;
+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;
+
+
+// -------------------------------------------------------------------
+// TEditForm
+// -------------------------------------------------------------------
+
+procedure TEditForm.GrayCheckBox1Click(Sender: TObject);
+begin
+ Edit1.Enabled := not GrayCheckBox1.Checked;
+end;
+
+
+procedure TEditForm.GrayCheckBox2Click(Sender: TObject);
+begin
+ Edit2.Enabled := not GrayCheckBox2.Checked;
+end;
+
+
+procedure TEditForm.Edit2Change(Sender: TObject);
+begin
+ PasswordDisplay.Text := '(= ' + Edit2.Text + ')';
+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;
+
+
+// -------------------------------------------------------------------
+// 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;
+ BetaLabel.FontColor := clBlue;
+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]);
+end;
+
+
+var
+ MainForm: TMainForm;
+begin
+ MainForm := nil;
+ WriteLn('Version: ' + {$I %date%} + ' ' + {$I %time%});
+
+ Application.CreateForm(TMainForm, MainForm);
+ try
+ Application.Run;
+ finally
+ MainForm.Free;
+ end;
+end.
generated by cgit v1.2.3-70-g09d2 (git 2.47.1) at 2024-12-28 02:20:38 +0000