From 534eefa7029aaf49b0b673b6f6fb630752bb3fd5 Mon Sep 17 00:00:00 2001
From: Alexey Kulakov <panda75@bk.ru>
Date: Wed, 18 Mar 2015 07:13:47 +0000
Subject: Pascal: service executing fix)

git-svn-id: http://svn.miranda-ng.org/main/trunk@12427 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
---
 plugins/Utils.pas/sparam.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'plugins/Utils.pas/sparam.pas')

diff --git a/plugins/Utils.pas/sparam.pas b/plugins/Utils.pas/sparam.pas
index 134fc63cae..808493f2a5 100644
--- a/plugins/Utils.pas/sparam.pas
+++ b/plugins/Utils.pas/sparam.pas
@@ -1,6 +1,8 @@
 {
   Parameter: CBN_EDITCHANGE on fields changing, BN_CLICKED on Struct changes
   Result   : CBN_EDITCHANGE on type   changing, BN_CLICKED on option changes
+  ACF_FLAG_TEMPLATE saved in CB param of IDC_EDIT_PAR
+  parameter type depends of ACF_FLAG_PAR
 }
 unit sparam;
 
@@ -206,9 +208,11 @@ var
   bufw:array [0..2047] of WideChar;
   wnd:HWND;
   p,pc:PAnsiChar;
-  ltype:dword;
+  flags,ltype:dword;
 begin
   wnd:=GetDlgItem(Dialog,IDC_EDIT_PAR);
+  flags:=CB_GetData(wnd);
+  CB_SetData(wnd,flags or ACF_FLAG_TEMPLATE);
   SendMessage(wnd,CB_RESETCONTENT,0,0);
   if (txt<>nil) and (txt^<>#0) then
   begin
@@ -231,6 +235,7 @@ begin
   SendMessage(wnd,CB_SETCURSEL,0,0);
 
   CB_SelectData(GetDlgItem(Dialog,IDC_FLAG_PAR),result);
+  //!!!! need to set ACF_FLAG_TEMPLATE here
   FixParamControls(Dialog,result);
 end;
 
@@ -490,6 +495,7 @@ begin
   end
   else
   begin
+    CB_SetData(wnd,flags and not ACF_TYPE_MASK);
     vtype:=flags and ACF_TYPE_MASK;
     case vtype of
       ACF_TYPE_PARAM: begin
@@ -562,6 +568,8 @@ begin
   end;
   if (GetEditFlags(wnd) and EF_SCRIPT)<>0 then
      flags:=flags or ACF_FLAG_SCRIPT;
+  // for example, ACF_FLAG_TEMPLATE
+  flags:=flags or CB_GetData(wnd);
 end;
 
 //----- Parameter value -----
-- 
cgit v1.2.3