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: Workaround for issue 0002220

Browse source
This commit is contained in:
Alexander Koblov 2019-02-13 17:22:25 +00:00
commit 454ab1b1f0
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/fattributesedit.pas
View file

@ -102,6 +102,9 @@ implementation
{$R *.lfm}
uses
LCLVersion;
procedure TfrmAttributesEdit.btnOkClick(Sender: TObject);
begin
if Assigned(FOnOk) then
@ -121,6 +124,10 @@ end;
procedure TfrmAttributesEdit.cbAttrCheckBoxChanged(Sender: TObject);
begin
{$if lcl_fullversion = 2000004}
// Workaround: https://bugs.freepascal.org/view.php?id=35018
if csLoading in TCheckBox(Sender).ComponentState then Exit;
{$endif}
// Note: OnChange may work incorrectly with tri-state checkboxes,
// so OnClick is also used.
UpdateText;
@ -128,6 +135,10 @@ end;
procedure TfrmAttributesEdit.cbAttrCheckBoxClicked(Sender: TObject);
begin
{$if lcl_fullversion = 2000004}
// Workaround: https://bugs.freepascal.org/view.php?id=35018
if csLoading in TCheckBox(Sender).ComponentState then Exit;
{$endif}
UpdateText;
end;