diff options
Diffstat (limited to 'plugins/Utils.pas/srvblock.pas')
| -rw-r--r-- | plugins/Utils.pas/srvblock.pas | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/plugins/Utils.pas/srvblock.pas b/plugins/Utils.pas/srvblock.pas index d8e4465f0b..6bfaff37b7 100644 --- a/plugins/Utils.pas/srvblock.pas +++ b/plugins/Utils.pas/srvblock.pas @@ -9,8 +9,8 @@ uses windows;
const
- ACF_SCRIPT_SERVICE = $01000000; // high byte of dword
- ACF_SCRIPT_EXPAND = $10000000; // all subblocks are visible
+ ACF_SCRIPT_SERVICE = $00800000; // high bit in low byte of hight word (lower uses in actions
+ ACF_SCRIPT_EXPAND = $10000000; // all subblocks are visible (block creation only)
type
pServiceValue = ^tServiceValue;
@@ -153,9 +153,15 @@ begin GetClientRect(lpar,rc);
SetWindowPos(res,HWND_TOP,pt.x,pt.y+rc.bottom+10,0,0,SWP_NOZORDER or SWP_NOSIZE);
end;
+ else
+ wnd:=0;
+ wndb:=0;
+ end;
+ if wnd<>0 then
+ begin
+ EnableWindow(wnd ,false);
+ ShowWindow (wndb,SW_SHOW);
end;
- EnableWindow(wnd ,false);
- ShowWindow (wndb,SW_SHOW);
end;
procedure ReloadService(Dialog:HWND;srv:pAnsiChar;setvalue:boolean);
|