paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 12:00:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: set Enabled state of controls in obfuscate settings

Browse Source 
git-svn-id: trunk@33350 -
This commit is contained in:
juha 2011-11-05 17:52:49 +00:00
parent 48b7f94535
commit 310cccba14
2 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/jcf2/Ui/Settings/frObfuscateSettings.lfm
View File

@ -106,6 +106,7 @@ inherited fObfuscateSettings: TfObfuscateSettings
Width = 97
BorderSpacing.Around = 6
Caption = '&Obfuscate mode'
OnChange = cbEnabledChange
TabOrder = 0
end
end

14
components/jcf2/Ui/Settings/frObfuscateSettings.pas
View File

@ -45,6 +45,7 @@ type
cbRebreak: TCheckBox;
cbRemoveIndent: TCheckBox;
cbEnabled: TCheckBox;
procedure cbEnabledChange(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
@ -64,6 +65,18 @@ uses
{ TfObfuscateSettings }
procedure TfObfuscateSettings.cbEnabledChange(Sender: TObject);
var
b: Boolean;
begin
b := (Sender as TCheckBox).Checked;
rgObfuscateCaps.Enabled := b;
cbRemoveWhiteSpace.Enabled := b;
cbRemoveComments.Enabled := b;
cbRemoveIndent.Enabled := b;
cbRebreak.Enabled := b;
end;
constructor TfObfuscateSettings.Create(AOwner: TComponent);
begin
inherited;
@ -89,6 +102,7 @@ begin
cbRemoveComments.Caption := lisObfsRemoveComments;
cbRemoveIndent.Caption := lisObfsRemoveIndent;
cbRebreak.Caption := lisObfsRebreakLines;
cbEnabledChange(cbEnabled);
end;
procedure TfObfuscateSettings.ReadSettings(AOptions: TAbstractIDEOptions);