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

IDE: clean up

Browse Source 
git-svn-id: trunk@40840 -
This commit is contained in:
mattias 2013-04-18 17:41:45 +00:00
parent 6ff3c16313
commit b4b333baae
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/ideoptionsdlg.pas
View File

@ -176,7 +176,9 @@ end;
procedure TIDEOptionsDialog.CategoryTreeChange(Sender: TObject; Node: TTreeNode);
var
{$IFDEF NewBuildModeWindow}
GroupClass: TAbstractIDEOptionsClass;
{$ENDIF}
AEditor: TAbstractIDEOptionsEditor;
begin
if Assigned(Node) then begin
@ -188,14 +190,18 @@ begin
Node := Node.GetFirstVisibleChild;
end;
AEditor := nil;
{$IFDEF NewBuildModeWindow}
GroupClass := nil;
{$ENDIF}
if Assigned(Node) and Assigned(Node.Data) then begin
Assert(TObject(Node.Data) is TAbstractIDEOptionsEditor,
'TIDEOptionsDialog.CategoryTreeChange: Node.Data is not TAbstractIDEOptionsEditor');
if CategoryTree.Selected = nil then
Node.Selected := True;
AEditor := TAbstractIDEOptionsEditor(Node.Data);
{$IFDEF NewBuildModeWindow}
GroupClass := FindGroupClass(Node);
{$ENDIF}
end;
// Show the Build Mode panel for Compiler Options
{$IFDEF NewBuildModeWindow}