paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-08 16:38:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: set Enabled state of controls in Warnings settings

Browse Source 
git-svn-id: trunk@33352 -
This commit is contained in:
juha 2011-11-05 17:53:29 +00:00
parent 81de09611d
commit 9dee7db00c
2 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/jcf2/Ui/Settings/frWarnings.lfm
View File

@ -28,6 +28,7 @@ inherited fWarnings: TfWarnings
Width = 80
BorderSpacing.Around = 6
Caption = '&Warnings On'
OnChange = cbWarningsOnChange
TabOrder = 0
end
object cbWarnUnusedParams: TCheckBox[2]
@ -40,6 +41,7 @@ inherited fWarnings: TfWarnings
Width = 140
BorderSpacing.Around = 6
Caption = 'Warn &unused parameters'
OnChange = cbWarnUnusedParamsChange
TabOrder = 1
end
object mIgnoreUnusedParams: TMemo[3]

22
components/jcf2/Ui/Settings/frWarnings.pas
View File

@ -44,6 +44,8 @@ type
cbWarnUnusedParams: TCheckBox;
mIgnoreUnusedParams: TMemo;
Label1: TLabel;
procedure cbWarningsOnChange(Sender: TObject);
procedure cbWarnUnusedParamsChange(Sender: TObject);
procedure FrameResize(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
@ -78,6 +80,7 @@ begin
cbWarningsOn.Caption := lisWarningsWarningsOn;
cbWarnUnusedParams.Caption := lisWarningsWarnAboutUnusedParameters;
Label1.Caption := lisWarningsIgnoreUnusedParametersNamed;
cbWarningsOnChange(cbWarningsOn);
end;
procedure TfWarnings.ReadSettings(AOptions: TAbstractIDEOptions);
@ -87,7 +90,6 @@ begin
cbWarningsOn.Checked := Warnings;
cbWarnUnusedParams.Checked := WarnUnusedParams;
mIgnoreUnusedParams.Lines.Assign(IgnoreUnusedParams);
end;
end;
@ -112,10 +114,26 @@ const
PAD = 6;
begin
inherited;
mIgnoreUnusedParams.Height := ClientHeight - (mIgnoreUnusedParams.Top + PAD);
end;
procedure TfWarnings.cbWarningsOnChange(Sender: TObject);
var
b: Boolean;
begin
b := (Sender as TCheckBox).Checked;
cbWarnUnusedParams.Enabled := b;
mIgnoreUnusedParams.Enabled := b and cbWarnUnusedParams.Checked;
end;
procedure TfWarnings.cbWarnUnusedParamsChange(Sender: TObject);
var
b: Boolean;
begin
b := (Sender as TCheckBox).Checked;
mIgnoreUnusedParams.Enabled := b;
end;
initialization
RegisterIDEOptionsEditor(JCFOptionsGroup, TfWarnings, JCFOptionWarnings, JCFOptionClarify);
end.