Ignore:
Timestamp:
Feb 4, 2024, 2:14:37 PM (9 months ago)
Author:
chronos
Message:
  • Modified: Update Common package.
  • Added: Project group.
  • Modified: Assign ModuleUser to modules which use it in later time.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Modules/ZdechovNET/ModuleZdechovNET.pas

    r146 r149  
    3939    Raw: Boolean;
    4040    constructor Create(Owner: TComponent); override;
     41    destructor Destroy; override;
    4142    procedure Start; override;
    4243    procedure Stop; override;
    … …  
    6364  Dependencies.Add('User');
    6465  Dependencies.Add('Base');
     66
     67  // Pages
     68  InternetPage := TInternetPage.Create(nil);
     69  HostingPage := THostingPage.Create(nil);
     70  HistoryPage := THistoryPage.Create(nil);
     71  DocumentsPage := TDocumentsPage.Create(nil);
     72  VoIPPage := TVoIPPage.Create(nil);
     73  LinksPage := TLinksPage.Create(nil);
     74  ContactPage := TContactPage.Create(nil);
     75  ServerInfoPage := TServerInfoPage.Create(nil);
     76  WebCamPage := TWebCamPage.Create(nil);
     77  PlansPage := TPlansPage.Create(nil);
     78  NetworkPage := TNetworkPage.Create(nil);
     79  ProjectsPage := TProjectsPage.Create(nil);
     80  AboutPage := TAboutPage.Create(nil);
     81  IPTVPage := TIPTVPage.Create(nil);
     82  RobotsPage := TRobotsPage.Create(nil);
     83end;
     84
     85destructor TModuleZdechovNET.Destroy;
     86begin
     87  FreeAndNil(IPTVPage);
     88  FreeAndNil(AboutPage);
     89  FreeAndNil(InternetPage);
     90  FreeAndNil(HostingPage);
     91  FreeAndNil(HistoryPage);
     92  FreeAndNil(DocumentsPage);
     93  FreeAndNil(VoIPPage);
     94  FreeAndNil(LinksPage);
     95  FreeAndNil(ContactPage);
     96  FreeAndNil(ServerInfoPage);
     97  FreeAndNil(WebCamPage);
     98  FreeAndNil(PlansPage);
     99  FreeAndNil(NetworkPage);
     100  FreeAndNil(ProjectsPage);
     101  FreeAndNil(RobotsPage);
     102  inherited;
    65103end;
    66104
    … …  
    73111  with ModuleBase, Pages do begin
    74112    //OnGeneratePage := OnGeneratePage;
    75     InternetPage := TInternetPage.Create(nil);
    76     InternetPage.ModuleUser := ModuleUser;
     113
    77114    RegisterPage(InternetPage, 'internet');
    78     HostingPage := THostingPage.Create(nil);
    79     HostingPage.ModuleUser := ModuleUser;
    80115    RegisterPage(HostingPage, 'hosting');
    81     HistoryPage := THistoryPage.Create(nil);
    82     HistoryPage.ModuleUser := ModuleUser;
    83116    RegisterPage(HistoryPage, 'historie');
    84     DocumentsPage := TDocumentsPage.Create(nil);
    85     DocumentsPage.ModuleUser := ModuleUser;
    86117    RegisterPage(DocumentsPage, 'dokumenty');
    87     VoIPPage := TVoIPPage.Create(nil);
    88     VoIPPage.ModuleUser := ModuleUser;
    89118    RegisterPage(VoIPPage, 'voip');
    90     LinksPage := TLinksPage.Create(nil);
    91     LinksPage.ModuleUser := ModuleUser;
    92119    RegisterPage(LinksPage, 'odkazy');
    93     ContactPage := TContactPage.Create(nil);
    94     ContactPage.ModuleUser := ModuleUser;
    95120    RegisterPage(ContactPage, 'kontakt');
    96     ServerInfoPage := TServerInfoPage.Create(nil);
    97     ServerInfoPage.ModuleUser := ModuleUser;
     121    RegisterPage(WebCamPage, 'kamery');
     122    RegisterPage(PlansPage, 'plany');
     123    RegisterPage(NetworkPage, 'sit');
     124    RegisterPage(ProjectsPage, 'projekty');
     125    RegisterPage(AboutPage, '');
     126    RegisterPage(IPTVPage, 'televize');
     127    RegisterPage(RobotsPage, 'robots.txt');
     128    {$IFDEF DEBUG}
    98129    RegisterPage(ServerInfoPage, 'serverinfo');
    99     WebCamPage := TWebCamPage.Create(nil);
    100     WebCamPage.ModuleUser := ModuleUser;
    101     RegisterPage(WebCamPage, 'kamery');
    102     PlansPage := TPlansPage.Create(nil);
    103     PlansPage.ModuleUser := ModuleUser;
    104     RegisterPage(PlansPage, 'plany');
    105     NetworkPage := TNetworkPage.Create(nil);
    106     NetworkPage.ModuleUser := ModuleUser;
    107     RegisterPage(NetworkPage, 'sit');
    108     ProjectsPage := TProjectsPage.Create(nil);
    109     ProjectsPage.ModuleUser := ModuleUser;
    110     RegisterPage(ProjectsPage, 'projekty');
    111     AboutPage := TAboutPage.Create(nil);
    112     AboutPage.ModuleUser := ModuleUser;
    113     RegisterPage(AboutPage, '');
    114     IPTVPage := TIPTVPage.Create(nil);
    115     IPTVPage.ModuleUser := ModuleUser;
    116     RegisterPage(IPTVPage, 'televize');
    117     RobotsPage := TRobotsPage.Create(nil);
    118     RobotsPage.ModuleUser := ModuleUser;
    119     RegisterPage(RobotsPage, 'robots.txt');
     130    {$ENDIF}
    120131  end;
    121132  AfterStart;
    … …  
    127138  with ModuleBase, Pages do begin
    128139    UnregisterPage(IPTVPage);
    129     FreeAndNil(IPTVPage);
    130140    UnregisterPage(AboutPage);
    131     FreeAndNil(AboutPage);
    132141    UnregisterPage(InternetPage);
    133     FreeAndNil(InternetPage);
    134142    UnregisterPage(HostingPage);
    135     FreeAndNil(HostingPage);
    136143    UnregisterPage(HistoryPage);
    137     FreeAndNil(HistoryPage);
    138144    UnregisterPage(DocumentsPage);
    139     FreeAndNil(DocumentsPage);
    140145    UnregisterPage(VoIPPage);
    141     FreeAndNil(VoIPPage);
    142146    UnregisterPage(LinksPage);
    143     FreeAndNil(LinksPage);
    144147    UnregisterPage(ContactPage);
    145     FreeAndNil(ContactPage);
     148    UnregisterPage(WebCamPage);
     149    UnregisterPage(PlansPage);
     150    UnregisterPage(NetworkPage);
     151    UnregisterPage(ProjectsPage);
     152    UnregisterPage(RobotsPage);
     153    {$IFDEF DEBUG}
    146154    UnregisterPage(ServerInfoPage);
    147     FreeAndNil(ServerInfoPage);
    148     UnregisterPage(WebCamPage);
    149     FreeAndNil(WebCamPage);
    150     UnregisterPage(PlansPage);
    151     FreeAndNil(PlansPage);
    152     UnregisterPage(NetworkPage);
    153     FreeAndNil(NetworkPage);
    154     UnregisterPage(ProjectsPage);
    155     FreeAndNil(ProjectsPage);
    156     UnregisterPage(RobotsPage);
    157     FreeAndNil(RobotsPage);
     155    {$ENDIF}
    158156  end;
    159157  ModuleBase := nil;
Note: See TracChangeset for help on using the changeset viewer.