paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-01 11:52:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: unitresources: priority

Browse Source 
git-svn-id: trunk@45644 -
This commit is contained in:
mattias 2014-06-24 15:52:57 +00:00
parent 2c5a0b57fd
commit 41a0927e20
1 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
components/ideintf/unitresources.pas
View File

@ -40,6 +40,7 @@ type
out LCLVersion: string;
out MissingClasses: TStrings// e.g. MyFrame2:TMyFrame
): TModalResult; virtual; abstract;
class function Priority: integer; virtual; // higher priority is tested first
end;
TUnitResourcefileFormatClass = class of TUnitResourcefileFormat;
TUnitResourcefileFormatArr = array of TUnitResourcefileFormatClass;
@ -56,8 +57,21 @@ var
GUnitResourcefileFormats: TUnitResourcefileFormatArr;
procedure RegisterUnitResourcefileFormat(AResourceFileFormat: TUnitResourcefileFormatClass);
var
i: Integer;
Priority: Integer;
l: Integer;
begin
Priority:=AResourceFileFormat.Priority;
i:=0;
while (i<length(GUnitResourcefileFormats))
and (GUnitResourcefileFormats[i].Priority>=Priority) do
inc(i);
l:=length(GUnitResourcefileFormats)-i;
SetLength(GUnitResourcefileFormats, length(GUnitResourcefileFormats)+1);
if l>0 then
System.Move(GUnitResourcefileFormats[i],GUnitResourcefileFormats[i+1],
l*SizeOf(TUnitResourcefileFormatClass));
GUnitResourcefileFormats[high(GUnitResourcefileFormats)] := AResourceFileFormat;
end;
@ -66,5 +80,12 @@ begin
Result := GUnitResourcefileFormats;
end;
{ TUnitResourcefileFormat }
class function TUnitResourcefileFormat.Priority: integer;
begin
Result:=0;
end;
end.