Changeset 120 for trunk/Modules/ZdechovNET/UAboutPage.pas

Timestamp:

Sep 3, 2016, 11:19:09 PM (8 years ago)

Author:

chronos

Message:

• Added: News list on main page.

File:

• trunk/Modules/ZdechovNET/UAboutPage.pas (modified) (3 diffs)

trunk/Modules/ZdechovNET/UAboutPage.pas

@@ -28 +28 @@
 
 uses
-  UCore, UUtils, UWebSession;
+  UCore, UUtils, UWebSession, USqlDatabase;
 
 { TAboutPage }
@@ -35 +35 @@
 var
   TextBlock: THtmlString;
+  DbRows: TDbRows;
+  I: Integer;
 begin
   with TWebSession(HandlerData) do begin
     ModuleUser.LoadUserInfo;
     with HtmlDocument.Body, THtmlString(SubItems.AddNew(THtmlString.Create)) do begin
-    Text := '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
+    Text := '<table><tr><td style="vertical-align: top;">' +
+      '<img align="left" src="' + NavigationLink('/images/umisteni.gif') + '" alt="Umístění obce"/>' +
       '<a href="' + NavigationLink('/images/pokryti.jpg') + '">' +
       '<img align="right" src="' + NavigationLink('/images/pokryti_nahled.jpg') + '" width="303" height="238" alt="Pokrytí obce signálem"/></a>' +
@@ -61 +64 @@
       '<li>Společné hraní síťových her</li>' +
       '<li>Zprovoznění užitečných služeb (IPTV, VoIP, chat, aktuality, bazar, menu v jídelně, meteostanice, web kamery, aj.)</li>' +
-      '</ul><br/>';
+      '</ul><br/>' +
+      '</td><td style="vertical-align: top;" class="News">';
+    Text := Text + '<strong>Novinky:</strong><br/>';
+      try
+        DbRows := TDbRows.Create;
+        Database.Query(DbRows, 'SELECT * FROM `News` ORDER BY `Time` DESC LIMIT 5');
+        for I := 0 to DbRows.Count - 1 do begin
+          Text := Text + '<div><strong>' +
+            HumanDate(SQLToDateTime(DbRows[I].Values['Time'])) + '</strong><br/>' +
+            DbRows[I].Values['Text'] + '</div></br>';
+        end;
+      finally
+        DbRows.Free;
+      end;
+      Text := Text + '</table>';
+
+    Text := Text + '</td></tr></table>';
 
     Text := Text + '<br/>' +