From da87b3fa0479333cfe9505713f6ffaa54b9ba543 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 31 Dec 2014 17:08:47 +0000
Subject: pascal code: reformat, small fixes

git-svn-id: http://svn.miranda-ng.org/main/trunk@11700 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/QuickSearch/i_ok.inc         | 16 ++++++++--------
 plugins/QuickSearch/sr_frame.pas     | 18 +++++++++---------
 plugins/QuickSearch/sr_optdialog.pas |  4 +++-
 plugins/QuickSearch/sr_window.pas    |  2 +-
 4 files changed, 21 insertions(+), 19 deletions(-)

(limited to 'plugins/QuickSearch')

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));
 
-- 
cgit v1.2.3