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

IDE: clean up

Browse Source 
git-svn-id: trunk@48358 -
This commit is contained in:
mattias 2015-03-15 10:27:45 +00:00
parent f4e51fd004
commit 2f1fea1b43
3 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/componentlist.pas
View File

@ -71,7 +71,7 @@ type
procedure miExpandClick(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
procedure ComponentsDblClick(Sender: TObject);
procedure ComponentsChange(Sender: TObject; Node: TTreeNode);
procedure ComponentsChange(Sender: TObject; {%H-}Node: TTreeNode);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure pmCollapseExpandPopup(Sender: TObject);
procedure TreeFilterEdAfterFilter(Sender: TObject);

2
ide/frames/toolbar_options.pas
View File

@ -45,7 +45,7 @@ type
procedure cbToolbarsVisibleCheckBoxClick(Sender: TObject);
public
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;

10
ide/mainbar.pas
View File

@ -391,12 +391,12 @@ type
procedure MainIDEBarDropFiles(Sender: TObject;
const FileNames: array of String);
procedure SplitterMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SplitterMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure SplitterMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
{%H-}Shift: TShiftState; X, Y: Integer);
procedure SplitterMouseUp(Sender: TObject; {%H-}Button: TMouseButton;
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
procedure SplitterMouseMove(Sender: TObject; {%H-}Shift: TShiftState; X, Y: Integer);
procedure pnlSpeedButtonsMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
{%H-}Shift: TShiftState; {%H-}X, {%H-}Y: Integer);
private
FOldWindowState: TWindowState;
FOnActive: TNotifyEvent;