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 icons

Browse source
This commit is contained in:
Alexander Koblov 2026-05-08 20:56:16 +03:00
commit d2a14e9c26
2 changed files with 15 additions and 75 deletions
Download patch file Download diff file Expand all files Collapse all files

65
src/frames/foptionsarchivers.lfm
View file

@ -251,72 +251,25 @@ inherited frmOptionsArchivers: TfrmOptionsArchivers
FocusControl = edtArchiverArchiver
ParentColor = False
end
object edtArchiverArchiver: TEdit
object edtArchiverArchiver: TFileNameEdit
AnchorSideLeft.Control = lblArchiverDescription
AnchorSideTop.Control = lblArchiverArchiver
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = btnArchiverSelectFileArchiver
AnchorSideRight.Control = btnArchiverRelativer
Left = 10
Height = 26
Top = 74
Width = 713
Width = 738
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Right = 2
MaxLength = 0
OnChange = edtAnyChange
TabOrder = 1
end
object btnArchiverSelectFileArchiver: TSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtArchiverArchiver
AnchorSideRight.Control = btnArchiverRelativer
AnchorSideBottom.Control = edtArchiverArchiver
AnchorSideBottom.Side = asrBottom
Left = 725
Height = 26
Top = 74
Width = 27
Anchors = [akTop, akRight, akBottom]
Glyph.Data = {
8A040000424D8A040000000000008A0000007C00000010000000100000000100
20000300000000040000232E0000232E000000000000000000000000FF0000FF
0000FF000000000000FF42475273000000000000000000000000000000000000
0000000000000000000000000000000000000000000000000000000000000200
000000000000000000000000000000FFFFFFC87137FFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FFC87137FFF1F1F1FFEFEFEFFFEEEEEEFFEDED
EDFFEBEBEBFFEAEAEAFFE9E9E9FFE7E7E7FFE6E6E6FFE6E6E6FFE6E6E6FFE6E6
E6FFE6E6E6FFE6E6E6FFC87137FFC87137FFF3F3F3FFF1F1F1FFF0F0F0FFCD89
59FFCD8959FFCD8959FFCD8959FFCD8959FFCD8959FFCD8959FFCD8959FFE6E6
E6FFE6E6E6FFE6E6E6FFC87137FFC87137FFF4F4F4FFF3F3F3FFF2F2F2FFCD89
59FFFFF6D5FFFFF6D5FFFFF6D5FFFFF6D5FFFFF6D5FFFFF6D5FFCD8959FFE6E6
E6FFE6E6E6FFE6E6E6FFC87137FFC87137FFF6F6F6FFF5F5F5FFF3F3F3FFCD89
59FFFFF7DBFF918A6FFF918A6FFF918A6FFF918A6FFFFFF6D5FFCD8959FFE7E7
E7FFE6E6E6FFE6E6E6FFC87137FFC87137FFF8F8F8FFF6F6F6FFF5F5F5FFCD89
59FFFFF9E1FFFFF8DFFFFFF8DEFFFFF8DDFFFFF7DCFFFFF7DBFFCD8959FFE9E9
E9FFE8E8E8FFE7E7E7FFC87137FFC87137FFFAFAFAFFF8F8F8FFF7F7F7FFCD89
59FFFFFAE6FF918A6FFF918A6FFF918A6FFF918A6FFFFFF8E0FFCD8959FFEBEB
EBFFEAEAEAFFE8E8E8FFC87137FFC87137FFFBFBFBFFFAFAFAFFF9F9F9FFCD89
59FFFFFBECFFFFFBEBFFFFFAEAFFFFFAE8FFFFFAE7FFFFFAE6FFCD8959FFEDED
EDFFEBEBEBFFEAEAEAFFC87137FFC87137FFFDFDFDFFFCFCFCFFFAFAFAFFCD89
59FFFFFCF2FF918A6FFF918A6FFF918A6FFFFFFBEDFFFFFBECFFCD8959FFEEEE
EEFFEDEDEDFFECECECFFC87137FFC87137FFFFFFFFFFFDFDFDFFFCFCFCFFCD89
59FFFFFDF8FFFFFDF6FFFFFDF5FFFFFDF4FFFFFCF3FFF2DFCBFFCF8E5FFFF0F0
F0FFEFEFEFFFEEEEEEFFC87137FFC87137FFFFFFFFFFFFFFFFFFFEFEFEFFCD89
59FFFFFFFDFFFFFEFCFFFFFEFBFFFFFEFAFFF3E2D3FFD19266FFE9D7CBFFF2F2
F2FFF4F4F4FFEFEFEFFFC87137FFC87137FFFFFFFFFFFFFFFFFFFFFFFFFFCD89
59FFCD8959FFCD8959FFCD8959FFCD8959FFCF8E60FFEBDACEFFF5F5F5FFF4F4
F4FFF2F2F2FFF1F1F1FFC87137FFC87137FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFDFDFDFFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF4F4F4FFF5F5
F5FFF4F4F4FFF3F3F3FFC87137FFC87137FFC87137FFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FFC87137FF0000FFFFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC87137FFC871
37FFC87137FFC87137FFC87137FF
}
OnClick = btnArchiverSelectFileArchiverClick
end
end
object btnArchiverRelativer: TSpeedButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = edtArchiverArchiver

25
src/frames/foptionsarchivers.pas
View file

@ -56,8 +56,7 @@ type
lblArchiverDescription: TLabel;
edtArchiverDescription: TEdit;
lblArchiverArchiver: TLabel;
edtArchiverArchiver: TEdit;
btnArchiverSelectFileArchiver: TSpeedButton;
edtArchiverArchiver: TFileNameEdit;
btnArchiverRelativer: TSpeedButton;
lblArchiverExtension: TLabel;
edtArchiverExtension: TEdit;
@ -149,7 +148,6 @@ type
procedure miArchiverImportClick(Sender: TObject);
procedure miHelperClick(Sender: TObject);
procedure btnHelperClick(Sender: TObject);
procedure btnArchiverSelectFileArchiverClick(Sender: TObject);
procedure btnArchiverRelativerClick(Sender: TObject);
procedure PopulateParamHelperMenu;
private
@ -192,6 +190,11 @@ var
{ TfrmOptionsArchivers.Init }
procedure TfrmOptionsArchivers.Init;
begin
edtArchiverArchiver.ButtonHint := rsOptArchiverArchiver;
edtArchiverArchiver.DialogTitle := rsOptArchiverArchiver;
{$if lcl_fullversion >= 4990000}
edtArchiverArchiver.DialogOptionsEx := [ofShowsFilePackagesSwitch];
{$endif}
OpenArchiverDialog.Filter := ParseLineToFileFilter([rsFilterArchiverConfigFiles, '*.ini;*.addon', rsFilterAnyFiles, AllFilesMask]);
SaveArchiverDialog.Filter := ParseLineToFileFilter([rsFilterArchiverConfigFiles, '*.ini', rsFilterAnyFiles, AllFilesMask]);
end;
@ -201,7 +204,6 @@ procedure TfrmOptionsArchivers.Load;
begin
bCurrentlyLoadingSettings := True;
bCurrentlyFilling := True;
btnArchiverSelectFileArchiver.Hint := rsOptArchiverArchiver;
FreeAndNil(MultiArcListTemp);
MultiArcListTemp := gMultiArcList.Clone;
FillListBoxWithArchiverList;
@ -825,21 +827,6 @@ begin
pmArchiverParamHelper.PopUp(Mouse.CursorPos.X, Mouse.CursorPos.Y);
end;
{ TfrmOptionsArchivers.btnArchiverSlectFileArchiverClick }
procedure TfrmOptionsArchivers.btnArchiverSelectFileArchiverClick(Sender: TObject);
begin
OpenArchiverDialog.DefaultExt := '*.*';
OpenArchiverDialog.FilterIndex := 2;
{$if lcl_fullversion >= 4990000}
OpenArchiverDialog.OptionsEx := [ofShowsFilePackagesSwitch];
{$endif}
OpenArchiverDialog.Title := rsOptArchiverArchiver;
if OpenArchiverDialog.Execute then
begin
edtArchiverArchiver.Text := OpenArchiverDialog.FileName;
end;
end;
{ TfrmOptionsArchivers.btnArchiverRelativerClick }
procedure TfrmOptionsArchivers.btnArchiverRelativerClick(Sender: TObject);
begin