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: Show attributes as text in file properties dialogs

Browse source
This commit is contained in:
Alexander Koblov 2017-06-18 10:18:34 +00:00
commit 282cfdec88
2 changed files with 13 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/ffileproperties.pas
View file

@ -222,12 +222,16 @@ begin
end;
procedure TfrmFileProperties.cbChangeModeClick(Sender: TObject);
var
AMode: TFileAttrs;
begin
if ChangeTriggersEnabled then
begin
ChangeTriggersEnabled := False;
ShowExecutable;
edtOctal.Text:= DecToOct(GetModeFromForm);
AMode:= GetModeFromForm;
edtOctal.Text:= DecToOct(AMode);
lblAttrText.Caption := FormatUnixAttributes(AMode);
ChangeTriggersEnabled := True;
end;
end;

11
src/fsetfileproperties.pas
View file

@ -183,16 +183,21 @@ end;
procedure TfrmSetFileProperties.cbChangeModeClick(Sender: TObject);
var
ExcludeAttrs: TFileAttrs;
AMode, ExcludeAttrs: TFileAttrs;
CheckBox: TCheckBox absolute Sender;
begin
if FChangeTriggersEnabled then
begin
FChangeTriggersEnabled := False;
if CheckBox.State = cbGrayed then
edtOctal.Text:= EmptyStr
begin
edtOctal.Text:= EmptyStr;
lblAttrText.Caption:= EmptyStr;
end
else begin
edtOctal.Text:= DecToOct(GetModeFromForm(ExcludeAttrs));
AMode:= GetModeFromForm(ExcludeAttrs);
edtOctal.Text:= DecToOct(AMode);
lblAttrText.Caption:= FormatUnixAttributes(AMode);
end;
FChangeTriggersEnabled := True;
end;