paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tmschema as include file added at Paul's request

Browse Source 
git-svn-id: trunk@13199 -
This commit is contained in:
marco 2009-05-26 16:54:49 +00:00
parent dc00a747f4
commit 92e235d92b
7 changed files with 2529 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -4765,6 +4765,7 @@ packages/winunits-base/src/richedit.pp svneol=native#text/plain
packages/winunits-base/src/shellapi.pp svneol=native#text/plain packages/winunits-base/src/shellapi.pp svneol=native#text/plain
packages/winunits-base/src/shfolder.pp svneol=native#text/plain packages/winunits-base/src/shfolder.pp svneol=native#text/plain
packages/winunits-base/src/shlobj.pp svneol=native#text/plain packages/winunits-base/src/shlobj.pp svneol=native#text/plain
packages/winunits-base/src/tmschema.inc svneol=native#text/plain
packages/winunits-base/src/uxtheme.pp svneol=native#text/plain packages/winunits-base/src/uxtheme.pp svneol=native#text/plain
packages/winunits-base/src/wininet.pp svneol=native#text/plain packages/winunits-base/src/wininet.pp svneol=native#text/plain
packages/winunits-base/src/winver.pp svneol=native#text/plain packages/winunits-base/src/winver.pp svneol=native#text/plain

1
packages/winunits-base/Makefile
View File

@ -2889,3 +2889,4 @@ ifneq ($(wildcard fpcmake.loc),)
include fpcmake.loc include fpcmake.loc
endif endif
.NOTPARALLEL: .NOTPARALLEL:
uxtheme$(PPUEXT) : src/uxtheme.pp src/tmschame.inc

2
packages/winunits-base/Makefile.fpc
View File

@ -28,3 +28,5 @@ sourcedir=src
[rules] [rules]
.NOTPARALLEL: .NOTPARALLEL:
uxtheme$(PPUEXT) : src/uxtheme.pp src/tmschame.inc

5
packages/winunits-base/fpmake.pp
View File

@ -26,6 +26,7 @@ begin
P.NeedLibC:= true; P.NeedLibC:= true;
P.SourcePath.Add('src'); P.SourcePath.Add('src');
P.IncludePath.Add('src');
T:=P.Targets.AddUnit('buildwinutilsbase.pp'); T:=P.Targets.AddUnit('buildwinutilsbase.pp');
T.Install:=False; T.Install:=False;
@ -46,7 +47,8 @@ begin
AddUnit('shfolder'); AddUnit('shfolder');
AddUnit('richedit'); AddUnit('richedit');
AddUnit('wininet'); AddUnit('wininet');
AddUnix('uxtheme'); AddUnit('uxtheme');
AddInclude('tmschema.inc');
end; end;
T:=P.Targets.AddImplicitUnit('activex.pp'); T:=P.Targets.AddImplicitUnit('activex.pp');
T:=P.Targets.AddImplicitUnit('comconst.pp'); T:=P.Targets.AddImplicitUnit('comconst.pp');
@ -67,6 +69,7 @@ begin
T:=P.Targets.AddImplicitUnit('commdlg.pp'); T:=P.Targets.AddImplicitUnit('commdlg.pp');
T:=P.Targets.AddImplicitUnit('wininet.pp'); T:=P.Targets.AddImplicitUnit('wininet.pp');
T:=P.Targets.AddImplicitUnit('uxtheme.pp'); T:=P.Targets.AddImplicitUnit('uxtheme.pp');
T.Dependencies.AddInclude('tmschema.inc');
P.ExamplePath.Add('tests/'); P.ExamplePath.Add('tests/');
P.Targets.AddExampleProgram('testcom1.pp'); P.Targets.AddExampleProgram('testcom1.pp');
P.Targets.AddExampleProgram('OOTest.pp'); P.Targets.AddExampleProgram('OOTest.pp');

2
packages/winunits-base/src/buildwinutilsbase.pp
View File

@ -22,7 +22,7 @@ interface
uses uses
flatsb, winver, mmsystem, comconst, commctrl, comobj, commdlg, flatsb, winver, mmsystem, comconst, commctrl, comobj, commdlg,
ole2, activex, shellapi, shlobj, oleserver, shfolder, richedit,imagehlp,wininet; ole2, activex, shellapi, shlobj, oleserver, shfolder, richedit,imagehlp,wininet,uxtheme;
implementation implementation

2517
packages/winunits-base/src/tmschema.inc Normal file
View File

File diff suppressed because it is too large Load Diff

3
packages/winunits-base/src/uxtheme.pp
View File

@ -51,6 +51,9 @@ interface
uses uses
Windows; Windows;
// this file is in uxtheme under Delphi, while a separate one in apilib
{$i tmschema.inc}
procedure FreeThemeLibrary; procedure FreeThemeLibrary;
function InitThemeLibrary: Boolean; function InitThemeLibrary: Boolean;
function UseThemes: Boolean; function UseThemes: Boolean;