VcsAfterRemoveVersion
procedure VcsAfterRemoveVersion( pProject, pFolder, pObjectName, pUserName, pRevision, pVersionLabel: PChar; UserID, FileID, RevisionID, VersionID: Cardinal ); stdcall; export;
|
This procedure is called after an Remove Version Label action occurs. This is a notification event only and none of the values passed in can be modified.
Parameters
Name
|
Description
|
pProject
|
The name of the Project containing the file
|
pFolder
|
The name of the Folder containing the file
|
pObjectName
|
The name of the file object that the Version Label removed from
|
pUserName
|
The name of the user that carried out the action
|
pRevision
|
The name of the revision the Version Label was removed from
|
pVersionLabel
|
The name of the Version Label being removed
|
UserID
|
The ID of the user that carried out the action
|
FileID
|
The ID of the file
|
RevisionID
|
The ID of the revision the Version Label was assigned to
|
VersionID
|
The ID of the Version Label being assigned
|
Example (Delphi)
The following method is called after a Version Label is successfully removed from a file and simply logs the action to a local text file:
procedure VcsAfterRemoveVersion( pProject, pFolder, pObjectName, pUserName, pRevision, pVersionLabel: PChar; UserID, FileID, RevisionID, VersionID: Cardinal );
|
var
|
Name, FullName, EMail, Location, Extra: String;
|
begin
|
// This method is called after a Version Label is successfully removed
|
GetUserInfo( UserID, Name, FullName, EMail, Location, Extra );
|
LogIt( Format( '%s - ''%s (%s)'' Removed Version ''%s'' from revision ''%s'' of ''%s''', [ DateTimeToStr( Now ), String( pUserName ), EMail, String( pVersionLabel ), String( pRevision ), String( pObjectName ) ] ) );
|
end;
|
|
© 1995-2018 MCN Software