From 65ddad359ed3b9b739215ec89a7645455ae10dce Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 5 Oct 2010 18:28:42 +0000
Subject: - added webcam support - faster program start - faster sorting
 (mergesort) - sync lyrics to music - some new backgrounds and credits
 graphics (thx to MezzoX) - own thread for video decoding - finished
 6-Player-on-one-screen-mode - changqed player-colors - fixed some bugs...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2637 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UHelp.pas | 34 +++++++++++++++-------------------
 1 file changed, 15 insertions(+), 19 deletions(-)

(limited to 'Game/Code/Classes/UHelp.pas')

diff --git a/Game/Code/Classes/UHelp.pas b/Game/Code/Classes/UHelp.pas
index d3595e52..95143584 100644
--- a/Game/Code/Classes/UHelp.pas
+++ b/Game/Code/Classes/UHelp.pas
@@ -58,11 +58,12 @@ type
 
   THelp = class
     private
+      actualID:     string;
       ScrollPos:    double;
-      Entry:    array of TEntry;
-      SEntry:   array of TEntry;
-      AEntry:   TEntry;
-      List:     array of TLanguageList;
+      Entry:        array of TEntry;
+      SEntry:       array of TEntry;
+      AEntry:       TEntry;
+      List:         array of TLanguageList;
       Implode_Glue1, Implode_Glue2: String;
     public
       MaxLines: integer;
@@ -72,6 +73,7 @@ type
       procedure ChangeLanguage(Language: String);
       //procedure LoadKeys;
       function SetHelpID(ID: String):boolean;
+      function GetHelpID(): string;
       function GetHelpStr(): TTextResult;
       procedure SetScrollPos(pos: double);
       function GetScrollPos(): double;
@@ -131,6 +133,8 @@ begin
     if (I = high(List)) then
       Log.LogError('English Languagefile missing! No standard Translation loaded (Help System)');
   end;
+
+  actualID := '';
   //Standard Language END   
 
 end;
@@ -322,13 +326,7 @@ begin
     begin
       Result := true;
       AEntry := Entry[E];
-      {
-      SetLength(AEntry.Keys, Length(Entry[E].Keys));
-      AEntry.ID := Entry[E].ID;
-      AEntry.Title := Entry[E].Title;
-      AEntry.Description := Entry[E].Description;
-      for J := low(Entry[E].Keys) to high(Entry[E].Keys) do
-        AEntry.Keys[J] := Entry[E].Keys[J];}
+      actualID := ID;
       exit;
     end;
   end;
@@ -341,20 +339,18 @@ begin
     begin
       Result := true;
       AEntry := SEntry[E];
-      {
-      SetLength(AEntry.Keys, Length(SEntry[E].Keys));
-      AEntry.ID := SEntry[E].ID;
-      AEntry.Title := SEntry[E].Title;
-      AEntry.Description := SEntry[E].Description;
-      for J := low(SEntry[E].Keys) to high(SEntry[E].Keys) do
-        AEntry.Keys[J] := SEntry[E].Keys[J];   }
-
+      actualID := ID;
       exit;
     end;
   end;
   //Standard Language END
 end;
 
+function THelp.GetHelpID(): string;
+begin
+  Result := actualID;
+end;
+
 function THelp.GetHelpStr(): TTextResult;
 var
   K, I, J:   Integer;
-- 
cgit v1.2.3