pascal code: reformat, small fixes

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

2 files changed, 13 insertions, 16 deletions

diff --git a/plugins/Watrack/popup/pop_vars.inc b/plugins/Watrack/popup/pop_vars.inc
index 2bbfce178b..0eee668070 100644
--- a/plugins/Watrack/popup/pop_vars.inc
+++ b/plugins/Watrack/popup/pop_vars.inc
@@ -5,14 +5,14 @@ var
   PopTitle,

   PopText:pWideChar;

   PopRequest,

-  PopUpFile:dword;

-  PopUpColor:dword;

-  PopUpFore,

-  PopUpBack:cardinal;

-  PopUpPause:cardinal;

-  PopUpDelay:integer;

-  PopUpAction:cardinal;

-  PopUpButtons:cardinal;

+  PopupFile:dword;

+  PopupColor:dword;

+  PopupFore,

+  PopupBack:cardinal;

+  PopupPause:cardinal;

+  PopupDelay:integer;

+  PopupAction:cardinal;

+  PopupButtons:cardinal;

 

   DisablePlugin:integer;

   IsPopup2Present:boolean;

diff --git a/plugins/Watrack/popup/popups.pas b/plugins/Watrack/popup/popups.pas
index 212409324e..ca9462a12d 100644
--- a/plugins/Watrack/popup/popups.pas
+++ b/plugins/Watrack/popup/popups.pas
@@ -71,7 +71,7 @@ begin
   mFreeMem(buf);

 end;

 

-function DumbPopupDlgProc(Wnd:HWND;msg:dword;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;

+function DumbPopupDlgProc(wnd:HWND;msg:dword;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;

 var

   si:pSongInfo;

   h:HBITMAP;

@@ -88,7 +88,7 @@ begin
         2: ShowWindow(si^.plwnd,SW_RESTORE);

         3: CallServiceSync(MS_WAT_PRESSBUTTON,WAT_CTRL_NEXT,0);

       end;

-      SendMessage(Wnd,UM_DESTROYPOPUP,0,0);

+      SendMessage(wnd,UM_DESTROYPOPUP,0,0);

       result:=1;

     end;

     UM_POPUPACTION: begin

@@ -97,13 +97,13 @@ begin
     end;

     UM_FREEPLUGINDATA: begin

       h:=0;

-      h:=CallService(MS_POPUP_GETPLUGINDATA,Wnd,h);

+      h:=CallService(MS_POPUP_GETPLUGINDATA,wnd,h);

       if h<>0 then

         DeleteObject(h);

       result:=0;

     end;

   else

-    result:=DefWindowProc(Wnd,msg,wParam,lParam);

+    result:=DefWindowProc(wnd,msg,wParam,lParam);

   end;

 end;

 

@@ -150,7 +150,6 @@ var
   Icon:HICON;

   sec:integer;

   cb,ct:TCOLORREF;

-  tmp:pAnsiChar;

 begin

   descr:=PWideChar(CallService(MS_WAT_REPLACETEXT,0,lparam(PopText)));

   title:=PWideChar(CallService(MS_WAT_REPLACETEXT,0,lparam(PopTitle)));

@@ -218,9 +217,7 @@ begin
             hbmAvatar:=0;

           if hbmAvatar=0 then

           begin

-            WideToAnsi(si.cover,tmp);

-            hbmAvatar:=CallService(MS_UTILS_LOADBITMAP,0,lparam(tmp));

-            mFreeMem(tmp);

+            hbmAvatar:=CallService(MS_UTILS_LOADBITMAPW,0,lparam(si.cover));

           end;

         end;

         PluginData:=pointer(hbmAvatar);