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

Don't use handles in test if form is MainForm

Browse Source 
git-svn-id: trunk@5887 -
This commit is contained in:
vincents 2004-08-29 12:35:07 +00:00
parent bfc1e57050
commit a303ae29e9
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -848,8 +848,8 @@ Begin
Status := LParam;
End;
if (assigned(Application.MainForm) and
(Application.MainForm.Handle=Window)) then begin
if assigned(OwnerObject) and
(OwnerObject=Application.MainForm) then begin
if WParam=0 then
Windows.ShowWindow(TWin32WidgetSet(InterfaceObject).FAppHandle,
SW_HIDE)
@ -1315,6 +1315,9 @@ end;
{
$Log$
Revision 1.137 2004/08/29 12:35:07 vincents
Don't use handles in test if form is MainForm
Revision 1.136 2004/08/27 19:06:40 micha
select all text upon entry in edit control