summaryrefslogtreecommitdiff
path: root/plugins/!Deprecated/Actman20/question.pas
diff options
context:
space:
mode:
Diffstat (limited to 'plugins/!Deprecated/Actman20/question.pas')
-rw-r--r--plugins/!Deprecated/Actman20/question.pas51
1 files changed, 0 insertions, 51 deletions
diff --git a/plugins/!Deprecated/Actman20/question.pas b/plugins/!Deprecated/Actman20/question.pas
deleted file mode 100644
index 84bbd60604..0000000000
--- a/plugins/!Deprecated/Actman20/question.pas
+++ /dev/null
@@ -1,51 +0,0 @@
-unit question;
-
-interface
-uses windows,messages;
-
-function QuestionDlg(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
-
-implementation
-
-uses m_api;
-
-{$include i_const.inc}
-
-const
- imp_yes = 1;
- imp_yesall = 2;
- imp_no = 3;
- imp_noall = 4;
- imp_append = 5;
-
-function QuestionDlg(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
-var
- i:integer;
-begin
- result:=0;
- case hMessage of
- WM_INITDIALOG: begin
- TranslateDialogDefault(Dialog);
- SetDlgItemTextW(Dialog, IDC_ASK,pWideChar(lParam));
- result:=1;
- end;
- WM_COMMAND: begin
- case loword(wParam) of
- IDOK : i:=imp_yes;
- IDCANCEL : i:=imp_no;
- IDC_YESALL: i:=imp_yesall;
- IDC_NOALL : i:=imp_noall;
- IDC_APPEND: i:=imp_append;
- else
- i:=0;
- end;
- if i<>0 then
- begin
- EndDialog(Dialog,i);
- result:=1;
- end;
- end;
- end;
-end;
-
-end.