paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fixed unset function result

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2884 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
drewski207 2014-01-10 08:03:09 +00:00
parent f996e855de
commit 51b146c43c
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
bindings/gtk3/examples/signaltoclassmethod/signaltoclassmethod.lpr
View File

@ -30,8 +30,6 @@ begin
g_signal_connect_data(AGObject, PChar(ASignalName), TGCallback(AMethod.Code), AMethod.Data, nil, Flags); g_signal_connect_data(AGObject, PChar(ASignalName), TGCallback(AMethod.Code), AMethod.Data, nil, Flags);
end; end;
{ TClassApp } { TClassApp }
procedure TClassApp.CreateWidgets; procedure TClassApp.CreateWidgets;
@ -62,6 +60,8 @@ begin
+ ' For Class: ' + Self.ClassName + ' at ' + IntTostr(Round(Event^.motion.x)) + ' For Class: ' + Self.ClassName + ' at ' + IntTostr(Round(Event^.motion.x))
+ ':' + IntToStr(Round(Event^.motion.y)); + ':' + IntToStr(Round(Event^.motion.y));
Win^.title:=PChar(Str); Win^.title:=PChar(Str);
Result := True;
end; end;
constructor TClassApp.Create; constructor TClassApp.Create;
@ -98,7 +98,6 @@ begin
gdk_window_set_events(Win^.window, mask); gdk_window_set_events(Win^.window, mask);
end; end;
begin begin
SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]); SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);
with TClassApp.Create do with TClassApp.Create do