david
f410727ca1
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.TMSSoftware@8 ccf39c52-e665-a648-be6a-52d81bcb5567
294 lines
8.6 KiB
ObjectPascal
294 lines
8.6 KiB
ObjectPascal
unit fmMain;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, TaskDialog, StdCtrls, Spin;
|
|
|
|
type
|
|
TMainForm = class(TForm)
|
|
Button1: TButton;
|
|
cbFooter: TCheckBox;
|
|
cbExpanded: TCheckBox;
|
|
cbVerify: TCheckBox;
|
|
cbRadioButtons: TCheckBox;
|
|
cbBtnOK: TCheckBox;
|
|
cbBtnYes: TCheckBox;
|
|
cbBtnNo: TCheckBox;
|
|
cbBtnCancel: TCheckBox;
|
|
cbBtnRetry: TCheckBox;
|
|
cbBtnClose: TCheckBox;
|
|
edCustomButtons: TEdit;
|
|
Label1: TLabel;
|
|
Label3: TLabel;
|
|
memoRadiobuttons: TMemo;
|
|
cbCustom: TCheckBox;
|
|
edVerifyText: TEdit;
|
|
cbCaption: TCheckBox;
|
|
edCaption: TEdit;
|
|
MemoFooter: TMemo;
|
|
cbInstruction: TCheckBox;
|
|
MemoInstruction: TMemo;
|
|
cbContent: TCheckBox;
|
|
MemoContent: TMemo;
|
|
Label2: TLabel;
|
|
MemoExpand: TMemo;
|
|
edExpand: TEdit;
|
|
edCollapse: TEdit;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
spnDefButton: TSpinEdit;
|
|
procedure Button1Click(Sender: TObject);
|
|
procedure Button3Click(Sender: TObject);
|
|
procedure specialButtonClick(sender: tObject; buttonid: integer);
|
|
procedure cbCaptionClick(Sender: TObject);
|
|
procedure cbRadioButtonsClick(Sender: TObject);
|
|
procedure cbCustomClick(Sender: TObject);
|
|
procedure cbVerifyClick(Sender: TObject);
|
|
procedure cbFooterClick(Sender: TObject);
|
|
procedure cbInstructionClick(Sender: TObject);
|
|
procedure cbContentClick(Sender: TObject);
|
|
procedure cbExpandedClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
MainForm: TMainForm;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure tmsShowmessage(const Title,Instruction,content: string; icon: tTaskDialogIcon);
|
|
var
|
|
td: tAdvTaskDialog;
|
|
begin
|
|
td := tAdvTaskDialog.Create(application);
|
|
td.Title := title;
|
|
td.Instruction := Instruction;
|
|
td.Content := Content;
|
|
td.icon := icon;
|
|
td.Execute;
|
|
td.Free;
|
|
end {ShowmessageEx};
|
|
|
|
procedure TMainForm.Button1Click(Sender: TObject);
|
|
var
|
|
td : tAdvTaskDialog;
|
|
msg: string;
|
|
ButtonChecked: integer; // custom button number checked
|
|
lab: string;
|
|
txt: string;
|
|
i: Integer;
|
|
inQuote: boolean;
|
|
resname: string;
|
|
begin
|
|
//
|
|
td := tAdvTaskDialog.Create(self);
|
|
td.Clear;
|
|
td.DialogPosition := dpOwnerFormCenter;
|
|
|
|
// Dialog box Caption or Title
|
|
if cbCaption.checked then
|
|
td.Title := edCaption.text;
|
|
|
|
// Main Instruction field
|
|
if cbInstruction.checked then
|
|
begin
|
|
// Note this field will not transform \n to #13#10
|
|
td.Instruction := memoInstruction.lines.text;
|
|
end;
|
|
|
|
// Content -- relatively small black text
|
|
if cbContent.checked then
|
|
td.Content := MemoContent.lines.text;
|
|
|
|
// Radio buttons optional
|
|
if cbradioButtons.checked then
|
|
begin
|
|
td.RadioButtons.Add('Button 1');
|
|
td.RadioButtons.Add('Button 2');
|
|
// for i := 0 to MemoRadioButtons.Lines.count - 1 do
|
|
// td.RadioButtons.Add(MemoRadioButtons.Lines[i]);
|
|
td.DefaultRadioButton := -1;
|
|
end;
|
|
// verification checkbox: probably most used for 'Do Not Show again'
|
|
if cbVerify.checked then
|
|
td.VerificationText := edVerifytext.Text;
|
|
|
|
// Expansiion text
|
|
if cbExpanded.checked then
|
|
td.ExpandedText := memoExpand.lines.text;
|
|
// these don't show if expandedtext is blank
|
|
td.ExpandControlText := edCollapse.text;
|
|
td.CollapsControlText := edExpand.Text;
|
|
|
|
// Programmer defined Custom Buttons
|
|
if cbCustom.Checked and (length(edCustombuttons.text) > 0) then
|
|
begin
|
|
td.CommonButtons := [];
|
|
txt := edCustomButtons.text;
|
|
if length(txt) > 0 then
|
|
begin
|
|
lab := '';
|
|
inquote := false;
|
|
for i := 1 to length(txt) do
|
|
begin
|
|
if txt[i] = '"' then
|
|
inQuote := not Inquote;
|
|
if ((txt[i] = ' ') and (not inQuote)) or (i = length(txt)) then
|
|
begin // have end of a button
|
|
if (i = length(txt)) and (txt[i] <> ' ') then
|
|
lab := lab + txt[i];
|
|
if length(lab) > 0 then
|
|
td.CustomButtons.add(lab);
|
|
lab := '';
|
|
end else if txt[i] <> '"' then
|
|
lab := lab + txt[i];
|
|
end;
|
|
end;
|
|
end;
|
|
// Common buttons To be shown
|
|
if cbBtnOK.checked then
|
|
td.CommonButtons := td.CommonButtons + [cbOK];
|
|
if cbBtnYes.checked then
|
|
td.CommonButtons := td.CommonButtons + [cbYes];
|
|
if cbBtnNo.checked then
|
|
td.CommonButtons := td.CommonButtons + [cbNo];
|
|
if cbBtnCancel.checked then
|
|
td.CommonButtons := td.CommonButtons + [cbCancel];
|
|
if cbBtnRetry.checked then
|
|
td.CommonButtons := td.CommonButtons + [cbRetry];
|
|
if cbBtnClose.checked then
|
|
td.CommonButtons := td.CommonButtons + [cbClose];
|
|
|
|
if spnDefButton.Value <> 0 then
|
|
td.DefaultButton := spnDefButton.Value;
|
|
|
|
// Footer message
|
|
if cbFooter.checked then
|
|
begin
|
|
msg := '';
|
|
for i := 0 to MemoFooter.Lines.count - 1 do
|
|
msg := msg +memoFooter.lines[i]+ '\n';
|
|
setlength(msg,length(msg)-2);
|
|
td.Footer := msg;
|
|
end;
|
|
|
|
td.Icon := tiWarning;
|
|
td.FooterIcon := tfiError;
|
|
|
|
ButtonChecked := td.Execute;
|
|
|
|
msg := '';
|
|
if cbRadioButtons.checked then
|
|
msg := 'Radio Button #'+IntToStr(td.RadioButtonResult-199)+' was selected.'+#13#10;
|
|
if buttonChecked < 100 then
|
|
begin // it's a standard button
|
|
case ButtonChecked of
|
|
id_OK: resname := 'cbOK';
|
|
id_YES: resname := 'cbYES';
|
|
id_NO: resname := 'cbNO';
|
|
id_CANCEL: resname := 'cbCANCEL';
|
|
id_RETRY: resname := 'cbRETRY';
|
|
id_ABORT: resname := 'cbCLOSE';
|
|
else
|
|
resname := 'UNKNOWN';
|
|
end;
|
|
end else begin
|
|
resName := td.CustomButtons[ButtonChecked-100];
|
|
end;
|
|
msg := msg +'<'+resname+'> Button (#'+IntToStr(ButtonChecked)+') was clicked.';
|
|
if cbVerify.Checked then
|
|
begin
|
|
msg := msg + #13#10+'Verify box was ';
|
|
if not td.VerifyResult then
|
|
msg := msg +'NOT ';
|
|
msg := msg + 'checked.';
|
|
end;
|
|
td.Free;
|
|
tmsShowmessage('TaskDialog Espoerer',msg,'',tiInformation);
|
|
|
|
end;
|
|
|
|
procedure TMainForm.Button3Click(Sender: TObject);
|
|
begin
|
|
tmsShowmessage('This is the Title','This is the Instruction','This is the content',tiWarning);
|
|
end;
|
|
|
|
procedure TMainForm.cbCaptionClick(Sender: TObject);
|
|
begin
|
|
edCaption.Enabled := (sender as tCheckbox).checked;
|
|
if edCaption.Enabled and (edCaption.Text = '') then
|
|
edCaption.text := 'Test of AdvTaskDialog';
|
|
end;
|
|
|
|
procedure TMainForm.cbContentClick(Sender: TObject);
|
|
begin
|
|
MemoContent.Enabled := (sender as tCheckbox).checked;
|
|
if MemoContent.Enabled and (MemoContent.lines.count = 0) then
|
|
memoContent.lines.text := 'This is the normal "content" of the dialog.'#13#10+
|
|
'Notice it''s in relatively small print.';
|
|
end;
|
|
|
|
procedure TMainForm.cbCustomClick(Sender: TObject);
|
|
begin
|
|
edCustomButtons.Enabled := (sender as tCheckbox).checked;
|
|
if edCustomButtons.enabled and (edCustomButtons.Text = '') then
|
|
edCustomButtons.text := '"Custom 1" "Custom 2"';
|
|
end;
|
|
|
|
procedure TMainForm.cbExpandedClick(Sender: TObject);
|
|
begin
|
|
MemoExpand.enabled := (sender as tCheckbox).checked;
|
|
end;
|
|
|
|
procedure TMainForm.cbFooterClick(Sender: TObject);
|
|
begin
|
|
MemoFooter.Enabled := (sender as tcheckbox).checked;
|
|
if MemoFooter.Enabled and (MemoFooter.Lines.count = 0) then
|
|
memoFooter.Lines.Text := 'Sample footer Message'#13#10+
|
|
'For Example: If you do this you will loose all unsaved changes.';
|
|
end;
|
|
|
|
procedure TMainForm.cbInstructionClick(Sender: TObject);
|
|
begin
|
|
MemoInstruction.Enabled := (sender as tCheckbox).Checked;
|
|
if MemoInstruction.Enabled and (memoInstruction.lines.count = 0) then
|
|
MemoInstruction.Lines.text := 'This is the bold blue main instruction and'#1310+
|
|
'can be mulitple lines.';
|
|
end;
|
|
|
|
procedure TMainForm.cbRadioButtonsClick(Sender: TObject);
|
|
begin
|
|
memoRadioButtons.Enabled := (sender as tCheckbox).checked;
|
|
if memoradioButtons.Enabled and (memoRadioButtons.lines.count = 0) then
|
|
begin
|
|
memoRadioButtons.Lines.Add('Test Radio Button #1');
|
|
memoRadioButtons.Lines.Add('Test Radio button #2');
|
|
MemoRadioButtons.Lines.Add('Test Radio Button #3');
|
|
end;
|
|
end;
|
|
|
|
procedure TMainForm.cbVerifyClick(Sender: TObject);
|
|
begin
|
|
edVerifyText.enabled := (sender as tCheckbox).Checked;
|
|
if edverifyText.Enabled and (edVerifyText.Text = '') then
|
|
edVerifyText.text := 'Check Box if you can read :)';
|
|
end;
|
|
|
|
procedure TMainForm.specialButtonClick(sender: tObject; buttonid: integer);
|
|
var
|
|
td: tAdvTaskDialog;
|
|
begin
|
|
td := sender as tAdvTaskDialog;
|
|
td.tag := buttonid;
|
|
end;
|
|
|
|
end.
|