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
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
|
{
This file is part of the Free Component Library.
Copyright (c) 2016 Michael Van Canneyt, member of the Free Pascal development team
Combo dialog component - awaiting inclusion in Lazarus LCL.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit dlginputcombo;
{$mode objfpc}
{$h+}
interface
uses Classes;
{ Input ComboBox dialog }
Function InputCombo(const ACaption, APrompt: string; const AList: TStrings): Integer;
Function InputCombo(const ACaption, APrompt: string; const AList : Array of String): Integer;
Function InputComboEx(const ACaption, APrompt: string; const AList: TStrings; AllowCustomText: Boolean = False): String;
Function InputComboEx(const ACaption, APrompt: string; const AList : Array of String; AllowCustomText: Boolean = False): String;
Implementation
uses types, lclintf, graphics, controls, stdctrls, buttonpanel, sysutils, math, forms;
function DoInputCombo(const ACaption, APrompt: string; const AList: TStrings; AllowInput : Boolean; Out ASelected : Integer) : String;
Const
CBStyles : Array[Boolean] of TComboBoxStyle = (csDropDownList,csDropDown);
var
W,I,Sep,Margin : Integer;
Frm: TForm;
CBSelect : TComboBox;
LPrompt: TLabel;
BP : TButtonPanel;
begin
Margin:=24;
Sep:=8;
Result:='';
ASelected:=-1;
Frm:=TForm.Create(Application);
try
// Determine needed width
W:=frm.Canvas.TextWidth(APrompt);
W:=Max(W,frm.Canvas.TextWidth(ACaption));
for I:=0 to AList.Count-1 do
W:=Max(W,frm.Canvas.TextWidth(AList[i]+'WWW')); // WWW is just some extra.
frm.BorderStyle:=bsDialog;
frm.Caption:=ACaption;
frm.ClientWidth:=W+2*Margin;
frm.Position:=poScreenCenter;
// Prompt
LPrompt:=TLabel.Create(frm);
LPrompt.Parent:=frm;
LPrompt.Caption:=APrompt;
LPrompt.SetBounds(Margin,Margin,Frm.ClientWidth-2*Margin,frm.Canvas.TextHeight(APrompt));
LPrompt.WordWrap:=True;
LPrompt.AutoSize:=False;
// Selection combobox
CBSelect:=TComboBox.Create(Frm);
CBSelect.Parent:=Frm;
CBSelect.Style:=CBStyles[AllowInput];
CBSelect.Items.Assign(AList);
CBSelect.ItemIndex:=-1;
CBSelect.Left:=Margin;
CBSelect.Top:=LPrompt.Top + LPrompt.Height + Sep;
CBSelect.Width:=Frm.ClientWidth-2*Margin;
// Buttons
BP:=TButtonPanel.Create(Frm);
BP.Parent:=Frm;
BP.ShowButtons:=[pbOK,pbCancel];
Frm.ClientHeight:=LPrompt.Height+CBSelect.Height+BP.Height+2*Sep+Margin;
if (Frm.ShowModal=mrOk) then
begin
Result:=CBSelect.Text;
ASelected:=CBSelect.ItemIndex;
end;
finally
FreeAndNil(Frm);
end;
end;
Function InputCombo(const ACaption, APrompt: string; const AList : Array of String): Integer;
Var
L : TStrings;
S : String;
begin
L:=TstringList.Create;
try
For S in AList do
L.Add(S);
Result:=InputCombo(ACaption,APrompt,L);
finally
L.Free;
end;
end;
function InputComboEx(const ACaption, APrompt: string; const AList: TStrings; AllowCustomText: Boolean = False): String;
Var
D : Integer;
begin
Result:=DoInputCombo(ACaption,APrompt,AList,AllowCustomText,D);
end;
function InputComboEx(const ACaption, APrompt: string;
const AList: array of String; AllowCustomText: Boolean = False): String;
Var
L : TStrings;
S : String;
begin
L:=TstringList.Create;
try
For S in AList do
L.Add(S);
Result:=InputComboEx(ACaption,APrompt,L,AllowCustomText);
finally
L.Free;
end;
end;
Function InputCombo(const ACaption, APrompt: string; const AList: TStrings): Integer;
begin
DoInputCombo(ACaption,APrompt,AList,False,Result);
end;
end.
|
