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

hintwindow focus fix

Browse Source 
git-svn-id: trunk@4885 -
This commit is contained in:
micha 2003-12-14 20:49:22 +00:00
parent 56bdc23a6f
commit b733766d27
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/win32/win32object.inc
View File

@ -2337,8 +2337,9 @@ Begin
Assert(False, 'Trace: [TWin32Object.ShowHide] Showing the window'); Assert(False, 'Trace: [TWin32Object.ShowHide] Showing the window');
if TControl(Sender).FCompStyle = csHintWindow then if TControl(Sender).FCompStyle = csHintWindow then
begin begin
Windows.SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE or SWP_NOSIZE or // NOTE: for some reason, 1.9.x generates the wrong constant here...
SWP_SHOWWINDOW or SWP_NOACTIVATE); // Windows.SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_SHOWWINDOW or SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
Windows.SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, $53);
end else begin end else begin
Windows.ShowWindow(Handle, SW_SHOW); Windows.ShowWindow(Handle, SW_SHOW);
end; end;
@ -2895,6 +2896,9 @@ End;
{ {
$Log$ $Log$
Revision 1.140 2003/12/14 20:49:22 micha
hintwindow focus fix
Revision 1.139 2003/12/14 19:18:04 micha Revision 1.139 2003/12/14 19:18:04 micha
hint fixes: parentfont, font itself, showing/hiding + more hint fixes: parentfont, font itself, showing/hiding + more