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

IDEIntf: less unit dependencies, less hints, fixed passing AsLast

Browse Source 
git-svn-id: trunk@44243 -
This commit is contained in:
mattias 2014-02-26 08:51:28 +00:00
parent 8a1eedadd8
commit 27d7dc5448
4 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/ideintf/idecommands.pas
View File

@ -30,7 +30,7 @@ unit IDECommands;
interface interface
uses uses
Classes, SysUtils, LCLProc, Forms, LCLType, Menus, PropEdits, TextTools; Classes, SysUtils, LCLProc, Forms, LCLType, Menus, PropEdits;
const const
{ editor commands constants. see syneditkeycmds.pp for more { editor commands constants. see syneditkeycmds.pp for more
@ -1571,15 +1571,11 @@ const
); );
function IdentToIDECommand(const Ident: string; var Cmd: longint): boolean; function IdentToIDECommand(const Ident: string; var Cmd: longint): boolean;
var
IDECommand: TIDECommand;
begin begin
Result := IdentToInt(Ident, Cmd, IDEEditorCommandStrs); Result := IdentToInt(Ident, Cmd, IDEEditorCommandStrs);
end; end;
function IDECommandToIdent(Cmd: longint; var Ident: string): boolean; function IDECommandToIdent(Cmd: longint; var Ident: string): boolean;
var
IDECommand: TIDECommand;
begin begin
Result := IntToIdent(Cmd, Ident, IDEEditorCommandStrs); Result := IntToIdent(Cmd, Ident, IDEEditorCommandStrs);
end; end;

2
components/ideintf/idemsgintf.pas
View File

@ -211,7 +211,7 @@ end;
uses uses
Classes, SysUtils, Forms, LCLProc, Classes, SysUtils, Forms, LCLProc,
TextTools, IDECommands, IDEExternToolIntf; TextTools, IDECommands;
type type

6
components/ideintf/menuintf.pas
View File

@ -18,7 +18,7 @@ unit MenuIntf;
interface interface
uses uses
Classes, SysUtils, LCLType, LCLProc, Menus, ImgList, Graphics, LazHelpIntf, Classes, SysUtils, LCLType, LCLProc, Menus, ImgList, Graphics,
IDECommands, IDEImagesIntf; IDECommands, IDEImagesIntf;
type type
@ -1509,7 +1509,7 @@ end;
procedure TIDEMenuSection.AddHandlerOnShow(const OnShowEvent: TNotifyEvent; procedure TIDEMenuSection.AddHandlerOnShow(const OnShowEvent: TNotifyEvent;
AsLast: boolean); AsLast: boolean);
begin begin
AddHandler(imshtOnShow,TMethod(OnShowEvent)); AddHandler(imshtOnShow,TMethod(OnShowEvent),AsLast);
end; end;
procedure TIDEMenuSection.RemoveHandlerOnShow(const OnShowEvent: TNotifyEvent); procedure TIDEMenuSection.RemoveHandlerOnShow(const OnShowEvent: TNotifyEvent);
@ -1585,7 +1585,7 @@ procedure TIDEMenuSection.AddHandler(HandlerType: TIDEMenuSectionHandlerType;
begin begin
if FSectionHandlers[HandlerType]=nil then if FSectionHandlers[HandlerType]=nil then
FSectionHandlers[HandlerType]:=TMethodList.Create; FSectionHandlers[HandlerType]:=TMethodList.Create;
FSectionHandlers[HandlerType].Add(AMethod); FSectionHandlers[HandlerType].Add(AMethod,AsLast);
end; end;
procedure TIDEMenuSection.RemoveHandler( procedure TIDEMenuSection.RemoveHandler(

8
components/ideintf/srceditorintf.pas
View File

@ -190,10 +190,10 @@ type
procedure CompletePrefix(var Prefix: string); virtual; abstract; procedure CompletePrefix(var Prefix: string); virtual; abstract;
function HasCustomPaint: boolean; virtual; function HasCustomPaint: boolean; virtual;
procedure PaintItem(const AKey: string; ACanvas: TCanvas; procedure PaintItem(const {%H-}AKey: string; {%H-}ACanvas: TCanvas;
X, Y: integer; ItemSelected: boolean; Index: integer); virtual; {%H-}X, {%H-}Y: integer; {%H-}ItemSelected: boolean; {%H-}Index: integer); virtual;
function MeasureItem(const AKey: string; ACanvas: TCanvas; function MeasureItem(const {%H-}AKey: string; {%H-}ACanvas: TCanvas;
ItemSelected: boolean; Index: integer): TPoint; virtual; {%H-}ItemSelected: boolean; {%H-}Index: integer): TPoint; virtual;
end; end;
{ TSourceEditorWindowInterface } { TSourceEditorWindowInterface }