From 8b8845c8e142c2e70bc0c2785ddf3a91ad3f84bd Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Tue, 3 Jul 2012 07:22:09 +0000
Subject: New core adaptation (Delphi 7 normal compilation) API headers update

git-svn-id: http://svn.miranda-ng.org/main/trunk@731 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/ImportTXT/ImportT.pas | 45 ++++++++++++++++++++++++-------------------
 1 file changed, 25 insertions(+), 20 deletions(-)

(limited to 'plugins/ImportTXT/ImportT.pas')

diff --git a/plugins/ImportTXT/ImportT.pas b/plugins/ImportTXT/ImportT.pas
index 4976d2cc39..7a9b9cc935 100644
--- a/plugins/ImportTXT/ImportT.pas
+++ b/plugins/ImportTXT/ImportT.pas
@@ -1,10 +1,12 @@
 unit ImportT;
 interface
 
+uses windows;
+
 type
 
  RHeader = record
-   Pattern:string;
+   Pattern:String;
    Incoming:integer;
    Outgoing:integer;
    InNick:integer;
@@ -21,9 +23,9 @@ type
    end;
 
  RMessage = record
-   Pattern:string;
-   Incoming:string;
-   Outgoing:string;
+   Pattern:String;
+   Incoming:String;
+   Outgoing:String;
    Direction:integer;
    Day:integer;
    Month:integer;
@@ -34,19 +36,20 @@ type
    end;
    
  RFileName = record
-   Pattern:string;
+   Pattern:String;
    InNick:integer;
    OutNick:integer;
    InUID:integer;
    OutUID:integer;
    end;
 
+ pRTxtPattern = ^RTxtPattern;
  RTxtPattern = record
-   Name:string;
+   Name:String;
    IType:byte; //1 -text,2- binary, 3 - ...
    Charset:word;
    Codepage:Cardinal;
-   DefExtension:string;
+   DefExtension:String;
    BinProc:word;
    UseHeader:Byte;
    UseFileName:ByteBool;
@@ -62,20 +65,22 @@ const
   inUTF8 = 2;
   inUCS2 = 3;
 
-type PDestProto = ^TDestProto;
-     TDestProto = record
-      ProtoName: string;
-      ProtoUID: string;
-      ProtoNick: string;
-     end;
+type
+  PDestProto = ^TDestProto;
+  TDestProto = record
+    ProtoName: AnsiString;
+    ProtoUID: WideString;
+    ProtoNick: WideString;
+  end;
 
-type PDestContact = ^TDestContact;
-     TDestContact = record
-      hContact: THandle;
-      ProtoName: string;
-      ContactUID: string;
-      ContactNick: string;
-     end;
+type
+  PDestContact = ^TDestContact;
+  TDestContact = record
+    hContact: THandle;
+    ProtoName: AnsiString;
+    ContactUID: AnsiString;
+    ContactNick: WideString;
+  end;
 
 implementation  
 
-- 
cgit v1.2.3