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

IDE: clean up

Browse Source 
git-svn-id: trunk@48544 -
This commit is contained in:
mattias 2015-03-30 19:09:39 +00:00
parent 67fb8b756c
commit 054dc48d1e
3 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
converter/convertdelphi.pas
View File

@ -132,7 +132,7 @@ type
fPrevSelectedPath: string;
// Missing units that are commented automatically in all units.
fAllCommentedUnits: TStringList;
function DoMissingUnits(AUsedUnitsTool: TUsedUnitsTool): integer; virtual;
function DoMissingUnits({%H-}AUsedUnitsTool: TUsedUnitsTool): integer; virtual;
function GetCachedUnitPath(const AUnitName: string): string;
protected
function EndConvert(AStatus: TModalResult): Boolean;
@ -200,7 +200,7 @@ type
function ExtractOptionsFromDelphiSource: TModalResult; virtual; abstract;
// Abstract base for the fake Project / Package virtual methods.
function GetMainName: string; virtual; abstract;
function SaveAndMaybeClose(aFilename: string): TModalResult; virtual;
function SaveAndMaybeClose({%H-}aFilename: string): TModalResult; virtual;
function ContainsFile(aFileName: string): Boolean; virtual; abstract;
function FindDependencyByName(const PackageName: string): TPkgDependency; virtual; abstract;
public

6
ide/frames/toolbar_options.pas
View File

@ -65,8 +65,8 @@ type
procedure bDeleteClick(Sender: TObject);
procedure cbBorderStyleChange(Sender: TObject);
procedure cbGrabStyleChange(Sender: TObject);
procedure CoolBarMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: integer);
procedure CoolBarMouseDown(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; X, Y: integer);
procedure CoolbarResize(Sender: TObject);
procedure spGrabWidthChange(Sender: TObject);
procedure tmWaitTimer(Sender: TObject);
@ -81,7 +81,7 @@ type
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
function GetTitle: string; override;
procedure Setup(ADialog: TAbstractOptionsEditorDialog); override;
procedure Setup({%H-}ADialog: TAbstractOptionsEditorDialog); override;
procedure ReadSettings(AOptions: TAbstractIDEOptions); override;
procedure WriteSettings(AOptions: TAbstractIDEOptions); override;
class function SupportedOptionsClass: TAbstractIDEOptionsClass; override;

1
ide/toolbarconfig.pas
View File

@ -519,7 +519,6 @@ var
aCaption: string;
aPMask: Integer;
mi: TIDEMenuItem;
canShow: Boolean;
begin
for I:= 0 to MainList.Count -1 do
begin