Browse Source

* fixed some delphi compatibilty issues
* improved makefile dependencies

florian 22 years ago
parent
commit
fe7cc65579
3 changed files with 21 additions and 12 deletions
  1. 1 1
      rtl/win32/Makefile
  2. 1 1
      rtl/win32/Makefile.fpc
  3. 19 10
      rtl/win32/activex.pp

+ 1 - 1
rtl/win32/Makefile

@@ -1345,7 +1345,7 @@ windows$(PPUEXT) : windows.pp $(WINDOWS_SOURCE_FILES) $(SYSTEMUNIT)$(PPUEXT)
 messages$(PPUEXT): messages.pp $(SYSTEMUNIT)$(PPUEXT)
 	$(COMPILER) -I$(WININC) messages.pp
 ole2$(PPUEXT) : ole2.pp windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
-activex$(PPUEXT) : activex.pp $(WININC)/objbase.inc windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
+activex$(PPUEXT) : activex.pp $(WININC)/objbase.inc windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) types$(PPUEXT)
 opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
 winsock$(PPUEXT) : winsock.pp windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
 sockets$(PPUEXT) : sockets.pp windows$(PPUEXT) winsock$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) \

+ 1 - 1
rtl/win32/Makefile.fpc

@@ -129,7 +129,7 @@ messages$(PPUEXT): messages.pp $(SYSTEMUNIT)$(PPUEXT)
 
 ole2$(PPUEXT) : ole2.pp windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
 
-activex$(PPUEXT) : activex.pp $(WININC)/objbase.inc windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
+activex$(PPUEXT) : activex.pp $(WININC)/objbase.inc windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT) types$(PPUEXT)
 
 opengl32$(PPUEXT) : opengl32.pp windows$(PPUEXT) $(SYSTEMUNIT)$(PPUEXT)
 

+ 19 - 10
rtl/win32/activex.pp

@@ -23,20 +23,25 @@ Interface
 {$define read_interface}
 {$undef read_implementation}
 
-Uses Windows;
+Uses Windows,types;
 
-{$ifndef DO_NO_IMPORTS}
-//import "unknwn.idl";
-//import "wtypes.idl";
-{$ENDIF}
 
-{Glue types, should be linked to the proper windows unit types}
+{ extra types }
+type
+{$ifndef ver1_0}
+   TOleChar = Types.TOleChar;
+   POleStr = Types.POleStr;
+   PPOleStr = Types.PPOleStr;
+   TBStr = POleStr;
+   PBStr = ^TBStr;
+   TOleEnum = type LongWord;
+{$endif ver1_0}
 
-TYPE Size_t              = DWord;       {??, probably, like Unix, typecastable to pointer?!?}
+{Glue types, should be linked to the proper windows unit types}
+TYPE
+     Size_t              = DWord;       {??, probably, like Unix, typecastable to pointer?!?}
      OleChar             = WChar;
      LPOLESTR            = ^OLECHAR;
-     polestr             = Pwidechar;
-
 
      // bit flags for IExternalConnection
 CONST
@@ -2650,7 +2655,11 @@ end.
 
 {
   $Log$
-  Revision 1.9  2003-09-17 15:06:36  peter
+  Revision 1.10  2003-10-05 19:10:31  florian
+    * fixed some delphi compatibilty issues
+    * improved makefile dependencies
+
+  Revision 1.9  2003/09/17 15:06:36  peter
     * stdcall patch
 
   Revision 1.8  2002/12/12 17:52:35  peter