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

IDE: project inspector: fixed KeyDown/Up mix, bug

Browse Source 
git-svn-id: branches/fixes_1_6@51666 -
This commit is contained in:
mattias 2016-02-19 11:26:53 +00:00
parent 32ead90e6d
commit 68cff514de
1 changed files with 2 additions and 2 deletions

4
ide/projectinspector.pas
View File

@ -185,7 +185,7 @@ type
procedure OnProjectEndUpdate(Sender: TObject; ProjectChanged: boolean);
procedure EnableI18NForSelectedLFM(TheEnable: boolean);
protected
procedure KeyUp(var Key: Word; Shift: TShiftState); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
procedure IdleHandler(Sender: TObject; var {%H-}Done: Boolean);
public
constructor Create(TheOwner: TComponent); override;
@ -1190,7 +1190,7 @@ begin
end;
end;
procedure TProjectInspectorForm.KeyUp(var Key: Word; Shift: TShiftState);
procedure TProjectInspectorForm.KeyDown(var Key: Word; Shift: TShiftState);
begin
inherited KeyDown(Key, Shift);
ExecuteIDEShortCut(Self,Key,Shift,nil);