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

IDE: project options fixed layout for AddControl

Browse Source 
git-svn-id: trunk@26349 -
This commit is contained in:
mattias 2010-06-30 13:50:05 +00:00
parent fa65c21adb
commit 137cf6d57b
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/ideoptionsdlg.pas
View File

@ -512,19 +512,11 @@ begin
end; end;
function TIDEOptionsDialog.AddControl(AControlClass: TControlClass): TControl; function TIDEOptionsDialog.AddControl(AControlClass: TControlClass): TControl;
var
Control: TControl;
begin begin
Result := AControlClass.Create(Self); Result := AControlClass.Create(Self);
Result.Parent := Self; Result.Parent := Self;
Result.Anchors := [akLeft, akBottom]; Result.Align:=alBottom;
Result.BorderSpacing.Around := 6; Result.BorderSpacing.Around := 6;
Control := CategoryTree;
while Control.AnchorSide[akBottom].Control <> ButtonPanel do
Control := Control.AnchorSide[akBottom].Control;
Result.AnchorSide[akBottom].Control := ButtonPanel;
Result.AnchorSide[akLeft].Control := Self;
Control.AnchorSide[akBottom].Control := Result;
end; end;
procedure TIDEOptionsDialog.OpenEditor(AEditor: TAbstractIDEOptionsEditorClass); procedure TIDEOptionsDialog.OpenEditor(AEditor: TAbstractIDEOptionsEditorClass);