fixed unset function result

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

View File

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