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: Incorrect font color

Browse source
This commit is contained in:
Alexander Koblov 2015-01-06 19:39:31 +00:00
commit 9aa16edef8
1 changed files with 8 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

23
src/frames/foptionsfileassoc.pas
View file

@ -345,33 +345,26 @@ procedure TfrmOptionsFileAssoc.lbFileTypesDrawItem(Control: TWinControl;
Index: Integer; ARect: TRect; State: TOwnerDrawState);
var
iTextTop: Integer;
MR: TRect;
begin
with (Control as TListBox) do
begin
MR.Left:= ARect.Left + 1;
MR.Top:= ARect.Top + 1;
MR.Right:= ARect.Right - 1;
MR.Bottom:= ARect.Bottom - 1;
if odSelected in State then
begin
Canvas.Font.Color := clWindowText;
Canvas.Brush.Color:= clWindowText;
Canvas.Font.Color := clHighlightText;
Canvas.Brush.Color := clHighlight;
Canvas.FillRect(ARect);
Canvas.Brush.Color:= Color;
Canvas.FillRect(MR);
end
else
begin
Canvas.Brush.Color:= Color;
Canvas.Font.Color := Font.Color;
Canvas.Brush.Color := Color;
Canvas.FillRect(ARect);
end ;
end;
iTextTop := MR.Top + (gIconsSize div 2) - (Canvas.TextHeight(Items[Index]) div 2);
iTextTop := ARect.Top + (gIconsSize div 2) - (Canvas.TextHeight(Items[Index]) div 2);
if (Canvas.Locked = False) and (Assigned(Items.Objects[Index])) then
Canvas.Draw(MR.Left + 2, MR.Top + 1, TBitmap(Items.Objects[Index]));
Canvas.TextOut(MR.Left + gIconsSize + 6, iTextTop, Items[Index]);
Canvas.Draw(ARect.Left + 2, ARect.Top + 2, TBitmap(Items.Objects[Index]));
Canvas.TextOut(ARect.Left + gIconsSize + 6, iTextTop, Items[Index]);
end;
end;