From b92b2cef2789645ba30339d47af7a459bd2c7508 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Sat, 9 Feb 2008 10:09:04 +0000
Subject: * fixed or updated some example projects to work with latest changes.

---
 examples/corelib/eventtest/eventtest.lpr | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'examples/corelib/eventtest/eventtest.lpr')

diff --git a/examples/corelib/eventtest/eventtest.lpr b/examples/corelib/eventtest/eventtest.lpr
index 492f05dc..3f01bb21 100644
--- a/examples/corelib/eventtest/eventtest.lpr
+++ b/examples/corelib/eventtest/eventtest.lpr
@@ -144,14 +144,14 @@ end;
 
 procedure TMainForm.MsgKeyChar(var msg: TfpgMessageRec);
 var
-  AKeyChar: Char;
+  AKeyChar: TfpgChar;
 begin
   Write('Character generated: ');
   AKeyChar := msg.Params.keyboard.keychar;
   if AKeyChar >= ' ' then
     WriteLn('''', AKeyChar, '''')
   else
-    WriteLn('#', Ord(AKeyChar));
+    WriteLn('#', Ord(AKeyChar[1]));
 end;
 
 procedure TMainForm.MsgKeyPress(var msg: TfpgMessageRec);
-- 
cgit v1.2.3-70-g09d2