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

IDE: clean up

Browse Source 
git-svn-id: trunk@48587 -
This commit is contained in:
mattias 2015-04-02 11:55:12 +00:00
parent 27c83d27f5
commit 3228d693b6
5 changed files with 18 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/environmentopts.pp
View File

@ -1127,7 +1127,6 @@ var
var
Path: String;
SubPath: String;
CurPath: String;
i, j: Integer;
Rec: PIDEOptionsGroupRec;
@ -1525,7 +1524,6 @@ var
var
Path: String;
SubPath: String;
i, j: Integer;
NodeName: String;
Rec: PIDEOptionsGroupRec;

6
ide/frames/toolbar_options.pas
View File

@ -66,8 +66,8 @@ type
procedure cbBorderStyleChange(Sender: TObject);
procedure cbGrabStyleChange(Sender: TObject);
procedure cbToolBarVisibleClick(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);
@ -82,7 +82,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;

2
ide/newdialog.pas
View File

@ -71,7 +71,7 @@ type
function IndexOf(const CategoryName: string): integer; override;
function FindByName(const CategoryName: string): TNewIDEItemCategory; override;
procedure RegisterItem(const Paths: string; NewItem: TNewIDEItemTemplate); override;
procedure UnregisterItem(NewItem: TNewIDEItemTemplate); override;
procedure UnregisterItem({%H-}NewItem: TNewIDEItemTemplate); override;
function FindCategoryByPath(const Path: string;
ErrorOnNotFound: boolean): TNewIDEItemCategory; override;
end;

2
ide/sourceeditor.pp
View File

@ -292,7 +292,7 @@ type
procedure UpdateIfDefNodeStates(Force: Boolean = False);
protected
procedure DoMultiCaretBeforeCommand(Sender: TObject; ACommand: TSynEditorCommand;
var AnAction: TSynMultiCaretCommandAction; var AFlags: TSynMultiCaretCommandFlags);
var AnAction: TSynMultiCaretCommandAction; var {%H-}AFlags: TSynMultiCaretCommandFlags);
procedure ProcessCommand(Sender: TObject;
var Command: TSynEditorCommand; var AChar: TUTF8Char; {%H-}Data: pointer);
procedure ProcessUserCommand(Sender: TObject;

27
ide/toolbarconfig.pas
View File

@ -73,9 +73,9 @@ type
procedure btnMoveUpClick(Sender: TObject);
procedure btnRemoveClick(Sender: TObject);
procedure lvToolbarDrawItem(Sender: TCustomListView; AItem: TListItem;
ARect: TRect; AState: TOwnerDrawState);
procedure lvToolbarSelectItem(Sender: TObject; Item: TListItem;
Selected: Boolean);
ARect: TRect; {%H-}AState: TOwnerDrawState);
procedure lvToolbarSelectItem(Sender: TObject; {%H-}Item: TListItem;
{%H-}Selected: Boolean);
procedure TVSelectionChanged(Sender: TObject);
private
Image: TBitMap;
@ -91,9 +91,9 @@ type
procedure LoadCategories;
procedure AddMenuItem(ParentNode: TTreeNode; Item: TIDEMenuItem; Level: Integer);
function RootNodeCaption(Item: TIDEMenuItem): string;
procedure AddListItem(Item: TIDEMenuItem; PMask: Integer);
procedure AddToolBarItem(Item: TIDEMenuItem; PMask: Integer);
procedure AddDivider(PMask: Integer);
procedure AddListItem(Item: TIDEMenuItem);
procedure AddToolBarItem(Item: TIDEMenuItem);
procedure AddDivider;
procedure FillToolBar;
public
procedure LoadSettings(const SL: TStringList);
@ -521,7 +521,7 @@ begin
end;
end;
procedure TToolBarConfig.AddListItem(Item: TIDEMenuItem; PMask: Integer);
procedure TToolBarConfig.AddListItem(Item: TIDEMenuItem);
var
aListItem: TLvItem;
begin
@ -536,7 +536,7 @@ begin
end;
end;
procedure TToolBarConfig.AddToolBarItem(Item: TIDEMenuItem; PMask: Integer);
procedure TToolBarConfig.AddToolBarItem(Item: TIDEMenuItem);
Var
n: TTreeNode;
ACaption: string;
@ -561,7 +561,7 @@ begin
end;
end;
procedure TToolBarConfig.AddDivider(PMask: Integer);
procedure TToolBarConfig.AddDivider;
var
lvItem: TListItem;
begin
@ -578,7 +578,6 @@ var
I: Integer;
aListItem: TLvItem;
aCaption: string;
aPMask: Integer;
mi: TIDEMenuItem;
begin
for I:= 0 to MainList.Count -1 do
@ -587,9 +586,9 @@ begin
mi := aListItem.Item;
aCaption := MainList.Strings[I];
if aCaption = cDivider then
AddDivider(aPMask)
AddDivider
else
AddToolBarItem(mi, aPMask);
AddToolBarItem(mi);
aListItem.LvIndex:= lvToolbar.Items.Count - 1;
end;
end;
@ -607,11 +606,11 @@ begin
begin
if Value = cDivider then
begin
AddListItem(nil, 0);
AddListItem(nil);
Continue;
end;
MI := IDEMenuRoots.FindByPath(Value, false);
AddListItem(MI, 0);
AddListItem(MI);
end;
end;
FillToolBar;