ViewVC Help
View File | Revision Log | Show Annotations | Download File | View Changeset | Root Listing
root/public/ibx/trunk/examples/DBAdmin/DataModule.pas
(Generate patch)
# Line 153 | Line 153
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);
# Line 1234 | Line 1235
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;

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines