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

ADD: Warn about unsaved changes in the file types colors

Browse source
This commit is contained in:
Alexander Koblov 2025-02-12 00:04:52 +03:00
commit 4c77384257
1 changed files with 26 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

27
src/frames/foptionsfiletypescolors.pas
View file

@ -74,6 +74,7 @@ type
class function GetIconIndex: Integer; override;
class function GetTitle: String; override;
function IsSignatureComputedFromAllWindowComponents: Boolean; override;
function ExtraOptionsSignature(CurrentSignature: dword): dword; override;
end;
implementation
@ -81,7 +82,7 @@ implementation
{$R *.lfm}
uses
Graphics, uLng, uGlobs, uColorExt, fMaskInputDlg, uSearchTemplate;
Graphics, CRC, uLng, uGlobs, uColorExt, fMaskInputDlg, uSearchTemplate;
{ TfrmOptionsFileTypesColors }
@ -272,6 +273,30 @@ begin
Result := False;
end;
function TfrmOptionsFileTypesColors.ExtraOptionsSignature(
CurrentSignature: dword): dword;
var
I: Integer;
AColor: TColor;
MaskItem: TMaskItem;
begin
Result:= CurrentSignature;
for I:= 0 to lbCategories.Count - 1 do
begin
if Assigned(lbCategories.Items.Objects[I]) then
begin
MaskItem:= TMaskItem(lbCategories.Items.Objects[I]);
AColor:= MaskItem.cColor;
Result:= CRC32(Result, @AColor, SizeOf(AColor));
Result:= CRC32(Result, Pointer(MaskItem.sExt), Length(MaskItem.sExt));
Result:= CRC32(Result, Pointer(MaskItem.sName), Length(MaskItem.sName));
Result:= CRC32(Result, Pointer(MaskItem.sModeStr), Length(MaskItem.sModeStr));
end;
end;
end;
procedure TfrmOptionsFileTypesColors.Load;
var
I : Integer;