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

LCL: clean up, fixed EnsureVisible to not force BringToFront

Browse Source 
git-svn-id: trunk@15400 -
This commit is contained in:
mattias 2008-06-13 08:14:05 +00:00
parent cab55add37
commit 2ebd2ec660
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -703,10 +703,10 @@ begin
if newTop < 0 then
newTop := 0;
SetBounds(newLeft, newTop, Width, Height);
if AMoveToTop then
if AMoveToTop then
ShowOnTop
else
Show;
Visible:=true;
end;
{------------------------------------------------------------------------------

4
lcl/include/promptdialog.inc
View File

@ -156,7 +156,6 @@ var
curBtn : Longint; // variable to loop through TMsgDlgButtons
ButtonIndex : integer;
CurButton: TBitBtn;
CurBtnSize: TPoint;
begin
Result := 0;
@ -455,10 +454,7 @@ Const
cVerticalSpacing = 5;
cButtonWidth = 200 - cTextWidth - 3 * cHorizontalSpacing;
var
curBtn : Longint; // variable to loop through TMsgDlgButtons
reqBtnWidth : integer; // width neccessary to display buttons
i : integer;
ButtonIndex : integer;
CurButton: TBitBtn;
ButtonLeft, ButtonTop: Integer;