ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/services/ListUsersUnit.lfm
Revision: 80
Committed: Mon Jan 1 11:31:07 2018 UTC (6 years, 3 months ago) by tony
File size: 2525 byte(s)
Log Message:
Fixes merged into public release

File Contents

# Content
1 object ListUsersForm: TListUsersForm
2 Left = 413
3 Height = 404
4 Top = 252
5 Width = 861
6 Caption = 'Display Users'
7 ClientHeight = 404
8 ClientWidth = 861
9 OnShow = FormShow
10 Position = poScreenCenter
11 LCLVersion = '1.8.0.5'
12 object Label1: TLabel
13 Left = 8
14 Height = 14
15 Top = 14
16 Width = 100
17 Caption = 'Registered Users'
18 ParentColor = False
19 end
20 object StringGrid1: TStringGrid
21 Left = 8
22 Height = 336
23 Top = 32
24 Width = 824
25 Anchors = [akTop, akLeft, akRight, akBottom]
26 AutoFillColumns = True
27 ColCount = 6
28 Columns = <
29 item
30 Title.Alignment = taCenter
31 Title.Caption = 'User ID'
32 Width = 137
33 end
34 item
35 Title.Alignment = taCenter
36 Title.Caption = 'Group ID'
37 Width = 137
38 end
39 item
40 ReadOnly = True
41 Title.Alignment = taCenter
42 Title.Caption = 'User Name'
43 Width = 137
44 end
45 item
46 Title.Alignment = taCenter
47 Title.Caption = 'First Name'
48 Width = 137
49 end
50 item
51 Title.Alignment = taCenter
52 Title.Caption = 'Middle Name'
53 Width = 137
54 end
55 item
56 Title.Alignment = taCenter
57 Title.Caption = 'Last Name'
58 Width = 137
59 end>
60 DefaultColWidth = 120
61 FixedCols = 0
62 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goSmoothScroll]
63 ScrollBars = ssAutoVertical
64 TabOrder = 0
65 OnEditingDone = StringGrid1EditingDone
66 ColWidths = (
67 137
68 137
69 137
70 137
71 137
72 137
73 )
74 Cells = (
75 1
76 0
77 0
78 'User ID'
79 )
80 end
81 object Button1: TButton
82 Left = 757
83 Height = 25
84 Top = 373
85 Width = 75
86 Anchors = [akRight, akBottom]
87 Caption = 'Delete'
88 OnClick = Button1Click
89 TabOrder = 1
90 end
91 object Button2: TButton
92 Left = 8
93 Height = 25
94 Top = 373
95 Width = 75
96 Anchors = [akLeft, akBottom]
97 Caption = 'Add'
98 OnClick = Button2Click
99 TabOrder = 2
100 end
101 object Button3: TButton
102 Left = 88
103 Height = 25
104 Top = 373
105 Width = 120
106 Anchors = [akLeft, akBottom]
107 Caption = 'Change Password'
108 OnClick = Button3Click
109 TabOrder = 3
110 end
111 object IBSecurityService1: TIBSecurityService
112 ServerName = 'localhost'
113 Protocol = TCP
114 TraceFlags = []
115 SecurityAction = ActionAddUser
116 UserID = 0
117 GroupID = 0
118 left = 768
119 top = 288
120 end
121 end