mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-10 12:48:17 +02:00
LCL: Add wrapper functions for TTaskDialog. So it can be used like MessageDlg.
This commit is contained in:
Martin
parent
1a1e02d2dc
commit
5779cff4d2
@ -915,6 +915,66 @@ function PasswordBox(const ACaption, APrompt : string) : string;
|
|||||||
function PromptForFileName(var AFileName: string; const AFilter: string = ''; const ADefaultExt: string = '';
|
function PromptForFileName(var AFileName: string; const AFilter: string = ''; const ADefaultExt: string = '';
|
||||||
const ATitle: string = ''; const AInitialDir: string = ''; AIsSaveDialog: Boolean = False): Boolean;
|
const ATitle: string = ''; const AInitialDir: string = ''; AIsSaveDialog: Boolean = False): Boolean;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
// RadioButtons
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer = -1;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer = -1;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
// CheckBox
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
// CheckBox + RadioButtons
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer = -1;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer = -1;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
// All Options
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; const ACustomButtons: array of string; ADefaultButton: Integer;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer = -1;
|
||||||
|
const aFooter: string = ''; const aDetails: string = '';
|
||||||
|
const aShowDetails: string = ''; const aHideDetails: string = '';
|
||||||
|
AFlags: TTaskDialogFlags = [tfAllowDialogCancellation]
|
||||||
|
): TModalResult; overload;
|
||||||
|
|
||||||
type
|
type
|
||||||
TCustomCopyToClipboardDialog = class(TForm)
|
TCustomCopyToClipboardDialog = class(TForm)
|
||||||
|
|||||||
@ -281,6 +281,209 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
var
|
||||||
|
RadioIndex: integer;
|
||||||
|
Checked: Boolean;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], -1,
|
||||||
|
'', Checked, [], RadioIndex, -1,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
var
|
||||||
|
RadioIndex: integer;
|
||||||
|
Checked: Boolean;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], ord(ADefaultButton),
|
||||||
|
'', Checked, [], RadioIndex, -1,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
var
|
||||||
|
Checked: Boolean;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], -1,
|
||||||
|
'', Checked, ARadioButtons, RadioIndex, ADefaultRadio,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
var
|
||||||
|
Checked: Boolean;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], ord(ADefaultButton),
|
||||||
|
'', Checked, ARadioButtons, RadioIndex, ADefaultRadio,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
var
|
||||||
|
RadioIndex: integer;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], -1,
|
||||||
|
ACheckBoxText, Checked, [], RadioIndex, -1,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
var
|
||||||
|
RadioIndex: integer;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], ord(ADefaultButton),
|
||||||
|
ACheckBoxText, Checked, [], RadioIndex, -1,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], -1,
|
||||||
|
ACheckBoxText, Checked, ARadioButtons, RadioIndex, ADefaultRadio,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; ADefaultButton: TMsgDlgBtn;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer;
|
||||||
|
const aFooter: string; const aDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
begin
|
||||||
|
Result := TaskDlg(aCaption, aMsg, aInfo, DlgIcon, AButtons, [], ord(ADefaultButton),
|
||||||
|
ACheckBoxText, Checked, ARadioButtons, RadioIndex, ADefaultRadio,
|
||||||
|
aFooter, aDetails, '', '', AFlags);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TaskDlg(const aCaption, aMsg, aInfo: string; DlgIcon: TTaskDialogIcon;
|
||||||
|
AButtons: TMsgDlgButtons; const ACustomButtons: array of string; ADefaultButton: Integer;
|
||||||
|
const ACheckBoxText: string; out Checked: boolean;
|
||||||
|
const ARadioButtons: array of string; out RadioIndex: integer; ADefaultRadio: Integer;
|
||||||
|
const aFooter: string; const aDetails: string; const aShowDetails: string;
|
||||||
|
const aHideDetails: string;
|
||||||
|
AFlags: TTaskDialogFlags): TModalResult;
|
||||||
|
const
|
||||||
|
//(mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbAll, mbNoToAll, mbYesToAll, mbHelp, mbClose);
|
||||||
|
MB2MR: array [TMsgDlgBtn] of TModalResult = (
|
||||||
|
mrYes, mrNo, mrOK, mrCancel, mrAbort, mrRetry, mrIgnore,
|
||||||
|
mrAll, mrNoToAll, mrYesToAll, -1 {help}, mrClose
|
||||||
|
);
|
||||||
|
MBCommonMask: TMsgDlgButtons = [mbOK, mbCancel, mbYes, mbNo, mbRetry, mbClose];
|
||||||
|
MB2Common: array [TMsgDlgBtn] of TTaskDialogCommonButton= (
|
||||||
|
tcbYes, tcbNo, tcbOk, tcbCancel, tcbNo{X}, tcbRetry, tcbNo{X},
|
||||||
|
tcbNo{X}, tcbNo{X}, tcbNo{X}, tcbNo{X}, tcbClose
|
||||||
|
);
|
||||||
|
var
|
||||||
|
TheDlg: TTaskDialog;
|
||||||
|
btn: TMsgDlgBtn;
|
||||||
|
cbtn: TTaskDialogCommonButtons;
|
||||||
|
i: Integer;
|
||||||
|
begin
|
||||||
|
Result := mrCancel;
|
||||||
|
RadioIndex := -1;
|
||||||
|
Checked := False;
|
||||||
|
TheDlg := TTaskDialog.Create(nil);
|
||||||
|
try
|
||||||
|
TheDlg.Flags := AFlags;
|
||||||
|
TheDlg.Caption := aCaption;
|
||||||
|
TheDlg.Title := aMsg;
|
||||||
|
TheDlg.Text := aInfo;
|
||||||
|
TheDlg.FooterText := aFooter;
|
||||||
|
TheDlg.ExpandedText:= aDetails;
|
||||||
|
TheDlg.ExpandButtonCaption := aShowDetails;
|
||||||
|
TheDlg.CollapseButtonCaption := aHideDetails;
|
||||||
|
|
||||||
|
TheDlg.MainIcon := DlgIcon;
|
||||||
|
if ACheckBoxText <> '' then
|
||||||
|
TheDlg.VerificationText := ACheckBoxText;
|
||||||
|
|
||||||
|
for i := 0 to Length(ACustomButtons) - 1 do
|
||||||
|
with TheDlg.Buttons.Add do begin
|
||||||
|
ModalResult := 500+i;
|
||||||
|
Default := 500+i = ADefaultButton;
|
||||||
|
Caption := ACustomButtons[i];
|
||||||
|
end;
|
||||||
|
|
||||||
|
if AButtons = AButtons * MBCommonMask then begin
|
||||||
|
cbtn := [];
|
||||||
|
for btn := low(AButtons) to high(AButtons) do
|
||||||
|
if btn in AButtons then
|
||||||
|
cbtn := cbtn + [MB2Common[btn]];
|
||||||
|
TheDlg.CommonButtons := cbtn;
|
||||||
|
end
|
||||||
|
else begin
|
||||||
|
TheDlg.CommonButtons := [];
|
||||||
|
for btn := low(AButtons) to high(AButtons) do
|
||||||
|
if btn in AButtons then
|
||||||
|
begin
|
||||||
|
with TheDlg.Buttons.Add do begin
|
||||||
|
ModalResult := MB2MR[btn];
|
||||||
|
Default := ord(btn) = ADefaultButton;
|
||||||
|
case btn of
|
||||||
|
mbYes: Caption := rsMbYes;
|
||||||
|
mbNo: Caption := rsMbNo;
|
||||||
|
mbOK: Caption := rsMbOk;
|
||||||
|
mbCancel: Caption := rsMbCancel;
|
||||||
|
mbAbort: Caption := rsMbAbort;
|
||||||
|
mbRetry: Caption := rsMbRetry;
|
||||||
|
mbIgnore: Caption := rsMbIgnore;
|
||||||
|
mbAll: Caption := rsMbAbort;
|
||||||
|
mbNoToAll: Caption := rsMbNoToAll;
|
||||||
|
mbYesToAll: Caption := rsMbYesToAll;
|
||||||
|
mbHelp: Caption := rsMbHelp;
|
||||||
|
mbClose: Caption := rsMbClose;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
for i := 0 to Length(ARadioButtons) - 1 do
|
||||||
|
with TheDlg.RadioButtons.Add do begin
|
||||||
|
ModalResult := i+1;
|
||||||
|
Default := i = ADefaultRadio;
|
||||||
|
Caption := ARadioButtons[i];
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
if not TheDlg.Execute() then
|
||||||
|
exit;
|
||||||
|
Result := TheDlg.ModalResult;
|
||||||
|
if TheDlg.RadioButton <> nil then
|
||||||
|
RadioIndex := TheDlg.RadioButton.ModalResult - 1;
|
||||||
|
Checked := tfVerificationFlagChecked in TheDlg.Flags;
|
||||||
|
finally
|
||||||
|
TheDlg.free
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
//Helper functions
|
//Helper functions
|
||||||
{
|
{
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user