examples/services/ListUsersUnit.lfm

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