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

FIX: Displaying categories in file types colors options.

Browse source
This commit is contained in:
cobines 2011-09-23 18:26:09 +00:00
commit 5bbd760c89
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/frames/foptionsfiletypescolors.pas
View file

@ -107,7 +107,7 @@ end;
procedure TfrmOptionsFileTypesColors.btnSearchTemplateClick(Sender: TObject);
var
sMask: UTF8String;
sMask: UTF8String = '';
bTemplate: Boolean;
begin
if ShowMaskInputDlg(rsMarkPlus, rsMaskInput, glsMaskHistory, sMask) then
@ -211,7 +211,7 @@ begin
else
Canvas.Font.Color:= gCursorText;
Canvas.TextOut(ARect.Left+2,ARect.Top+1,Items[Index]);
Canvas.TextOut(ARect.Left+2,ARect.Top,Items[Index]);
end;
end;
@ -230,6 +230,9 @@ var
sCategoryName : String;
I : Integer;
begin
lbCategories.Canvas.Font := lbCategories.Font;
lbCategories.ItemHeight := lbCategories.Canvas.TextHeight('Wg');
lbCategories.Clear;
{ File lbtypes category color }