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

IDE: messages: hint for external tool

Browse Source 
git-svn-id: trunk@45157 -
This commit is contained in:
mattias 2014-05-23 14:05:14 +00:00
parent d8e83aafcf
commit bbd5c7e16f
2 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/ideintf/ideexterntoolintf.pas
View File

@ -598,6 +598,7 @@ type
FCustomMacroFunction: TETMacroFunction; FCustomMacroFunction: TETMacroFunction;
FEnvironmentOverrides: TStringList; FEnvironmentOverrides: TStringList;
FExecutable: string; FExecutable: string;
FHint: string;
FQuiet: boolean; FQuiet: boolean;
FResolveMacros: boolean; FResolveMacros: boolean;
FScanners: TStrings; FScanners: TStrings;
@ -613,6 +614,7 @@ type
procedure Clear; procedure Clear;
property Title: string read fTitle write fTitle; property Title: string read fTitle write fTitle;
property Hint: string read FHint write FHint;
property Executable: string read FExecutable write FExecutable; property Executable: string read FExecutable write FExecutable;
property Filename: string read FExecutable write FExecutable; deprecated; property Filename: string read FExecutable write FExecutable; deprecated;
property CmdLineParams: string read fCmdLineParams write fCmdLineParams; property CmdLineParams: string read fCmdLineParams write fCmdLineParams;

1
ide/exttooleditdlg.pas
View File

@ -557,6 +557,7 @@ begin
Tool:=TIDEExternalToolOptions.Create; Tool:=TIDEExternalToolOptions.Create;
try try
Tool.Title:=Item.Title; Tool.Title:=Item.Title;
Tool.Hint:='External tool '+IntToStr(Index+1);
Tool.Executable:=Item.Filename; Tool.Executable:=Item.Filename;
Tool.WorkingDirectory:=Item.WorkingDirectory; Tool.WorkingDirectory:=Item.WorkingDirectory;
Tool.CmdLineParams:=Item.CmdLineParams; Tool.CmdLineParams:=Item.CmdLineParams;