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

IDE: remove obsolete TKeyCommandRelation.SetShortcutA

Browse Source 
git-svn-id: trunk@33376 -
This commit is contained in:
juha 2011-11-06 14:42:50 +00:00
parent 7e51f5b7f3
commit f0cabaa74f
1 changed files with 0 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
ide/keymapping.pp
View File

@ -74,8 +74,6 @@ type
TKeyCommandRelation = class(TIDECommand)
private
procedure SetShortcutA(const AValue: TIDEShortCut); override;
procedure SetShortcutB(const AValue: TIDEShortCut); override;
procedure SetSingle(NewKeyA: word; NewShiftA: TShiftState;
NewKeyB: word; NewShiftB: TShiftState);
procedure SetSingle(NewKeyA: word; NewShiftA: TShiftState);
@ -764,25 +762,6 @@ end;
{ TKeyCommandRelation }
procedure TKeyCommandRelation.SetShortcutA(const AValue: TIDEShortCut);
begin
inherited SetShortcutA(AValue);
{if Command=12000 then begin
debugln('TKeyCommandRelation.SetShortcutA ',KeyAndShiftStateToEditorKeyString(ShortcutA),' ',KeyAndShiftStateToEditorKeyString(ShortcutB));
if AValue.Key1=VK_UNKNOWN then
RaiseGDBException('');
end;}
end;
procedure TKeyCommandRelation.SetShortcutB(const AValue: TIDEShortCut);
begin
inherited SetShortcutB(AValue);
{if Command=ecBlockIndent then begin
debugln('TKeyCommandRelation.SetShortcutB ',KeyAndShiftStateToEditorKeyString(ShortcutA),' ',KeyAndShiftStateToEditorKeyString(ShortcutB));
if ShortcutB.Key2=VK_UNKNOWN then
RaiseGDBException('');
end;}
end;
procedure TKeyCommandRelation.SetSingle(NewKeyA: word; NewShiftA: TShiftState;
NewKeyB: word; NewShiftB: TShiftState);
begin