small pascal updates

semi-fix for service parameters in Actman30

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

1 files changed, 1 insertions, 15 deletions

diff --git a/plugins/Watrack/proto/i_proto_dlg.inc b/plugins/Watrack/proto/i_proto_dlg.inc
index 5d3b6e2bb4..d5c3f2262b 100644
--- a/plugins/Watrack/proto/i_proto_dlg.inc
+++ b/plugins/Watrack/proto/i_proto_dlg.inc
@@ -38,20 +38,6 @@ begin
   end;

 end;

 

-procedure ResetListOptions(hwndList:HWND);

-var

-  i:integer;

-begin

-  SendMessage(hwndList,CLM_SETBKBITMAP    ,0,0);

-  SendMessage(hwndList,CLM_SETBKCOLOR     ,GetSysColor(COLOR_WINDOW),0);

-  SendMessage(hwndList,CLM_SETGREYOUTFLAGS,0,0);

-  SendMessage(hwndList,CLM_SETLEFTMARGIN  ,2,0);

-  SendMessage(hwndList,CLM_SETINDENT      ,10,0);

-  for i:=0 to FONTID_MAX do

-    SendMessage(hwndList,CLM_SETTEXTCOLOR,i,GetSysColor(COLOR_WINDOWTEXT));

-  SetWindowLongPtr(hwndList,GWL_STYLE,GetWindowLongPtr(hwndList,GWL_STYLE) or CLS_SHOWHIDDEN);

-end;

-

 procedure SetHistMask(Dlg:HWND);

 begin

   CheckDlgButton(Dlg,IDC_IN_REQUEST ,ORD((HistMask and hmInRequest )<>0));

@@ -92,7 +78,7 @@ begin
       Changed:=DLGED_INIT;

 

       hList:=GetDlgItem(Dialog,IDC_SHARE);

-      ResetListOptions(hList);

+      SetWindowLongPtr(hList,GWL_STYLE,GetWindowLongPtr(hList,GWL_STYLE) or CLS_SHOWHIDDEN);

       SendMessage(hList,CLM_SETUSEGROUPS      ,1,0);

       SendMessage(hList,CLM_SETHIDEEMPTYGROUPS,1,0);