paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 11:39:32 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/projectinspector.pas
View File

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