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

IDE: Options dialog: fix crash after r57155 #de8a470231. Issue #33088, #33076

Browse Source 
git-svn-id: trunk@57166 -
This commit is contained in:
ondrej 2018-01-27 18:42:24 +00:00
parent f81b38e69d
commit df35dca526
1 changed files with 16 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
ide/frames/codeobserver_options.pas
View File

@ -138,17 +138,23 @@ var
begin
CodeObsCategoriesCheckGroup.Caption := lisCEShowCodeObserver;
for g := Low(g) to High(g) do begin
FGroupCheckBoxes[g] := AddCheckBox(GroupName(g) + ':');
with FGroupCheckBoxes[g] do begin
AllowGrayed := true;
State := cbGrayed;
Font.Style := [fsItalic];
CodeObsCategoriesCheckGroup.OnItemClick := nil;
try
for g := Low(g) to High(g) do begin
FGroupCheckBoxes[g] := AddCheckBox(GroupName(g) + ':');
with FGroupCheckBoxes[g] do begin
AllowGrayed := true;
State := cbGrayed;
Font.Style := [fsItalic];
end;
for c := Low(c) to High(c) do
if c in GroupCategories[g] then
FCategoryCheckBoxes[c] :=
AddCheckBox(' ' + CodeExplorerLocalizedString(c));
end;
for c := Low(c) to High(c) do
if c in GroupCategories[g] then
FCategoryCheckBoxes[c] :=
AddCheckBox(' ' + CodeExplorerLocalizedString(c));
finally
CodeObsCategoriesCheckGroup.OnItemClick :=
@CodeObsCategoriesCheckGroupItemClick;
end;
LongProcLineCountLabel.Caption := lisCELongProcLineCount;