paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 13:00:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

added access to lresources

Browse Source 
git-svn-id: trunk@6339 -
This commit is contained in:
mattias 2004-12-06 17:31:02 +00:00
parent 484af1ff21
commit 8bfb1c9845
3 changed files with 22 additions and 38 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/fileutil.inc
View File

@ -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

35
lcl/include/treeview.inc
View File

@ -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

20
lcl/lresources.pp
View File

@ -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;