pascal code: reformat, small fixes

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

4 files changed, 21 insertions, 19 deletions

diff --git a/plugins/QuickSearch/i_ok.inc b/plugins/QuickSearch/i_ok.inc
index aa57c9d0ba..81dfd125c0 100644
--- a/plugins/QuickSearch/i_ok.inc
+++ b/plugins/QuickSearch/i_ok.inc
@@ -138,16 +138,16 @@ end;
 

 function BuildLastSeenTimeInt(cont:THANDLE;modulename:PAnsiChar):cardinal;

 var

-  Day,Month,Year,Hours,Minutes:word;

+  day,month,year,hours,minutes:word;

 begin

-  Year:=DBReadWord(cont,modulename,'Year',0);

-  if Year<>0 then

+  year:=DBReadWord(cont,modulename,'Year',0);

+  if year<>0 then

   begin

-    Month  :=DBReadWord(cont,modulename,'Month'  ,0);

-    Day    :=DBReadWord(cont,modulename,'Day'    ,0);

-    Hours  :=DBReadWord(cont,modulename,'Hours'  ,0);

-    Minutes:=DBReadWord(cont,modulename,'Minutes',0);

-    result:=Minutes+Hours*60+Day*60*24+Month*60*24*31+(Year-1980)*60*24*31*356; // was 366

+    month  :=DBReadWord(cont,modulename,'Month'  ,0);

+    day    :=DBReadWord(cont,modulename,'Day'    ,0);

+    hours  :=DBReadWord(cont,modulename,'Hours'  ,0);

+    minutes:=DBReadWord(cont,modulename,'Minutes',0);

+    result:=minutes+hours*60+day*60*24+month*60*24*31+(year-1980)*60*24*31*356; // was 366

   end

   else

     result:=0;

diff --git a/plugins/QuickSearch/sr_frame.pas b/plugins/QuickSearch/sr_frame.pas
index 4ff26b12b6..692692a5ad 100644
--- a/plugins/QuickSearch/sr_frame.pas
+++ b/plugins/QuickSearch/sr_frame.pas
@@ -64,7 +64,7 @@ function QSFrameProc(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRES
 var

   urd:TUTILRESIZEDIALOG;

   rc:TRECT;

-  ti:TTOOLINFOW;

+  TI:TTOOLINFOW;

   hwndTooltip:HWND;

 begin

   result:=0;

@@ -83,14 +83,14 @@ begin
           integer(CW_USEDEFAULT),integer(CW_USEDEFAULT),

           Dialog,0,hInstance,nil);

 

-      FillChar(ti,SizeOf(ti),0);

-      ti.cbSize  :=sizeof(TOOLINFO);

-      ti.uFlags  :=TTF_IDISHWND or TTF_SUBCLASS;

-      ti.hwnd    :=Dialog;

-      ti.hinst   :=hInstance;

-      ti.uId     :=GetDlgItem(Dialog,IDC_FRAME_OPEN);

-      ti.lpszText:=pWideChar(TranslateW('Open QS window'));

-      SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,tlparam(@ti));

+      FillChar(TI,SizeOf(TI),0);

+      TI.cbSize  :=sizeof(TOOLINFO);

+      TI.uFlags  :=TTF_IDISHWND or TTF_SUBCLASS;

+      TI.hwnd    :=Dialog;

+      TI.hinst   :=hInstance;

+      TI.uId     :=GetDlgItem(Dialog,IDC_FRAME_OPEN);

+      TI.lpszText:=pWideChar(TranslateW('Open QS window'));

+      SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,tlparam(@TI));

 

       SetButtonIcon(GetDlgItem(Dialog,IDC_FRAME_OPEN),QS_QS);

     end;

diff --git a/plugins/QuickSearch/sr_optdialog.pas b/plugins/QuickSearch/sr_optdialog.pas
index ce85d12cfc..1317397033 100644
--- a/plugins/QuickSearch/sr_optdialog.pas
+++ b/plugins/QuickSearch/sr_optdialog.pas
@@ -463,7 +463,7 @@ procedure adddbsettypes(list:HWND);
 begin

   CB_AddStrDataW(list,TranslateW(stByte)     ,QSTS_BYTE);

   CB_AddStrDataW(list,TranslateW(stWord)     ,QSTS_WORD);

-  CB_AddStrDataW(list,TranslateW(stDword)    ,QSTS_DWORD);

+  CB_AddStrDataW(list,TranslateW(stDWord)    ,QSTS_DWORD);

   CB_AddStrDataW(list,TranslateW(stSigned)   ,QSTS_SIGNED);

   CB_AddStrDataW(list,TranslateW(stHexnum)   ,QSTS_HEXNUM);

   CB_AddStrDataW(list,TranslateW(stString)   ,QSTS_STRING);

@@ -994,6 +994,8 @@ begin
             QSTO_EVENTCOUNT: begin

               pc:='Content is count of ALL contact events (not messages only)';

             end;

+          else

+            pc:='Unknown';

           end;

           MessageBoxW(0,TranslateW(pc),TranslateW('Other info'),0);

         end;

diff --git a/plugins/QuickSearch/sr_window.pas b/plugins/QuickSearch/sr_window.pas
index 838e38fb13..16aa74bd2d 100644
--- a/plugins/QuickSearch/sr_window.pas
+++ b/plugins/QuickSearch/sr_window.pas
@@ -456,7 +456,7 @@ begin
   zeromemory(@li,sizeof(li));

   li.mask    :=LVIF_TEXT;

   li.iItem   :=item;

-  li.iSubItem:=ColumnToListview(column); // buffer column to LV subitem

+  li.iSubItem:=ColumnToListView(column); // buffer column to LV subitem

   li.pszText :=text;

   SendMessageW(grid,LVM_SETITEMW,0,tlparam(@li));