examples/services/ListUsersUnit.lfm

object ListUsersForm: TListUsersForm
  Left = 413
  Height = 404
  Top = 252
  Width = 861
  Caption = 'Display Users'
  ClientHeight = 404
  ClientWidth = 861
  OnShow = FormShow
  Position = poScreenCenter
  LCLVersion = '1.8.0.5'
  object Label1: TLabel
    Left = 8
    Height = 14
    Top = 14
    Width = 100
    Caption = 'Registered Users'
    ParentColor = False
  end
  object StringGrid1: TStringGrid
    Left = 8
    Height = 336
    Top = 32
    Width = 824
    Anchors = [akTop, akLeft, akRight, akBottom]
    AutoFillColumns = True
    ColCount = 6
    Columns = <    
      item
        Title.Alignment = taCenter
        Title.Caption = 'User ID'
        Width = 137
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Group ID'
        Width = 137
      end    
      item
        ReadOnly = True
        Title.Alignment = taCenter
        Title.Caption = 'User Name'
        Width = 137
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'First Name'
        Width = 137
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Middle Name'
        Width = 137
      end    
      item
        Title.Alignment = taCenter
        Title.Caption = 'Last Name'
        Width = 137
      end>
    DefaultColWidth = 120
    FixedCols = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected, goEditing, goSmoothScroll]
    ScrollBars = ssAutoVertical
    TabOrder = 0
    OnEditingDone = StringGrid1EditingDone
    ColWidths = (
      137
      137
      137
      137
      137
      137
    )
    Cells = (
      1
      0
      0
      'User ID'
    )
  end
  object Button1: TButton
    Left = 757
    Height = 25
    Top = 373
    Width = 75
    Anchors = [akRight, akBottom]
    Caption = 'Delete'
    OnClick = Button1Click
    TabOrder = 1
  end
  object Button2: TButton
    Left = 8
    Height = 25
    Top = 373
    Width = 75
    Anchors = [akLeft, akBottom]
    Caption = 'Add'
    OnClick = Button2Click
    TabOrder = 2
  end
  object Button3: TButton
    Left = 88
    Height = 25
    Top = 373
    Width = 120
    Anchors = [akLeft, akBottom]
    Caption = 'Change Password'
    OnClick = Button3Click
    TabOrder = 3
  end
  object IBSecurityService1: TIBSecurityService
    ServerName = 'localhost'
    Protocol = TCP
    TraceFlags = []
    SecurityAction = ActionAddUser
    UserID = 0
    GroupID = 0
    left = 768
    top = 288
  end
end
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
#	User	Rev	Content
1	tony	45	object ListUsersForm: TListUsersForm
2	tony	80	Left = 413
3	tony	45	Height = 404
4	tony	80	Top = 252
5	tony	45	Width = 861
6			Caption = 'Display Users'
7			ClientHeight = 404
8			ClientWidth = 861
9			OnShow = FormShow
10	tony	80	Position = poScreenCenter
11			LCLVersion = '1.8.0.5'
12	tony	45	object Label1: TLabel
13			Left = 8
14	tony	80	Height = 14
15	tony	45	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