paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-06 11:07:03 +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; fPrevSelectedPath: string;
// Missing units that are commented automatically in all units. // Missing units that are commented automatically in all units.
fAllCommentedUnits: TStringList; fAllCommentedUnits: TStringList;
function DoMissingUnits(AUsedUnitsTool: TUsedUnitsTool): integer; virtual; function DoMissingUnits({%H-}AUsedUnitsTool: TUsedUnitsTool): integer; virtual;
function GetCachedUnitPath(const AUnitName: string): string; function GetCachedUnitPath(const AUnitName: string): string;
protected protected
function EndConvert(AStatus: TModalResult): Boolean; function EndConvert(AStatus: TModalResult): Boolean;
@ -200,7 +200,7 @@ type
function ExtractOptionsFromDelphiSource: TModalResult; virtual; abstract; function ExtractOptionsFromDelphiSource: TModalResult; virtual; abstract;
// Abstract base for the fake Project / Package virtual methods. // Abstract base for the fake Project / Package virtual methods.
function GetMainName: string; virtual; abstract; 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 ContainsFile(aFileName: string): Boolean; virtual; abstract;
function FindDependencyByName(const PackageName: string): TPkgDependency; virtual; abstract; function FindDependencyByName(const PackageName: string): TPkgDependency; virtual; abstract;
public public

6
ide/frames/toolbar_options.pas
View File

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

1
ide/toolbarconfig.pas
View File

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