diff options
author | Alexey Kulakov <panda75@bk.ru> | 2015-01-28 06:34:50 +0000 |
---|---|---|
committer | Alexey Kulakov <panda75@bk.ru> | 2015-01-28 06:34:50 +0000 |
commit | 0bc017159442fed3020f64da88adbb3d9ab2a03b (patch) | |
tree | ba723bc439207b527fe4b2b9baa5e68dd6953ccf /plugins | |
parent | 86dfe0c06437f79fd6f5bdfe34659339ef9cf525 (diff) |
Pascal: miranda API updates
git-svn-id: http://svn.miranda-ng.org/main/trunk@11937 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins')
-rw-r--r-- | plugins/ExternalAPI/delphi/m_historypp.inc | 4 | ||||
-rw-r--r-- | plugins/ExternalAPI/delphi/m_ieview.inc | 4 | ||||
-rw-r--r-- | plugins/QuickSearch/i_ok.inc | 2 | ||||
-rw-r--r-- | plugins/Utils.pas/editwrapper.pas | 2 | ||||
-rw-r--r-- | plugins/Utils.pas/mirevents.pas | 38 |
5 files changed, 25 insertions, 25 deletions
diff --git a/plugins/ExternalAPI/delphi/m_historypp.inc b/plugins/ExternalAPI/delphi/m_historypp.inc index 9e0bbec4ea..042b44c692 100644 --- a/plugins/ExternalAPI/delphi/m_historypp.inc +++ b/plugins/ExternalAPI/delphi/m_historypp.inc @@ -93,7 +93,7 @@ type TItemRenderDetails = record
cbSize : DWord; // size of the structure in bytes
hContact : TMCONTACT; // handle to the contact for which the event is processed
- hDBEvent : THANDLE; // handle to the event which is processed
+ hDBEvent : TMEVENT; // handle to the event which is processed
dwEventTime : DWord; // timestamp of the event
wEventType : Word; // Event's flags (see m_database, EVENTTYPE_*; m_icq, ICQEVENTTYPE_*)
IsEventSent : ByteBool; // Outgoing event. True if DBEF_SENT event flag is present (see m_database)
@@ -150,7 +150,7 @@ const TOpenEventParams = record
cbSize : DWord;
hContact : TMCONTACT;
- hDBEvent : THANDLE;
+ hDBEvent : TMEVENT;
pPassword: PAnsiChar;
end;
diff --git a/plugins/ExternalAPI/delphi/m_ieview.inc b/plugins/ExternalAPI/delphi/m_ieview.inc index bcb41f8049..72de71299b 100644 --- a/plugins/ExternalAPI/delphi/m_ieview.inc +++ b/plugins/ExternalAPI/delphi/m_ieview.inc @@ -160,8 +160,8 @@ const type
tagIEVIEWEVENT = record
case byte of
- 0: (hDbEventFirst: THANDLE);
- 1: (eventData :PIEVIEWEVENTDATA);
+ 0: (hDbEventFirst:TMEVENT);
+ 1: (eventData :PIEVIEWEVENTDATA);
end;
PIEVIEWEVENT = ^TIEVIEWEVENT;
diff --git a/plugins/QuickSearch/i_ok.inc b/plugins/QuickSearch/i_ok.inc index 81dfd125c0..00918a0ffb 100644 --- a/plugins/QuickSearch/i_ok.inc +++ b/plugins/QuickSearch/i_ok.inc @@ -262,7 +262,7 @@ procedure LoadOneItem(hContact:THANDLE;column:pcolumnitem;proto:integer; var res var
tmp:int_ptr;
lmodule,srv:PAnsiChar;
- DbEvent:HDBEVENT;
+ DbEvent:TMEVENT;
cni:TCONTACTINFO;
dbei:TDBEVENTINFO;
b:bool;
diff --git a/plugins/Utils.pas/editwrapper.pas b/plugins/Utils.pas/editwrapper.pas index c5a8c3702f..6572db56e4 100644 --- a/plugins/Utils.pas/editwrapper.pas +++ b/plugins/Utils.pas/editwrapper.pas @@ -32,7 +32,7 @@ function ShowEditBox(parent:HWND;var text:PWideChar;title:PWideChar):int_ptr; implementation
-uses messages,commctrl,common,wrapper;
+uses messages,common,wrapper;
{$R editwrapper.res}
{$include 'i_text_const.inc'}
diff --git a/plugins/Utils.pas/mirevents.pas b/plugins/Utils.pas/mirevents.pas index 3dbc22d191..7eada51593 100644 --- a/plugins/Utils.pas/mirevents.pas +++ b/plugins/Utils.pas/mirevents.pas @@ -30,29 +30,29 @@ const //----- Event info -----
-procedure GetEventInfo (hDBEvent: THANDLE; var EventInfo: TDBEventInfo);
-function GetEventTimestamp(hDBEvent: THANDLE): DWord;
-function GetEventDateTime (hDBEvent: THANDLE): TDateTime;
+procedure GetEventInfo (hDBEvent: TMEVENT; var EventInfo: TDBEventInfo);
+function GetEventTimestamp(hDBEvent: TMEVENT): DWord;
+function GetEventDateTime (hDBEvent: TMEVENT): TDateTime;
function GetEventCoreText (const EventInfo: TDBEventInfo; cp: integer = CP_ACP): PWideChar;
//----- Event check -----
function IsIncomingEvent(const EventInfo: TDBEventInfo):boolean; overload;
-function IsIncomingEvent(hDBEvent: THANDLE):boolean; overload;
+function IsIncomingEvent(hDBEvent: TMEVENT):boolean; overload;
function IsOutgoingEvent(const EventInfo: TDBEventInfo):boolean; overload;
-function IsOutgoingEvent(hDBEvent: THANDLE):boolean; overload;
+function IsOutgoingEvent(hDBEvent: TMEVENT):boolean; overload;
function IsReadedEvent (const EventInfo: TDBEventInfo):boolean; overload;
-function IsReadedEvent (hDBEvent: THANDLE):boolean; overload;
+function IsReadedEvent (hDBEvent: TMEVENT):boolean; overload;
function GetEventBaseType(EventInfo: TDBEventInfo): TBaseEventType; overload;
-function GetEventBaseType(hDBEvent : THANDLE ): TBaseEventType; overload;
+function GetEventBaseType(hDBEvent : TMEVENT ): TBaseEventType; overload;
//----- Custom events processing -----
-//procedure ReadEvent (hDBEvent: THANDLE; var EventInfo: TDBEventInfo; UseCP: Cardinal = CP_ACP);
+//procedure ReadEvent (hDBEvent: TMEVENT; var EventInfo: TDBEventInfo; UseCP: Cardinal = CP_ACP);
//function GetEventName(const Hi: THistoryItem):PAnsiChar;
-function GetEventText(hDBEvent: THANDLE ; custom:boolean; cp:integer=CP_ACP):PWideChar; overload;
+function GetEventText(hDBEvent: TMEVENT ; custom:boolean; cp:integer=CP_ACP):PWideChar; overload;
function GetEventText(const EventInfo: TDBEventInfo; custom:boolean; cp:integer=CP_ACP):PWideChar; overload;
@@ -64,7 +64,7 @@ uses //----- Event info -----
-procedure GetEventInfo(hDBEvent: THANDLE; var EventInfo: TDBEventInfo);
+procedure GetEventInfo(hDBEvent: TMEVENT; var EventInfo: TDBEventInfo);
var
BlobSize: integer;
begin
@@ -113,7 +113,7 @@ var RecentEvent: THANDLE = 0;
RecentEventInfo: TDBEventInfo;
-procedure CheckRecent(hDBEvent: THANDLE);
+procedure CheckRecent(hDBEvent: TMEVENT);
begin
if RecentEvent <> hDBEvent then
begin
@@ -125,13 +125,13 @@ begin end;
end;
-function GetEventTimestamp(hDBEvent: THANDLE): DWord;
+function GetEventTimestamp(hDBEvent: TMEVENT): DWord;
begin
CheckRecent(hDBEvent);
Result := RecentEventInfo.timestamp;
end;
-function GetEventDateTime(hDBEvent: THANDLE): TDateTime;
+function GetEventDateTime(hDBEvent: TMEVENT): TDateTime;
begin
Result := TimestampToDateTime(GetEventTimestamp(hDBEvent));
end;
@@ -144,7 +144,7 @@ begin Result:=(EventInfo.flags and DBEF_SENT) = 0
end;
-function IsIncomingEvent(hDBEvent: THANDLE):boolean;
+function IsIncomingEvent(hDBEvent: TMEVENT):boolean;
begin
CheckRecent(hDBEvent);
Result:=(RecentEventInfo.flags and DBEF_SENT) = 0
@@ -156,7 +156,7 @@ begin result:=(EventInfo.flags and DBEF_SENT) <> 0;
end;
-function IsOutgoingEvent(hDBEvent: THANDLE):boolean;
+function IsOutgoingEvent(hDBEvent: TMEVENT):boolean;
begin
CheckRecent(hDBEvent);
result:=(RecentEventInfo.flags and DBEF_SENT) <> 0;
@@ -168,7 +168,7 @@ begin result:=(EventInfo.flags and DBEF_READ) <> 0;
end;
-function IsReadedEvent(hDBEvent: THANDLE):boolean;
+function IsReadedEvent(hDBEvent: TMEVENT):boolean;
begin
CheckRecent(hDBEvent);
result:=(RecentEventInfo.flags and DBEF_READ) <> 0;
@@ -215,7 +215,7 @@ begin Result := BuiltinEventTable[EventIndex].MessageType;
end;
-function GetEventBaseType(hDBEvent: THANDLE): TBaseEventType;
+function GetEventBaseType(hDBEvent: TMEVENT): TBaseEventType;
begin
CheckRecent(hDBEvent);
Result := GetEventBaseType(RecentEventInfo);
@@ -306,7 +306,7 @@ end; // reads all THistoryItem fields
// *EXCEPT* Proto field. Fill it manually, plz
(*
-procedure ReadEvent(hDBEvent: THANDLE; var hi: THistoryItem; UseCP: Cardinal = CP_ACP);
+procedure ReadEvent(hDBEvent: TMEVENT; var hi: THistoryItem; UseCP: Cardinal = CP_ACP);
var
EventInfo: TDBEventInfo;
EventIndex: integer;
@@ -493,7 +493,7 @@ begin end;
end;
-function GetEventText(hDBEvent: THANDLE; custom:boolean; cp:integer=CP_ACP):PWideChar;
+function GetEventText(hDBEvent: TMEVENT; custom:boolean; cp:integer=CP_ACP):PWideChar;
var
EventInfo: TDBEventInfo;
begin
|