Changeset 78 for trunk/Pages/UInternetPage.pas
- Timestamp:
- Jun 18, 2012, 10:44:21 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Pages/UInternetPage.pas
r77 r78 34 34 procedure TInternetPage.DataModuleProduce(HandlerData: THTTPHandlerData); 35 35 begin 36 with MainModuledo begin37 LoadUserInfo (HandlerData);36 with TWebSession(HandlerData) do begin 37 LoadUserInfo; 38 38 with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin 39 39 Text := Text + 'Hlavní náplní činnosti sítě je poskytovat výhodné připojení k internetu pro občany.<br/><br/>' + … … 54 54 '<i>Aktualizováno: 1.8.2011</i>'; 55 55 end; 56 GeneratePage(Self); 56 57 end; 57 MainModule.GeneratePage(HandlerData, Self);58 58 end; 59 59
Note:
See TracChangeset
for help on using the changeset viewer.