diff options
| author | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-09 10:09:04 +0000 |
|---|---|---|
| committer | graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2008-02-09 10:09:04 +0000 |
| commit | b92b2cef2789645ba30339d47af7a459bd2c7508 (patch) | |
| tree | b663d9f3753d2f39e589fb9617352a6fd807b9b7 /examples/corelib/eventtest | |
| parent | 7b9b9e179722c46e2e474fce31262b3f62036669 (diff) | |
| download | fpGUI-b92b2cef2789645ba30339d47af7a459bd2c7508.tar.xz | |
* fixed or updated some example projects to work with latest changes.
Diffstat (limited to 'examples/corelib/eventtest')
| -rw-r--r-- | examples/corelib/eventtest/eventtest.lpr | 4 |
1 files changed, 2 insertions, 2 deletions
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); |