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
106
107
108
109
110
111
112
113
114
115
116
117
118
|
{%MainUnit fpguiint.pp}
{******************************************************************************
All FPGUI interface communication implementations.
Initial Revision : Sun Nov 23 23:53:53 2003
!! Keep alphabetical !!
Support routines go to gtkproc.pp
******************************************************************************
Implementation
******************************************************************************
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
//##apiwiz##sps## // Do not remove
const
IdButtonToFPGuiStandardButton: array[idButtonOK..idButtonShield] of TfpgMsgDlgBtn = (
{ idButtonOk } mbOK,
{ idButtonCancel } mbCancel,
{ idButtonHelp } mbHelp,
{ idButtonYes } mbYes,
{ idButtonNo } mbNo,
{ idButtonClose } mbClose,
{ idButtonAbort } mbAbort,
{ idButtonRetry } mbRetry,
{ idButtonIgnore } mbIgnore,
{ idButtonAll } mbAll,
{ idButtonYesToAll } mbYesToAll,
{ idButtonNoToAll } mbNoToAll,
{ idButtonOpen } mbNoButton,
{ idButtonSave } mbNoButton,
{ idButtonShield } mbNoButton
);
function TFpGuiWidgetSet.PromptUser(const DialogCaption, DialogMessage: String;
DialogType: longint; Buttons: PLongint; ButtonCount, DefaultIndex,
EscapeResult: Longint): Longint;
var
btns: TfpgMsgDlgButtons;
BtnIdx, BtnID: LongInt;
ResultBtn: TfpgMsgDlgBtn;
function ResponseMappingfpGUItoLCL(const AResultBtn: TfpgMsgDlgBtn): Integer;
begin
{ LCL is so confusing with modal results, button types, button results and
Integer/LongInt as possible return results in various location is the
LCL. I based the following mapping on trial-and-error with LCL-GTK2, and
a best guess. }
case AResultBtn of
mbNoButton: Result := idButtonBase; // ???
mbOK: Result := idButtonOK;
mbCancel: Result := idButtonCancel;
mbYes: Result := idButtonYes;
mbNo: Result := idButtonNo;
mbAbort: Result := idButtonAbort;
mbRetry: Result := idButtonRetry;
mbIgnore: Result := idButtonIgnore;
mbAll: Result := idButtonAll;
mbNoToAll: Result := idButtonNoToAll;
mbYesToAll: Result := idButtonYesToAll;
mbHelp: Result := idButtonHelp;
mbClose: Result := idButtonClose;
end;
end;
begin
ResultBtn := mbOK;
btns := [];
for BtnIdx := 0 to ButtonCount-1 do
begin
BtnID := Buttons[BtnIdx];
if (BtnID >= Low(IdButtonToFPGuiStandardButton)) and
(BtnID <= High(IdButtonToFPGuiStandardButton)) and
(IdButtonToFPGuiStandardButton[BtnID] <> mbNoButton) then
Include(btns, IdButtonToFPGuiStandardButton[BtnID])
else
btns := [mbOK];
end;
case DialogType of
idDialogWarning: ResultBtn := TfpgMessageDialog.Warning(DialogCaption, DialogMessage, btns);
idDialogError: ResultBtn := TfpgMessageDialog.Critical(DialogCaption, DialogMessage, btns);
idDialogInfo: ResultBtn :=TfpgMessageDialog.Information(DialogCaption, DialogMessage, btns);
idDialogConfirm: ResultBtn := TfpgMessageDialog.Question(DialogCaption, DialogMessage, btns);
else
begin
fpg_dialogs.ShowMessage(DialogMessage, DialogCaption);
end;
end;
Result := ResponseMappingfpGUItoLCL(ResultBtn);
end;
{------------------------------------------------------------------------------
Function: RawImage_QueryDescription
Params: AFlags:
ADesc:
Returns:
------------------------------------------------------------------------------}
//function TFpguiWidgetSet.RawImage_QueryDescription(AFlags: TRawImageQueryFlags; var ADesc: TRawImageDescription): Boolean;
//begin
// // override only when queried formats are different from screen description
//end;
//##apiwiz##eps## // Do not remove, no wizard declaration after this line
|
