Changeset 27 for branches/lazarus/UCore.pas

Timestamp:

Sep 10, 2010, 8:09:21 AM (14 years ago)

Author:

george

Message:

• Přidáno: Systém navigace pomocí "pěkných" URL.

File:

• branches/lazarus/UCore.pas (modified) (4 diffs)

branches/lazarus/UCore.pas

@@ -11 +11 @@
   TArrayOfString = array of string;
 
+function NavigationLink(URL: string): string;
 function MakeLink(Text, URL: string): string;
-function NavigationMakeLink(Module, Page: string): string;
 function InsertIcon(FileName: string): string;
 function IconedLink(Link, Text: string): string;
@@ -84 +84 @@
 function InsertIcon(FileName: string): string;
 begin
-  Result := '<img alt="" src="images/favicons/' + FileName + '" width="16" height="16" />';
+  Result := '<img alt="" src="' + NavigationLink('/images/favicons/' + FileName) + '" width="16" height="16" />';
 end;
 
@@ -100 +100 @@
   Icon: string;
 begin
-  Extension := Copy(Link, LastPos(Link, '.') + 1, Length(Link));
-  Icon := '<img src="images/icons/' + Extension + '.gif" alt="' + Extension + '"> ';
+  Extension := Copy(Link, LastPos('.', Link) + 1, Length(Link));
+  Icon := '<img src="' + NavigationLink('/images/icons/' + Extension + '.gif') + '" alt="' + Extension + '"> ';
   Result := Icon + '<a href="' + Link + '">' + Text + '</a>';
 end;
@@ -110 +110 @@
 end;
 
-function NavigationMakeLink(Module, Page: string): string;
+function NavigationLink(URL: string): string;
 begin
-  Result := '?m=' + Module + '&amp;p=' + Page;
+  if (Length(URL) > 0) and (URL[1] = '/') then
+    Result := ConfigBaseURL + URL
+    else Result := URL;
 end;