Ignore:
Timestamp:
Jun 21, 2012, 12:21:50 PM (12 years ago)
Author:
chronos
Message:
  • Přejmenování jednotky UMainModule na UCore.
File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/Pages/UUserControlPage.pas

    r80 r81  
    3232
    3333uses
    34   UMainModule, UUtils, UUser;
     34  UCore, UUtils, UUser;
    3535
    3636  { TUserControlPage }
    … …  
    6363  UserId: Integer;
    6464begin
    65   with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     65  with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
    6666    Form := TQueryForm.Create;
    6767    with Form do begin
    … …  
    108108  UserId: Integer;
    109109begin
    110   with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     110  with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
    111111    Form := TQueryForm.Create;
    112112    with Form do begin
    … …  
    165165procedure TUserControlPage.HandleLogout(HandlerData: THTTPHandlerData);
    166166begin
    167   with TWebSession(HandlerData), MainModule, HtmlDocument.Body do begin
     167  with TWebSession(HandlerData), Core, HtmlDocument.Body do begin
    168168    UserOnline.Logout;
    169169    with THtmlString(SubItems.AddNew(THtmlString.Create)) do
Note: See TracChangeset for help on using the changeset viewer.