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

Gtk2: fixed missing result in page control afterswitch, formatting

Browse Source 
git-svn-id: trunk@33015 -
This commit is contained in:
zeljko 2011-10-22 09:07:20 +00:00
parent 95f93fb4a6
commit 7d0dab7439
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/interfaces/gtk2/gtk2callback.inc
View File

@ -1538,8 +1538,9 @@ begin
//debugln('[gtkMouseBtnPress] calling DeliverMouseDownMessage Result=',dbgs(Result));
{$IFDEF Gtk2CallMouseDownBeforeContext}
if DeliverMouseDownMessage(Widget, Event, TWinControl(Data))<>0 then begin
//debugln(['[gtkMouseBtnPress] DeliverMouseDownMessage handled, stopping event']);
if DeliverMouseDownMessage(Widget, Event, TWinControl(Data))<>0 then
begin
// Debugln(['[gtkMouseBtnPress] DeliverMouseDownMessage handled, stopping event']);
g_signal_stop_emission_by_name(PGTKObject(Widget), 'button-press-event');
exit(false);
end;

1
lcl/interfaces/gtk2/gtk2pagecontrol.inc
View File

@ -71,6 +71,7 @@ var
Mess: TLMNotify;
NMHdr: tagNMHDR;
begin
Result := CallBackDefaultReturn;
// then send the new page
FillChar(Mess, SizeOf(Mess), 0);
Mess.Msg := LM_NOTIFY;