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

fixed key grabbing

Browse Source 
git-svn-id: trunk@3854 -
This commit is contained in:
mattias 2003-02-18 22:56:23 +00:00
parent a716696caa
commit 2fd70be9c2
2 changed files with 12 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
ide/keymapping.pp
View File

@ -716,7 +716,8 @@ var
procedure AddKey; procedure AddKey;
begin begin
AddStr(' '); if p>0 then
AddStr(' ');
case Key of case Key of
VK_UNKNOWN :AddStr('Unknown'); VK_UNKNOWN :AddStr('Unknown');
VK_LBUTTON :AddStr('Mouse Button Left'); VK_LBUTTON :AddStr('Mouse Button Left');
@ -780,9 +781,10 @@ var
VK_SLASH :AddStr('/'); VK_SLASH :AddStr('/');
VK_AT :AddStr('@'); VK_AT :AddStr('@');
else else
if (Key>=VK_IRREGULAR+33) and (Key<=VK_IRREGULAR+255) then if (Key>=VK_IRREGULAR+33) and (Key<=VK_IRREGULAR+255) then begin
AddStr(chr(Key-VK_IRREGULAR)) AddStr('Irregular ');
else begin AddStr(chr(Key-VK_IRREGULAR));
end else begin
AddStr(UnknownVKPrefix); AddStr(UnknownVKPrefix);
AddStr(IntToStr(Key)); AddStr(IntToStr(Key));
AddStr(UnknownVKPostfix); AddStr(UnknownVKPostfix);
@ -1145,10 +1147,10 @@ end;
procedure TKeyMappingEditForm.FormKeyUp(Sender: TObject; var Key: Word; procedure TKeyMappingEditForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift:TShiftState); Shift:TShiftState);
begin begin
//writeln('TKeyMappingEditForm.FormKeyUp Sender=',Classname {writeln('TKeyMappingEditForm.FormKeyUp Sender=',Classname
// ,' Key=',Key,' Ctrl=',ssCtrl in Shift,' Shift=',ssShift in Shift ,' Key=',Key,' Ctrl=',ssCtrl in Shift,' Shift=',ssShift in Shift
// ,' Alt=',ssAlt in Shift,' AsString=',KeyAndShiftStateToStr(Key,Shift) ,' Alt=',ssAlt in Shift,' AsString=',KeyAndShiftStateToStr(Key,Shift)
// ); );}
if Key in [VK_CONTROL, VK_SHIFT, VK_LCONTROL, VK_RCONTROl, if Key in [VK_CONTROL, VK_SHIFT, VK_LCONTROL, VK_RCONTROl,
VK_LSHIFT, VK_RSHIFT] then exit; VK_LSHIFT, VK_RSHIFT] then exit;
if (GrabbingKey in [1,2]) then begin if (GrabbingKey in [1,2]) then begin

4
tools/install/README
View File

@ -84,7 +84,7 @@ Creating the debian fpcsrc package:
You need the fakeroot package. You need the fakeroot package.
Create the fpcsrc-1.0.7.tgz of 'Creating the fpcsrc tgz' and put it into Create the fpcsrc-1.0.7.tgz of 'Creating the fpcsrc tgz' and put it into
tools/install. If you have no permissions for that, just copy the directory tools/install. If you have no permissions for that, just copy the directory
somwhere (e.g. cp -R <lazarusdir>/tools/install /tmp/fpcsrc). somewhere (e.g. cp -R <lazarusdir>/tools/install /tmp/fpcsrc).
Then cd into the tools/install directory and execute the script Then cd into the tools/install directory and execute the script
create_fpcsrc_deb.sh. It will create /tmp/fpcsrc_temp/ and will build the create_fpcsrc_deb.sh. It will create /tmp/fpcsrc_temp/ and will build the
deb there. deb there.
@ -95,7 +95,7 @@ Creating the debian lazarus package:
You need the X11 package: You need the X11 package:
Create the lazarus-0.8.5.tgz of 'Creating the lazarus tgz' and put it into Create the lazarus-0.8.5.tgz of 'Creating the lazarus tgz' and put it into
tools/install. If you have no permissions for that, just copy the directory tools/install. If you have no permissions for that, just copy the directory
somwhere (e.g. cp -R <lazarusdir>/tools/install /tmp/lazarus). somewhere (e.g. cp -R <lazarusdir>/tools/install /tmp/lazarus).
Then cd into the tools/install directory and execute the script Then cd into the tools/install directory and execute the script
create_lazarus_deb.sh. It will create /tmp/lazarus_temp/ and will build the create_lazarus_deb.sh. It will create /tmp/lazarus_temp/ and will build the
deb there. deb there.