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

bring windows to top on application activation

Browse Source 
git-svn-id: trunk@4895 -
This commit is contained in:
micha 2003-12-17 16:06:43 +00:00
parent 179b5828a9
commit ee653e66cf
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32callback.inc
View File

@ -268,6 +268,12 @@ Begin
End; End;
End; End;
End; End;
WM_ACTIVATEAPP:
Begin
if WParam <> 0 then
if Windows.IsWindowVisible(Window) then
Windows.SetWindowPos(Window, HWND_TOP, 0, 0, 0, 0, $53);
End;
WM_CAPTURECHANGED: WM_CAPTURECHANGED:
Begin Begin
LMessage.Msg := LM_CHANGED; LMessage.Msg := LM_CHANGED;
@ -900,6 +906,9 @@ end;
{ {
$Log$ $Log$
Revision 1.76 2003/12/17 16:06:43 micha
bring windows to top on application activation
Revision 1.75 2003/12/15 21:57:16 micha Revision 1.75 2003/12/15 21:57:16 micha
checklistbox, implement object+checked; from vincent checklistbox, implement object+checked; from vincent