diff options
| author | Alexey Kulakov <panda75@bk.ru> | 2014-07-26 22:09:21 +0000 |
|---|---|---|
| committer | Alexey Kulakov <panda75@bk.ru> | 2014-07-26 22:09:21 +0000 |
| commit | cfeeb89bc233916e4a173f005e71862bfa595b50 (patch) | |
| tree | 1fdb46f0e24a068441bbde4f2312d294d4c1565d /plugins/Utils.pas/sparam.pas | |
| parent | 2a5be3406b97544189de7e2a4b4292c5ba22448c (diff) | |
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
Diffstat (limited to 'plugins/Utils.pas/sparam.pas')
| -rw-r--r-- | plugins/Utils.pas/sparam.pas | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/plugins/Utils.pas/sparam.pas b/plugins/Utils.pas/sparam.pas index 00e49ac1ab..623391769e 100644 --- a/plugins/Utils.pas/sparam.pas +++ b/plugins/Utils.pas/sparam.pas @@ -156,8 +156,11 @@ begin begin
if atype=ACF_NUMBER then //!!
begin
- pcw:='0';
- SendMessageW(wnd,WM_SETTEXT,0,TLParam(pcw));
+ if SendMessageW(wnd,WM_GETTEXTLENGTH,0,0)=0 then
+ begin
+ pcw:='0';
+ SendMessageW(wnd,WM_SETTEXT,0,TLParam(pcw));
+ end;
end;
EnableEditField(wnd,true);
end;
|