paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-01 17:21:03 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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> </element>
<!-- procedure Visibility: public --> <!-- procedure Visibility: public -->
<element name="TCustomForm.Show"> <element name="TCustomForm.Show">
<short/> <short>Shows, brings to front and activates the form</short>
<descr/> <descr/>
<errors/> <errors/>
<seealso/> <seealso/>

1
ide/debugmanager.pas
View File

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

5
lcl/include/customform.inc
View File

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