From 8bfb1c984572ed034d068d818c56bb78d6f3170c Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Mon, 6 Dec 2004 17:31:02 +0000
Subject: [PATCH] added access to lresources

git-svn-id: trunk@6339 -
---
 lcl/include/fileutil.inc |  5 ++++-
 lcl/include/treeview.inc | 35 -----------------------------------
 lcl/lresources.pp        | 20 ++++++++++++++++++--
 3 files changed, 22 insertions(+), 38 deletions(-)

diff --git a/lcl/include/fileutil.inc b/lcl/include/fileutil.inc
index 24704d0900..a3bc1ce4a4 100644
--- a/lcl/include/fileutil.inc
+++ b/lcl/include/fileutil.inc
@@ -1081,7 +1081,7 @@ begin
     try
       Setlength(Result,fs.Size);
       if Result<>'' then
-        fs.Read(Result,length(Result));
+        fs.Read(Result[1],length(Result));
     finally
       fs.Free;
     end;
@@ -1093,6 +1093,9 @@ end;
 
 {
   $Log$
+  Revision 1.7  2004/12/06 17:31:02  mattias
+  added access to lresources
+
   Revision 1.6  2004/12/04 01:17:41  mattias
   implemented Target Directory for IDE
 
diff --git a/lcl/include/treeview.inc b/lcl/include/treeview.inc
index 924662442e..15bda56fbd 100644
--- a/lcl/include/treeview.inc
+++ b/lcl/include/treeview.inc
@@ -1914,41 +1914,6 @@ begin
   end;
 end;
 
-{function TTreeNodes.CreateItem(Node: TTreeNode): TTVItem;
-begin
-  Node.FInTree := True;
-  with Result do
-  begin
-    mask := TVIF_TEXT or TVIF_PARAM or TVIF_IMAGE or TVIF_SELECTEDIMAGE;
-    lParam := Longint(Node);
-    pszText := LPSTR_TEXTCALLBACK;
-    iImage := I_IMAGECALLBACK;
-    iSelectedImage := I_IMAGECALLBACK;
-  end;
-end;}
-
-{function TTreeNodes.AddItem(Parent, Target: HTreeItem;
-  const Item: TTVItem; AddMode: TAddMode): HTreeItem;
-var
-  InsertStruct: TTVInsertStruct;
-begin
-  ClearCache;
-  with InsertStruct do begin
-    hParent := Parent;
-    case AddMode of
-      taAddFirst:
-        hInsertAfter := TVI_FIRST;
-      taAdd:
-        hInsertAfter := TVI_LAST;
-      taInsert:
-        hInsertAfter := Target;
-    end;
-  end;
-  InsertStruct.item := Item;
-  FOwner.FChangeTimer.Enabled := False;
-  Result := TreeView_InsertItem(Handle, InsertStruct);
-end;}
-
 function TTreeNodes.GetFirstNode: TTreeNode;
 begin
   if FTopLvlItems<>nil then
diff --git a/lcl/lresources.pp b/lcl/lresources.pp
index 0e033c2e87..dbd780c83c 100644
--- a/lcl/lresources.pp
+++ b/lcl/lresources.pp
@@ -52,15 +52,18 @@ type
     FMergeList: TList; // list needed for mergesort
     FSortedCount: integer; // 0 .. FSortedCount-1 resources are sorted
     function FindPosition(const Name: AnsiString):integer;
+    function GetItems(Index: integer): TLResource;
     procedure Sort;
     procedure MergeSort(List, MergeList: TList; Pos1, Pos2: integer);
     procedure Merge(List, MergeList: TList; Pos1, Pos2, Pos3: integer);
   public
+    constructor Create;
+    destructor Destroy;  override;
     procedure Add(const Name, ValueType, Value: AnsiString);
     procedure Add(const Name, ValueType: AnsiString; Values: array of string);
     function Find(const Name: AnsiString):TLResource;
-    constructor Create;
-    destructor Destroy;  override;
+    function Count: integer;
+    property Items[Index: integer]: TLResource read GetItems;
   end;
   
 
@@ -565,6 +568,14 @@ begin
   FMergeList.Free;
 end;
 
+function TLResourceList.Count: integer;
+begin
+  if (Self<>nil) and (FList<>nil) then
+    Result:=FList.Count
+  else
+    Result:=0;
+end;
+
 procedure TLResourceList.Add(const Name,ValueType: AnsiString;
   Values: array of string);
 var
@@ -637,6 +648,11 @@ begin
   end;
 end;
 
+function TLResourceList.GetItems(Index: integer): TLResource;
+begin
+  Result:=TLResource(FList[Index]);
+end;
+
 procedure TLResourceList.Sort;
 begin
   if FSortedCount=FList.Count then exit;