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

FIX: Font quality for panels

Browse source
This commit is contained in:
Alexander Koblov 2015-06-06 14:19:48 +00:00
commit a25bfe876f
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/fileviews/ucolumnsfileview.pas
View file

@ -1404,9 +1404,10 @@ var
IsCursorInactive: Boolean;
//---------------------
begin
Canvas.Font.Name := ColumnsSet.GetColumnFontName(ACol);
Canvas.Font.Size := ColumnsSet.GetColumnFontSize(ACol);
Canvas.Font.Style := ColumnsSet.GetColumnFontStyle(ACol);
Canvas.Font.Name := ColumnsSet.GetColumnFontName(ACol);
Canvas.Font.Size := ColumnsSet.GetColumnFontSize(ACol);
Canvas.Font.Style := ColumnsSet.GetColumnFontStyle(ACol);
Canvas.Font.Quality := ColumnsSet.GetColumnFontQuality(ACol);
IsCursor := (gdSelected in aState) and ColumnsView.Active and (not ColumnsSet.UseFrameCursor);
IsCursorInactive := (gdSelected in aState) and (not ColumnsView.Active) and (not ColumnsSet.UseFrameCursor);

6
src/ucolumns.pas
View file

@ -133,6 +133,7 @@ type
function GetColumnFontName(const Index: Integer): String;
function GetColumnFontSize(const Index: Integer): Integer;
function GetColumnFontStyle(const Index: Integer): TFontStyles;
function GetColumnFontQuality(const Index: Integer): TFontQuality;
function GetColumnTextColor(const Index: Integer): TColor;
function GetColumnBackground(const Index: Integer): TColor;
function GetColumnBackground2(const Index: Integer): TColor;
@ -311,6 +312,11 @@ begin
Result := gFonts[dcfMain].Style;
end;
function TPanelColumnsClass.GetColumnFontQuality(const Index: Integer): TFontQuality;
begin
Result := gFonts[dcfMain].Quality;
end;
function TPanelColumnsClass.GetColumnTextColor(const Index: Integer): TColor;
begin
if FCustomView and (Index < Flist.Count) then