Changeset 120 for trunk/Modules


Ignore:
Timestamp:
Sep 3, 2016, 11:19:09 PM (8 years ago)
Author:
chronos
Message:
  • Added: News list on main page.
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/Modules/ZdechovNET/UAboutPage.pas

    r118 r120  
    2828
    2929uses
    30   UCore, UUtils, UWebSession;
     30  UCore, UUtils, UWebSession, USqlDatabase;
    3131
    3232{ TAboutPage }
     
    3535var
    3636  TextBlock: THtmlString;
     37  DbRows: TDbRows;
     38  I: Integer;
    3739begin
    3840  with TWebSession(HandlerData) do begin
    3941    ModuleUser.LoadUserInfo;
    4042    with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
    41     Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
     43    Text := '<table><tr><td style="vertical-align: top;">' +
     44      '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
    4245      '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
    4346      '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="303" height="238" alt="Pokrytí obce signálem"/></a>' +
     
    6164      '<li>Společné hraní síťových her</li>' +
    6265      '<li>Zprovoznění užitečných služeb (IPTV, VoIP, chat, aktuality, bazar, menu v jídelně, meteostanice, web kamery, aj.)</li>' +
    63       '</ul><br/>';
     66      '</ul><br/>' +
     67      '</td><td style="vertical-align: top;" class="News">';
     68    Text := Text + '<strong>Novinky:</strong><br/>';
     69      try
     70        DbRows := TDbRows.Create;
     71        Database.Query(DbRows, 'SELECT * FROM `News` ORDER BY `Time` DESC LIMIT 5');
     72        for I := 0 to DbRows.Count - 1 do begin
     73          Text := Text + '<div><strong>' +
     74            HumanDate(SQLToDateTime(DbRows[I].Values['Time'])) + '</strong><br/>' +
     75            DbRows[I].Values['Text'] + '</div></br>';
     76        end;
     77      finally
     78        DbRows.Free;
     79      end;
     80      Text := Text + '</table>';
     81
     82    Text := Text + '</td></tr></table>';
    6483
    6584    Text := Text + '<br/>' +
Note: See TracChangeset for help on using the changeset viewer.