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

LCL: make TCustomForm.Show Delphi compatible -> bring form to front and activate it

Browse Source 
git-svn-id: trunk@12760 -
This commit is contained in:
tombo 2007-11-06 10:15:01 +00:00
parent 4e7a9679ed
commit 620ffeb1e7
3 changed files with 4 additions and 4 deletions
docs/xml/lcl
forms.xml
ide
debugmanager.pas
lcl/include
customform.inc

2
docs/xml/lcl/forms.xml
View File

@ -2363,7 +2363,7 @@ biHelp - When you click this button a Question Cursor appears and the help routi
</element>
<!-- procedure Visibility: public -->
<element name="TCustomForm.Show">
<short/>
<short>Shows, brings to front and activates the form</short>
<descr/>
<errors/>
<seealso/>

1
ide/debugmanager.pas
View File

@ -1329,7 +1329,6 @@ begin
SourceNotebook.GetActiveSE.GetWordAtCurrentCaret;
end;
FDialogs[ADialogType].Show;
FDialogs[ADialogType].BringToFront;
end;
procedure TDebugManager.DestroyDebugDialog(const ADialogType: TDebugDialogType);

5
lcl/include/customform.inc
View File

@ -1525,7 +1525,8 @@ end;
------------------------------------------------------------------------------}
procedure TCustomForm.Show;
begin
Visible:=true;
Visible := True;
BringToFront;
end;
{------------------------------------------------------------------------------
@ -1533,7 +1534,7 @@ end;
------------------------------------------------------------------------------}
procedure TCustomForm.ShowOnTop;
begin
Show;
Visible := True;
if WindowState=wsMinimized then WindowState:=wsNormal;
BringToFront;
//DebugLn('TCustomForm.ShowOnTop ',Name,':',ClassName,' ',Visible,' ',HandleAllocated,' ',csDesigning in ComponentState);