paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-07 14:38:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

Changed LResources to TLResources

Browse Source 
Shane

git-svn-id: trunk@124 -
This commit is contained in:
lazarus 2001-01-16 16:21:29 +00:00
parent fa7e42fde5
commit b86d3c39a1
5 changed files with 44 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/idecomp.pp
View File

@ -220,11 +220,11 @@ function TIDEComponent.LoadImageIntoPixmap: TPixmap;
function LoadResource(ResourceName:string; PixMap:TPixMap):boolean;
var
ms:TMemoryStream;
res:LResource;
res:TLResource;
begin
Result:=false;
res:=LazarusResources.Find(ResourceName);
if (res.Value<>'') then begin
if (res <> nil) then begin
if res.ValueType='XPM' then begin
ms:=TMemoryStream.Create;
try

10
ide/main.pp
View File

@ -226,11 +226,11 @@ uses
function LoadResource(ResourceName:string; PixMap:TPixMap):boolean;
var
ms:TMemoryStream;
res:LResource;
res:TLResource;
begin
Result:=false;
res:=LazarusResources.Find(ResourceName);
if (res.Value<>'') then begin
if (res = nil) or (res.Value<>'') then begin
if res.ValueType='XPM' then begin
ms:=TMemoryStream.Create;
try
@ -1013,7 +1013,7 @@ Var
ResourceData : String;
I,A : Integer;
Instance : TComponent;
CompResource : LResource;
CompResource : TLResource;
Begin
textFile := TStringList.Create;
TextFile.LoadFromFile(Value);
@ -1933,6 +1933,10 @@ end.
{ =============================================================================
$Log$
Revision 1.46 2001/01/16 16:21:29 lazarus
Changed LResources to TLResources
Shane
Revision 1.45 2001/01/15 20:55:44 lazarus
Changes for loading filesa
Shane

4
ide/uniteditor.pp
View File

@ -954,11 +954,11 @@ constructor TSourceNotebook.Create(AOwner: TComponent);
function LoadResource(ResourceName:string; PixMap:TPixMap):boolean;
var
ms:TMemoryStream;
res:LResource;
res:TLResource;
begin
Result:=false;
res:=LazarusResources.Find(ResourceName);
if (res.Value<>'') then begin
if (res = nil) or (res.Value<>'') then begin
if res.ValueType='XPM' then begin
ms:=TMemoryStream.Create;
try

4
lcl/forms.pp
View File

@ -333,7 +333,7 @@ function InitResourceComponent(Instance: TComponent;
RootAncestor: TClass):Boolean;
function InitComponent(ClassType: TClass): Boolean;
var CompResource:LResource;
var CompResource:TLResource;
a:integer;
begin
Result:=false;
@ -341,7 +341,7 @@ function InitResourceComponent(Instance: TComponent;
if Assigned(ClassType.ClassParent) then
Result:=InitComponent(ClassType.ClassParent);
CompResource:=LazarusResources.Find(Instance.ClassName);
if (CompResource.Value='') then exit;
if (CompResource = nil) or (CompResource.Value='') then exit;
// Writeln('Compresource.value is '+CompResource.Value);
if (ClassType.InheritsFrom(TForm))
and (CompResource.ValueType<>'FORMDATA') then exit;

63
lcl/lresources.pp
View File

@ -25,15 +25,15 @@ uses
Classes, SysUtils, Strings;
type
PLResource = ^LResource;
LResource = record
TLResource = class
public
Name: AnsiString;
ValueType: AnsiString;
Value: AnsiString;
end;
TLResourceList = class(TObject)
private
public //private
FList:TList; // main list with all resource pointer
FMergeList:TList; // list needed for mergesort
FSortedCount:integer; // 0 .. FSortedCount-1 resources are sorted
@ -43,7 +43,7 @@ type
procedure Merge(List,MergeList:TList;Pos1,Pos2,Pos3:integer);
public
procedure Add(Name,ValueType,Value:AnsiString);
function Find(Name:AnsiString):LResource;
function Find(Name:AnsiString):TLResource;
constructor Create;
destructor Destroy; override;
end;
@ -225,56 +225,55 @@ end;
destructor TLResourceList.Destroy;
var a:integer;
p:PLResource;
begin
for a:=0 to FList.Count-1 do begin
p:=FList[a];
LResource(p^).Name:='';
LResource(p^).ValueType:='';
LResource(p^).Value:='';
FreeMem(p);
end;
for a:=0 to FList.Count-1 do
TLResource(FList[a]).Free;
FList.Free;
FMergeList.Free;
end;
procedure TLResourceList.Add(Name,ValueType,Value:AnsiString);
var NewPLResource:PLResource;
var
NewLResource:TLResource;
begin
GetMem(NewPLResource,SizeOf(LResource));
NewPLResource^.Name:=Name;
NewPLResource^.ValueType:=uppercase(ValueType);
NewPLResource^.Value:=Value;
FList.Add(NewPLResource);
NewLResource:=TLResource.Create;
NewLResource.Name:=Name;
NewLResource.ValueType:=uppercase(ValueType);
NewLResource.Value:=Value;
FList.Add(NewLResource);
end;
function TLResourceList.Find(Name:AnsiString):LResource;
function TLResourceList.Find(Name:AnsiString):TLResource;
var p:integer;
begin
p:=FindPosition(Name);
if (p>=0) and (p<FList.Count)
and (AnsiCompareText(LResource(FList[p]^).Name,Name)=0) then
Result:=LResource(FList[p]^)
else begin
Result.Name:=Name;
Result.Value:='';
Result.ValueType:='';
end;
if (p>=0) and (p<FList.Count) and (AnsiCompareText(TLResource(FList[p]).Name,Name)=0) then
begin
Result:=TLResource(FList[p]);
end
else
begin
// Writeln('returning nil');
Result:=nil;
end;
end;
function TLResourceList.FindPosition(Name:AnsiString):integer;
var l,r,cmp:integer;
begin
if FSortedCount<FList.Count then Sort;
if FSortedCount<FList.Count then
Sort;
Result:=-1;
l:=0;
r:=FList.Count-1;
while (l<=r) do begin
Result:=(l+r) shr 1;
cmp:=AnsiCompareText(Name,LResource(FList[Result]^).Name);
// Writeln(Format('l,r,Name,FList[Result].Name = %d,%d,%s,%s',[l,r,Name,TLResource(FList[Result]).Name]));
cmp:=AnsiCompareText(Name,TLResource(FList[Result]).Name);
if cmp<0 then
r:=Result-1
else if cmp>0 then
else
if cmp>0 then
l:=Result+1
else
exit;
@ -298,7 +297,7 @@ begin
if Pos1=Pos2 then begin
end else if Pos1+1=Pos2 then begin
cmp:=AnsiCompareText(
LResource(List[Pos1]^).Name,LResource(List[Pos2]^).Name);
TLResource(List[Pos1]).Name,TLResource(List[Pos2]).Name);
if cmp>0 then begin
MergeList[Pos1]:=List[Pos1];
List[Pos1]:=List[Pos2];
@ -325,7 +324,7 @@ begin
DestPos:=Pos3;
while (Src2Pos>=Pos2) and (Src1Pos>=Pos1) do begin
cmp:=AnsiCompareText(
LResource(List[Src1Pos]^).Name,LResource(List[Src2Pos]^).Name);
TLResource(List[Src1Pos]).Name,TLResource(List[Src2Pos]).Name);
if cmp>0 then begin
MergeList[DestPos]:=List[Src1Pos];
dec(Src1Pos);