Changeset 71 for trunk/Pages

Timestamp:

Feb 11, 2012, 10:43:06 AM (13 years ago)

Author:

chronos

Message:

• Upraveno: Periodické načítání obrázků kamery se nyní provádí na pozadí kvůli zamezení problikávání.

Location:

trunk/Pages

Files:

• ULinksPage.pas (modified) (1 diff)
• UUserControlPage.pas (modified) (1 diff)
• UWebCamPage.pas (modified) (4 diffs)

trunk/Pages/ULinksPage.pas

@@ -39 +39 @@
     '<a href="http://www.zdechov.cz/">Obec Zděchov</a> - oficiální stránky  obce<br/>' +
     '<a href="http://zdechovskagrapa.sweb.cz/">Zděchovská grapa</a> - místní motokrosové závody<br/>' +
-    '<a href="http://www.snbzdechov.com/zavod.htm">Zděchovská třicítka</a> - tradiční běžkařský závod<br/>' +
-    '<a href="http://www.snbzdechov.com/">Snowpark Zděchov</a> - areál se sjezdovkou pro lyžaře i snowboardisty<br/>' +
+    '<a href="http://skiareal.zdechov.net/">Skiareál</a> - areál se sjezdovkou pro lyžaře i snowboardisty<br/>' +
     '<a href="http://sdh.zdechov.net/">SDH Zděchov</a> - Sbor Dobrovolných Hasičů Zděchov<br/>' +
     '<a href="http://fotbal.zdechov.net/">TJ Sokol Zděchov</a> - stránky věnované Zděchovskému fotbalovému týmu<br/>' +

trunk/Pages/UUserControlPage.pas

@@ -170 +170 @@
 
 procedure TUserControlPage.HandleProfile(HandlerData: THTTPHandlerData);
-begin
-
+var
+  Form: TQueryForm;
+begin
+  with MainModule, HtmlDocument.Body do begin
+    Form := TQueryForm.Create;
+    with Form do begin
+      Title := 'Nastavení profilu';
+      ClassId := 'WideTable';
+      with AddNewGroup do begin
+        Title := '';
+        with AddNewItem do begin
+          Caption := 'Jméno';
+          Name := 'UserName';
+          Hint := 'Zadejte vaše přihlašovací jméno';
+          Required := True;
+        end;
+        with AddNewItem do begin
+          Caption := 'Heslo';
+          Name := 'Password';
+          Hint := 'Zadejte vaše heslo';
+          Required := True;
+          ItemType := fitPassword;
+        end;
+        with AddNewItem do begin
+          Caption := 'Email';
+          Name := 'Email';
+          Hint := 'Zadejte vaši emailovou adresu';
+          Required := True;
+          ItemType := fitText;
+        end;
+        with AddNewItem do begin
+          Caption := 'Celé jméno';
+          Name := 'FullName';
+          Hint := 'Zadejte vaše celé jméno';
+          Required := False;
+          ItemType := fitText;
+        end;
+      end;
+      with AddNewAction do begin
+        Caption := 'Uložit';
+        Action := 'Save';
+      end;
+    end;
+    if HandlerData.Request.Post.IndexOfName('Save') <> -1 then
+    with HandlerData.Request do begin
+      Form.Load(HandlerData.Request.Post);
+      with THtmlString(SubItems.AddNew(THtmlString.Create)) do
+        Text := 'Profil uživatele: ' + TQueryFormGroup(Form.Groups[0]).Rows.FindByName('UserName').Value.Value + ' uložen';
+      Form.Free;
+    end else SubItems.AddNew(Form);
+  end;
 end;
 

trunk/Pages/UWebCamPage.pas

@@ -40 +40 @@
   I: Integer;
   Id: Integer;
+  LastFileDate: string;
   ImageWidth, ImageHeight: string;
 begin
@@ -115 +116 @@
 
         if FileExists(WebCamImage) then begin
+        DateTimeToString(LastFileDate, 'hh:mm:ss d.m.yyyy', FileDateToDateTime(FileAge(WebCamImage)));
         Text := Text + '<script language="JavaScript">' + #13#10 +
         '  var ImageURL= "' + NavigationLink('/' + WebCamImage) + '";' + #13#10 +
@@ -129 +131 @@
         '  // The above dummy cgi-parameter enforce a bypass of the browser image cache.' + #13#10 +
         '  // Here we actually load the image' + #13#10 +
-        '  document.theImage.src = url;' + #13#10 +
+        '  document.theImage.src = document.theImageTemp.src;' + #13#10 +
+        '  document.theImageTemp.src = url;' + #13#10 +
         '' + #13#10 +
         '  // Reload the image every defined period' + #13#10 +
@@ -137 +140 @@
 
         '<br /><div align="center">' + DbRows[0].Values['Name'] + '<br/>' +
-        '<img name="theImage" src="" width="' + ImageWidth + '" height="' + ImageHeight + '" alt="' +
-        DbRows[0].Values['Name'] + '"/><br/>Aktualizace: ' +
-          DateTimeToStr(FileDateToDateTime(FileAge(WebCamImage))) + ' Perioda: ' +
-          IntToStr(RefreshInterval) + ' sekund Typ: ' + DbRows[0].Values['DeviceType'] + '<br />' +
+        '<img name="theImageTemp" src="' + NavigationLink('/' + WebCamImage) + '" width="0" height="0" alt="Temp image"/>' +
+        '<img name="theImage" src="' + NavigationLink('/' + WebCamImage) + '" width="' + ImageWidth + '" height="' + ImageHeight + '" alt="' +
+        DbRows[0].Values['Name'] + '"/><br/>Aktualizace: <span id="lasttime">' +
+          LastFileDate + '</span>, Perioda: ' +
+          IntToStr(RefreshInterval) + ' sekund, Typ: ' + DbRows[0].Values['DeviceType'] + '<br />' +
           '<br/>' + DbRows[0].Values['Description'] + '</div>';
         end else Text := Text + '<br />Obrázek nenalezen.<br /><br />';