Skip to content
Snippets Groups Projects
Commit d37ed132 authored by Rob Swindell's avatar Rob Swindell :speech_balloon:
Browse files

Use the new userdat api functions: del_user() and undel_user()

Display the user's deletion date (when available) - always displayed in
numeric format because datestr() takes a time_t argument and Borland's time_t
is just 32-bits still.

Fix typo in "Active User" string
parent ba963b52
No related branches found
No related tags found
No related merge requests found
...@@ -229,13 +229,16 @@ void __fastcall TMainForm::GetUserData(int number) ...@@ -229,13 +229,16 @@ void __fastcall TMainForm::GetUserData(int number)
ChatCheckListBox->Tag = false; ChatCheckListBox->Tag = false;
if(user.misc & DELETED) { if(user.misc & DELETED) {
if(user.deldate)
Status->Text = "Deleted " + AnsiString(unixtodstr(&cfg, user.deldate, tmp));
else
Status->Text = "Deleted User"; Status->Text = "Deleted User";
Status->Color = clRed; Status->Color = clRed;
} else if(user.misc & INACTIVE) { } else if(user.misc & INACTIVE) {
Status->Text = "Inactive User"; Status->Text = "Inactive User";
Status->Color = clYellow; Status->Color = clYellow;
} else { } else {
Status->Text = "Active Uesr"; Status->Text = "Active User";
Status->Color = clMenu; Status->Color = clMenu;
} }
...@@ -535,11 +538,11 @@ void __fastcall TMainForm::NewUserExecute(TObject *Sender) ...@@ -535,11 +538,11 @@ void __fastcall TMainForm::NewUserExecute(TObject *Sender)
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TMainForm::DeleteUserExecute(TObject *Sender) void __fastcall TMainForm::DeleteUserExecute(TObject *Sender)
{ {
user.misc ^= DELETED; if(user.misc & DELETED)
putusermisc(&cfg, ScrollBar->Position, user.misc); undel_user(&cfg, &user);
LogonCheckListBox->Tag = true; // flag as modified else
AliasEdit->Tag = true; del_user(&cfg, &user);
PutUserData(ScrollBar->Position); GetUserData(ScrollBar->Position);
} }
//--------------------------------------------------------------------------- //---------------------------------------------------------------------------
void __fastcall TMainForm::DeactivateUserExecute(TObject *Sender) void __fastcall TMainForm::DeactivateUserExecute(TObject *Sender)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment