paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:15:55 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed open file at cursor search path

Browse Source 
git-svn-id: trunk@787 -
This commit is contained in:
lazarus 2002-02-09 01:46:37 +00:00
parent addba36b48
commit 88bf48e66e
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/gtk/gtkproc.inc
View File

@ -232,6 +232,12 @@ begin
ShiftState := GTKEventState2ShiftState(Event^.State);
Extended := False;
Toggle := False;
{if Event^.Length>0 then begin
writeln('AAA1 Event^.KeyVal=',Event^.KeyVal,
' Event^.Length=',Event^.Length,' ',ord(Event^.theString[0])
);
end;}
case Event^.KeyVal of
// Normal ASCII chars
@ -1385,6 +1391,9 @@ end;
{ =============================================================================
$Log$
Revision 1.46 2002/06/14 14:57:07 lazarus
MG: fixed open file at cursor search path
Revision 1.45 2002/06/11 13:41:11 lazarus
MG: fixed mouse coords and fixed mouse clicked thru bug