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

Gtk: fixed crash in GtkFormEvent()

Browse Source 
git-svn-id: trunk@25479 -
This commit is contained in:
zeljko 2010-05-17 12:06:50 +00:00
parent 7bb68e7dfa
commit 095372bedf
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/interfaces/gtk/gtkwsforms.pp
View File

@ -237,7 +237,10 @@ begin
exit(True); exit(True);
with GtkWidgetSet do with GtkWidgetSet do
begin begin
LastFocusOut := PGtkWidget(ACtl.Handle); if ACtl.HandleAllocated then
LastFocusOut := PGtkWidget(ACtl.Handle)
else
LastFocusOut := Widget;
if LastFocusOut = LastFocusIn then if LastFocusOut = LastFocusIn then
StartFocusTimer; StartFocusTimer;
end; end;
@ -245,7 +248,10 @@ begin
begin begin
with GtkWidgetSet do with GtkWidgetSet do
begin begin
LastFocusIn := PGtkWidget(ACtl.Handle); if ACtl.HandleAllocated then
LastFocusIn := PGtkWidget(ACtl.Handle)
else
LastFocusIn := Widget;
if not AppActive then if not AppActive then
AppActive := True; AppActive := True;
end; end;