1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
unit AuxApplicationFuncs;
interface
uses Classes, TntClasses, AuxFuncs, Options, Controls;
function ShowOptionalModalDialog(Titel: WideString; Messagetext: WideString;
DlgType: MYX_MESSAGE_DLG_TYPE = myx_mtInformation;
buttons: WideString = 'OK';
ShowDisableMessageCheckbox: Boolean = True;
PNGImgResName: WideString = ''): Integer;
implementation
function ShowOptionalModalDialog(Titel: WideString; Messagetext: WideString;
DlgType: MYX_MESSAGE_DLG_TYPE;
buttons: WideString;
ShowDisableMessageCheckbox: Boolean;
PNGImgResName: WideString): Integer;
var ModalDialog: TMyxModalDialog;
NotUsed: WideString;
begin
//If warning is already in DoNotShowMessageList, return Ignore
if(MYXCommonOptions.IgnoreWarningsList.IndexOf(Titel)>-1)then
Result:=2
else
begin
ModalDialog:=TMyxModalDialog.Create(Titel, Messagetext, DlgType, buttons,
False, '', NotUsed, 0, False,
ShowDisableMessageCheckbox, PNGImgResName);
try
Result:=ModalDialog.ShowModal;
if Result = mrCancel then // VCL result
Result := 0
else
if Result > 100 then
Dec(Result, 100); // Our result
if(ModalDialog.DisableMessageCheckbox<>nil)then
if(ModalDialog.DisableMessageCheckbox.Checked)then
if(MYXCommonOptions.IgnoreWarningsList.IndexOf(Titel)=-1)then
MYXCommonOptions.IgnoreWarningsList.Add(Titel);
finally
ModalDialog.Free;
end;
end;
end;
end.
|
