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

ide, packager: use AutoSize for toolbar dividers

Browse Source 
git-svn-id: trunk@20517 -
This commit is contained in:
paul 2009-06-08 12:34:53 +00:00
parent c729661d99
commit 9037c5325a
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/main.pp
View File

@ -1641,7 +1641,7 @@ procedure TMainIDE.SetupSpeedButtons;
with Result do with Result do
begin begin
Style := tbsDivider; Style := tbsDivider;
Width := 3; AutoSize := True;
Parent := AToolBar; Parent := AToolBar;
end; end;
end; end;

2
packager/packageeditor.pas
View File

@ -1273,7 +1273,7 @@ procedure TPackageEditorForm.SetupComponents;
begin begin
Result := TToolButton.Create(Self); Result := TToolButton.Create(Self);
Result.Style := tbsDivider; Result.Style := tbsDivider;
Result.Width := 3; Result.AutoSize := True;
Result.Parent := ToolBar; Result.Parent := ToolBar;
end; end;