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

lcl: fix TButtonPanel in design time (more buttons disappeared with ok/cancel buttons)

Browse Source 
git-svn-id: trunk@20390 -
This commit is contained in:
paul 2009-06-04 02:09:40 +00:00
parent e2ce0db6bc
commit f18b730234
1 changed files with 26 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
lcl/buttonpanel.pas
View File

@ -501,6 +501,22 @@ end;
procedure TCustomButtonPanel.CustomAlignPosition(AControl: TControl; var ANewLeft, ANewTop,
ANewWidth, ANewHeight: Integer; var AlignRect: TRect; AlignInfo: TAlignInfo);
function GetPrev: TControl;
var
Index: Integer;
begin
Index := AlignInfo.ControlIndex;
while Index > 0 do
begin
dec(Index);
Result := TControl(AlignInfo.AlignList[Index]);
if Result.Visible then
Exit;
end;
Result := nil;
end;
var
Prev: TControl;
begin
@ -549,13 +565,12 @@ begin
then begin
ANewTop := AlignRect.Bottom - ANewHeight;
end
else if AlignInfo.ControlIndex = 0
then begin
ANewTop := AlignRect.Top;
end
else begin
Prev := TControl(AlignInfo.AlignList[AlignInfo.ControlIndex - 1]);
ANewTop := Prev.Top + Prev.Height + FSpacing;
Prev := GetPrev;
if Prev = nil then
ANewTop := AlignRect.Top
else
ANewTop := Prev.Top + Prev.Height + FSpacing;
end;
if Align = alLeft
then ANewLeft := AlignRect.Left
@ -566,13 +581,12 @@ begin
then begin
ANewLeft := 0
end
else if AlignInfo.ControlIndex = 0
then begin
ANewLeft := AlignRect.Right - ANewWidth;
end
else begin
Prev := TControl(AlignInfo.AlignList[AlignInfo.ControlIndex - 1]);
ANewLeft := Prev.Left - ANewWidth - FSpacing;
Prev := GetPrev;
if Prev = nil then
ANewLeft := AlignRect.Right - ANewWidth
else
ANewLeft := Prev.Left - ANewWidth - FSpacing;
end;
if Align = alTop
then ANewTop := AlignRect.Top