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

fixed anchoring TMacroSelectionBox

Browse Source 
git-svn-id: trunk@12363 -
This commit is contained in:
darius 2007-10-07 19:26:59 +00:00
parent 3c8fead5c5
commit 0ea63fe0d4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ide/buildfiledlg.pas
View File

@ -776,7 +776,9 @@ begin
AutoSize:=true; AutoSize:=true;
Anchors:=[akTop,akRight]; Anchors:=[akTop,akRight];
Top:=0; Top:=0;
AnchorParallel(akRight,6,Self); BorderSpacing.Around := 6;
AnchorParallel(akTop,0,Self);
AnchorParallel(akRight,0,Self);
Parent:=Self; Parent:=Self;
end; end;
@ -785,7 +787,8 @@ begin
Name:='ListBox'; Name:='ListBox';
OnClick:=@ListBoxClick; OnClick:=@ListBoxClick;
Align:=alLeft; Align:=alLeft;
AnchorToNeighbour(akRight,6,AddButton); BorderSpacing.Around := 6;
AnchorToNeighbour(akRight, 0, AddButton);
Parent:=Self; Parent:=Self;
end; end;
end; end;