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: Blurry buttons icons

Browse source
This commit is contained in:
Alexander Koblov 2026-04-11 16:31:29 +03:00
commit f8dd7d0751
6 changed files with 29 additions and 84 deletions
Download patch file Download diff file Expand all files Collapse all files

47
src/frames/foptionsfiletypescolors.lfm
View file

@ -93,10 +93,11 @@ inherited frmOptionsFileTypesColors: TfrmOptionsFileTypesColors
Width = 532
Anchors = [akLeft, akRight, akBottom]
BorderSpacing.Top = 8
BorderSpacing.Right = 6
BorderSpacing.Right = 2
BorderSpacing.Bottom = 8
TabOrder = 2
OnChange = edtCategoryMaskChange
OnChangeBounds = edtCategoryMaskChangeBounds
end
object cbCategoryColor: TKASColorBoxButton
AnchorSideTop.Side = asrBottom
@ -176,7 +177,7 @@ inherited frmOptionsFileTypesColors: TfrmOptionsFileTypesColors
TabOrder = 4
OnChange = edtCategoryAttrChange
end
object btnSearchTemplate: TBitBtn
object btnSearchTemplate: TKASButton
AnchorSideTop.Control = edtCategoryMask
AnchorSideRight.Control = lbCategories
AnchorSideRight.Side = asrBottom
@ -188,48 +189,12 @@ inherited frmOptionsFileTypesColors: TfrmOptionsFileTypesColors
Top = 190
Width = 23
Anchors = [akTop, akRight, akBottom]
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000009700
00FF000000000000000000000000000000FF00000000000000FFC2B5B3E30000
00FF000000000000000000000000000000000000000000000000000000000000
0000970000FF00000000000000000000000000000000C5B8B570E3DBD9FF8975
7375000000000000000000000000000000000000000000000000000000000000
000000000000970000FF000000000000000000000000C2B4B26FE1D9D7FF8571
6E75000000000000000000000000000000000000000000000000000000000000
0000970000FF00000000000000000000000000000000B3A4A26FD6C9C7FF705E
5B75000000000000000000000000000000000000000000000000000000009700
00FF0000000000000000000000000000000000000000A798967DD9CBCAFF7362
6184000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B494812D4C6C5FFD1C2C1FE8F7E
7DFF5B4B4E160000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000C2B3B3C0EEE2E2FED5C8C7FFD6C9
C8FE746363C60000000000000000000000000000000000000000000000000000
00000000000000000000000000009D8B8B5CF9EEEFFFEDE1E0FFDED1D1FFEADE
DCFFB1A1A0FF645455630000000000000000000000000000000000000000D2C6
C36CEEE5E2C3BEADABB100000002D2C4C3FBFDF5F4FEE0D4D3FFDACCCBFFE8DD
DBFFD2C4C2FE796868FD61525509000000000000000000000000000000008B78
754B00000000000000007C6B6BFCF7ECECFFFEF6F4FFCFC2C0FFD4C7C7FFEDE3
E1FFCDBDBBFF998887FE605151BC00000000000000000000000000000000806F
6D350000000062514F4CCEBEBEFFFBF2F0FFFBF6F5FFC7B9B7FFD0C3C3FFF8F0
EFFFC7B7B4FFA69593FF665555FF5545464D000000000000000000000000D8CF
CE59D1C5C299978484FFF4EBEBFEFEFDFDFFF4EEEDFFC3B5B3FFD8CBC9FFFFFC
FCFFD8CBC9FFB2A1A0FF867474FE524343FA0000000200000000000000000000
00007767669CE0D3D1FFFFFEFEFFFFFFFFFFEFE7E6FFAF9E9BFFD6C6C4FFFCF7
F7FFD8CACAFFAE9D9EFF827173FF5B4A4EFF67595C9F00000000000000000000
00008E7F7ED8E2D7D6FFCCC2C2FFCDC6C6FFD0C9C9FFD7D1D2FFD6D1D2FFCEC6
C6FFCBC5C5FFC7C0C0FFC2B8B8FFA39698FF726468DC00000000000000000000
0000ACA2A3DEAC9C99FFC9BCBBFFDBCDCAFFF3E6E2FEFFFFFEFFF5EEECFFB9A7
A3FFF3EDEBFEF7F3F3FFA99998FFA49695FFB1A6A7E700000000000000000000
0000000000005F5054459C919391B7ADAFB4BBB2B2C3C0B5B6CFC0B6B7D2BBB2
B3D0BCB2B3C3BBB3B4B59D929592615156460000000000000000
}
GlyphShowMode = gsmAlways
Layout = blGlyphRight
OnClick = btnSearchTemplateClick
Caption = '..'
ParentShowHint = False
ShowHint = True
TabOrder = 3
TabStop = True
OnClick = btnSearchTemplateClick
end
end
end

3
src/frames/foptionsfiletypescolors.lrj
View file

@ -6,5 +6,6 @@
{"hash":52377562,"name":"tfrmoptionsfiletypescolors.lblcategoryattr.caption","sourcebytes":[67,97,116,101,103,111,114,121,32,97,38,116,116,114,105,98,117,116,101,115,58],"value":"Category a&ttributes:"},
{"hash":277668,"name":"tfrmoptionsfiletypescolors.btnaddcategory.caption","sourcebytes":[65,38,100,100],"value":"A&dd"},
{"hash":114044133,"name":"tfrmoptionsfiletypescolors.btndeletecategory.caption","sourcebytes":[68,38,101,108,101,116,101],"value":"D&elete"},
{"hash":47236478,"name":"tfrmoptionsfiletypescolors.btnsearchtemplate.hint","sourcebytes":[84,101,109,112,108,97,116,101,46,46,46],"value":"Template..."}
{"hash":47236478,"name":"tfrmoptionsfiletypescolors.btnsearchtemplate.hint","sourcebytes":[84,101,109,112,108,97,116,101,46,46,46],"value":"Template..."},
{"hash":782,"name":"tfrmoptionsfiletypescolors.btnsearchtemplate.caption","sourcebytes":[46,46],"value":".."}
]}

10
src/frames/foptionsfiletypescolors.pas
View file

@ -28,7 +28,7 @@ interface
uses
Classes, SysUtils, Controls, StdCtrls, KASComboBox, Dialogs, Buttons,
LMessages, fOptionsFrame;
LMessages, KASButton, fOptionsFrame;
type
@ -37,7 +37,7 @@ type
TfrmOptionsFileTypesColors = class(TOptionsEditor)
btnAddCategory: TBitBtn;
btnDeleteCategory: TBitBtn;
btnSearchTemplate: TBitBtn;
btnSearchTemplate: TKASButton;
cbCategoryColor: TKASColorBoxButton;
edtCategoryAttr: TEdit;
edtCategoryMask: TEdit;
@ -52,6 +52,7 @@ type
procedure cbCategoryColorChange(Sender: TObject);
procedure edtCategoryAttrChange(Sender: TObject);
procedure edtCategoryMaskChange(Sender: TObject);
procedure edtCategoryMaskChangeBounds(Sender: TObject);
procedure edtCategoryNameChange(Sender: TObject);
procedure btnSearchTemplateClick(Sender: TObject);
procedure btnAddCategoryClick(Sender: TObject);
@ -99,6 +100,11 @@ begin
TMaskItem(lbCategories.Items.Objects[lbCategories.ItemIndex]).sExt:= edtCategoryMask.Text;
end;
procedure TfrmOptionsFileTypesColors.edtCategoryMaskChangeBounds(Sender: TObject);
begin
btnSearchTemplate.Constraints.MinWidth:= edtCategoryMask.Height;
end;
procedure TfrmOptionsFileTypesColors.edtCategoryAttrChange(Sender: TObject);
begin
if lbCategories.ItemIndex < 0 then Exit;

42
src/frames/foptionstooltips.lfm
View file

@ -201,6 +201,7 @@ inherited frmOptionsToolTips: TfrmOptionsToolTips
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 2
OnChange = edtAnyChange
OnChangeBounds = edtFieldsMaskChangeBounds
TabOrder = 0
end
object btnFieldsList: TButton
@ -218,58 +219,23 @@ inherited frmOptionsToolTips: TfrmOptionsToolTips
OnClick = btnFieldsListClick
TabOrder = 3
end
object btnFieldsSearchTemplate: TBitBtn
object btnFieldsSearchTemplate: TKASButton
AnchorSideTop.Control = edtFieldsMask
AnchorSideRight.Control = bvlToolTips1
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = edtFieldsMask
AnchorSideBottom.Side = asrBottom
Caption = '..'
Left = 663
Height = 23
Hint = 'Template...'
Top = 45
Width = 23
Anchors = [akTop, akRight, akBottom]
Glyph.Data = {
36040000424D3604000000000000360000002800000010000000100000000100
2000000000000004000064000000640000000000000000000000000000009700
00FF000000000000000000000000000000FF00000000000000FFC2B5B3E30000
00FF000000000000000000000000000000000000000000000000000000000000
0000970000FF00000000000000000000000000000000C5B8B570E3DBD9FF8975
7375000000000000000000000000000000000000000000000000000000000000
000000000000970000FF000000000000000000000000C2B4B26FE1D9D7FF8571
6E75000000000000000000000000000000000000000000000000000000000000
0000970000FF00000000000000000000000000000000B3A4A26FD6C9C7FF705E
5B75000000000000000000000000000000000000000000000000000000009700
00FF0000000000000000000000000000000000000000A798967DD9CBCAFF7362
6184000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000000000005B494812D4C6C5FFD1C2C1FE8F7E
7DFF5B4B4E160000000000000000000000000000000000000000000000000000
000000000000000000000000000000000000C2B3B3C0EEE2E2FED5C8C7FFD6C9
C8FE746363C60000000000000000000000000000000000000000000000000000
00000000000000000000000000009D8B8B5CF9EEEFFFEDE1E0FFDED1D1FFEADE
DCFFB1A1A0FF645455630000000000000000000000000000000000000000D2C6
C36CEEE5E2C3BEADABB100000002D2C4C3FBFDF5F4FEE0D4D3FFDACCCBFFE8DD
DBFFD2C4C2FE796868FD61525509000000000000000000000000000000008B78
754B00000000000000007C6B6BFCF7ECECFFFEF6F4FFCFC2C0FFD4C7C7FFEDE3
E1FFCDBDBBFF998887FE605151BC00000000000000000000000000000000806F
6D350000000062514F4CCEBEBEFFFBF2F0FFFBF6F5FFC7B9B7FFD0C3C3FFF8F0
EFFFC7B7B4FFA69593FF665555FF5545464D000000000000000000000000D8CF
CE59D1C5C299978484FFF4EBEBFEFEFDFDFFF4EEEDFFC3B5B3FFD8CBC9FFFFFC
FCFFD8CBC9FFB2A1A0FF867474FE524343FA0000000200000000000000000000
00007767669CE0D3D1FFFFFEFEFFFFFFFFFFEFE7E6FFAF9E9BFFD6C6C4FFFCF7
F7FFD8CACAFFAE9D9EFF827173FF5B4A4EFF67595C9F00000000000000000000
00008E7F7ED8E2D7D6FFCCC2C2FFCDC6C6FFD0C9C9FFD7D1D2FFD6D1D2FFCEC6
C6FFCBC5C5FFC7C0C0FFC2B8B8FFA39698FF726468DC00000000000000000000
0000ACA2A3DEAC9C99FFC9BCBBFFDBCDCAFFF3E6E2FEFFFFFEFFF5EEECFFB9A7
A3FFF3EDEBFEF7F3F3FFA99998FFA49695FFB1A6A7E700000000000000000000
0000000000005F5054459C919391B7ADAFB4BBB2B2C3C0B5B6CFC0B6B7D2BBB2
B3D0BCB2B3C3BBB3B4B59D929592615156460000000000000000
}
Layout = blGlyphRight
OnClick = btnFieldsSearchTemplateClick
ParentShowHint = False
ShowHint = True
TabStop = True
TabOrder = 1
end
object lblFieldsList: TLabel

1
src/frames/foptionstooltips.lrj
View file

@ -8,6 +8,7 @@
{"hash":181151662,"name":"tfrmoptionstooltips.btntooltipother.caption","sourcebytes":[79,116,104,38,101,114,46,46,46],"value":"Oth&er..."},
{"hash":1054,"name":"tfrmoptionstooltips.btnfieldslist.caption","sourcebytes":[62,62],"value":">>"},
{"hash":47236478,"name":"tfrmoptionstooltips.btnfieldssearchtemplate.hint","sourcebytes":[84,101,109,112,108,97,116,101,46,46,46],"value":"Template..."},
{"hash":782,"name":"tfrmoptionstooltips.btnfieldssearchtemplate.caption","sourcebytes":[46,46],"value":".."},
{"hash":141616458,"name":"tfrmoptionstooltips.lblfieldslist.caption","sourcebytes":[67,97,116,101,103,111,114,121,32,38,104,105,110,116,58],"value":"Category &hint:"},
{"hash":143501786,"name":"tfrmoptionstooltips.lblfieldsmask.caption","sourcebytes":[67,97,116,101,103,111,114,121,32,38,109,97,115,107,58],"value":"Category &mask:"},
{"hash":153365194,"name":"tfrmoptionstooltips.bvltooltips1.caption","sourcebytes":[84,111,111,108,116,105,112,32,99,111,110,102,105,103,117,114,97,116,105,111,110,32,102,111,114,32,115,101,108,101,99,116,101,100,32,102,105,108,101,32,116,121,112,101,58],"value":"Tooltip configuration for selected file type:"},

10
src/frames/foptionstooltips.pas
View file

@ -27,7 +27,7 @@ interface
uses
Classes, SysUtils, FileUtil, DividerBevel, Forms, Controls, StdCtrls, Buttons,
Menus, ExtCtrls, Dialogs, fOptionsFrame, uInfoToolTip;
Menus, ExtCtrls, Dialogs, KASButton, fOptionsFrame, uInfoToolTip;
type
@ -53,7 +53,7 @@ type
bvlToolTips1: TDividerBevel;
lblFieldsMask: TLabel;
edtFieldsMask: TEdit;
btnFieldsSearchTemplate: TBitBtn;
btnFieldsSearchTemplate: TKASButton;
lblFieldsList: TLabel;
memFieldsList: TMemo;
btnFieldsList: TButton;
@ -78,6 +78,7 @@ type
procedure LoadThisHintWithThisMemo(var sHint: string);
procedure ActualSaveCurrentToolTips;
procedure edtAnyChange({%H-}Sender: TObject);
procedure edtFieldsMaskChangeBounds({%H-}Sender: TObject);
procedure SetConfigurationState(bConfigurationSaved: boolean);
procedure chkShowToolTipChange(Sender: TObject);
procedure lsbCustomFieldsSelectionChange({%H-}Sender: TObject; {%H-}User: boolean);
@ -310,6 +311,11 @@ begin
SetConfigurationState(CONFIG_NOTSAVED);
end;
procedure TfrmOptionsToolTips.edtFieldsMaskChangeBounds(Sender: TObject);
begin
btnFieldsSearchTemplate.Constraints.MinWidth:= edtFieldsMask.Height;
end;
{ TfrmOptionsToolTips.SetConfigurationState }
procedure TfrmOptionsToolTips.SetConfigurationState(bConfigurationSaved: boolean);
begin