paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +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;
begin
AddStr(' ');
if p>0 then
AddStr(' ');
case Key of
VK_UNKNOWN :AddStr('Unknown');
VK_LBUTTON :AddStr('Mouse Button Left');
@ -780,9 +781,10 @@ var
VK_SLASH :AddStr('/');
VK_AT :AddStr('@');
else
if (Key>=VK_IRREGULAR+33) and (Key<=VK_IRREGULAR+255) then
AddStr(chr(Key-VK_IRREGULAR))
else begin
if (Key>=VK_IRREGULAR+33) and (Key<=VK_IRREGULAR+255) then begin
AddStr('Irregular ');
AddStr(chr(Key-VK_IRREGULAR));
end else begin
AddStr(UnknownVKPrefix);
AddStr(IntToStr(Key));
AddStr(UnknownVKPostfix);
@ -1145,10 +1147,10 @@ end;
procedure TKeyMappingEditForm.FormKeyUp(Sender: TObject; var Key: Word;
Shift:TShiftState);
begin
//writeln('TKeyMappingEditForm.FormKeyUp Sender=',Classname
// ,' Key=',Key,' Ctrl=',ssCtrl in Shift,' Shift=',ssShift in Shift
// ,' Alt=',ssAlt in Shift,' AsString=',KeyAndShiftStateToStr(Key,Shift)
// );
{writeln('TKeyMappingEditForm.FormKeyUp Sender=',Classname
,' Key=',Key,' Ctrl=',ssCtrl in Shift,' Shift=',ssShift in Shift
,' Alt=',ssAlt in Shift,' AsString=',KeyAndShiftStateToStr(Key,Shift)
);}
if Key in [VK_CONTROL, VK_SHIFT, VK_LCONTROL, VK_RCONTROl,
VK_LSHIFT, VK_RSHIFT] then exit;
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.
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
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
create_fpcsrc_deb.sh. It will create /tmp/fpcsrc_temp/ and will build the
deb there.
@ -95,7 +95,7 @@ Creating the debian lazarus package:
You need the X11 package:
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
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
create_lazarus_deb.sh. It will create /tmp/lazarus_temp/ and will build the
deb there.