mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: BriefFileView: Highlighting updated files.

Browse source
This commit is contained in:
cobines 2012-05-02 09:33:12 +00:00
commit 101fbcd212
1 changed files with 19 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

31
src/fileviews/ubrieffileview.pas
View file

@ -434,14 +434,16 @@ var
var
TextColor: TColor = -1;
BackgroundColor: TColor;
IsCursor: Boolean;
//---------------------
begin
Canvas.Font.Name := gFonts[dcfMain].Name;
Canvas.Font.Size := gFonts[dcfMain].Size;
Canvas.Font.Style := gFonts[dcfMain].Style;
IsCursor := (gdSelected in aState) and BriefView.Active and (not gUseFrameCursor);
// Set up default background color first.
if (gdSelected in aState) and BriefView.Active and (not gUseFrameCursor) then
if IsCursor then
BackgroundColor := gCursorColor
else
begin
@ -461,34 +463,39 @@ var
if gUseInvertedSelection then
begin
//------------------------------------------------------
if (gdSelected in aState) and BriefView.Active and (not gUseFrameCursor) then
if IsCursor then
begin
Canvas.Font.Color := InvertColor(gCursorText);
TextColor := InvertColor(gCursorText);
end
else
begin
BackgroundColor := gMarkColor;
Canvas.Font.Color := TextColor;
TextColor := TextColor;
end;
//------------------------------------------------------
end
else
begin
Canvas.Font.Color := gMarkColor;
TextColor := gMarkColor;
end;
end
else if (gdSelected in aState) and BriefView.Active and (not gUseFrameCursor) then
else if IsCursor then
begin
Canvas.Font.Color := gCursorText;
end
else
begin
Canvas.Font.Color := TextColor;
TextColor := gCursorText;
end;
BackgroundColor := BriefView.DimColor(BackgroundColor);
if AFile.RecentlyUpdatedPct <> 0 then
begin
TextColor := LightColor(TextColor, AFile.RecentlyUpdatedPct);
BackgroundColor := LightColor(BackgroundColor, AFile.RecentlyUpdatedPct);
end;
// Draw background.
Canvas.Brush.Color := BriefView.DimColor(BackgroundColor);
Canvas.Brush.Color := BackgroundColor;
Canvas.FillRect(aRect);
Canvas.Font.Color := TextColor;
end;// of PrepareColors;
procedure DrawLines;