Changeset 91 for branches/DirectWeb/UHTMLControls.pas

Timestamp:

Dec 21, 2009, 1:19:39 PM (15 years ago)

Author:

george

Message:

• Upraveno: Třída TWebServer oddělena do samostatné jednotky.

File:

• branches/DirectWeb/UHTMLControls.pas (modified) (3 diffs)

branches/DirectWeb/UHTMLControls.pas

@@ -49 +49 @@
     Page := StrToInt(HandlerData.Request.Query.Values[PageIndexName]);
 
-  Count := Round(TotalCount / ItemPerPage);
+  Count := Trunc(TotalCount / ItemPerPage) + 1;
+  if Page > Count - 1 then Page := Count - 1;
+
   Output := '';
   if Count > 1 then
   with HandlerData, Request do begin
-    if Page > Count - 1 then Page := Count - 1;
 
     if Page > 0 then begin
@@ -68 +69 @@
     if PagesMax > Count - 1 then PagesMax := Count - 1;
 
+    if PagesMin > 0 then Output := Output + ' .. ';
     // Show page numbers
     for I := PagesMin to PagesMax do begin
@@ -78 +80 @@
       end;
     end;
+    if PagesMax < (Count - 1) then Output := Output + ' .. ';
 
-    if PagesMax < (Count - 1) then Output := Output + ' .. ';
     if Page < (Count - 1) then begin
       Query.Values[PageIndexName] := IntToStr(Page + 1);