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

IDE: checked compiler warnings, clean up

Browse Source 
git-svn-id: trunk@48234 -
This commit is contained in:
mattias 2015-03-10 15:50:16 +00:00
parent 982ab43ff6
commit 7ed7fbad89
2 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/basedebugmanager.pas
View File

@ -200,7 +200,7 @@ type
// Dialog routines
procedure CreateDebugDialog(Sender: TObject; aFormName: string;
var AForm: TCustomForm; DoDisableAutoSizing: boolean); virtual;
var AForm: TCustomForm; DoDisableAutoSizing: boolean); virtual; abstract;
procedure ViewDebugDialog(const ADialogType: TDebugDialogType;
BringToFront: Boolean = True; Show: Boolean = true;
DoDisableAutoSizing: boolean = false); virtual; abstract;
@ -239,14 +239,6 @@ var
implementation
{ TBaseDebugManager }
procedure TBaseDebugManager.CreateDebugDialog(Sender: TObject; aFormName: string;
var AForm: TCustomForm; DoDisableAutoSizing: boolean);
begin
//
end;
{ TDebuggerOptions }
class function TDebuggerOptions.GetGroupCaption: string;

1
ide/editormacrolistviewer.pas
View File

@ -845,6 +845,7 @@ begin
if i = 1 then exit(AddError('Expected Command, but found "'+UTF8Copy(FText,1,1)+'"'));
s := Copy(FText, 1, i-1);
j:=0;
if not IdentToEditorCommand(s, j) then exit(AddError('Unknown Command "'+s+'"'));
FEventCommand := j;
FEventName := s;