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:
parent
f996e855de
commit
51b146c43c
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user