pascal headers updated, testdll added

ShlExt: types fixes, compiling to 64 bit now (not sure what will work btw)
TopToolBar: some load-save things changes

git-svn-id: http://svn.miranda-ng.org/main/trunk@689 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 8 insertions, 15 deletions

diff --git a/plugins/ShlExt/shlc.inc b/plugins/ShlExt/shlc.inc
index e1b76607f4..2952de8c74 100644
--- a/plugins/ShlExt/shlc.inc
+++ b/plugins/ShlExt/shlc.inc
@@ -57,7 +57,7 @@ type
   PGUID = ^TGUID;

 

   TGUID = record

-    D1: Longint;

+    D1: Longword;

     D2: Word;

     D3: Word;

     D4: array [0 .. 7] of Byte;

@@ -69,20 +69,13 @@ type
   TStgMedium = record

     tymed: Longint;

     case Integer of

-      0:

-        (hBitmap: hBitmap; unkForRelease: Pointer { IUnknown } );

-      1:

-        (hMetaFilePict: THandle);

-      2:

-        (hEnhMetaFile: THandle);

-      3:

-        (hGlobal: hGlobal);

-      4:

-        (lpszFileName: Pointer { POleStr } );

-      5:

-        (stm: Pointer { IUnknown } );

-      6:

-        (stg: Pointer { IStorage } );

+      0: (hBitmap: hBitmap; unkForRelease: Pointer { IUnknown } );

+      1: (hMetaFilePict: THandle);

+      2: (hEnhMetaFile: THandle);

+      3: (hGlobal: hGlobal);

+      4: (lpszFileName: Pointer { POleStr } );

+      5: (stm: Pointer { IUnknown } );

+      6: (stg: Pointer { IStorage } );

   end;

 

   PFormatEtc = ^TFormatEtc;