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

ide: CodeCreationDialog: check for enabled when changing radio group index by key

Browse Source 
git-svn-id: trunk@51860 -
This commit is contained in:
ondrej 2016-03-08 16:53:08 +00:00
parent 3594fefc04
commit 7df15887d1
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
ide/codecreationdlg.pas
View File

@ -146,12 +146,12 @@ procedure TCodeCreationDialog.FormKeyPress(Sender: TObject;
begin begin
case Key of case Key of
#27: ModalResult := mrCancel; #27: ModalResult := mrCancel;
'p': SectionRadioGroup.ItemIndex := Ord(icsPrivate); 'p': if SectionRadioGroup.Enabled then SectionRadioGroup.ItemIndex := Ord(icsPrivate);
'r': SectionRadioGroup.ItemIndex := Ord(icsProtected); 'r': if SectionRadioGroup.Enabled then SectionRadioGroup.ItemIndex := Ord(icsProtected);
'u': SectionRadioGroup.ItemIndex := Ord(icsPublic); 'u': if SectionRadioGroup.Enabled then SectionRadioGroup.ItemIndex := Ord(icsPublic);
's': SectionRadioGroup.ItemIndex := Ord(icsPublished); 's': if SectionRadioGroup.Enabled then SectionRadioGroup.ItemIndex := Ord(icsPublished);
'l': LocationRadioGroup.ItemIndex := Ord(cclLocal); 'l': if LocationRadioGroup.Enabled then LocationRadioGroup.ItemIndex := Ord(cclLocal);
'c': LocationRadioGroup.ItemIndex := Ord(cclClass); 'c': if LocationRadioGroup.Enabled then LocationRadioGroup.ItemIndex := Ord(cclClass);
end; end;
end; end;