source: tags/1.2.0/Forms/UFormFind.lfm

Last change on this file was 76, checked in by chronos, 3 years ago
  • Added: Find dialog to search text value by given contact field or by any field.
File size: 1.3 KB
Line 
1object FormFind: TFormFind
2 Left = 469
3 Height = 523
4 Top = 407
5 Width = 807
6 ActiveControl = EditValue
7 Caption = 'Find'
8 ClientHeight = 523
9 ClientWidth = 807
10 DesignTimePPI = 144
11 OnClose = FormClose
12 OnCreate = FormCreate
13 OnDestroy = FormDestroy
14 OnShow = FormShow
15 LCLVersion = '2.0.12.0'
16 object Panel1: TPanel
17 Left = 0
18 Height = 58
19 Top = 0
20 Width = 807
21 Align = alTop
22 BevelOuter = bvNone
23 ClientHeight = 58
24 ClientWidth = 807
25 ParentFont = False
26 TabOrder = 0
27 object ComboBoxField: TComboBox
28 Left = 184
29 Height = 33
30 Top = 16
31 Width = 240
32 ItemHeight = 25
33 OnChange = ComboBoxFieldChange
34 ParentFont = False
35 Style = csDropDownList
36 TabOrder = 0
37 end
38 object Label1: TLabel
39 Left = 13
40 Height = 25
41 Top = 19
42 Width = 125
43 Caption = 'By contact field:'
44 ParentColor = False
45 ParentFont = False
46 end
47 object EditValue: TEdit
48 Left = 440
49 Height = 33
50 Top = 16
51 Width = 208
52 OnKeyPress = EditValueKeyPress
53 TabOrder = 1
54 end
55 object ButtonFind: TButton
56 Left = 664
57 Height = 38
58 Top = 16
59 Width = 113
60 Caption = 'Find'
61 OnClick = ButtonFindClick
62 TabOrder = 2
63 end
64 end
65end
Note: See TracBrowser for help on using the repository browser.