153 |
|
procedure IBXServicesConnection1Login(Service: TIBXServicesConnection; |
154 |
|
var aServerName: string; LoginParams: TStrings); |
155 |
|
procedure LegacyUserListAfterOpen(DataSet: TDataSet); |
156 |
+ |
procedure LegacyUserListAfterPost(DataSet: TDataSet); |
157 |
|
procedure LegacyUserListBeforeClose(DataSet: TDataSet); |
158 |
|
procedure ShadowFilesCalcFields(DataSet: TDataSet); |
159 |
|
procedure SubjectAccessRightsBeforeOpen(DataSet: TDataSet); |
1235 |
|
RoleNameList.Active := true; |
1236 |
|
end; |
1237 |
|
|
1238 |
+ |
procedure TDatabaseData.LegacyUserListAfterPost(DataSet: TDataSet); |
1239 |
+ |
begin |
1240 |
+ |
RoleNameList.Active := true; |
1241 |
+ |
end; |
1242 |
+ |
|
1243 |
|
procedure TDatabaseData.LegacyUserListBeforeClose(DataSet: TDataSet); |
1244 |
|
begin |
1245 |
|
RoleNameList.Active := false; |