From f2cce78db24a0f0a53b8ca41ff112968a5f2d86b Mon Sep 17 00:00:00 2001 From: Vadim Dashevskiy Date: Fri, 19 Dec 2014 20:02:47 +0000 Subject: Actman 2.0 is moved to deprecated, Actman 3.0 is a new default Actman (with database settings converter from older version) git-svn-id: http://svn.miranda-ng.org/main/trunk@11533 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- plugins/Actman/question.pas | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) (limited to 'plugins/Actman/question.pas') diff --git a/plugins/Actman/question.pas b/plugins/Actman/question.pas index 84bbd60604..d936b65794 100644 --- a/plugins/Actman/question.pas +++ b/plugins/Actman/question.pas @@ -3,13 +3,14 @@ unit question; interface uses windows,messages; -function QuestionDlg(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall; +function ShowQuestion(ask:pWideChar):integer; implementation uses m_api; {$include i_const.inc} +{$resource ask.res} const imp_yes = 1; @@ -18,7 +19,7 @@ const imp_noall = 4; imp_append = 5; -function QuestionDlg(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall; +function QuestionDlg(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall; var i:integer; begin @@ -48,4 +49,10 @@ begin end; end; +function ShowQuestion(ask:pWideChar):integer; +begin + result:=DialogBoxParam(hInstance,MAKEINTRESOURCE(IDD_ASK),0, + @QuestionDlg,TLPARAM(ask)); +end; + end. -- cgit v1.2.3