Changeset 24 for branches/lazarus/UCore.pas

Timestamp:

Sep 8, 2010, 4:17:21 PM (14 years ago)

Author:

george

Message:

• Přidáno: Z PHP kódů převedeno zobrazení stránek a hlavního menu. Pro generování kostry použity třídy HTMLClasses a XMLClasses.
• Přidáno: Styly a obrázky.

File:

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

branches/lazarus/UCore.pas

@@ -6 +6 @@
 
 uses
-  USqlDatabase;
+  USqlDatabase, Classes, SysUtils, StrUtils;
   
 type
@@ -12 +12 @@
   TPageProducer = function: string;
 
+function MakeLink(Text, URL: string): string;
+function NavigationMakeLink(Module, Page: string): string;
 function InsertIcon(FileName: string): string;
+function IconedLink(Link, Text: string): string;
 function HtmlLink(Text, Target: string): string;
 function ShowHeader(Title, Path: string): string;
@@ -18 +21 @@
 function Explode(Separator: Char; Data: string): TArrayOfString;
 function HumanDate(Date: string): string;
-procedure RegisterPage(Name: string; Producer: TPageProducer);
 function PagesList(URL: string; Page, TotalCount, CountPerPage: Integer): string;
 function StrRepeat(Data: string; Count: Integer): string;
-
-type
-  TRegistredPage = record
-    Name: string;
-        Producer: TPageProducer;
-  end;
-  
-var
-  Pages: array of TRegistredPage;
-  Database: TSqlDatabase;
 
 implementation
 
 uses  
-  SysUtils, UConfig;
-
-procedure RegisterPage(Name: string; Producer: TPageProducer);
-begin
-  SetLength(Pages, Length(Pages) + 1);
-  Pages[High(Pages)].Name := Name;
-  Pages[High(Pages)].Producer := Producer;
-end;
+  UConfig;
 
 function HtmlLink(Text, Target: string): string;
@@ -110 +95 @@
 end;
 
-procedure Init;
-var
-  DbRows: TDbRows;
+function LastPos(const SubStr: String; const S: String): Integer;
 begin
-  Database := TSqlDatabase.Create;
-  with Database do begin
-    Hostname := DatabaseHostName;
-    Database := DatabaseDatabase;
-    UserName := DatabaseUserName;
-    Password := DatabasePassword;
-    Connect;
-  end;
-  DbRows := Database.Query('SET NAMES utf8');
-  DbRows.Free;
+  Result := Pos(ReverseString(SubStr), ReverseString(S));
+
+  if (Result <> 0) then
+    Result := ((Length(S) - Length(SubStr)) + 1) - Result + 1;
 end;
 
-procedure Done;
+function IconedLink(Link, Text: string): string;
+var
+  Extension: string;
+  Icon: string;
 begin
-  Database.Free;
+  Extension := Copy(Link, LastPos(Link, '.') + 1, Length(Link));
+  Icon := '<img src="images/icons/' + Extension + '.gif" alt="' + Extension + '"> ';
+  Result := Icon + '<a href="' + Link + '">' + Text + '</a>';
+end;
+
+function MakeLink(Text, URL: string): string;
+begin
+  Result := '<a href="' + URL + '">' + Text + '</a>';
+end;
+
+function NavigationMakeLink(Module, Page: string): string;
+begin
+  Result := '?m=' + Module + '&amp;p=' + Page;
 end;
 
@@ -179 +171 @@
 initialization
 
-Init;
-
 finalization
 
-Done;
 end.