summaryrefslogtreecommitdiff
path: root/plugins/Actman30/tasks/i_service.inc
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/Actman30/tasks/i_service.inc')
-rw-r--r--plugins/Actman30/tasks/i_service.inc87
1 files changed, 0 insertions, 87 deletions
diff --git a/plugins/Actman30/tasks/i_service.inc b/plugins/Actman30/tasks/i_service.inc
deleted file mode 100644
index 376e75cba0..0000000000
--- a/plugins/Actman30/tasks/i_service.inc
+++ /dev/null
@@ -1,87 +0,0 @@
-{}
-// wParam: 1/0 (enable/disable), lParam = task name
-// works for all tasks with same started name
-function TaskEnable(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
-var
- i,j:integer;
-begin
- result:=0;
- if lParam=0 then exit;
- j:=StrLenW(pWideChar(lParam));
-
- for i:=0 to MaxTasks-1 do
- begin
- if (TaskList[i].flags and ACF_ASSIGNED)<>0 then
- begin
- if StrCmpW(TaskList[i].name,pWideChar(lParam),j)=0 then
- begin
- if wParam=0 then // disable
- begin
- if (TaskList[i].flags and ACF_DISABLED)=0 then
- begin
- inc(result);
- TaskList[i].flags:=TaskList[i].flags or ACF_DISABLED;
- if TaskList[i].timer<>0 then
- begin
- KillTimer(0,TaskList[i].timer);
- TaskList[i].timer:=0;
- end;
- end;
- end
- else
- begin
- if (TaskList[i].flags and ACF_DISABLED)<>0 then
- begin
- inc(result);
- TaskList[i].flags:=TaskList[i].flags and not ACF_DISABLED;
- SetTask(TaskList[i]);
- end;
- end;
- end;
- end;
- end;
-end;
-
-function TaskDelete(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
-var
- i,j:integer;
-begin
- result:=0;
- if lParam=0 then exit;
- j:=StrLenW(pWideChar(lParam));
-
- for i:=0 to MaxTasks-1 do
- begin
- if (TaskList[i].flags and ACF_ASSIGNED)<>0 then
- begin
- if StrCmpW(TaskList[i].name,pWideChar(lParam),j)=0 then
- begin
- TaskList[i].flags:=TaskList[i].flags and not ACF_ASSIGNED;
- end;
- end;
- end;
-end;
-
-function TaskCount(wParam:WPARAM;lParam:LPARAM):int_ptr;cdecl;
-var
- i,j:integer;
-begin
- result:=0;
- if lParam=0 then exit;
- j:=StrLenW(pWideChar(lParam));
-
- for i:=0 to MaxTasks-1 do
- begin
- with TaskList[i] do
- begin
- if (flags and ACF_ASSIGNED)<>0 then
- begin
- if StrCmpW(name,pWideChar(lParam),j)=0 then
- begin
- result:=count;
- count:=wParam;
- end;
- end;
- end;
- end;
-end;