From 91eb23f044911477f615e7e25e1425b667c3f1fa Mon Sep 17 00:00:00 2001
From: George Hazan <george.hazan@gmail.com>
Date: Fri, 12 Apr 2013 21:28:12 +0000
Subject: pascal sources sync

git-svn-id: http://svn.miranda-ng.org/main/trunk@4435 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/QuickSearch/qs.rc           |  3 ++-
 plugins/QuickSearch/quicksearch.dpr |  7 +++----
 plugins/QuickSearch/sr_window.pas   | 10 +++++-----
 3 files changed, 10 insertions(+), 10 deletions(-)

(limited to 'plugins/QuickSearch')

diff --git a/plugins/QuickSearch/qs.rc b/plugins/QuickSearch/qs.rc
index 0f4e27d46a..b42780e902 100644
--- a/plugins/QuickSearch/qs.rc
+++ b/plugins/QuickSearch/qs.rc
@@ -147,7 +147,7 @@ FONT 8, "Ms Shell Dlg",0,0
              CCS_BOTTOM | 0x0900, // SBT_TOOLTIPS | SBARS_SIZEGRIP
              0,226,520,14
 }
-
+/*
 VS_VERSION_INFO VERSIONINFO
  FILEVERSION 1,4,1,18
  PRODUCTVERSION 0,8,0,0
@@ -176,3 +176,4 @@ BEGIN
       VALUE "Translation",0,1200
   END
 END
+*/
\ No newline at end of file
diff --git a/plugins/QuickSearch/quicksearch.dpr b/plugins/QuickSearch/quicksearch.dpr
index 856f3376d3..cd200ff6b5 100644
--- a/plugins/QuickSearch/quicksearch.dpr
+++ b/plugins/QuickSearch/quicksearch.dpr
@@ -45,7 +45,7 @@ begin
     'users version of miranda,group or city.';
   PluginInfo.author     :='Awkward, based on Bethoven sources';
   PluginInfo.authorEmail:='panda75@bk.ru; awk1975@ya.ru';
-  PluginInfo.copyright  :='(c) 2004,2005 Bethoven; 2006-2012 Awkward';
+  PluginInfo.copyright  :='(c) 2004,2005 Bethoven; 2006-2013 Awkward';
   PluginInfo.homepage   :='http://code.google.com/p/delphi-miranda-plugins/';
   PluginInfo.flags      :=UNICODE_AWARE;
   PluginInfo.uuid       :=MIID_QUICKSEARCH;
@@ -164,7 +164,7 @@ begin
   odp.hInstance  :=hInstance;
   odp.pszTemplate:=PAnsiChar(IDD_DIALOG1);
   odp.szTitle.a  :=qs_name;
-  odp.szGroup.a  :='Contact List';
+  odp.szGroup.a  :='Contacts';
   odp.pfnDlgProc :=@sr_optdialog.DlgProcOptions;
   odp.flags      :=ODPF_BOLDGROUPS;
   Options_AddPage(wParam,@odp);
@@ -240,7 +240,6 @@ exports
   Load, Unload,
   MirandaPluginInfoEx;
 
-initialization
+begin
   DisableThreadLibraryCalls(hInstance);
-
 end.
diff --git a/plugins/QuickSearch/sr_window.pas b/plugins/QuickSearch/sr_window.pas
index 97624173ba..de9ba1b634 100644
--- a/plugins/QuickSearch/sr_window.pas
+++ b/plugins/QuickSearch/sr_window.pas
@@ -526,7 +526,7 @@ begin
       ST_SERVICE: begin
         if wparam._type=ptCurrent then wparam.n:=hContact;
         if lparam._type=ptCurrent then lparam.n:=hContact;
-        tmp:=CallService(protov,wparam.n,lparam.n);
+        tmp:=uint_ptr(CallService(protov,wparam.n,lparam.n));
         if tmp=CALLSERVICE_NOTFOUND then exit;
         case setting_cnftype of
           ptString: begin
@@ -619,7 +619,7 @@ begin
       end;
 
       ST_LASTEVENT: begin
-        hDbEvent := db_event_last(hContact);
+        hDbEvent:=db_event_last(hContact);
         if hDbEvent<>0 then
         begin
           ZeroMemory(@dbei,sizeof(dbei));
@@ -1190,14 +1190,14 @@ begin
   // filling buffer
   LastMeta:=0;
   cnt1:=0;
-  hContact:=CallService(MS_DB_CONTACT_FINDFIRST,0,0);
+  hContact:=db_find_first();
   while hContact<>0 do
   begin
     //!! check account
     AddContact(cnt1,hContact);
     inc(cnt1);
     if cnt1=cnt then break; // additional checking
-    hContact:=CallService(MS_DB_CONTACT_FINDNEXT,hContact,0);
+    hContact:=db_find_next(hContact);
   end;
   if cnt1<>cnt then
   begin
@@ -1949,7 +1949,7 @@ begin
         FastWideToAnsiBuf(MainBuf[i,sub].text,buf);
 
 //        ListView_GetItemTextA(grid,lplvcd^.nmcd.dwItemSpec,lplvcd^.iSubItem,buf,SizeOf(buf));
-//
+//!!
         if (buf[0]<>#0) and (ServiceExists(MS_FP_GETCLIENTICON)<>0) then
         begin
           h:=CallService(MS_FP_GETCLIENTICON,tlparam(@buf),0);
-- 
cgit v1.2.3