mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-11-02 06:39:36 +01:00
started wince interface
git-svn-id: trunk@8053 -
This commit is contained in:
mattias
parent
6a4f8a515e
commit
17ad89e395
11
.gitattributes
vendored
11
.gitattributes
vendored
@ -1881,6 +1881,17 @@ lcl/interfaces/win32/win32wsspin.pp svneol=native#text/pascal
|
||||
lcl/interfaces/win32/win32wsstdctrls.pp svneol=native#text/pascal
|
||||
lcl/interfaces/win32/win32wstoolwin.pp svneol=native#text/pascal
|
||||
lcl/interfaces/win32/winext.pas svneol=native#text/pascal
|
||||
lcl/interfaces/wince/Makefile svneol=native#text/plain
|
||||
lcl/interfaces/wince/Makefile.fpc svneol=native#text/plain
|
||||
lcl/interfaces/wince/interfaces.pp svneol=native#text/plain
|
||||
lcl/interfaces/wince/winceint.pp svneol=native#text/plain
|
||||
lcl/interfaces/wince/wincelclintf.inc svneol=native#text/plain
|
||||
lcl/interfaces/wince/wincelclintfh.inc svneol=native#text/plain
|
||||
lcl/interfaces/wince/winceobject.inc svneol=native#text/plain
|
||||
lcl/interfaces/wince/wincewinapi.inc svneol=native#text/plain
|
||||
lcl/interfaces/wince/wincewinapih.inc svneol=native#text/plain
|
||||
lcl/interfaces/wince/wincewscontrols.pp svneol=native#text/plain
|
||||
lcl/interfaces/wince/wincewsforms.pp svneol=native#text/plain
|
||||
lcl/intfgraphics.pas svneol=native#text/pascal
|
||||
lcl/languages/lcl.ca.po svneol=native#text/plain
|
||||
lcl/languages/lcl.de.po svneol=native#text/plain
|
||||
|
||||
@ -75,7 +75,8 @@ type
|
||||
edtDebugPath: TEdit;
|
||||
DebugPathEditBtn: TPathEditorButton;
|
||||
|
||||
LCLWidgetTypeRadioGroup: TRadioGroup;
|
||||
LCLWidgetTypeGroupBox: TGroupBox;
|
||||
LCLWidgetTypeComboBox: TComboBox;
|
||||
|
||||
{ Parsing Controls }
|
||||
ParsingPage: TPage;
|
||||
@ -642,9 +643,9 @@ begin
|
||||
edtUnitOutputDir.Text := Options.UnitOutputDirectory;
|
||||
edtDebugPath.Text := Options.DebugPath;
|
||||
|
||||
i:=LCLWidgetTypeRadioGroup.Items.IndexOf(Options.LCLWidgetType);
|
||||
i:=LCLWidgetTypeComboBox.Items.IndexOf(Options.LCLWidgetType);
|
||||
if i<0 then i:=0;
|
||||
LCLWidgetTypeRadioGroup.ItemIndex:=i;
|
||||
LCLWidgetTypeComboBox.ItemIndex:=i;
|
||||
|
||||
// parsing
|
||||
if (Options.AssemblerStyle in [1,2,3]) then
|
||||
@ -912,11 +913,11 @@ begin
|
||||
Options.UnitOutputDirectory := edtUnitOutputDir.Text;
|
||||
Options.DebugPath := edtDebugPath.Text;
|
||||
|
||||
i:=LCLWidgetTypeRadioGroup.Itemindex;
|
||||
i:=LCLWidgetTypeComboBox.Itemindex;
|
||||
if i<=0 then
|
||||
Options.LCLWidgetType:=''
|
||||
else
|
||||
Options.LCLWidgetType:= LCLWidgetTypeRadioGroup.Items[i];
|
||||
Options.LCLWidgetType:= LCLWidgetTypeComboBox.Items[i];
|
||||
|
||||
// parsing;
|
||||
Options.AssemblerStyle := grpStyle.ItemIndex;
|
||||
@ -2678,22 +2679,32 @@ begin
|
||||
|
||||
{------------------------------------------------------------}
|
||||
|
||||
LCLWidgetTypeRadioGroup:=TRadioGroup.Create(Self);
|
||||
with LCLWidgetTypeRadioGroup do begin
|
||||
Name:='LCLWidgetTypeRadioGroup';
|
||||
LCLWidgetTypeGroupBox:=TGroupBox.Create(Self);
|
||||
with LCLWidgetTypeGroupBox do begin
|
||||
Name:='LCLWidgetTypeGroupBox';
|
||||
Parent := PathPage;
|
||||
Left := grpOtherUnits.Left;
|
||||
Top:= y;
|
||||
Width:=Self.ClientWidth-28;
|
||||
Height:=45;
|
||||
Caption:=lisLCLWidgetType+' (various)';
|
||||
end;
|
||||
|
||||
LCLWidgetTypeComboBox:=TComboBox.Create(Self);
|
||||
with LCLWidgetTypeComboBox do begin
|
||||
Name:='LCLWidgetTypeComboBox';
|
||||
Parent := LCLWidgetTypeGroupBox;
|
||||
Left := 0;
|
||||
Top:= 0;
|
||||
Width:=150;
|
||||
with Items do begin
|
||||
BeginUpdate;
|
||||
Add(Format(lisCOdefault, [GetDefaultLCLWidgetType]));
|
||||
for LCLInterface:=Low(TLCLPlatform) to High(TLCLPlatform) do begin
|
||||
Items.Add(LCLPlatformNames[LCLInterface]);
|
||||
end;
|
||||
EndUpdate;
|
||||
end;
|
||||
Columns:=Items.Count;
|
||||
ItemIndex:=1;
|
||||
end;
|
||||
end;
|
||||
|
||||
@ -54,13 +54,14 @@ type
|
||||
lpGtk2,
|
||||
lpGnome,
|
||||
lpWin32,
|
||||
lpWinCE,
|
||||
lpCarbon
|
||||
);
|
||||
TLCLPlatforms = set of TLCLPlatform;
|
||||
|
||||
const
|
||||
LCLPlatformNames: array[TLCLPlatform] of string = (
|
||||
'gtk', 'gtk2', 'gnome', 'win32', 'carbon'
|
||||
'gtk', 'gtk2', 'gnome', 'win32', 'wince', 'carbon'
|
||||
);
|
||||
|
||||
|
||||
|
||||
127
lcl/Makefile
127
lcl/Makefile
@ -1,8 +1,8 @@
|
||||
#
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/05/09]
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/09/23]
|
||||
#
|
||||
default: all
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd arm-linux
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince
|
||||
BSDs = freebsd netbsd openbsd darwin
|
||||
UNIXs = linux $(BSDs) solaris qnx
|
||||
LIMIT83fs = go32v2 os2 emx watcom
|
||||
@ -323,6 +323,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override TARGET_DIRS+=interfaces
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override TARGET_DIRS+=interfaces
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override TARGET_DIRS+=interfaces
|
||||
endif
|
||||
@ -374,9 +377,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override TARGET_DIRS+=interfaces
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override TARGET_DIRS+=interfaces
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override TARGET_DIRS+=interfaces
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override TARGET_DIRS+=interfaces
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
@ -422,6 +431,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
@ -473,9 +485,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override TARGET_UNITS+=alllclunits
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
@ -521,6 +539,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
@ -572,9 +593,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override TARGET_IMPLICITUNITS+=actnlist arrow avglvltree buttons calendar chart checklst clipbrd clistbox comctrls commctrl controls dbactns dbctrls dbgrids dialogs dynamicarray dynhasharray editbtn extctrls extdlgs extendedstrings extgraphics filectrl forms fpcadds graphics graphmath graphtype grids imglist inipropstorage interfacebase lazlinkedlist lclintf lclmemmanager lclproc lclrescache lclstrconsts lcltype lmessages lresources maskedit menus pairsplitter postscriptprinter printers propertystorage spin stdactns stdctrls stringhashlist textstrings toolwin utrace xmlpropstorage
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
@ -620,6 +647,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
@ -671,9 +701,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override TARGET_RSTS+=lclstrconsts
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
@ -719,6 +755,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
@ -770,9 +809,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override CLEAN_FILES+=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) $(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) $(wildcard ./units/*$(OEXT)) $(wildcard ./units/*$(PPUEXT)) $(wildcard ./units/*$(RSTEXT)) $(wildcard widgetset/*$(OEXT)) $(wildcard widgetset/*$(PPUEXT)) $(wildcard widgetset/*$(RSTEXT))$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
@ -818,6 +863,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
@ -869,9 +917,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override COMPILER_OPTIONS+=-gl
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
@ -917,6 +971,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
@ -968,9 +1025,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override COMPILER_INCLUDEDIR+=include
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
@ -1016,6 +1079,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
@ -1067,9 +1133,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override COMPILER_UNITDIR+=. $(NONWIN32) widgetset
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
@ -1115,6 +1187,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
@ -1166,9 +1241,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override COMPILER_UNITTARGETDIR+=units/$(CPU_TARGET)-$(OS_TARGET)
|
||||
endif
|
||||
ifdef REQUIRE_UNITSDIR
|
||||
override UNITSDIR+=$(REQUIRE_UNITSDIR)
|
||||
endif
|
||||
@ -2100,6 +2181,16 @@ REQUIRE_PACKAGES_LIBASYNC=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_LIBASYNC=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
@ -2332,6 +2423,16 @@ REQUIRE_PACKAGES_X11=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_LIBASYNC=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
@ -2348,6 +2449,16 @@ REQUIRE_PACKAGES_X11=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_LIBASYNC=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifdef REQUIRE_PACKAGES_RTL
|
||||
PACKAGEDIR_RTL:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /rtl/Makefile.fpc,$(PACKAGESDIR))))))
|
||||
ifneq ($(PACKAGEDIR_RTL),)
|
||||
@ -2761,7 +2872,7 @@ else
|
||||
FPCCPUOPT:=
|
||||
endif
|
||||
endif
|
||||
override FPCOPT+=-Xs $(FPCCPUOPT) -n
|
||||
override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
|
||||
override FPCOPTDEF+=RELEASE
|
||||
endif
|
||||
ifdef STRIP
|
||||
@ -3281,6 +3392,9 @@ endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
TARGET_DIRS_INTERFACES=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
TARGET_DIRS_INTERFACES=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
TARGET_DIRS_INTERFACES=1
|
||||
endif
|
||||
@ -3332,9 +3446,15 @@ endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
TARGET_DIRS_INTERFACES=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
TARGET_DIRS_INTERFACES=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
TARGET_DIRS_INTERFACES=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
TARGET_DIRS_INTERFACES=1
|
||||
endif
|
||||
ifdef TARGET_DIRS_INTERFACES
|
||||
interfaces_all:
|
||||
$(MAKE) -C interfaces all
|
||||
@ -3414,4 +3534,5 @@ cleanlaz: clean
|
||||
$(MAKE) -C interfaces/gtk2 clean
|
||||
$(MAKE) -C interfaces/gnome clean
|
||||
$(MAKE) -C interfaces/win32 clean
|
||||
$(MAKE) -C interfaces/wince clean
|
||||
$(MAKE) -C interfaces/qt clean
|
||||
|
||||
@ -120,5 +120,6 @@ cleanlaz: clean
|
||||
$(MAKE) -C interfaces/gtk2 clean
|
||||
$(MAKE) -C interfaces/gnome clean
|
||||
$(MAKE) -C interfaces/win32 clean
|
||||
$(MAKE) -C interfaces/wince clean
|
||||
$(MAKE) -C interfaces/qt clean
|
||||
|
||||
|
||||
@ -1,8 +1,8 @@
|
||||
#
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/05/09]
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2005/09/23]
|
||||
#
|
||||
default: all
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd arm-linux
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-wince
|
||||
BSDs = freebsd netbsd openbsd darwin
|
||||
UNIXs = linux $(BSDs) solaris qnx
|
||||
LIMIT83fs = go32v2 os2 emx watcom
|
||||
@ -280,103 +280,112 @@ endif
|
||||
export LCL_PLATFORM
|
||||
override DEFAULT_DIR=$(LCL_PLATFORM)
|
||||
ifeq ($(FULL_TARGET),i386-linux)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-go32v2)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-win32)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-os2)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-freebsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-beos)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netbsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-solaris)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-qnx)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netware)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-openbsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wdosx)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-emx)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-watcom)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-freebsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-netbsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-amiga)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-atari)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-openbsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-palmos)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-linux)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-netbsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-macos)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-darwin)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-morphos)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-linux)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-netbsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-solaris)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-linux)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 gnome qt carbon
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
override TARGET_DIRS+=gtk gtk2 win32 wince gnome qt carbon
|
||||
endif
|
||||
ifdef REQUIRE_UNITSDIR
|
||||
override UNITSDIR+=$(REQUIRE_UNITSDIR)
|
||||
@ -1308,6 +1317,16 @@ REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_LIBASYNC=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-linux)
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
@ -1540,6 +1559,16 @@ REQUIRE_PACKAGES_PTHREADS=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_LIBASYNC=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-linux)
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
@ -1556,6 +1585,16 @@ REQUIRE_PACKAGES_PTHREADS=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_LIBASYNC=1
|
||||
REQUIRE_PACKAGES_OPENGL=1
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_GTK=1
|
||||
endif
|
||||
ifdef REQUIRE_PACKAGES_PASZLIB
|
||||
PACKAGEDIR_PASZLIB:=$(firstword $(subst /Makefile.fpc,,$(strip $(wildcard $(addsuffix /paszlib/Makefile.fpc,$(PACKAGESDIR))))))
|
||||
ifneq ($(PACKAGEDIR_PASZLIB),)
|
||||
@ -1969,7 +2008,7 @@ else
|
||||
FPCCPUOPT:=
|
||||
endif
|
||||
endif
|
||||
override FPCOPT+=-Xs $(FPCCPUOPT) -n
|
||||
override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
|
||||
override FPCOPTDEF+=RELEASE
|
||||
endif
|
||||
ifdef STRIP
|
||||
@ -2316,6 +2355,7 @@ ifeq ($(FULL_TARGET),i386-linux)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2324,6 +2364,7 @@ ifeq ($(FULL_TARGET),i386-go32v2)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2332,6 +2373,7 @@ ifeq ($(FULL_TARGET),i386-win32)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2340,6 +2382,7 @@ ifeq ($(FULL_TARGET),i386-os2)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2348,6 +2391,7 @@ ifeq ($(FULL_TARGET),i386-freebsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2356,6 +2400,7 @@ ifeq ($(FULL_TARGET),i386-beos)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2364,6 +2409,7 @@ ifeq ($(FULL_TARGET),i386-netbsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2372,6 +2418,7 @@ ifeq ($(FULL_TARGET),i386-solaris)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2380,6 +2427,7 @@ ifeq ($(FULL_TARGET),i386-qnx)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2388,6 +2436,7 @@ ifeq ($(FULL_TARGET),i386-netware)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2396,6 +2445,7 @@ ifeq ($(FULL_TARGET),i386-openbsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2404,6 +2454,7 @@ ifeq ($(FULL_TARGET),i386-wdosx)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2412,6 +2463,7 @@ ifeq ($(FULL_TARGET),i386-emx)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2420,6 +2472,7 @@ ifeq ($(FULL_TARGET),i386-watcom)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2428,6 +2481,16 @@ ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2436,6 +2499,7 @@ ifeq ($(FULL_TARGET),m68k-linux)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2444,6 +2508,7 @@ ifeq ($(FULL_TARGET),m68k-freebsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2452,6 +2517,7 @@ ifeq ($(FULL_TARGET),m68k-netbsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2460,6 +2526,7 @@ ifeq ($(FULL_TARGET),m68k-amiga)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2468,6 +2535,7 @@ ifeq ($(FULL_TARGET),m68k-atari)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2476,6 +2544,7 @@ ifeq ($(FULL_TARGET),m68k-openbsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2484,6 +2553,7 @@ ifeq ($(FULL_TARGET),m68k-palmos)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2492,6 +2562,7 @@ ifeq ($(FULL_TARGET),powerpc-linux)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2500,6 +2571,7 @@ ifeq ($(FULL_TARGET),powerpc-netbsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2508,6 +2580,7 @@ ifeq ($(FULL_TARGET),powerpc-macos)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2516,6 +2589,7 @@ ifeq ($(FULL_TARGET),powerpc-darwin)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2524,6 +2598,7 @@ ifeq ($(FULL_TARGET),powerpc-morphos)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2532,6 +2607,7 @@ ifeq ($(FULL_TARGET),sparc-linux)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2540,6 +2616,7 @@ ifeq ($(FULL_TARGET),sparc-netbsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2548,6 +2625,7 @@ ifeq ($(FULL_TARGET),sparc-solaris)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2556,6 +2634,7 @@ ifeq ($(FULL_TARGET),x86_64-linux)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2564,6 +2643,16 @@ ifeq ($(FULL_TARGET),x86_64-freebsd)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),x86_64-win64)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2572,6 +2661,16 @@ ifeq ($(FULL_TARGET),arm-linux)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
TARGET_DIRS_GTK=1
|
||||
TARGET_DIRS_GTK2=1
|
||||
TARGET_DIRS_WIN32=1
|
||||
TARGET_DIRS_WINCE=1
|
||||
TARGET_DIRS_GNOME=1
|
||||
TARGET_DIRS_QT=1
|
||||
TARGET_DIRS_CARBON=1
|
||||
@ -2711,6 +2810,51 @@ win32:
|
||||
$(MAKE) -C win32 all
|
||||
.PHONY: win32_all win32_debug win32_smart win32_release win32_units win32_examples win32_shared win32_install win32_sourceinstall win32_exampleinstall win32_distinstall win32_zipinstall win32_zipsourceinstall win32_zipexampleinstall win32_zipdistinstall win32_clean win32_distclean win32_cleanall win32_info win32_makefiles win32
|
||||
endif
|
||||
ifdef TARGET_DIRS_WINCE
|
||||
wince_all:
|
||||
$(MAKE) -C wince all
|
||||
wince_debug:
|
||||
$(MAKE) -C wince debug
|
||||
wince_smart:
|
||||
$(MAKE) -C wince smart
|
||||
wince_release:
|
||||
$(MAKE) -C wince release
|
||||
wince_units:
|
||||
$(MAKE) -C wince units
|
||||
wince_examples:
|
||||
$(MAKE) -C wince examples
|
||||
wince_shared:
|
||||
$(MAKE) -C wince shared
|
||||
wince_install:
|
||||
$(MAKE) -C wince install
|
||||
wince_sourceinstall:
|
||||
$(MAKE) -C wince sourceinstall
|
||||
wince_exampleinstall:
|
||||
$(MAKE) -C wince exampleinstall
|
||||
wince_distinstall:
|
||||
$(MAKE) -C wince distinstall
|
||||
wince_zipinstall:
|
||||
$(MAKE) -C wince zipinstall
|
||||
wince_zipsourceinstall:
|
||||
$(MAKE) -C wince zipsourceinstall
|
||||
wince_zipexampleinstall:
|
||||
$(MAKE) -C wince zipexampleinstall
|
||||
wince_zipdistinstall:
|
||||
$(MAKE) -C wince zipdistinstall
|
||||
wince_clean:
|
||||
$(MAKE) -C wince clean
|
||||
wince_distclean:
|
||||
$(MAKE) -C wince distclean
|
||||
wince_cleanall:
|
||||
$(MAKE) -C wince cleanall
|
||||
wince_info:
|
||||
$(MAKE) -C wince info
|
||||
wince_makefiles:
|
||||
$(MAKE) -C wince makefiles
|
||||
wince:
|
||||
$(MAKE) -C wince all
|
||||
.PHONY: wince_all wince_debug wince_smart wince_release wince_units wince_examples wince_shared wince_install wince_sourceinstall wince_exampleinstall wince_distinstall wince_zipinstall wince_zipsourceinstall wince_zipexampleinstall wince_zipdistinstall wince_clean wince_distclean wince_cleanall wince_info wince_makefiles wince
|
||||
endif
|
||||
ifdef TARGET_DIRS_GNOME
|
||||
gnome_all:
|
||||
$(MAKE) -C gnome all
|
||||
|
||||
@ -8,7 +8,7 @@
|
||||
main=lcl
|
||||
|
||||
[target]
|
||||
dirs=gtk gtk2 win32 gnome qt carbon
|
||||
dirs=gtk gtk2 win32 wince gnome qt carbon
|
||||
|
||||
[default]
|
||||
dir=$(LCL_PLATFORM)
|
||||
|
||||
2747
lcl/interfaces/wince/Makefile
Normal file
2747
lcl/interfaces/wince/Makefile
Normal file
File diff suppressed because it is too large
Load Diff
34
lcl/interfaces/wince/Makefile.fpc
Normal file
34
lcl/interfaces/wince/Makefile.fpc
Normal file
@ -0,0 +1,34 @@
|
||||
# $Id: Makefile.fpc 7398 2005-07-22 13:47:35Z mattias $
|
||||
#
|
||||
# Makefile.fpc for Lazarus for Free Pascal
|
||||
#
|
||||
|
||||
[package]
|
||||
main=lazarus/lcl
|
||||
|
||||
[require]
|
||||
packages=rtl fcl
|
||||
|
||||
[target]
|
||||
units=interfaces
|
||||
implicitunits=winceint
|
||||
|
||||
[compiler]
|
||||
options=-gl
|
||||
unitdir=../../units/$(CPU_TARGET)-$(OS_TARGET) .
|
||||
unittargetdir=../../units/$(CPU_TARGET)-$(OS_TARGET)/wince
|
||||
|
||||
[clean]
|
||||
files=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(STATICLIBEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) \
|
||||
$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
|
||||
[rules]
|
||||
cleartarget:
|
||||
-$(DEL) $(COMPILER_UNITTARGETDIR)/interfaces$(PPUEXT) \
|
||||
$(COMPILER_UNITTARGETDIR)/interfaces$(OEXT)
|
||||
|
||||
all: cleartarget $(COMPILER_UNITTARGETDIR) interfaces$(PPUEXT)
|
||||
|
||||
45
lcl/interfaces/wince/interfaces.pp
Normal file
45
lcl/interfaces/wince/interfaces.pp
Normal file
@ -0,0 +1,45 @@
|
||||
{
|
||||
/***************************************************************************
|
||||
Interfaces.pp - determines what interface to use
|
||||
-------------
|
||||
|
||||
Initial Revision : Thu July 1st CST 1999
|
||||
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
|
||||
unit Interfaces;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
InterfaceBase;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
WinCEInt, Forms;
|
||||
|
||||
initialization
|
||||
WidgetSet := TWinCEWidgetSet.Create;
|
||||
|
||||
finalization
|
||||
FreeWidgetSet;
|
||||
|
||||
end.
|
||||
130
lcl/interfaces/wince/winceint.pp
Normal file
130
lcl/interfaces/wince/winceint.pp
Normal file
@ -0,0 +1,130 @@
|
||||
{ $Id: winceint.pp 8004 2005-10-30 15:33:20Z micha $ }
|
||||
{
|
||||
/***************************************************************************
|
||||
WINCEINT.pp - WinCEInterface Object
|
||||
-------------------
|
||||
|
||||
|
||||
|
||||
***************************************************************************/
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
|
||||
Unit WinCEInt;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
Interface
|
||||
|
||||
{$IFDEF Trace}
|
||||
{$ASSERTIONS ON}
|
||||
{$ENDIF}
|
||||
|
||||
// defining the following will print all messages as they are being handled
|
||||
// valuable for investigation of message trees / interrelations
|
||||
{ $define MSG_DEBUG}
|
||||
|
||||
{
|
||||
When editing this unit list, be sure to keep Windows listed first to ensure
|
||||
successful compilation.
|
||||
}
|
||||
Uses
|
||||
Classes, ComCtrls, Controls, Buttons, Dialogs, ExtCtrls, Forms, GraphMath,
|
||||
GraphType, InterfaceBase, LCLIntf, LCLType,
|
||||
LMessages, StdCtrls, SysUtils, Graphics, Menus;
|
||||
|
||||
Type
|
||||
{ WinCE interface-object class }
|
||||
|
||||
{ TWinCEWidgetSet }
|
||||
|
||||
TWinCEWidgetSet = Class(TWidgetSet)
|
||||
Public
|
||||
{ Constructor of the class }
|
||||
Constructor Create;
|
||||
{ Destructor of the class }
|
||||
Destructor Destroy; Override;
|
||||
{ Initialize the API }
|
||||
procedure AppInit(var ScreenInfo: TScreenInfo); override;
|
||||
procedure AppMinimize; override;
|
||||
procedure AppBringToFront; override;
|
||||
procedure DCSetPixel(CanvasHandle: HDC; X, Y: integer; AColor: TGraphicsColor); override;
|
||||
function DCGetPixel(CanvasHandle: HDC; X, Y: integer): TGraphicsColor; override;
|
||||
procedure DCRedraw(CanvasHandle: HDC); override;
|
||||
procedure SetDesigning(AComponent: TComponent); override;
|
||||
procedure AppProcessMessages; override;
|
||||
procedure AppWaitMessage; override;
|
||||
Procedure AppTerminate; Override;
|
||||
Function InitHintFont(HintFont: TObject): Boolean; Override;
|
||||
Procedure AttachMenuToWindow(AMenuObject: TComponent); Override;
|
||||
|
||||
// create and destroy
|
||||
function CreateComponent(Sender : TObject): THandle; override;
|
||||
function CreateTimer(Interval: integer; TimerFunc: TFNTimerProc) : integer; override;
|
||||
function DestroyTimer(TimerHandle: Integer) : boolean; override;
|
||||
|
||||
{$I wincewinapih.inc}
|
||||
{$I wincelclintfh.inc}
|
||||
End;
|
||||
|
||||
|
||||
Implementation
|
||||
|
||||
Uses
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// To get as litle as posible circles,
|
||||
// uncomment only those units with implementation
|
||||
////////////////////////////////////////////////////
|
||||
// WinCEWSActnList,
|
||||
// WinCEWSArrow,
|
||||
// WinCEWSButtons,
|
||||
// WinCEWSCalendar,
|
||||
// WinCEWSCheckLst,
|
||||
// WinCEWSCListBox,
|
||||
// WinCEWSComCtrls,
|
||||
WinCEWSControls,
|
||||
// WinCEWSDbCtrls,
|
||||
// WinCEWSDBGrids,
|
||||
// WinCEWSDialogs,
|
||||
// WinCEWSDirSel,
|
||||
// WinCEWSEditBtn,
|
||||
// WinCEWSExtCtrls,
|
||||
// WinCEWSExtDlgs,
|
||||
// WinCEWSFileCtrl,
|
||||
WinCEWSForms,
|
||||
// WinCEWSGrids,
|
||||
// WinCEWSImgList,
|
||||
// WinCEWSMaskEdit,
|
||||
// WinCEWSMenus,
|
||||
// WinCEWSPairSplitter,
|
||||
// WinCEWSSpin,
|
||||
// WinCEWSStdCtrls,
|
||||
// WinCEWSToolwin,
|
||||
////////////////////////////////////////////////////
|
||||
LCLProc;
|
||||
|
||||
{$I winceobject.inc}
|
||||
{$I wincewinapi.inc}
|
||||
{$I wincelclintf.inc}
|
||||
|
||||
initialization
|
||||
Assert(False, 'Trace:WinCEint.pp - Initialization');
|
||||
|
||||
finalization
|
||||
Assert(False, 'Trace:WinCEint.pp - Finalization');
|
||||
|
||||
end.
|
||||
93
lcl/interfaces/wince/wincelclintf.inc
Normal file
93
lcl/interfaces/wince/wincelclintf.inc
Normal file
@ -0,0 +1,93 @@
|
||||
{%MainUnit ../lclintf.pp}
|
||||
{ $Id: lclintf.inc 8032 2005-11-02 12:44:29Z vincents $
|
||||
******************************************************************************
|
||||
All interface communication related stuff goes here.
|
||||
This file is used by LCLIntf.pas
|
||||
If a procedure is platform dependent then it should call:
|
||||
WidgetSet.MyDependentProc
|
||||
|
||||
If a procedure insn't platform dependent, it is no part of InterfaseBase has
|
||||
to be implementerd here
|
||||
|
||||
!! Keep this alphabetical !!
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
******************************************************************************
|
||||
|
||||
******************************************************************************
|
||||
These functions redirect to the platform specific interface object.
|
||||
|
||||
Note:
|
||||
the section for not referring WidgetSet is at the end
|
||||
******************************************************************************}
|
||||
//##apiwiz##sps## // Do not remove
|
||||
|
||||
function TWinCEWidgetSet.DrawSplitter(DC: HDC; const ARect: TRect;
|
||||
Horizontal: boolean): boolean;
|
||||
begin
|
||||
Result:=inherited DrawSplitter(DC, ARect, Horizontal);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ExtUTF8Out(DC: HDC; X, Y: Integer; Options: Longint;
|
||||
Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
|
||||
begin
|
||||
Result:=inherited ExtUTF8Out(DC, X, Y, Options, Rect, Str, Count, Dx);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.FontCanUTF8(Font: HFont): boolean;
|
||||
begin
|
||||
Result:=inherited FontCanUTF8(Font);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetAcceleratorString(const AVKey: Byte;
|
||||
const AShiftState: TShiftState): String;
|
||||
begin
|
||||
Result:=inherited GetAcceleratorString(AVKey, AShiftState);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetControlConstraints(Constraints: TObject): boolean;
|
||||
begin
|
||||
Result:=inherited GetControlConstraints(Constraints);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetLCLOwnerObject(Handle: HWnd): TObject;
|
||||
begin
|
||||
Result:=inherited GetLCLOwnerObject(Handle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetListBoxIndexAtY(ListBox: TComponent; y: integer
|
||||
): integer;
|
||||
begin
|
||||
Result:=inherited GetListBoxIndexAtY(ListBox, y);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetListBoxItemRect(ListBox: TComponent;
|
||||
Index: integer; var ARect: TRect): boolean;
|
||||
begin
|
||||
Result:=inherited GetListBoxItemRect(ListBox, Index, ARect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.IntfSendsUTF8KeyPress: boolean;
|
||||
begin
|
||||
Result:=inherited IntfSendsUTF8KeyPress;
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ReplaceBitmapMask(var Image, Mask: HBitmap;
|
||||
NewMask: HBitmap): boolean;
|
||||
begin
|
||||
Result:=inherited ReplaceBitmapMask(Image, Mask, NewMask);
|
||||
end;
|
||||
|
||||
//##apiwiz##epi## // Do not remove
|
||||
|
||||
48
lcl/interfaces/wince/wincelclintfh.inc
Normal file
48
lcl/interfaces/wince/wincelclintfh.inc
Normal file
@ -0,0 +1,48 @@
|
||||
{%MainUnit winceint.pp}
|
||||
{ $Id: wincelclintfh.inc 7541 2005-08-22 12:30:03Z vincents $ }
|
||||
|
||||
{******************************************************************************
|
||||
All WinCE interface communication implementations.
|
||||
|
||||
!! Keep alphabetical !!
|
||||
|
||||
Support routines go to gtkproc.pp
|
||||
|
||||
******************************************************************************
|
||||
Interface
|
||||
******************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
|
||||
//##apiwiz##sps## // Do not remove
|
||||
function DrawSplitter(DC: HDC; const ARect: TRect; Horizontal: boolean): boolean; override;
|
||||
|
||||
function ExtUTF8Out(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect;
|
||||
Str: PChar; Count: Longint; Dx: PInteger): Boolean; override;
|
||||
|
||||
function FontCanUTF8(Font: HFont): boolean; override;
|
||||
|
||||
function GetAcceleratorString(const AVKey: Byte; const AShiftState: TShiftState): String; override;
|
||||
function GetControlConstraints(Constraints: TObject): boolean; override;
|
||||
function GetLCLOwnerObject(Handle: HWnd): TObject; override;
|
||||
function GetListBoxIndexAtY(ListBox: TComponent; y: integer): integer; override;
|
||||
function GetListBoxItemRect(ListBox: TComponent; Index: integer; var ARect: TRect): boolean; override;
|
||||
|
||||
function IntfSendsUTF8KeyPress: boolean; override;
|
||||
|
||||
function ReplaceBitmapMask(var Image, Mask: HBitmap; NewMask: HBitmap): boolean; override;
|
||||
|
||||
//##apiwiz##eps## // Do not remove, no wizard declaration after this line
|
||||
|
||||
121
lcl/interfaces/wince/winceobject.inc
Normal file
121
lcl/interfaces/wince/winceobject.inc
Normal file
@ -0,0 +1,121 @@
|
||||
{%MainUnit winceint.pp}
|
||||
|
||||
{******************************************************************************
|
||||
TGtkWidgetSet
|
||||
******************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
|
||||
{$IFOPT C-}
|
||||
// Uncomment for local trace
|
||||
// {$C+}
|
||||
// {$DEFINE ASSERT_IS_ON}
|
||||
{$ENDIF}
|
||||
|
||||
{ TWinCEWidgetSet }
|
||||
|
||||
constructor TWinCEWidgetSet.Create;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
destructor TWinCEWidgetSet.Destroy;
|
||||
begin
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.AppInit(var ScreenInfo: TScreenInfo);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.AppMinimize;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.AppBringToFront;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.DCSetPixel(CanvasHandle: HDC; X, Y: integer;
|
||||
AColor: TGraphicsColor);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DCGetPixel(CanvasHandle: HDC; X, Y: integer
|
||||
): TGraphicsColor;
|
||||
begin
|
||||
Result:=clNone;
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.DCRedraw(CanvasHandle: HDC);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.SetDesigning(AComponent: TComponent);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.AppProcessMessages;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.AppWaitMessage;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.AppTerminate;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.InitHintFont(HintFont: TObject): Boolean;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.AttachMenuToWindow(AMenuObject: TComponent);
|
||||
begin
|
||||
inherited AttachMenuToWindow(AMenuObject);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateComponent(Sender: TObject): THandle;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateTimer(Interval: integer; TimerFunc: TFNTimerProc
|
||||
): integer;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DestroyTimer(TimerHandle: Integer): boolean;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
{$IFDEF ASSERT_IS_ON}
|
||||
{$UNDEF ASSERT_IS_ON}
|
||||
{$C-}
|
||||
{$ENDIF}
|
||||
|
||||
944
lcl/interfaces/wince/wincewinapi.inc
Normal file
944
lcl/interfaces/wince/wincewinapi.inc
Normal file
@ -0,0 +1,944 @@
|
||||
{%MainUnit ../lclintf.pp}
|
||||
|
||||
(******************************************************************************
|
||||
All Winapi related stuff goes here.
|
||||
This file is used by LCLIntf.pas
|
||||
If a procedure is platform dependent then it should call:
|
||||
WidgetSet.MyDependentProc
|
||||
|
||||
If a procedure insn't platform dependent, it is no part of InterfaseBase has
|
||||
to be implementerd here
|
||||
|
||||
!! Keep this alphabetical !!
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
******************************************************************************)
|
||||
|
||||
{******************************************************************************
|
||||
These functions redirect to the platform specific interface object.
|
||||
|
||||
Note:
|
||||
the section for not referring WidgetSet is at the end
|
||||
******************************************************************************}
|
||||
//##apiwiz##sps## // Do not remove
|
||||
|
||||
function TWinCEWidgetSet.Arc(DC: HDC; Left, Top, width, height, angle1,
|
||||
angle2: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited Arc(DC, Left, Top, width, height, angle1, angle2);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.AngleChord(DC: HDC; x, y, width, height, angle1,
|
||||
angle2: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited AngleChord(DC, x, y, width, height, angle1, angle2);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.BeginPaint(Handle: hWnd; var PS: TPaintStruct): hdc;
|
||||
begin
|
||||
Result:=inherited BeginPaint(Handle, PS);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.BitBlt(DestDC: HDC; X, Y, Width, Height: Integer;
|
||||
SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean;
|
||||
begin
|
||||
Result:=inherited BitBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc, Rop
|
||||
);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.BringWindowToTop(hWnd: HWND): Boolean;
|
||||
begin
|
||||
Result:=inherited BringWindowToTop(hWnd);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CallNextHookEx(hHk: HHOOK; ncode: Integer;
|
||||
wParam: WParam; lParam: LParam): Integer;
|
||||
begin
|
||||
Result:=inherited CallNextHookEx(hHk, ncode, wParam, lParam);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CallWindowProc(lpPrevWndFunc: TFarProc; Handle: HWND;
|
||||
Msg: UINT; wParam: WParam; lParam: lParam): Integer;
|
||||
begin
|
||||
Result:=inherited CallWindowProc(lpPrevWndFunc, Handle, Msg, wParam, lParam);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ClientToScreen(Handle: HWND; var P: TPoint): Boolean;
|
||||
begin
|
||||
Result:=inherited ClientToScreen(Handle, P);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ClipboardFormatToMimeType(FormatID: TClipboardFormat
|
||||
): string;
|
||||
begin
|
||||
Result:=inherited ClipboardFormatToMimeType(FormatID);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ClipboardGetData(ClipboardType: TClipboardType;
|
||||
FormatID: TClipboardFormat; Stream: TStream): boolean;
|
||||
begin
|
||||
Result:=inherited ClipboardGetData(ClipboardType, FormatID, Stream);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ClipboardGetFormats(ClipboardType: TClipboardType;
|
||||
var Count: integer; var List: PClipboardFormat): boolean;
|
||||
begin
|
||||
Result:=inherited ClipboardGetFormats(ClipboardType, Count, List);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ClipboardGetOwnerShip(ClipboardType: TClipboardType;
|
||||
OnRequestProc: TClipboardRequestEvent; FormatCount: integer;
|
||||
Formats: PClipboardFormat): boolean;
|
||||
begin
|
||||
Result:=inherited ClipboardGetOwnerShip(ClipboardType, OnRequestProc,
|
||||
FormatCount, Formats);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ClipboardRegisterFormat(const AMimeType: string
|
||||
): TClipboardFormat;
|
||||
begin
|
||||
Result:=inherited ClipboardRegisterFormat(AMimeType);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CombineRgn(Dest, Src1, Src2: HRGN;
|
||||
fnCombineMode: Longint): Longint;
|
||||
begin
|
||||
Result:=inherited CombineRgn(Dest, Src1, Src2, fnCombineMode);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ComboBoxDropDown(Handle: HWND; DropDown: boolean
|
||||
): boolean;
|
||||
begin
|
||||
Result:=inherited ComboBoxDropDown(Handle, DropDown);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateBitmap(Width, Height: Integer; Planes,
|
||||
BitCount: Longint; BitmapBits: Pointer): HBITMAP;
|
||||
begin
|
||||
Result:=inherited CreateBitmap(Width, Height, Planes, BitCount, BitmapBits);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateBitmapFromRawImage(const RawImage: TRawImage;
|
||||
var Bitmap, MaskBitmap: HBitmap; AlwaysCreateMask: boolean): boolean;
|
||||
begin
|
||||
Result:=inherited CreateBitmapFromRawImage(RawImage, Bitmap, MaskBitmap,
|
||||
AlwaysCreateMask);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateBrushIndirect(const LogBrush: TLogBrush
|
||||
): HBRUSH;
|
||||
begin
|
||||
Result:=inherited CreateBrushIndirect(LogBrush);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateCaret(Handle: HWND; Bitmap: hBitmap; width,
|
||||
Height: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited CreateCaret(Handle, Bitmap, width, Height);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateCompatibleBitmap(DC: HDC; Width, Height: Integer
|
||||
): HBITMAP;
|
||||
begin
|
||||
Result:=inherited CreateCompatibleBitmap(DC, Width, Height);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateCompatibleDC(DC: HDC): HDC;
|
||||
begin
|
||||
Result:=inherited CreateCompatibleDC(DC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateFontIndirect(const LogFont: TLogFont): HFONT;
|
||||
begin
|
||||
Result:=inherited CreateFontIndirect(LogFont);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateFontIndirectEx(const LogFont: TLogFont;
|
||||
const LongFontName: string): HFONT;
|
||||
begin
|
||||
Result:=inherited CreateFontIndirectEx(LogFont, LongFontName);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreatePalette(const LogPalette: TLogPalette
|
||||
): HPALETTE;
|
||||
begin
|
||||
Result:=inherited CreatePalette(LogPalette);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreatePenIndirect(const LogPen: TLogPen): HPEN;
|
||||
begin
|
||||
Result:=inherited CreatePenIndirect(LogPen);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreatePixmapIndirect(const Data: Pointer;
|
||||
const TransColor: Longint): HBITMAP;
|
||||
begin
|
||||
Result:=inherited CreatePixmapIndirect(Data, TransColor);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreatePolygonRgn(Points: PPoint; NumPts: Integer;
|
||||
FillMode: integer): HRGN;
|
||||
begin
|
||||
Result:=inherited CreatePolygonRgn(Points, NumPts, FillMode);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.CreateRectRgn(X1, Y1, X2, Y2: Integer): HRGN;
|
||||
begin
|
||||
Result:=inherited CreateRectRgn(X1, Y1, X2, Y2);
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.DeleteCriticalSection(
|
||||
var CritSection: TCriticalSection);
|
||||
begin
|
||||
inherited DeleteCriticalSection(CritSection);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DeleteDC(hDC: HDC): Boolean;
|
||||
begin
|
||||
Result:=inherited DeleteDC(hDC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DeleteObject(GDIObject: HGDIOBJ): Boolean;
|
||||
begin
|
||||
Result:=inherited DeleteObject(GDIObject);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DestroyCaret(Handle: HWND): Boolean;
|
||||
begin
|
||||
Result:=inherited DestroyCaret(Handle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DrawFrameControl(DC: HDC; var Rect: TRect; uType,
|
||||
uState: Cardinal): Boolean;
|
||||
begin
|
||||
Result:=inherited DrawFrameControl(DC, Rect, uType, uState);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DrawEdge(DC: HDC; var ARect: TRect; Edge: Cardinal;
|
||||
grfFlags: Cardinal): Boolean;
|
||||
begin
|
||||
Result:=inherited DrawEdge(DC, ARect, Edge, grfFlags);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.DrawText(DC: HDC; Str: PChar; Count: Integer;
|
||||
var Rect: TRect; Flags: Cardinal): Integer;
|
||||
begin
|
||||
Result:=inherited DrawText(DC, Str, Count, Rect, Flags);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.Ellipse(DC: HDC; x1, y1, x2, y2: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited Ellipse(DC, x1, y1, x2, y2);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.EnableScrollBar(Wnd: HWND; wSBflags, wArrows: Cardinal
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited EnableScrollBar(Wnd, wSBflags, wArrows);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean;
|
||||
begin
|
||||
Result:=inherited EnableWindow(hWnd, bEnable);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.EndPaint(Handle: hwnd; var PS: TPaintStruct): Integer;
|
||||
begin
|
||||
Result:=inherited EndPaint(Handle, PS);
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.EnterCriticalSection(var CritSection: TCriticalSection
|
||||
);
|
||||
begin
|
||||
inherited EnterCriticalSection(CritSection);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.EnumFontFamilies(DC: HDC; Family: Pchar;
|
||||
EnumFontFamProc: FontEnumProc; LParam: Lparam): longint;
|
||||
begin
|
||||
Result:=inherited EnumFontFamilies(DC, Family, EnumFontFamProc, LParam);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont;
|
||||
Callback: FontEnumExProc; Lparam: LParam; Flags: dword): longint;
|
||||
begin
|
||||
Result:=inherited EnumFontFamiliesEx(DC, lpLogFont, Callback, Lparam, Flags);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ExcludeClipRect(dc: hdc; Left, Top, Right,
|
||||
Bottom: Integer): Integer;
|
||||
begin
|
||||
Result:=inherited ExcludeClipRect(dc, Left, Top, Right, Bottom);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint;
|
||||
Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean;
|
||||
begin
|
||||
Result:=inherited ExtTextOut(DC, X, Y, Options, Rect, Str, Count, Dx);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ExtSelectClipRGN(dc: hdc; rgn: hrgn; Mode: Longint
|
||||
): Integer;
|
||||
begin
|
||||
Result:=inherited ExtSelectClipRGN(dc, rgn, Mode);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited FillRect(DC, Rect, Brush);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.Frame(DC: HDC; const ARect: TRect): Integer;
|
||||
begin
|
||||
Result:=inherited Frame(DC, ARect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.Frame3d(DC: HDC; var ARect: TRect;
|
||||
const FrameWidth: integer; const Style: TBevelCut): Boolean;
|
||||
begin
|
||||
Result:=inherited Frame3d(DC, ARect, FrameWidth, Style);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH
|
||||
): Integer;
|
||||
begin
|
||||
Result:=inherited FrameRect(DC, ARect, hBr);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetActiveWindow: HWND;
|
||||
begin
|
||||
Result:=inherited GetActiveWindow;
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetBitmapBits(Bitmap: HBITMAP; Count: Longint;
|
||||
Bits: Pointer): Longint;
|
||||
begin
|
||||
Result:=inherited GetBitmapBits(Bitmap, Count, Bits);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetBitmapRawImageDescription(Bitmap: HBITMAP;
|
||||
Desc: PRawImageDescription): boolean;
|
||||
begin
|
||||
Result:=inherited GetBitmapRawImageDescription(Bitmap, Desc);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetCapture: HWND;
|
||||
begin
|
||||
Result:=inherited GetCapture;
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetCaretPos(var lpPoint: TPoint): Boolean;
|
||||
begin
|
||||
Result:=inherited GetCaretPos(lpPoint);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetCaretRespondToFocus(handle: HWND;
|
||||
var ShowHideOnFocus: boolean): Boolean;
|
||||
begin
|
||||
Result:=inherited GetCaretRespondToFocus(handle, ShowHideOnFocus);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetCharABCWidths(DC: HDC; p2, p3: UINT;
|
||||
const ABCStructs): Boolean;
|
||||
begin
|
||||
Result:=inherited GetCharABCWidths(DC, p2, p3, ABCStructs);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetClientBounds(handle: HWND; var ARect: TRect
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited GetClientBounds(handle, ARect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetClientRect(handle: HWND; var ARect: TRect
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited GetClientRect(handle, ARect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetClipBox(DC: hDC; lpRect: PRect): Longint;
|
||||
begin
|
||||
Result:=inherited GetClipBox(DC, lpRect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetClipRGN(DC: hDC; RGN: hRGN): Longint;
|
||||
begin
|
||||
Result:=inherited GetClipRGN(DC, RGN);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetCmdLineParamDescForInterface: string;
|
||||
begin
|
||||
Result:=inherited GetCmdLineParamDescForInterface;
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetCursorPos(var lpPoint: TPoint): Boolean;
|
||||
begin
|
||||
Result:=inherited GetCursorPos(lpPoint);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetDC(hWnd: HWND): HDC;
|
||||
begin
|
||||
Result:=inherited GetDC(hWnd);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetDCOriginRelativeToWindow(PaintDC: HDC;
|
||||
WindowHandle: HWND; var OriginDiff: TPoint): boolean;
|
||||
begin
|
||||
Result:=inherited GetDCOriginRelativeToWindow(PaintDC, WindowHandle,
|
||||
OriginDiff);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetDesignerDC(WindowHandle: HWND): HDC;
|
||||
begin
|
||||
Result:=inherited GetDesignerDC(WindowHandle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetDeviceCaps(DC: HDC; Index: Integer): Integer;
|
||||
begin
|
||||
Result:=inherited GetDeviceCaps(DC, Index);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetDeviceRawImageDescription(DC: HDC;
|
||||
Desc: PRawImageDescription): boolean;
|
||||
begin
|
||||
Result:=inherited GetDeviceRawImageDescription(DC, Desc);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetDeviceSize(DC: HDC; var p: TPoint): boolean;
|
||||
begin
|
||||
Result:=inherited GetDeviceSize(DC, p);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan,
|
||||
NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT
|
||||
): Integer;
|
||||
begin
|
||||
Result:=inherited GetDIBits(DC, Bitmap, StartScan, NumScans, Bits, BitInfo,
|
||||
Usage);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetFocus: HWND;
|
||||
begin
|
||||
Result:=inherited GetFocus;
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetFontLanguageInfo(DC: HDC): DWord;
|
||||
begin
|
||||
Result:=inherited GetFontLanguageInfo(DC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetKeyState(nVirtKey: Integer): Smallint;
|
||||
begin
|
||||
Result:=inherited GetKeyState(nVirtKey);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetObject(GDIObj: HGDIOBJ; BufSize: Integer;
|
||||
Buf: Pointer): Integer;
|
||||
begin
|
||||
Result:=inherited GetObject(GDIObj, BufSize, Buf);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetParent(Handle: HWND): HWND;
|
||||
begin
|
||||
Result:=inherited GetParent(Handle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetProp(Handle: hwnd; Str: PChar): Pointer;
|
||||
begin
|
||||
Result:=inherited GetProp(Handle, Str);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetRawImageFromDevice(SrcDC: HDC;
|
||||
const SrcRect: TRect; var NewRawImage: TRawImage): boolean;
|
||||
begin
|
||||
Result:=inherited GetRawImageFromDevice(SrcDC, SrcRect, NewRawImage);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetRawImageFromBitmap(SrcBitmap,
|
||||
SrcMaskBitmap: HBITMAP; const SrcRect: TRect; var NewRawImage: TRawImage
|
||||
): boolean;
|
||||
begin
|
||||
Result:=inherited GetRawImageFromBitmap(SrcBitmap, SrcMaskBitmap, SrcRect,
|
||||
NewRawImage);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetRgnBox(RGN: HRGN; lpRect: PRect): Longint;
|
||||
begin
|
||||
Result:=inherited GetRgnBox(RGN, lpRect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetROP2(DC: HDC): Integer;
|
||||
begin
|
||||
Result:=inherited GetROP2(DC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetScrollBarSize(Handle: HWND; BarKind: Integer
|
||||
): integer;
|
||||
begin
|
||||
Result:=inherited GetScrollBarSize(Handle, BarKind);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetScrollbarVisible(Handle: HWND; SBStyle: Integer
|
||||
): boolean;
|
||||
begin
|
||||
Result:=inherited GetScrollbarVisible(Handle, SBStyle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetScrollInfo(Handle: HWND; SBStyle: Integer;
|
||||
var ScrollInfo: TScrollInfo): Boolean;
|
||||
begin
|
||||
Result:=inherited GetScrollInfo(Handle, SBStyle, ScrollInfo);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetStockObject(Value: Integer): LongInt;
|
||||
begin
|
||||
Result:=inherited GetStockObject(Value);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetSysColor(nIndex: Integer): DWORD;
|
||||
begin
|
||||
Result:=inherited GetSysColor(nIndex);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetSystemMetrics(nIndex: Integer): Integer;
|
||||
begin
|
||||
Result:=inherited GetSystemMetrics(nIndex);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetTextColor(DC: HDC): TColorRef;
|
||||
begin
|
||||
Result:=inherited GetTextColor(DC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetTextExtentPoint(DC: HDC; Str: PChar;
|
||||
Count: Integer; var Size: TSize): Boolean;
|
||||
begin
|
||||
Result:=inherited GetTextExtentPoint(DC, Str, Count, Size);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetTextMetrics(DC: HDC; var TM: TTextMetric): Boolean;
|
||||
begin
|
||||
Result:=inherited GetTextMetrics(DC, TM);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetWindowLong(Handle: hwnd; int: Integer): PtrInt;
|
||||
begin
|
||||
Result:=inherited GetWindowLong(Handle, int);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetWindowOrgEx(dc: hdc; P: PPoint): Integer;
|
||||
begin
|
||||
Result:=inherited GetWindowOrgEx(dc, P);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetWindowRect(Handle: hwnd; var ARect: TRect
|
||||
): Integer;
|
||||
begin
|
||||
Result:=inherited GetWindowRect(Handle, ARect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetWindowRelativePosition(Handle: hwnd; var Left,
|
||||
Top: integer): boolean;
|
||||
begin
|
||||
Result:=inherited GetWindowRelativePosition(Handle, Left, Top);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GetWindowSize(Handle: hwnd; var Width, Height: integer
|
||||
): boolean;
|
||||
begin
|
||||
Result:=inherited GetWindowSize(Handle, Width, Height);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.GradientFill(DC: HDC; Vertices: PTriVertex;
|
||||
NumVertices: Longint; Meshes: Pointer; NumMeshes: Longint; Mode: Longint
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited GradientFill(DC, Vertices, NumVertices, Meshes, NumMeshes,
|
||||
Mode);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.HideCaret(hWnd: HWND): Boolean;
|
||||
begin
|
||||
Result:=inherited HideCaret(hWnd);
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.InitializeCriticalSection(
|
||||
var CritSection: TCriticalSection);
|
||||
begin
|
||||
inherited InitializeCriticalSection(CritSection);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.IntersectClipRect(dc: hdc; Left, Top, Right,
|
||||
Bottom: Integer): Integer;
|
||||
begin
|
||||
Result:=inherited IntersectClipRect(dc, Left, Top, Right, Bottom);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.InvalidateRect(aHandle: HWND; Rect: pRect;
|
||||
bErase: Boolean): Boolean;
|
||||
begin
|
||||
Result:=inherited InvalidateRect(aHandle, Rect, bErase);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.IsWindowEnabled(handle: HWND): boolean;
|
||||
begin
|
||||
Result:=inherited IsWindowEnabled(handle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.IsWindowVisible(handle: HWND): boolean;
|
||||
begin
|
||||
Result:=inherited IsWindowVisible(handle);
|
||||
end;
|
||||
|
||||
procedure TWinCEWidgetSet.LeaveCriticalSection(var CritSection: TCriticalSection
|
||||
);
|
||||
begin
|
||||
inherited LeaveCriticalSection(CritSection);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.LineTo(DC: HDC; X, Y: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited LineTo(DC, X, Y);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.MessageBox(hWnd: HWND; lpText, lpCaption: PChar;
|
||||
uType: Cardinal): integer;
|
||||
begin
|
||||
Result:=inherited MessageBox(hWnd, lpText, lpCaption, uType);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.MoveToEx(DC: HDC; X, Y: Integer; OldPoint: PPoint
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited MoveToEx(DC, X, Y, OldPoint);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.MoveWindowOrgEx(DC: HDC; dX, dY: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited MoveWindowOrgEx(DC, dX, dY);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.PairSplitterAddSide(SplitterHandle, SideHandle: hWnd;
|
||||
Side: integer): Boolean;
|
||||
begin
|
||||
Result:=inherited PairSplitterAddSide(SplitterHandle, SideHandle, Side);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.PairSplitterGetInterfaceInfo: Boolean;
|
||||
begin
|
||||
Result:=inherited PairSplitterGetInterfaceInfo;
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.PairSplitterRemoveSide(SplitterHandle,
|
||||
SideHandle: hWnd; Side: integer): Boolean;
|
||||
begin
|
||||
Result:=inherited PairSplitterRemoveSide(SplitterHandle, SideHandle, Side);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.PairSplitterSetPosition(SplitterHandle: hWnd;
|
||||
var NewPosition: integer): Boolean;
|
||||
begin
|
||||
Result:=inherited PairSplitterSetPosition(SplitterHandle, NewPosition);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.PeekMessage(var lpMsg: TMsg; Handle: HWND;
|
||||
wMsgFilterMin, wMsgFilterMax, wRemoveMsg: UINT): Boolean;
|
||||
begin
|
||||
Result:=inherited PeekMessage(lpMsg, Handle, wMsgFilterMin, wMsgFilterMax,
|
||||
wRemoveMsg);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.PolyBezier(DC: HDC; Points: PPoint; NumPts: Integer;
|
||||
Filled, Continuous: boolean): boolean;
|
||||
begin
|
||||
Result:=inherited PolyBezier(DC, Points, NumPts, Filled, Continuous);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.Polygon(DC: HDC; Points: PPoint; NumPts: Integer;
|
||||
Winding: boolean): boolean;
|
||||
begin
|
||||
Result:=inherited Polygon(DC, Points, NumPts, Winding);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.Polyline(DC: HDC; Points: PPoint; NumPts: Integer
|
||||
): boolean;
|
||||
begin
|
||||
Result:=inherited Polyline(DC, Points, NumPts);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.PostMessage(Handle: HWND; Msg: Cardinal;
|
||||
wParam: WParam; lParam: LParam): Boolean;
|
||||
begin
|
||||
Result:=inherited PostMessage(Handle, Msg, wParam, lParam);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RadialArc(DC: HDC; x, y, width, height, sx, sy, ex,
|
||||
ey: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited RadialArc(DC, x, y, width, height, sx, sy, ex, ey);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RadialChord(DC: HDC; x, y, width, height, sx, sy, ex,
|
||||
ey: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited RadialChord(DC, x, y, width, height, sx, sy, ex, ey);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RadialPie(DC: HDC; x, y, width, height, sx, sy, ex,
|
||||
ey: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited RadialPie(DC, x, y, width, height, sx, sy, ex, ey);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RealizePalette(DC: HDC): Cardinal;
|
||||
begin
|
||||
Result:=inherited RealizePalette(DC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited Rectangle(DC, X1, Y1, X2, Y2);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RectVisible(dc: hdc; const ARect: TRect): Boolean;
|
||||
begin
|
||||
Result:=inherited RectVisible(dc, ARect);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RegroupMenuItem(hndMenu: HMENU; GroupIndex: integer
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited RegroupMenuItem(hndMenu, GroupIndex);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ReleaseCapture: Boolean;
|
||||
begin
|
||||
Result:=inherited ReleaseCapture;
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ReleaseDC(hWnd: HWND; DC: HDC): Integer;
|
||||
begin
|
||||
Result:=inherited ReleaseDC(hWnd, DC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RemoveProp(Handle: hwnd; Str: PChar): THandle;
|
||||
begin
|
||||
Result:=inherited RemoveProp(Handle, Str);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RestoreDC(DC: HDC; SavedDC: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited RestoreDC(DC, SavedDC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.RoundRect(DC: hDC; X1, Y1, X2, Y2: Integer; RX,
|
||||
RY: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited RoundRect(DC, X1, Y1, X2, Y2, RX, RY);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SaveDC(DC: HDC): Integer;
|
||||
begin
|
||||
Result:=inherited SaveDC(DC);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ScreenToClient(Handle: HWND; var P: TPoint): Integer;
|
||||
begin
|
||||
Result:=inherited ScreenToClient(Handle, P);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ScrollWindowEx(hWnd: HWND; dx, dy: Integer; prcScroll,
|
||||
prcClip: PRect; hrgnUpdate: HRGN; prcUpdate: PRect; flags: UINT): Boolean;
|
||||
begin
|
||||
Result:=inherited ScrollWindowEx(hWnd, dx, dy, prcScroll, prcClip,
|
||||
hrgnUpdate, prcUpdate, flags);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SelectClipRGN(DC: hDC; RGN: HRGN): Longint;
|
||||
begin
|
||||
Result:=inherited SelectClipRGN(DC, RGN);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SelectObject(DC: HDC; GDIObj: HGDIOBJ): HGDIOBJ;
|
||||
begin
|
||||
Result:=inherited SelectObject(DC, GDIObj);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SelectPalette(DC: HDC; Palette: HPALETTE;
|
||||
ForceBackground: Boolean): HPALETTE;
|
||||
begin
|
||||
Result:=inherited SelectPalette(DC, Palette, ForceBackground);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SendMessage(HandleWnd: HWND; Msg: Cardinal;
|
||||
wParam: WParam; lParam: LParam): LResult;
|
||||
begin
|
||||
Result:=inherited SendMessage(HandleWnd, Msg, wParam, lParam);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetActiveWindow(Handle: HWND): HWND;
|
||||
begin
|
||||
Result:=inherited SetActiveWindow(Handle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetBkColor(DC: HDC; Color: TColorRef): TColorRef;
|
||||
begin
|
||||
Result:=inherited SetBkColor(DC, Color);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetBkMode(DC: HDC; bkMode: Integer): Integer;
|
||||
begin
|
||||
Result:=inherited SetBkMode(DC, bkMode);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetComboMinDropDownSize(Handle: HWND; MinItemsWidth,
|
||||
MinItemsHeight, MinItemCount: integer): boolean;
|
||||
begin
|
||||
Result:=inherited SetComboMinDropDownSize(Handle, MinItemsWidth,
|
||||
MinItemsHeight, MinItemCount);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetCapture(AHandle: HWND): HWND;
|
||||
begin
|
||||
Result:=inherited SetCapture(AHandle);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetCaretPos(X, Y: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited SetCaretPos(X, Y);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetCaretPosEx(Handle: HWnd; X, Y: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited SetCaretPosEx(Handle, X, Y);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetCaretRespondToFocus(handle: HWND;
|
||||
ShowHideOnFocus: boolean): Boolean;
|
||||
begin
|
||||
Result:=inherited SetCaretRespondToFocus(handle, ShowHideOnFocus);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetCursorPos(X, Y: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited SetCursorPos(X, Y);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetFocus(hWnd: HWND): HWND;
|
||||
begin
|
||||
Result:=inherited SetFocus(hWnd);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetProp(Handle: hwnd; Str: PChar; Data: Pointer
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited SetProp(Handle, Str, Data);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetROP2(DC: HDC; Mode: Integer): Integer;
|
||||
begin
|
||||
Result:=inherited SetROP2(DC, Mode);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetScrollInfo(Handle: HWND; SBStyle: Integer;
|
||||
ScrollInfo: TScrollInfo; bRedraw: Boolean): Integer;
|
||||
begin
|
||||
Result:=inherited SetScrollInfo(Handle, SBStyle, ScrollInfo, bRedraw);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetSysColors(cElements: Integer; const lpaElements;
|
||||
const lpaRgbValues): Boolean;
|
||||
begin
|
||||
Result:=inherited SetSysColors(cElements, lpaElements, lpaRgbValues);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetTextCharacterExtra(_hdc: hdc; nCharExtra: Integer
|
||||
): Integer;
|
||||
begin
|
||||
Result:=inherited SetTextCharacterExtra(_hdc, nCharExtra);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetTextColor(DC: HDC; Color: TColorRef): TColorRef;
|
||||
begin
|
||||
Result:=inherited SetTextColor(DC, Color);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetWindowLong(Handle: HWND; Idx: Integer;
|
||||
NewLong: PtrInt): PtrInt;
|
||||
begin
|
||||
Result:=inherited SetWindowLong(Handle, Idx, NewLong);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetWindowOrgEx(dc: hdc; NewX, NewY: Integer;
|
||||
OldPoint: PPoint): Boolean;
|
||||
begin
|
||||
Result:=inherited SetWindowOrgEx(dc, NewX, NewY, OldPoint);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND; X, Y,
|
||||
cx, cy: Integer; uFlags: UINT): Boolean;
|
||||
begin
|
||||
Result:=inherited SetWindowPos(hWnd, hWndInsertAfter, X, Y, cx, cy, uFlags);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ShowCaret(hWnd: HWND): Boolean;
|
||||
begin
|
||||
Result:=inherited ShowCaret(hWnd);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ShowScrollBar(Handle: HWND; wBar: Integer;
|
||||
bShow: Boolean): Boolean;
|
||||
begin
|
||||
Result:=inherited ShowScrollBar(Handle, wBar, bShow);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited ShowWindow(hWnd, nCmdShow);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer;
|
||||
SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; ROp: Cardinal
|
||||
): Boolean;
|
||||
begin
|
||||
Result:=inherited StretchBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc, YSrc,
|
||||
SrcWidth, SrcHeight, ROp);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.StretchMaskBlt(DestDC: HDC; X, Y, Width,
|
||||
Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer;
|
||||
Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean;
|
||||
begin
|
||||
Result:=inherited StretchMaskBlt(DestDC, X, Y, Width, Height, SrcDC, XSrc,
|
||||
YSrc, SrcWidth, SrcHeight, Mask, XMask, YMask, Rop);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.TextOut(DC: HDC; X, Y: Integer; Str: Pchar;
|
||||
Count: Integer): Boolean;
|
||||
begin
|
||||
Result:=inherited TextOut(DC, X, Y, Str, Count);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.VkKeyScan(AChar: Char): Short;
|
||||
begin
|
||||
Result:=inherited VkKeyScan(AChar);
|
||||
end;
|
||||
|
||||
function TWinCEWidgetSet.WindowFromPoint(Point: TPoint): HWND;
|
||||
begin
|
||||
Result:=inherited WindowFromPoint(Point);
|
||||
end;
|
||||
|
||||
//##apiwiz##epi## // Do not remove
|
||||
230
lcl/interfaces/wince/wincewinapih.inc
Normal file
230
lcl/interfaces/wince/wincewinapih.inc
Normal file
@ -0,0 +1,230 @@
|
||||
{%MainUnit winceint.pp}
|
||||
|
||||
(******************************************************************************
|
||||
All Winapi related stuff goes here.
|
||||
This file is used by both LCLIntf.pas and InterfaceBase.pp
|
||||
If a procedure is platform dependent then it should have the following tail:
|
||||
{$IFDEF IF_BASE_MEMBER}virtual;{$ENDIF}
|
||||
If a procedure isn't platform dependent, it is no part of InterfaseBase and
|
||||
should be surrounded by:
|
||||
{$IFNDEF IF_BASE_MEMBER}
|
||||
procedure MyProc;
|
||||
{$ENDIF}
|
||||
|
||||
!! Keep this alphabetical and place a pointer to the independent part
|
||||
!! if needed
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
******************************************************************************)
|
||||
|
||||
{******************************************************************************
|
||||
Platform specific stuff
|
||||
|
||||
Note:
|
||||
the IFNDEF IF_BASE_MEMBER section is at the end
|
||||
******************************************************************************}
|
||||
//##apiwiz##sps## // Do not remove
|
||||
|
||||
function Arc(DC: HDC; Left,Top,width,height,angle1,angle2 : Integer): Boolean; override;
|
||||
function AngleChord(DC: HDC; x,y,width,height,angle1,angle2 : Integer): Boolean; override;
|
||||
|
||||
function BeginPaint(Handle: hWnd; Var PS : TPaintStruct) : hdc; override;
|
||||
function BitBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc: Integer; Rop: DWORD): Boolean; override;
|
||||
Function BringWindowToTop(hWnd : HWND): Boolean; override;
|
||||
|
||||
function CallNextHookEx(hHk: HHOOK; ncode : Integer; wParam: WParam; lParam : LParam) : Integer; override;
|
||||
Function CallWindowProc(lpPrevWndFunc : TFarProc; Handle : HWND; Msg : UINT; wParam: WParam; lParam : lParam) : Integer; override;
|
||||
Function ClientToScreen(Handle : HWND; var P : TPoint) : Boolean;override;
|
||||
|
||||
// clipboard
|
||||
function ClipboardFormatToMimeType(FormatID: TClipboardFormat): string; override;
|
||||
function ClipboardGetData(ClipboardType: TClipboardType;
|
||||
FormatID: TClipboardFormat; Stream: TStream): boolean; override;
|
||||
// ! List will be created. You must free it yourself with FreeMem(List) !
|
||||
function ClipboardGetFormats(ClipboardType: TClipboardType;
|
||||
var Count: integer; var List: PClipboardFormat): boolean; override;
|
||||
function ClipboardGetOwnerShip(ClipboardType: TClipboardType;
|
||||
OnRequestProc: TClipboardRequestEvent; FormatCount: integer;
|
||||
Formats: PClipboardFormat): boolean; override;
|
||||
function ClipboardRegisterFormat(const AMimeType: string): TClipboardFormat; override;
|
||||
|
||||
Function CombineRgn(Dest, Src1, Src2 : HRGN; fnCombineMode : Longint) : Longint; override;
|
||||
function ComboBoxDropDown(Handle: HWND; DropDown: boolean): boolean; override;
|
||||
function CreateBitmap(Width, Height: Integer; Planes, BitCount: Longint; BitmapBits: Pointer): HBITMAP; override;
|
||||
function CreateBitmapFromRawImage(const RawImage: TRawImage; var Bitmap, MaskBitmap: HBitmap; AlwaysCreateMask: boolean): boolean; override;
|
||||
function CreateBrushIndirect(const LogBrush: TLogBrush): HBRUSH; override;
|
||||
function CreateCaret(Handle : HWND; Bitmap : hBitmap; width, Height : Integer) : Boolean; override;
|
||||
function CreateCompatibleBitmap(DC: HDC; Width, Height: Integer): HBITMAP; override;
|
||||
function CreateCompatibleDC(DC: HDC): HDC; override;
|
||||
function CreateFontIndirect(const LogFont: TLogFont): HFONT; override;
|
||||
function CreateFontIndirectEx(const LogFont: TLogFont; const LongFontName: string): HFONT; override;
|
||||
function CreatePalette(const LogPalette: TLogPalette): HPALETTE; override;
|
||||
function CreatePenIndirect(const LogPen: TLogPen): HPEN; override;
|
||||
function CreatePixmapIndirect(const Data: Pointer; const TransColor: Longint): HBITMAP; override;
|
||||
Function CreatePolygonRgn(Points: PPoint; NumPts: Integer; FillMode: integer): HRGN; Override;
|
||||
function CreateRectRgn(X1,Y1,X2,Y2 : Integer): HRGN; override;
|
||||
|
||||
procedure DeleteCriticalSection(var CritSection: TCriticalSection); override;
|
||||
function DeleteDC(hDC: HDC): Boolean; override;
|
||||
function DeleteObject(GDIObject: HGDIOBJ): Boolean; override;
|
||||
function DestroyCaret(Handle : HWND): Boolean; override;
|
||||
Function DrawFrameControl(DC: HDC; var Rect : TRect; uType, uState : Cardinal) : Boolean; override;
|
||||
function DrawEdge(DC: HDC; var ARect: TRect; Edge: Cardinal; grfFlags: Cardinal): Boolean; override;
|
||||
function DrawText(DC: HDC; Str: PChar; Count: Integer; var Rect: TRect; Flags: Cardinal): Integer; Override;
|
||||
|
||||
function Ellipse(DC: HDC; x1,y1,x2,y2: Integer): Boolean; override;
|
||||
function EnableScrollBar(Wnd: HWND; wSBflags, wArrows: Cardinal): Boolean; override;
|
||||
function EnableWindow(hWnd: HWND; bEnable: Boolean): Boolean; override;
|
||||
function EndPaint(Handle : hwnd; var PS : TPaintStruct): Integer; override;
|
||||
procedure EnterCriticalSection(var CritSection: TCriticalSection); Override;
|
||||
function EnumFontFamilies(DC: HDC; Family: Pchar; EnumFontFamProc: FontEnumProc; LParam:Lparam):longint; override;
|
||||
function EnumFontFamiliesEx(DC: HDC; lpLogFont: PLogFont; Callback: FontEnumExProc; Lparam: LParam; Flags: dword): longint; override;
|
||||
function ExcludeClipRect(dc: hdc; Left, Top, Right, Bottom : Integer) : Integer; override;
|
||||
function ExtTextOut(DC: HDC; X, Y: Integer; Options: Longint; Rect: PRect; Str: PChar; Count: Longint; Dx: PInteger): Boolean; override;
|
||||
function ExtSelectClipRGN(dc: hdc; rgn : hrgn; Mode : Longint) : Integer; override;
|
||||
|
||||
function FillRect(DC: HDC; const Rect: TRect; Brush: HBRUSH): Boolean; override;
|
||||
function Frame(DC: HDC; const ARect: TRect): Integer; override;
|
||||
function Frame3d(DC: HDC; var ARect: TRect; const FrameWidth : integer; const Style : TBevelCut): Boolean; override;
|
||||
function FrameRect(DC: HDC; const ARect: TRect; hBr: HBRUSH): Integer; override;
|
||||
|
||||
Function GetActiveWindow : HWND; override;
|
||||
function GetBitmapBits(Bitmap: HBITMAP; Count: Longint; Bits: Pointer): Longint; override;
|
||||
function GetBitmapRawImageDescription(Bitmap: HBITMAP; Desc: PRawImageDescription): boolean; override;
|
||||
function GetCapture: HWND; override;
|
||||
function GetCaretPos(var lpPoint: TPoint): Boolean; override;
|
||||
function GetCaretRespondToFocus(handle: HWND; var ShowHideOnFocus: boolean): Boolean; override;
|
||||
function GetCharABCWidths(DC: HDC; p2, p3: UINT; const ABCStructs): Boolean; override;
|
||||
Function GetClientBounds(handle : HWND; var ARect : TRect) : Boolean; override;
|
||||
Function GetClientRect(handle : HWND; var ARect : TRect) : Boolean; override;
|
||||
Function GetClipBox(DC : hDC; lpRect : PRect) : Longint; override;
|
||||
Function GetClipRGN(DC : hDC; RGN : hRGN) : Longint; override;
|
||||
Function GetCmdLineParamDescForInterface: string; override;
|
||||
function GetCursorPos(var lpPoint: TPoint): Boolean; override;
|
||||
function GetDC(hWnd: HWND): HDC; override;
|
||||
function GetDCOriginRelativeToWindow(PaintDC: HDC; WindowHandle: HWND; var OriginDiff: TPoint): boolean; override;
|
||||
function GetDesignerDC(WindowHandle: HWND): HDC; override;
|
||||
function GetDeviceCaps(DC: HDC; Index: Integer): Integer; Override;
|
||||
function GetDeviceRawImageDescription(DC: HDC; Desc: PRawImageDescription): boolean; override;
|
||||
function GetDeviceSize(DC: HDC; var p: TPoint): boolean; override;
|
||||
function GetDIBits(DC: HDC; Bitmap: HBitmap; StartScan, NumScans: UINT; Bits: Pointer; var BitInfo: BitmapInfo; Usage: UINT): Integer; Override;
|
||||
function GetFocus: HWND; override;
|
||||
function GetFontLanguageInfo(DC: HDC): DWord; override;
|
||||
function GetKeyState(nVirtKey: Integer): Smallint; override;
|
||||
function GetObject(GDIObj: HGDIOBJ; BufSize: Integer; Buf: Pointer): Integer; override;
|
||||
Function GetParent(Handle : HWND): HWND; override;
|
||||
Function GetProp(Handle : hwnd; Str : PChar): Pointer; override;
|
||||
function GetRawImageFromDevice(SrcDC: HDC; const SrcRect: TRect; var NewRawImage: TRawImage): boolean; override;
|
||||
function GetRawImageFromBitmap(SrcBitmap, SrcMaskBitmap: HBITMAP; const SrcRect: TRect; var NewRawImage: TRawImage): boolean; override;
|
||||
Function GetRgnBox(RGN : HRGN; lpRect : PRect) : Longint; override;
|
||||
function GetROP2(DC: HDC): Integer; override;
|
||||
function GetScrollBarSize(Handle: HWND; BarKind: Integer): integer; override;
|
||||
function GetScrollbarVisible(Handle: HWND; SBStyle: Integer): boolean; override;
|
||||
function GetScrollInfo(Handle: HWND; SBStyle: Integer; var ScrollInfo: TScrollInfo): Boolean; override;
|
||||
function GetStockObject(Value: Integer): LongInt; override;
|
||||
function GetSysColor(nIndex: Integer): DWORD; override;
|
||||
function GetSystemMetrics(nIndex: Integer): Integer; override;
|
||||
function GetTextColor(DC: HDC) : TColorRef; Override;
|
||||
function GetTextExtentPoint(DC: HDC; Str: PChar; Count: Integer; var Size: TSize): Boolean; override;
|
||||
function GetTextMetrics(DC: HDC; var TM: TTextMetric): Boolean; override;
|
||||
Function GetWindowLong(Handle : hwnd; int: Integer): PtrInt; override;
|
||||
Function GetWindowOrgEx(dc : hdc; P: PPoint): Integer; override;
|
||||
Function GetWindowRect(Handle : hwnd; var ARect: TRect): Integer; override;
|
||||
function GetWindowRelativePosition(Handle : hwnd; var Left, Top: integer): boolean; override;
|
||||
Function GetWindowSize(Handle : hwnd; var Width, Height: integer): boolean; override;
|
||||
function GradientFill(DC: HDC; Vertices: PTriVertex; NumVertices : Longint;
|
||||
Meshes: Pointer; NumMeshes : Longint; Mode : Longint): Boolean; Override;
|
||||
|
||||
function HideCaret(hWnd: HWND): Boolean; override;
|
||||
|
||||
Procedure InitializeCriticalSection(var CritSection: TCriticalSection); Override;
|
||||
function IntersectClipRect(dc: hdc; Left, Top, Right, Bottom: Integer): Integer; override;
|
||||
function InvalidateRect(aHandle : HWND; Rect : pRect; bErase : Boolean) : Boolean; override;
|
||||
function IsWindowEnabled(handle: HWND): boolean; override;
|
||||
function IsWindowVisible(handle: HWND): boolean; override;
|
||||
|
||||
Procedure LeaveCriticalSection(var CritSection: TCriticalSection); Override;
|
||||
function LineTo(DC: HDC; X, Y: Integer): Boolean; override;
|
||||
|
||||
function MessageBox(hWnd: HWND; lpText, lpCaption: PChar; uType: Cardinal): integer; override;
|
||||
function MoveToEx(DC: HDC; X, Y: Integer; OldPoint: PPoint): Boolean; override;
|
||||
function MoveWindowOrgEx(DC: HDC; dX, dY: Integer): Boolean; override;
|
||||
|
||||
function PairSplitterAddSide(SplitterHandle, SideHandle: hWnd; Side: integer): Boolean; override;
|
||||
function PairSplitterGetInterfaceInfo: Boolean; override;
|
||||
function PairSplitterRemoveSide(SplitterHandle, SideHandle: hWnd; Side: integer): Boolean; override;
|
||||
function PairSplitterSetPosition(SplitterHandle: hWnd; var NewPosition: integer): Boolean; override;
|
||||
function PeekMessage(var lpMsg : TMsg; Handle : HWND; wMsgFilterMin, wMsgFilterMax,wRemoveMsg : UINT): Boolean; override;
|
||||
function PolyBezier(DC: HDC; Points: PPoint; NumPts: Integer; Filled, Continuous: boolean): boolean; override;
|
||||
function Polygon(DC: HDC; Points: PPoint; NumPts: Integer; Winding: boolean): boolean; override;
|
||||
function Polyline(DC: HDC; Points: PPoint; NumPts: Integer): boolean; override;
|
||||
function PostMessage(Handle: HWND; Msg: Cardinal; wParam: WParam; lParam: LParam): Boolean; override;
|
||||
|
||||
function RadialArc(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; override;
|
||||
function RadialChord(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; override;
|
||||
function RadialPie(DC: HDC; x,y,width,height,sx,sy,ex,ey : Integer): Boolean; override;
|
||||
function RealizePalette(DC: HDC): Cardinal; override;
|
||||
function Rectangle(DC: HDC; X1, Y1, X2, Y2: Integer): Boolean; override;
|
||||
function RectVisible(dc : hdc; const ARect: TRect) : Boolean; override;
|
||||
function RegroupMenuItem(hndMenu: HMENU; GroupIndex: integer): Boolean; override;
|
||||
Function ReleaseCapture : Boolean; override;
|
||||
function ReleaseDC(hWnd: HWND; DC: HDC): Integer; override;
|
||||
function RemoveProp(Handle: hwnd; Str: PChar): THandle; override;
|
||||
function RestoreDC(DC: HDC; SavedDC: Integer): Boolean; override;
|
||||
Function RoundRect(DC : hDC; X1, Y1, X2, Y2: Integer; RX,RY : Integer): Boolean; override;
|
||||
|
||||
function SaveDC(DC: HDC): Integer; override;
|
||||
Function ScreenToClient(Handle : HWND; var P : TPoint) : Integer; override;
|
||||
function ScrollWindowEx(hWnd: HWND; dx, dy: Integer; prcScroll, prcClip: PRect; hrgnUpdate: HRGN; prcUpdate: PRect; flags: UINT): Boolean; override;
|
||||
Function SelectClipRGN(DC : hDC; RGN : HRGN) : Longint; override;
|
||||
function SelectObject(DC: HDC; GDIObj: HGDIOBJ): HGDIOBJ; override;
|
||||
function SelectPalette(DC: HDC; Palette: HPALETTE; ForceBackground: Boolean): HPALETTE; override;
|
||||
function SendMessage(HandleWnd: HWND; Msg: Cardinal; wParam: WParam; lParam: LParam): LResult; override;
|
||||
function SetActiveWindow(Handle: HWND): HWND; override;
|
||||
function SetBkColor(DC: HDC; Color: TColorRef): TColorRef; override;
|
||||
Function SetBkMode(DC: HDC; bkMode : Integer) : Integer; override;
|
||||
Function SetComboMinDropDownSize(Handle: HWND; MinItemsWidth, MinItemsHeight, MinItemCount: integer): boolean; override;
|
||||
function SetCapture(AHandle: HWND): HWND; override;
|
||||
function SetCaretPos(X, Y: Integer): Boolean; override;
|
||||
function SetCaretPosEx(Handle: HWnd; X, Y: Integer): Boolean; override;
|
||||
function SetCaretRespondToFocus(handle: HWND; ShowHideOnFocus: boolean): Boolean; override;
|
||||
function SetCursorPos(X, Y: Integer): Boolean; override;
|
||||
function SetFocus(hWnd: HWND): HWND; override;
|
||||
Function SetProp(Handle: hwnd; Str : PChar; Data : Pointer) : Boolean; override;
|
||||
function SetROP2(DC: HDC; Mode: Integer): Integer; override;
|
||||
function SetScrollInfo(Handle : HWND; SBStyle : Integer; ScrollInfo: TScrollInfo; bRedraw : Boolean): Integer; override;
|
||||
function SetSysColors(cElements: Integer; const lpaElements; const lpaRgbValues): Boolean; override;
|
||||
Function SetTextCharacterExtra(_hdc : hdc; nCharExtra : Integer):Integer; override;
|
||||
function SetTextColor(DC: HDC; Color: TColorRef): TColorRef; override;
|
||||
function SetWindowLong(Handle: HWND; Idx: Integer; NewLong: PtrInt): PtrInt; override;
|
||||
function SetWindowOrgEx(dc : hdc; NewX, NewY : Integer; OldPoint: PPoint) : Boolean; override;
|
||||
function SetWindowPos(hWnd: HWND; hWndInsertAfter: HWND;
|
||||
X, Y, cx, cy: Integer; uFlags: UINT): Boolean; override;
|
||||
function ShowCaret(hWnd: HWND): Boolean; override;
|
||||
function ShowScrollBar(Handle: HWND; wBar: Integer; bShow: Boolean): Boolean; override;
|
||||
function ShowWindow(hWnd: HWND; nCmdShow: Integer): Boolean; override;
|
||||
function StretchBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; ROp: Cardinal): Boolean; override;
|
||||
function StretchMaskBlt(DestDC: HDC; X, Y, Width, Height: Integer; SrcDC: HDC; XSrc, YSrc, SrcWidth, SrcHeight: Integer; Mask: HBITMAP; XMask, YMask: Integer; Rop: DWORD): Boolean; override;
|
||||
|
||||
Function TextOut(DC: HDC; X,Y : Integer; Str : Pchar; Count: Integer) : Boolean; override;
|
||||
|
||||
function VkKeyScan(AChar: Char): Short; override;
|
||||
|
||||
Function WindowFromPoint(Point : TPoint) : HWND; override;
|
||||
|
||||
//##apiwiz##eps## // Do not remove, no wizard declaration after this line
|
||||
|
||||
|
||||
|
||||
130
lcl/interfaces/wince/wincewscontrols.pp
Normal file
130
lcl/interfaces/wince/wincewscontrols.pp
Normal file
@ -0,0 +1,130 @@
|
||||
{ $Id: wscontrols.pp 7963 2005-10-12 22:22:02Z marc $}
|
||||
{
|
||||
*****************************************************************************
|
||||
* WSControls.pp *
|
||||
* ------------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
unit WinCEWSControls;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// 1) Only class methods allowed
|
||||
// 2) Class methods have to be published and virtual
|
||||
// 3) To get as little as posible circles, the uses
|
||||
// clause should contain only those LCL units
|
||||
// needed for registration. WSxxx units are OK
|
||||
// 4) To improve speed, register only classes in the
|
||||
// initialization section which actually
|
||||
// implement something
|
||||
// 5) To enable your XXX widgetset units, look at
|
||||
// the uses clause of the XXXintf.pp
|
||||
////////////////////////////////////////////////////
|
||||
uses
|
||||
Classes,
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
Controls, Graphics, LCLType,
|
||||
////////////////////////////////////////////////////
|
||||
WSLCLClasses, WSImgList, WSControls,
|
||||
{ TODO: remove when CreateHandle/Component code moved }
|
||||
InterfaceBase;
|
||||
|
||||
type
|
||||
{ TWinCEWSDragImageList }
|
||||
|
||||
TWinCEWSDragImageList = class(TWSDragImageList)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TWinCEWSControl }
|
||||
|
||||
TWinCEWSControl = class(TWSControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TWinCEWSWinControlPrivate }
|
||||
|
||||
TWinCEWSWinControlPrivate = class(TWSPrivate)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
TWinCEWSWinControlPrivateClass = class of TWinCEWSWinControlPrivate;
|
||||
|
||||
|
||||
{ TWinCEWSWinControl }
|
||||
|
||||
TWinCEWSWinControl = class(TWSWinControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TWinCEWSGraphicControl }
|
||||
|
||||
TWinCEWSGraphicControl = class(TWSGraphicControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TWinCEWSCustomControl }
|
||||
|
||||
TWinCEWSCustomControl = class(TWSCustomControl)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
{ TWinCEWSImageList }
|
||||
|
||||
TWinCEWSImageList = class(TWSImageList)
|
||||
private
|
||||
protected
|
||||
public
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
initialization
|
||||
|
||||
////////////////////////////////////////////////////
|
||||
// To improve speed, register only classes
|
||||
// which actually implement something
|
||||
////////////////////////////////////////////////////
|
||||
// RegisterWSComponent(TDragImageList, TWSDragImageList);
|
||||
// RegisterWSComponent(TControl, TWSControl);
|
||||
// RegisterWSComponent(TWinControl, TWSWinControl);
|
||||
// RegisterWSComponent(TGraphicControl, TWSGraphicControl);
|
||||
// RegisterWSComponent(TCustomControl, TWSCustomControl);
|
||||
// RegisterWSComponent(TImageList, TWSImageList);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
119
lcl/interfaces/wince/wincewsforms.pp
Normal file
119
lcl/interfaces/wince/wincewsforms.pp
Normal file
@ -0,0 +1,119 @@
|
||||
{ $Id: wsforms.pp 7361 2005-07-16 00:08:26Z marc $}
|
||||
{
|
||||
*****************************************************************************
|
||||
* WSForms.pp *
|
||||
* ---------- *
|
||||
* *
|
||||
* *
|
||||
*****************************************************************************
|
||||
|
||||
*****************************************************************************
|
||||
* *
|
||||
* This file is part of the Lazarus Component Library (LCL) *
|
||||
* *
|
||||
* See the file COPYING.LCL, included in this distribution, *
|
||||
* for details about the copyright. *
|
||||
* *
|
||||
* This program is distributed in the hope that it will be useful, *
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
|
||||
* *
|
||||
*****************************************************************************
|
||||
}
|
||||
unit WinCEWSForms;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
////////////////////////////////////////////////////
|
||||
// I M P O R T A N T
|
||||
////////////////////////////////////////////////////
|
||||
// 1) Only class methods allowed
|
||||
// 2) Class methods have to be published and virtual
|
||||
// 3) To get as little as posible circles, the uses
|
||||
// clause should contain only those LCL units
|
||||
// needed for registration. WSxxx units are OK
|
||||
// 4) To improve speed, register only classes in the
|
||||
// initialization section which actually
|
||||
// implement something
|
||||
// 5) To enable your XXX widgetset units, look at
|
||||
// the uses clause of the XXXintf.pp
|
||||
////////////////////////////////////////////////////
|
||||
uses
|
||||
////////////////////////////////////////////////////
|
||||
// To get as little as posible circles,
|
||||
// uncomment only when needed for registration
|
||||
////////////////////////////////////////////////////
|
||||
Forms,
|
||||
////////////////////////////////////////////////////
|
||||
WSLCLClasses, WSControls, Controls, LCLType, WSForms;
|
||||
|
||||
type
|
||||
{ TWSScrollingWinControl }
|
||||
|
||||
TWSScrollingWinControlClass = class of TWSScrollingWinControl;
|
||||
TWSScrollingWinControl = class(TWSWinControl)
|
||||
end;
|
||||
|
||||
{ TWSScrollBox }
|
||||
|
||||
TWSScrollBox = class(TWSScrollingWinControl)
|
||||
end;
|
||||
|
||||
{ TWSCustomFrame }
|
||||
|
||||
TWSCustomFrame = class(TWSScrollingWinControl)
|
||||
end;
|
||||
|
||||
{ TWSFrame }
|
||||
|
||||
TWSFrame = class(TWSCustomFrame)
|
||||
end;
|
||||
|
||||
{ TWSCustomForm }
|
||||
|
||||
TWSCustomForm = class(TWSScrollingWinControl)
|
||||
end;
|
||||
TWSCustomFormClass = class of TWSCustomForm;
|
||||
|
||||
{ TWSForm }
|
||||
|
||||
TWSForm = class(TWSCustomForm)
|
||||
end;
|
||||
|
||||
{ TWSHintWindow }
|
||||
|
||||
TWSHintWindow = class(TWSCustomForm)
|
||||
end;
|
||||
|
||||
{ TWSScreen }
|
||||
|
||||
TWSScreen = class(TWSLCLComponent)
|
||||
end;
|
||||
|
||||
{ TWSApplicationProperties }
|
||||
|
||||
TWSApplicationProperties = class(TWSLCLComponent)
|
||||
end;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
|
||||
initialization
|
||||
|
||||
////////////////////////////////////////////////////
|
||||
// To improve speed, register only classes
|
||||
// which actually implement something
|
||||
////////////////////////////////////////////////////
|
||||
// RegisterWSComponent(TScrollingWinControl, TWSScrollingWinControl);
|
||||
// RegisterWSComponent(TScrollBox, TWSScrollBox);
|
||||
// RegisterWSComponent(TCustomFrame, TWSCustomFrame);
|
||||
// RegisterWSComponent(TFrame, TWSFrame);
|
||||
// RegisterWSComponent(TCustomForm, TWSCustomForm);
|
||||
// RegisterWSComponent(TForm, TWSForm);
|
||||
// RegisterWSComponent(THintWindow, TWSHintWindow);
|
||||
// RegisterWSComponent(TScreen, TWSScreen);
|
||||
// RegisterWSComponent(TApplicationProperties, TWSApplicationProperties);
|
||||
////////////////////////////////////////////////////
|
||||
end.
|
||||
Loading…
Reference in New Issue
Block a user