* tmschema as include file added at Paul's request

git-svn-id: trunk@13199 -

.gitattributes

@@ -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/shfolder.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/wininet.pp svneol=native#text/plain
 packages/winunits-base/src/winver.pp svneol=native#text/plain

packages/winunits-base/Makefile

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

packages/winunits-base/Makefile.fpc

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

packages/winunits-base/fpmake.pp

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

packages/winunits-base/src/buildwinutilsbase.pp

@@ -22,7 +22,7 @@ interface
 
 uses
     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
 

packages/winunits-base/src/uxtheme.pp

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