Return to userlistformunit.cpp CVS log

Up to [Synchronet] / sbbs / sbbs3 / ctrl

Annotation of sbbs/sbbs3/ctrl/userlistformunit.cpp, revision 1.1

1.1     ! root        1: //---------------------------------------------------------------------------
        !             2: 
        !             3: #include <vcl.h>
        !             4: #pragma hdrstop
        !             5: 
        !             6: #include "UserListFormUnit.h"
        !             7: #include "MainFormUnit.h"
        !             8: #include "sbbs.h"
        !             9: #include "userdat.h"
        !            10: //---------------------------------------------------------------------------
        !            11: #pragma package(smart_init)
        !            12: #pragma resource "*.dfm"
        !            13: TUserListForm *UserListForm;
        !            14: //---------------------------------------------------------------------------
        !            15: __fastcall TUserListForm::TUserListForm(TComponent* Owner)
        !            16:     : TForm(Owner)
        !            17: {
        !            18: }
        !            19: //---------------------------------------------------------------------------
        !            20: void __fastcall TUserListForm::FormShow(TObject *Sender)
        !            21: {
        !            22:     char    str[128];
        !            23:     int     i,last;
        !            24:     user_t  user;
        !            25:     TListItem*  Item;
        !            26: 
        !            27:     ColumnToSort=0;
        !            28:     SortBackwards=false;
        !            29:     Screen->Cursor=crAppStart;
        !            30: 
        !            31:     last=lastuser(&MainForm->cfg);
        !            32:     ListView->AllocBy=last;
        !            33:     
        !            34:     for(i=0;i<last;i++) {
        !            35:         user.number=i+1;
        !            36:         if(getuserdat(&MainForm->cfg,&user)!=0)
        !            37:             continue;
        !            38:         if(user.misc&DELETED)
        !            39:             continue;
        !            40:         Item=ListView->Items->Add();
        !            41:         Item->Caption=AnsiString(i+1);
        !            42:         Item->SubItems->Add(user.alias);
        !            43:         Item->SubItems->Add(user.name);
        !            44:         Item->SubItems->Add(user.level);
        !            45:         Item->SubItems->Add((int)getage(&MainForm->cfg,user.birth));
        !            46:         sprintf(str,"%c",user.sex);
        !            47:         Item->SubItems->Add(str);
        !            48:         Item->SubItems->Add(user.location);
        !            49:         Item->SubItems->Add(user.modem);
        !            50:         Item->SubItems->Add(user.note);
        !            51:         Item->SubItems->Add(user.comp);
        !            52:         Item->SubItems->Add(user.phone);
        !            53:         Item->SubItems->Add(user.netmail);
        !            54:         Item->SubItems->Add(user.logons);
        !            55:         Item->SubItems->Add(unixtodstr(&MainForm->cfg,user.firston,str));
        !            56:         Item->SubItems->Add(unixtodstr(&MainForm->cfg,user.laston,str));
        !            57:     }
        !            58: 
        !            59:     Screen->Cursor=crDefault;
        !            60: }
        !            61: //---------------------------------------------------------------------------
        !            62: void __fastcall TUserListForm::ListViewColumnClick(TObject *Sender,
        !            63:       TListColumn *Column)
        !            64: {
        !            65:     if(Column->Index == ColumnToSort)
        !            66:         SortBackwards=!SortBackwards;
        !            67:     else
        !            68:         SortBackwards=false;
        !            69:     ColumnToSort = Column->Index;
        !            70:     ((TCustomListView *)Sender)->AlphaSort();
        !            71: }
        !            72: //---------------------------------------------------------------------------
        !            73: void __fastcall TUserListForm::ListViewCompare(TObject *Sender,
        !            74:       TListItem *Item1, TListItem *Item2, int Data, int &Compare)
        !            75: {
        !            76:     /* Decimal compare */
        !            77:     if (ColumnToSort == 0 || ColumnToSort==3 || ColumnToSort==4
        !            78:     || ColumnToSort == 12) {
        !            79:         int num1, num2;
        !            80: 
        !            81:         if(ColumnToSort==0) {
        !            82:             num1=Item1->Caption.ToIntDef(0);
        !            83:             num2=Item2->Caption.ToIntDef(0);
        !            84:         } else {
        !            85:             int ix = ColumnToSort - 1;
        !            86:             num1=Item1->SubItems->Strings[ix].ToIntDef(0);
        !            87:             num2=Item2->SubItems->Strings[ix].ToIntDef(0);
        !            88:         }
        !            89:         if(SortBackwards)
        !            90:             Compare=(num2-num1);
        !            91:         else
        !            92:             Compare=(num1-num2);
        !            93:     } else {
        !            94:         int ix = ColumnToSort - 1;
        !            95:         if(SortBackwards)
        !            96:             Compare = CompareText(Item2->SubItems->Strings[ix]
        !            97:                 ,Item1->SubItems->Strings[ix]);
        !            98:         else
        !            99:             Compare = CompareText(Item1->SubItems->Strings[ix]
        !           100:                 ,Item2->SubItems->Strings[ix]);
        !           101:     }
        !           102: }
        !           103: //---------------------------------------------------------------------------
        !           104: void __fastcall TUserListForm::FormClose(TObject *Sender,
        !           105:       TCloseAction &Action)
        !           106: {
        !           107:     ListView->Items->Clear();
        !           108: 
        !           109: }
        !           110: //---------------------------------------------------------------------------
        !           111: 
        !           112: 
        !           113: 
        !           114: 
        !           115: void __fastcall TUserListForm::EditUserPopupClick(TObject *Sender)
        !           116: {
        !           117:     char str[256];
        !           118: 
        !           119:     if(ListView->Selected==NULL)
        !           120:         return;
        !           121:     sprintf(str,"%sUSEREDIT %s %s"
        !           122:         ,MainForm->cfg.exec_dir,MainForm->cfg.data_dir
        !           123:         ,ListView->Selected->Caption.c_str());
        !           124:     WinExec(str,SW_SHOWNORMAL);
        !           125: }
        !           126: //---------------------------------------------------------------------------
        !           127: 

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.