mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: Speed up file coloring

Browse source
This commit is contained in:
Alexander Koblov 2017-08-12 13:03:14 +00:00
commit fe5359d266
1 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/uColorExt.pas
View file

@ -181,10 +181,16 @@ end;
function TColorExt.GetColorBy(const AFile: TFile): TColor;
var
Attr: String;
I, J: Integer;
MaskItem: TMaskItem;
begin
Result:= clDefault;
if not (fpAttributes in AFile.SupportedProperties) then
Attr:= EmptyStr
else begin
Attr:= AFile.Properties[fpAttributes].AsString;
end;
for I:= 0 to lslist.Count-1 do
begin
MaskItem:= TMaskItem(lslist[I]);
@ -208,9 +214,8 @@ begin
not (AFile.IsDirectory or AFile.IsLinkToDirectory)) and
MaskItem.FMaskList.Matches(AFile.Name)))
and
((MaskItem.sModeStr = '') or
not (fpAttributes in AFile.SupportedProperties) or
MatchesMaskList(AFile.Properties[fpAttributes].AsString, MaskItem.sModeStr, ';')) then
((MaskItem.sModeStr = '') or (Length(Attr) = 0) or
MatchesMaskList(Attr, MaskItem.sModeStr, ';')) then
begin
Result:= MaskItem.cColor;
Exit;