pascal sources sync

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

3 files changed, 10 insertions, 10 deletions

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);