Procedure

TfrmRemCoverSheet.GetUserInfo

Module

fRemCoverSheet

Last Modified

7/15/2014 3:26:38 PM

Visibility

Private

Owner

TfrmRemCoverSheet

Declaration

procedure GetUserInfo(AUser: Int64);

Calls Hierarchy


TfrmRemCoverSheet.GetUserInfo
 └UserDivClassInfo

Called-By Hierarchy


             TfrmRemCoverSheet.GetUserInfo
                  TfrmRemCoverSheet.Init┤ 
            EditCoverSheetReminderList┘ │ 
 TfrmReminderTree.mnuCoverSheetClick┤   │ 
              DialogOptionsReminders┘   │ 
TfrmOptions.btnCoverRemindersClick┘     │ 
         TfrmRemCoverSheet.cbxUserChange┘ 

Calls

Name Declaration Comments
UserDivClassInfo function UserDivClassInfo(User: Int64): TStrings; -

Called-By

Name Declaration Comments
TfrmRemCoverSheet.cbxUserChange procedure cbxUserChange(Sender: TObject); -
TfrmRemCoverSheet.Init procedure Init(AsUser: boolean); -


Source

463   procedure TfrmRemCoverSheet.GetUserInfo(AUser: Int64);
464   begin
465     if FUser <> AUser then
466     begin
467       FUser := AUser;
468       //FUserInfo.Assign(UserDivClassInfo(FUser));
469       FastAssign(UserDivClassInfo(FUser), FUserInfo);
470     end;
471   end;