Changeset 120

Timestamp:

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

Author:

chronos

Message:

• Added: News list on main page.

Location:

trunk

Files:

• Modules/ZdechovNET/UAboutPage.pas (modified) (3 diffs)
• SQL/Updates/120.sql (added)
• ZdechovNET.lpi (modified) (4 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/>' +

trunk/ZdechovNET.lpi

@@ -55 +55 @@
               <StackChecks Value="True"/>
             </Checks>
+            <VerifyObjMethodCallValidity Value="True"/>
           </CodeGeneration>
           <Linking>
@@ -333 +334 @@
         <SyntaxMode Value="Delphi"/>
         <CStyleOperator Value="False"/>
+        <IncludeAssertionCode Value="True"/>
         <AllowLabel Value="False"/>
         <CPPInline Value="False"/>
@@ -345 +347 @@
         <StackChecks Value="True"/>
       </Checks>
+      <VerifyObjMethodCallValidity Value="True"/>
       <Optimizations>
         <OptimizationLevel Value="3"/>
@@ -350 +353 @@
     </CodeGeneration>
     <Linking>
+      <Debugging>
+        <GenerateDebugInfo Value="False"/>
+      </Debugging>
       <LinkSmart Value="True"/>
     </Linking>