summaryrefslogtreecommitdiff
path: root/examples/corelib/eventtest/eventtest.lpr
diff options
context:
space:
mode:
authorgraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-16 22:25:51 +0000
committergraemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>2007-08-16 22:25:51 +0000
commite79ea347696ace24847855858dc6933f17e38b16 (patch)
tree3f39889c0a487a413471d497d20154b0b5047a5b /examples/corelib/eventtest/eventtest.lpr
parent3dd56613512accb42a9cb8a986bad0e8f2635eae (diff)
downloadfpGUI-e79ea347696ace24847855858dc6933f17e38b16.tar.xz
* Fixed bug where GFX based applications crashed on run.
* Fixed GDI bug where mouse cursor didn't change at the edges of a window. * Fixed a minor bug in the reporting of coordinates in the eventtest example.
Diffstat (limited to 'examples/corelib/eventtest/eventtest.lpr')
-rw-r--r--examples/corelib/eventtest/eventtest.lpr2
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/corelib/eventtest/eventtest.lpr b/examples/corelib/eventtest/eventtest.lpr
index 46556971..326dd277 100644
--- a/examples/corelib/eventtest/eventtest.lpr
+++ b/examples/corelib/eventtest/eventtest.lpr
@@ -139,7 +139,7 @@ end;
procedure TMainForm.MsgMove(var msg: TfpgMessageRec);
begin
- WriteLn('Window has been moved to ', Left, '/', Top);
+ WriteLn('Window has been moved to ', msg.Params.rect.Left, '/', msg.Params.rect.Top);
end;
procedure TMainForm.MsgKeyChar(var msg: TfpgMessageRec);