paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 11:19:23 +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 Width = 80
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = '&Warnings On' Caption = '&Warnings On'
OnChange = cbWarningsOnChange
TabOrder = 0 TabOrder = 0
end end
object cbWarnUnusedParams: TCheckBox[2] object cbWarnUnusedParams: TCheckBox[2]
@ -40,6 +41,7 @@ inherited fWarnings: TfWarnings
Width = 140 Width = 140
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'Warn &unused parameters' Caption = 'Warn &unused parameters'
OnChange = cbWarnUnusedParamsChange
TabOrder = 1 TabOrder = 1
end end
object mIgnoreUnusedParams: TMemo[3] object mIgnoreUnusedParams: TMemo[3]

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

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