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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
unit FeedbackDlg;
{$mode objfpc}{$H+}
interface
uses
Forms, Controls, ButtonPanel, StdCtrls, ExtCtrls, Debugger, LazarusIDEStrConsts,
DbgIntfDebuggerBase;
type
{ TDbgFeedbackDlg }
TDbgFeedbackDlg = class(TForm)
ButtonPanel1: TButtonPanel;
lblMsg: TLabel;
Memo1: TMemo;
Panel1: TPanel;
procedure HelpButtonClick(Sender: TObject);
private
{ private declarations }
public
{ public declarations }
function Execute(const AText, AInfo: String;
AType: TDBGFeedbackType; AButtons: TDBGFeedbackResults
): TDBGFeedbackResult;
end;
var
DbgFeedbackDlg: TDbgFeedbackDlg;
function ExecuteFeedbackDialog(const AText, AInfo: String;
AType: TDBGFeedbackType; AButtons: TDBGFeedbackResults
): TDBGFeedbackResult;
implementation
function ExecuteFeedbackDialog(const AText, AInfo: String; AType: TDBGFeedbackType;
AButtons: TDBGFeedbackResults): TDBGFeedbackResult;
var
ADialog: TDbgFeedbackDlg;
begin
ADialog := TDbgFeedbackDlg.Create(Application);
try
Result := ADialog.Execute(AText, AInfo, AType, AButtons);
finally
ADialog.Free;
end;
end;
{ TDbgFeedbackDlg }
procedure TDbgFeedbackDlg.HelpButtonClick(Sender: TObject);
begin
AutoSize := False;
Memo1.Visible := not Memo1.Visible;
if Memo1.Visible then
ButtonPanel1.HelpButton.Caption := lisLess
else
ButtonPanel1.HelpButton.Caption := lisMore;
AutoSize := True;
end;
function TDbgFeedbackDlg.Execute(const AText, AInfo: String; AType: TDBGFeedbackType;
AButtons: TDBGFeedbackResults): TDBGFeedbackResult;
begin
case AType of
ftInformation: begin
Caption := lisDebuggerFeedbackInformation;
end;
ftWarning: begin
Caption := lisDebuggerFeedbackWarning;
end;
ftError: begin
Caption := lisDebuggerFeedbackError;
end;
end;
lblMsg.Caption := AText;
memo1.Text := AInfo;
memo1.Visible := False;
if AInfo <> '' then begin
ButtonPanel1.HelpButton.Caption := lisMore;
ButtonPanel1.HelpButton.Visible := True;
end
else begin
ButtonPanel1.HelpButton.Visible := False;
end;
ButtonPanel1.OKButton.Visible := frOk in AButtons;
ButtonPanel1.CancelButton.Visible := frStop in AButtons;
ButtonPanel1.OKButton.Caption := lisMenuOk;
ButtonPanel1.CancelButton.Caption := lisStop;
case ShowModal of
mrOk: Result := frOk;
else {mrCancel:} Result := frStop;
end;
end;
{$R *.lfm}
end.
|
