paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 09:59:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

Examples: TestAll: don't write an extra '$' in front of Key when logging Key events.

Browse Source 
git-svn-id: trunk@51828 -
This commit is contained in:
bart 2016-03-05 17:37:41 +00:00
parent 36e0d69b90
commit 01358aea67
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
examples/testallform.pp
View File

@ -313,7 +313,7 @@ end;
procedure TForm1.GenKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TForm1.GenKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin begin
ShowEventFmt('%s.OnKeyDown [$%s]',[Sender.ClassName,VkToString(Key)]); ShowEventFmt('%s.OnKeyDown [%s]',[Sender.ClassName,VkToString(Key)]);
end; end;
procedure TForm1.GenKeyPress(Sender: TObject; var Key: char); procedure TForm1.GenKeyPress(Sender: TObject; var Key: char);
@ -326,7 +326,7 @@ end;
procedure TForm1.GenKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); procedure TForm1.GenKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin begin
ShowEventFmt('%s.OnKeyUp [$%s]',[Sender.ClassName,VkToString(Key)]); ShowEventFmt('%s.OnKeyUp [%s]',[Sender.ClassName,VkToString(Key)]);
end; end;
procedure TForm1.GenMouseDown(Sender: TObject; Button: TMouseButton; procedure TForm1.GenMouseDown(Sender: TObject; Button: TMouseButton;