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

IDE: less hints

Browse Source 
git-svn-id: trunk@62107 -
This commit is contained in:
mattias 2019-10-22 15:04:10 +00:00
parent 680d18ea26
commit a6f129c936
3 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ide/desktopmanager.pas
View File

@ -59,7 +59,7 @@ type
procedure ExportAllActionClick(Sender: TObject);
procedure ExportActionClick(Sender: TObject);
procedure ExportBitBtnClick(Sender: TObject);
procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
procedure FormClose(Sender: TObject; var {%H-}CloseAction: TCloseAction);
procedure FormCreate(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure HelpButtonClick(Sender: TObject);

1
ide/frames/project_debug_options.pas
View File

@ -82,7 +82,6 @@ end;
procedure TProjectDebugOptionsFrame.WriteSettings(AOptions: TAbstractIDEOptions);
var
AFlags: TProjectFlags;
i: Integer;
begin
if not (AOptions is TProjectIDEOptions) then exit;

1
ide/mainbase.pas
View File

@ -939,6 +939,7 @@ var
function TMainIDEBase.CreateMenuSeparator(Section: TIDEMenuSection): TIDEMenuCommand;
begin
Inc(SeparatorNum);
Result:=nil;
CreateMenuItem(Section, Result, 'Separator'+IntToStr(SeparatorNum), '-'); // Result - var parameter
end;