paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-23 17:52:16 +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;
procedure TSourceNotebook.EndIncrementalFind;
var
TempEditor: TSourceEditor;
begin
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;
const OldShortCut, NewShortCut: TShortCut);
var
MenuWidget: PGtkMenuItem;
accel_path: String;
CurKey: Word;
CurShift: TShiftState;
//var
//MenuWidget: PGtkMenuItem;
//accel_path: String;
//CurKey: Word;
//CurShift: TShiftState;
begin
if not WSCheckMenuItem(AMenuItem, 'SetShortCut') then Exit;