paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 03:19:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

clean up

Browse Source 
git-svn-id: trunk@14996 -
This commit is contained in:
mattias 2008-04-28 07:11:35 +00:00
parent 3ec6f39282
commit 5b11d49d7e
2 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/sourceeditor.pp
View File

@ -4544,8 +4544,6 @@ begin
end; end;
procedure TSourceNotebook.EndIncrementalFind; procedure TSourceNotebook.EndIncrementalFind;
var
TempEditor: TSourceEditor;
begin begin
if not (snIncrementalFind in States) then exit; if not (snIncrementalFind in States) then exit;

10
lcl/interfaces/gtk2/gtk2wsmenus.pp
View File

@ -227,11 +227,11 @@ end;
class procedure TGtk2WSMenuItem.SetShortCut(const AMenuItem: TMenuItem; class procedure TGtk2WSMenuItem.SetShortCut(const AMenuItem: TMenuItem;
const OldShortCut, NewShortCut: TShortCut); const OldShortCut, NewShortCut: TShortCut);
var //var
MenuWidget: PGtkMenuItem; //MenuWidget: PGtkMenuItem;
accel_path: String; //accel_path: String;
CurKey: Word; //CurKey: Word;
CurShift: TShiftState; //CurShift: TShiftState;
begin begin
if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then Exit; if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then Exit;