Browse Source

+ pascal type aliases

peter 27 years ago
parent
commit
057e2e3891
2 changed files with 188 additions and 193 deletions
  1. 10 19
      rtl/win32/defines.pp
  2. 178 174
      rtl/win32/struct.pp

+ 10 - 19
rtl/win32/defines.pp

@@ -60,32 +60,20 @@ unit defines;
      If you are interested in a warranty or support for this source code,
      contact Scott Christley <[email protected]> for more information.
 
-     You should have received a copy of the GNU Library General Public
      License along with this library; see the file COPYING.LIB.
      If not, write to the Free Software Foundation,
      59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
    }
-  { WARNING:  This file is automatically generated.  }
-    uses base;
 
 {$endif not windows_include_files}
 
 {$ifdef read_interface}
 
-{$ifndef _GNU_H_WINDOWS32_DEFINES}
-{$define _GNU_H_WINDOWS32_DEFINES}
-  {  Not convertable by H2PAS
-  #ifdef __cplusplus
-  extern "C"
-  #endif  __cplusplus  }
+  { was #define dname def_expr }
+  function UNICODE_NULL : WCHAR;
 
   const
      MAX_PATH = 260;
-    { was #define dname def_expr }
-    function UNICODE_NULL : WCHAR;
-
-
-  const
      LF_FACESIZE = 32;
      LF_FULLFACESIZE = 64;
      ELF_VENDOR_SIZE = 4;
@@ -3827,12 +3815,13 @@ unit defines;
      I_CHILDRENCALLBACK = -(1);
      I_IMAGECALLBACK = -(1);
   { TV_INSERTSTRUCT structure  }
-    { added manually PM }
+    { added manually PM, TREEITEM is not defined in the C headers }
      type
-    { warning TREEITEM is not defined in the C headers }
        TREEITEM = record
                   end;
        HTREEITEM = ^TREEITEM;
+       TTREEITEM = TREEITEM;
+       PTREEITEM = ^TREEITEM;
 
     { was #define dname def_expr }
     function TVI_ROOT : HTREEITEM;
@@ -5123,11 +5112,10 @@ unit defines;
      IMAGE_DOS_SIGNATURE = $5a4d;
   { nt_signature field  }
      IMAGE_NT_SIGNATURE = $4550;
-{$endif}
-  { _GNU_H_WINDOWS32_DEFINES  }
 
 {$endif read_interface}
 
+
 {$ifndef windows_include_files}
   implementation
 
@@ -5730,7 +5718,10 @@ end.
 {$endif not windows_include_files}
 {
   $Log$
-  Revision 1.6  1998-10-27 11:17:12  peter
+  Revision 1.7  1998-11-12 11:41:05  peter
+    + pascal type aliases
+
+  Revision 1.6  1998/10/27 11:17:12  peter
     * type HINSTANCE -> HINST
 
   Revision 1.5  1998/08/31 11:53:54  pierre

File diff suppressed because it is too large
+ 178 - 174
rtl/win32/struct.pp


Some files were not shown because too many files changed in this diff