mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-06-06 21:58:23 +02:00
d9f87ef6eb
replaced many places, where Application was needlessly Owner updated po files, started Configure IDE Install Package dialog, implemented removing double file package links git-svn-id: trunk@6388 -
867 lines
26 KiB
ObjectPascal
867 lines
26 KiB
ObjectPascal
{
|
|
***************************************************************************
|
|
* *
|
|
* This source is free software; you can redistribute it and/or modify *
|
|
* it under the terms of the GNU General Public License as published by *
|
|
* the Free Software Foundation; either version 2 of the License, or *
|
|
* (at your option) any later version. *
|
|
* *
|
|
* This code is distributed in the hope that it will be useful, but *
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of *
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU *
|
|
* General Public License for more details. *
|
|
* *
|
|
* A copy of the GNU General Public License is available on the World *
|
|
* Wide Web at <http://www.gnu.org/copyleft/gpl.html>. You can also *
|
|
* obtain it by writing to the Free Software Foundation, *
|
|
* Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. *
|
|
* *
|
|
***************************************************************************
|
|
|
|
Author: Mattias Gaertner
|
|
|
|
Abstract:
|
|
Defines the TExternalToolOptions which stores the settings of a single
|
|
external tool. (= Programfilename and parameters)
|
|
All TExternalToolOptions are stored in a TExternalToolList
|
|
(see exttooldialog.pas).
|
|
And this unit provides TExternalToolOptionDlg which is a dialog for editing
|
|
a TExternalToolOptions;
|
|
|
|
}
|
|
unit ExtToolEditDlg;
|
|
|
|
{$mode objfpc}
|
|
{$H+}
|
|
|
|
{$I ide.inc}
|
|
|
|
interface
|
|
|
|
uses
|
|
{$IFDEF IDE_MEM_CHECK}
|
|
MemCheck,
|
|
{$ENDIF}
|
|
Classes, SysUtils, LCLType, Controls, Forms, Buttons, StdCtrls, ComCtrls,
|
|
Dialogs, LResources, Laz_XMLCfg, KeyMapping, TransferMacros, IDEProcs,
|
|
LazarusIDEStrConsts;
|
|
|
|
{ The xml format version:
|
|
When the format changes (new values, changed formats) we can distinguish old
|
|
files and are able to convert them.
|
|
}
|
|
const ExternalToolOptionsFormat = '1.0';
|
|
|
|
type
|
|
{
|
|
TExternalToolOptions - the storage object for a single external tool
|
|
}
|
|
TExternalToolOptions = class
|
|
private
|
|
fCmdLineParams: string;
|
|
FEnvironmentOverrides: TStringList;
|
|
fFilename: string;
|
|
fKey: word;
|
|
FScanOutput: boolean;
|
|
fScanOutputForFPCMessages: boolean;
|
|
fScanOutputForMakeMessages: boolean;
|
|
fShift: TShiftState;
|
|
FShowAllOutput: boolean;
|
|
fTitle: string;
|
|
fWorkingDirectory: string;
|
|
procedure SetScanOutput(const AValue: boolean);
|
|
procedure SetShowAllOutput(const AValue: boolean);
|
|
public
|
|
procedure Assign(Source: TExternalToolOptions);
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
procedure Clear;
|
|
function NeedsOutputFilter: boolean;
|
|
function Load(XMLConfig: TXMLConfig; const Path: string): TModalResult;
|
|
function Save(XMLConfig: TXMLConfig; const Path: string): TModalResult;
|
|
function ShortDescription: string;
|
|
procedure AssignEnvironmentTo(Strings: TStrings);
|
|
|
|
property CmdLineParams: string read fCmdLineParams write fCmdLineParams;
|
|
property Filename: string read fFilename write fFilename;
|
|
property Key: word read fKey write fKey;
|
|
property Title: string read fTitle write fTitle;
|
|
property ScanOutputForFPCMessages: boolean
|
|
read fScanOutputForFPCMessages write fScanOutputForFPCMessages;
|
|
property ScanOutputForMakeMessages: boolean
|
|
read fScanOutputForMakeMessages write fScanOutputForMakeMessages;
|
|
property Shift: TShiftState read fShift write fShift;
|
|
property WorkingDirectory: string
|
|
read fWorkingDirectory write fWorkingDirectory;
|
|
property EnvironmentOverrides: TStringList read FEnvironmentOverrides;
|
|
property ScanOutput: boolean read FScanOutput write SetScanOutput;
|
|
property ShowAllOutput: boolean read FShowAllOutput write SetShowAllOutput;
|
|
end;
|
|
|
|
{
|
|
the editor dialog for a single external tool
|
|
}
|
|
TExternalToolOptionDlg = class(TForm)
|
|
TitleLabel: TLabel;
|
|
TitleEdit: TEdit;
|
|
FilenameLabel: TLabel;
|
|
FilenameEdit: TEdit;
|
|
ParametersLabel: TLabel;
|
|
ParametersEdit: TEdit;
|
|
WorkingDirLabel: TLabel;
|
|
WorkingDirEdit: TEdit;
|
|
OptionsGroupBox: TGroupBox;
|
|
OptionScanOutputForFPCMessagesCheckBox: TCheckBox;
|
|
OptionScanOutputForMakeMessagesCheckBox: TCheckBox;
|
|
KeyGroupBox: TGroupBox;
|
|
KeyCtrlCheckBox: TCheckBox;
|
|
KeyAltCheckBox: TCheckBox;
|
|
KeyShiftCheckBox: TCheckBox;
|
|
KeyComboBox: TComboBox;
|
|
KeyGrabButton: TButton;
|
|
MacrosGroupbox: TGroupbox;
|
|
MacrosListbox: TListbox;
|
|
MacrosInsertButton: TButton;
|
|
OkButton: TButton;
|
|
CancelButton: TButton;
|
|
procedure CancelButtonClick(Sender: TObject);
|
|
procedure ExternalToolOptionDlgResize(Sender: TObject);
|
|
procedure MacrosGroupboxResize(Sender: TObject);
|
|
procedure OkButtonClick(Sender: TObject);
|
|
procedure FormKeyUp(Sender: TObject; var Key: Word; Shift:TShiftState);
|
|
procedure KeyGrabButtonClick(Sender: TObject);
|
|
procedure MacrosInsertButtonClick(Sender: TObject);
|
|
procedure MacrosListboxClick(Sender: TObject);
|
|
private
|
|
fOptions: TExternalToolOptions;
|
|
fTransferMacros: TTransferMacroList;
|
|
GrabbingKey: integer; // 0=none, 1=Default key
|
|
procedure ActivateGrabbing(AGrabbingKey: integer);
|
|
procedure DeactivateGrabbing;
|
|
procedure FillMacroList;
|
|
procedure LoadFromOptions;
|
|
procedure SaveToOptions;
|
|
procedure SetComboBox(AComboBox: TComboBox; const AValue: string);
|
|
procedure SetOptions(TheOptions: TExternalToolOptions);
|
|
procedure SetTransferMacros(TransferMacroList: TTransferMacroList);
|
|
public
|
|
constructor Create(AnOwner: TComponent); override;
|
|
destructor Destroy; override;
|
|
property Options: TExternalToolOptions read fOptions write SetOptions;
|
|
property MacroList: TTransferMacroList
|
|
read fTransferMacros write SetTransferMacros;
|
|
end;
|
|
|
|
|
|
function ShowExtToolOptionDlg(TransferMacroList: TTransferMacroList;
|
|
ExternalToolOptions: TExternalToolOptions):TModalResult;
|
|
|
|
|
|
implementation
|
|
|
|
|
|
function ShowExtToolOptionDlg(TransferMacroList: TTransferMacroList;
|
|
ExternalToolOptions: TExternalToolOptions):TModalResult;
|
|
var ExternalToolOptionDlg: TExternalToolOptionDlg;
|
|
begin
|
|
Result:=mrCancel;
|
|
ExternalToolOptionDlg:=TExternalToolOptionDlg.Create(nil);
|
|
try
|
|
ExternalToolOptionDlg.Options:=ExternalToolOptions;
|
|
ExternalToolOptionDlg.MacroList:=TransferMacroList;
|
|
Result:=ExternalToolOptionDlg.ShowModal;
|
|
if Result=mrOk then
|
|
ExternalToolOptions.Assign(ExternalToolOptionDlg.Options);
|
|
finally
|
|
ExternalToolOptionDlg.Free;
|
|
end;
|
|
end;
|
|
|
|
{ TExternalToolOptions }
|
|
|
|
procedure TExternalToolOptions.SetScanOutput(const AValue: boolean);
|
|
begin
|
|
if FScanOutput=AValue then exit;
|
|
FScanOutput:=AValue;
|
|
end;
|
|
|
|
procedure TExternalToolOptions.SetShowAllOutput(const AValue: boolean);
|
|
begin
|
|
if FShowAllOutput=AValue then exit;
|
|
FShowAllOutput:=AValue;
|
|
end;
|
|
|
|
procedure TExternalToolOptions.Assign(Source: TExternalToolOptions);
|
|
begin
|
|
if Source=Self then exit;
|
|
if Source=nil then
|
|
Clear
|
|
else begin
|
|
fTitle:=Source.fTitle;
|
|
fFilename:=Source.fFilename;
|
|
fCmdLineParams:=Source.fCmdLineParams;
|
|
fWorkingDirectory:=Source.fWorkingDirectory;
|
|
fKey:=Source.fKey;
|
|
fShift:=Source.fShift;
|
|
fScanOutputForFPCMessages:=Source.fScanOutputForFPCMessages;
|
|
fScanOutputForMakeMessages:=Source.fScanOutputForMakeMessages;
|
|
FScanOutput:=Source.FScanOutput;
|
|
FShowAllOutput:=Source.FShowAllOutput;
|
|
end;
|
|
end;
|
|
|
|
constructor TExternalToolOptions.Create;
|
|
begin
|
|
inherited Create;
|
|
FEnvironmentOverrides:=TStringList.Create;
|
|
Clear;
|
|
end;
|
|
|
|
destructor TExternalToolOptions.Destroy;
|
|
begin
|
|
FEnvironmentOverrides.Free;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TExternalToolOptions.Clear;
|
|
begin
|
|
fTitle:='';
|
|
fFilename:='';
|
|
fCmdLineParams:='';
|
|
fWorkingDirectory:='';
|
|
fKey:=VK_UNKNOWN;
|
|
fShift:=[];
|
|
fScanOutputForFPCMessages:=false;
|
|
fScanOutputForMakeMessages:=false;
|
|
FScanOutput:=false;
|
|
FShowAllOutput:=false;
|
|
end;
|
|
|
|
function TExternalToolOptions.Load(XMLConfig: TXMLConfig;
|
|
const Path: string): TModalResult;
|
|
begin
|
|
Clear;
|
|
fTitle:=XMLConfig.GetValue(Path+'Title/Value','');
|
|
fFilename:=XMLConfig.GetValue(Path+'Filename/Value','');
|
|
fCmdLineParams:=XMLConfig.GetValue(Path+'CmdLineParams/Value','');
|
|
fWorkingDirectory:=XMLConfig.GetValue(Path+'WorkingDirectory/Value','');
|
|
fScanOutputForFPCMessages:=XMLConfig.GetValue(
|
|
Path+'ScanOutputForFPCMessages/Value',false);
|
|
fScanOutputForMakeMessages:=XMLConfig.GetValue(
|
|
Path+'ScanOutputForMakeMessages/Value',false);
|
|
FShowAllOutput:=XMLConfig.GetValue(Path+'ShowAllOutput/Value',false);
|
|
LoadStringList(XMLConfig,FEnvironmentOverrides,Path+'EnvironmentOverrides/');
|
|
// key and shift are loaded with the keymapping in the editoroptions
|
|
Result:=mrOk;
|
|
end;
|
|
|
|
function TExternalToolOptions.Save(XMLConfig: TXMLConfig;
|
|
const Path: string): TModalResult;
|
|
begin
|
|
XMLConfig.SetValue(Path+'Format/Version',ExternalToolOptionsFormat);
|
|
XMLConfig.SetDeleteValue(Path+'Title/Value',fTitle,'');
|
|
XMLConfig.SetDeleteValue(Path+'Filename/Value',fFilename,'');
|
|
XMLConfig.SetDeleteValue(Path+'CmdLineParams/Value',fCmdLineParams,'');
|
|
XMLConfig.SetDeleteValue(Path+'WorkingDirectory/Value',fWorkingDirectory,'');
|
|
XMLConfig.SetDeleteValue(
|
|
Path+'ScanOutputForFPCMessages/Value',fScanOutputForFPCMessages,
|
|
false);
|
|
XMLConfig.SetDeleteValue(
|
|
Path+'ScanOutputForMakeMessages/Value',fScanOutputForMakeMessages,
|
|
false);
|
|
XMLConfig.SetDeleteValue(Path+'ShowAllOutput/Value',FShowAllOutput,false);
|
|
SaveStringList(XMLConfig,FEnvironmentOverrides,Path+'EnvironmentOverrides/');
|
|
// key and shift are saved with the keymapping in the editoroptions
|
|
Result:=mrOk;
|
|
end;
|
|
|
|
function TExternalToolOptions.ShortDescription: string;
|
|
begin
|
|
Result:=Title;
|
|
end;
|
|
|
|
procedure TExternalToolOptions.AssignEnvironmentTo(Strings: TStrings);
|
|
begin
|
|
IDEProcs.AssignEnvironmentTo(Strings,EnvironmentOverrides);
|
|
end;
|
|
|
|
function TExternalToolOptions.NeedsOutputFilter: boolean;
|
|
begin
|
|
Result:=ScanOutput or ScanOutputForFPCMessages or ScanOutputForMakeMessages
|
|
or ShowAllOutput;
|
|
end;
|
|
|
|
|
|
{ TExternalToolOptionDlg }
|
|
|
|
constructor TExternalToolOptionDlg.Create(AnOwner: TComponent);
|
|
var
|
|
i: word;
|
|
s: string;
|
|
begin
|
|
inherited Create(AnOwner);
|
|
GrabbingKey:=0;
|
|
if LazarusResources.Find(ClassName)=nil then begin
|
|
Width:=560;
|
|
Height:=450;
|
|
Caption:=lisEdtExtToolEditTool;
|
|
Position:=poScreenCenter;
|
|
|
|
TitleLabel:=TLabel.Create(Self);
|
|
with TitleLabel do begin
|
|
Name:='TitleLabel';
|
|
Parent:=Self;
|
|
SetBounds(5,5,110,22);
|
|
Caption:=dlgPOTitle;
|
|
Visible:=true;
|
|
end;
|
|
|
|
TitleEdit:=TEdit.Create(Self);
|
|
with TitleEdit do begin
|
|
Name:='TitleEdit';
|
|
Parent:=Self;
|
|
Left:=TitleLabel.Left+TitleLabel.Width+5;
|
|
Top:=TitleLabel.Top+2;
|
|
Width:=Self.ClientWidth-Left-10;
|
|
Height:=25;
|
|
Visible:=true;
|
|
end;
|
|
|
|
FilenameLabel:=TLabel.Create(Self);
|
|
with FilenameLabel do begin
|
|
Name:='FilenameLabel';
|
|
Parent:=Self;
|
|
SetBounds(TitleLabel.Left,TitleLabel.Top+TitleLabel.Height+10,
|
|
TitleLabel.Width,TitleLabel.Height);
|
|
Caption:=lisEdtExtToolProgramfilename;
|
|
Visible:=true;
|
|
end;
|
|
|
|
FilenameEdit:=TEdit.Create(Self);
|
|
with FilenameEdit do begin
|
|
Name:='FilenameEdit';
|
|
Parent:=Self;
|
|
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width,
|
|
TitleEdit.Height);
|
|
Visible:=true;
|
|
end;
|
|
|
|
ParametersLabel:=TLabel.Create(Self);
|
|
with ParametersLabel do begin
|
|
Name:='ParametersLabel';
|
|
Parent:=Self;
|
|
SetBounds(FilenameLabel.Left,FilenameLabel.Top+FilenameLabel.Height+10,
|
|
FilenameLabel.Width,FilenameLabel.Height);
|
|
Caption:=lisEdtExtToolParameters;
|
|
Visible:=true;
|
|
end;
|
|
|
|
ParametersEdit:=TEdit.Create(Self);
|
|
with ParametersEdit do begin
|
|
Name:='ParametersEdit';
|
|
Parent:=Self;
|
|
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width,
|
|
FilenameEdit.Height);
|
|
Visible:=true;
|
|
end;
|
|
|
|
WorkingDirLabel:=TLabel.Create(Self);
|
|
with WorkingDirLabel do begin
|
|
Name:='WorkingDirLabel';
|
|
Parent:=Self;
|
|
SetBounds(ParametersLabel.Left,
|
|
ParametersLabel.Top+ParametersLabel.Height+10,ParametersLabel.Width,
|
|
ParametersLabel.Height);
|
|
Caption:=lisEdtExtToolWorkingDirectory;
|
|
Visible:=true;
|
|
end;
|
|
|
|
WorkingDirEdit:=TEdit.Create(Self);
|
|
with WorkingDirEdit do begin
|
|
Name:='WorkingDirEdit';
|
|
Parent:=Self;
|
|
SetBounds(ParametersEdit.Left,WorkingDirLabel.Top+2,ParametersEdit.Width,
|
|
ParametersEdit.Height);
|
|
Visible:=true;
|
|
end;
|
|
|
|
OptionsGroupBox:=TGroupBox.Create(Self);
|
|
with OptionsGroupBox do begin
|
|
Name:='OptionsGroupBox';
|
|
Parent:=Self;
|
|
Caption:=lisLazBuildOptions;
|
|
Left:=5;
|
|
Top:=WorkingDirLabel.Top+WorkingDirLabel.Height+12;
|
|
Width:=Self.ClientWidth-Left-Left;
|
|
Height:=66;
|
|
Visible:=true;
|
|
end;
|
|
|
|
OptionScanOutputForFPCMessagesCheckBox:=TCheckBox.Create(Self);
|
|
with OptionScanOutputForFPCMessagesCheckBox do begin
|
|
Name:='OptionScanOutputForFPCMessagesCheckBox';
|
|
Parent:=OptionsGroupBox;
|
|
SetBounds(5,2,400,20);
|
|
Caption:=lisEdtExtToolScanOutputForFreePascalCompilerMessages;
|
|
Visible:=true;
|
|
end;
|
|
|
|
OptionScanOutputForMakeMessagesCheckBox:=TCheckBox.Create(Self);
|
|
with OptionScanOutputForMakeMessagesCheckBox do begin
|
|
Name:='OptionScanOutputForMakeMessagesCheckBox';
|
|
Parent:=OptionsGroupBox;
|
|
SetBounds(5,OptionScanOutputForFPCMessagesCheckBox.Top
|
|
+OptionScanOutputForFPCMessagesCheckBox.Height+4,400,20);
|
|
Caption:=lisEdtExtToolScanOutputForMakeMessages;
|
|
Visible:=true;
|
|
end;
|
|
|
|
KeyGroupBox:=TGroupBox.Create(Self);
|
|
with KeyGroupBox do begin
|
|
Name:='KeyGroupBox';
|
|
Parent:=Self;
|
|
Caption:=lisEdtExtToolKey;
|
|
Left:=5;
|
|
Top:=OptionsGroupBox.Top+OptionsGroupBox.Height+12;
|
|
Width:=Self.ClientWidth-Left-Left;
|
|
Height:=50;
|
|
Visible:=true;
|
|
end;
|
|
|
|
KeyCtrlCheckBox:=TCheckBox.Create(Self);
|
|
with KeyCtrlCheckBox do begin
|
|
Name:='KeyCtrlCheckBox';
|
|
Parent:=KeyGroupBox;
|
|
Caption:=lisEdtExtToolCtrl;
|
|
Left:=5;
|
|
Top:=2;
|
|
Width:=50;
|
|
Height:=20;
|
|
Visible:=true;
|
|
end;
|
|
|
|
KeyAltCheckBox:=TCheckBox.Create(Self);
|
|
with KeyAltCheckBox do begin
|
|
Name:='KeyAltCheckBox';
|
|
Parent:=KeyGroupBox;
|
|
Caption:=lisEdtExtToolAlt;
|
|
Left:=KeyCtrlCheckBox.Left+KeyCtrlCheckBox.Width+10;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Height:=20;
|
|
Width:=KeyCtrlCheckBox.Width;
|
|
Visible:=true;
|
|
end;
|
|
|
|
KeyShiftCheckBox:=TCheckBox.Create(Self);
|
|
with KeyShiftCheckBox do begin
|
|
Name:='KeyShiftCheckBox';
|
|
Parent:=KeyGroupBox;
|
|
Caption:=lisEdtExtToolShift;
|
|
Left:=KeyAltCheckBox.Left+KeyAltCheckBox.Width+10;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Height:=20;
|
|
Width:=KeyCtrlCheckBox.Width;
|
|
Visible:=true;
|
|
end;
|
|
|
|
KeyComboBox:=TComboBox.Create(Self);
|
|
with KeyComboBox do begin
|
|
Name:='KeyComboBox';
|
|
Parent:=KeyGroupBox;
|
|
Left:=KeyShiftCheckBox.Left+KeyShiftCheckBox.Width+10;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Width:=190;
|
|
Items.BeginUpdate;
|
|
Items.Add('none');
|
|
for i:=1 to 145 do begin
|
|
s:=KeyAndShiftStateToEditorKeyString(i,[]);
|
|
if not EditorKeyStringIsIrregular(s) then
|
|
Items.Add(s);
|
|
end;
|
|
Items.EndUpdate;
|
|
ItemIndex:=0;
|
|
Visible:=true;
|
|
end;
|
|
|
|
KeyGrabButton:=TButton.Create(Self);
|
|
with KeyGrabButton do begin
|
|
Parent:=KeyGroupBox;
|
|
Left:=KeyComboBox.Left+KeyComboBox.Width+10;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Width:=150;
|
|
Height:=25;
|
|
Caption:=srkmGrabKey;
|
|
Name:='KeyGrabButton';
|
|
OnClick:=@KeyGrabButtonClick;
|
|
Visible:=true;
|
|
end;
|
|
|
|
MacrosGroupbox:=TGroupbox.Create(Self);
|
|
with MacrosGroupbox do begin
|
|
Name:='MacrosGroupbox';
|
|
Parent:=Self;
|
|
Left:=KeyGroupBox.Left;
|
|
Top:=KeyGroupBox.Top+KeyGroupBox.Height+10;
|
|
Width:=KeyGroupBox.Width;
|
|
Height:=Self.ClientHeight-50-Top;
|
|
Caption:=lisEdtExtToolMacros;
|
|
OnResize:=@MacrosGroupboxResize;
|
|
end;
|
|
|
|
MacrosListbox:=TListbox.Create(Self);
|
|
with MacrosListbox do begin
|
|
Name:='MacrosListbox';
|
|
Parent:=MacrosGroupbox;
|
|
SetBounds(5,5,MacrosGroupbox.ClientWidth-120,
|
|
MacrosGroupbox.ClientHeight-30);
|
|
OnClick:=@MacrosListboxClick;
|
|
end;
|
|
|
|
MacrosInsertButton:=TButton.Create(Self);
|
|
with MacrosInsertButton do begin
|
|
Name:='MacrosInsertButton';
|
|
Parent:=MacrosGroupbox;
|
|
SetBounds(MacrosGroupbox.ClientWidth-90,5,70,25);
|
|
Caption:=lisEdtExtToolInsert;
|
|
OnClick:=@MacrosInsertButtonClick;
|
|
Enabled:=false;
|
|
end;
|
|
|
|
OkButton:=TButton.Create(Self);
|
|
with OkButton do begin
|
|
Name:='OkButton';
|
|
Parent:=Self;
|
|
SetBounds(270,Self.ClientHeight-40,100,25);
|
|
Caption:=lisLazBuildOk;
|
|
OnClick:=@OkButtonClick;
|
|
end;
|
|
|
|
CancelButton:=TButton.Create(Self);
|
|
with CancelButton do begin
|
|
Name:='CancelButton';
|
|
Parent:=Self;
|
|
SetBounds(390,OkButton.Top,100,25);
|
|
Caption:=dlgCancel;
|
|
OnClick:=@CancelButtonClick;
|
|
end;
|
|
|
|
OnResize:=@ExternalToolOptionDlgResize;
|
|
KeyPreview:=true;
|
|
OnKeyUp:=@FormKeyUp;
|
|
end;
|
|
fOptions:=TExternalToolOptions.Create;
|
|
ExternalToolOptionDlgResize(nil);
|
|
end;
|
|
|
|
destructor TExternalToolOptionDlg.Destroy;
|
|
begin
|
|
fOptions.Free;
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.SaveToOptions;
|
|
begin
|
|
fOptions.Title:=TitleEdit.Text;
|
|
fOptions.Filename:=FilenameEdit.Text;
|
|
fOptions.CmdLineParams:=ParametersEdit.Text;
|
|
fOptions.WorkingDirectory:=WorkingDirEdit.Text;
|
|
fOptions.Key:=EditorKeyStringToVKCode(KeyComboBox.Text);
|
|
fOptions.Shift:=[];
|
|
if fOptions.Key<>VK_UNKNOWN then begin
|
|
if KeyCtrlCheckBox.Checked then include(fOptions.fShift,ssCtrl);
|
|
if KeyAltCheckBox.Checked then include(fOptions.fShift,ssAlt);
|
|
if KeyShiftCheckBox.Checked then include(fOptions.fShift,ssShift);
|
|
end;
|
|
fOptions.ScanOutputForFPCMessages:=
|
|
OptionScanOutputForFPCMessagesCheckBox.Checked;
|
|
fOptions.ScanOutputForMakeMessages:=
|
|
OptionScanOutputForMakeMessagesCheckBox.Checked;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.LoadFromOptions;
|
|
begin
|
|
TitleEdit.Text:=fOptions.Title;
|
|
FilenameEdit.Text:=fOptions.Filename;
|
|
ParametersEdit.Text:=fOptions.CmdLineParams;
|
|
WorkingDirEdit.Text:=fOptions.WorkingDirectory;
|
|
SetComboBox(KeyComboBox,KeyAndShiftStateToEditorKeyString(fOptions.Key,[]));
|
|
KeyCtrlCheckBox.Checked:=(ssCtrl in fOptions.Shift);
|
|
KeyShiftCheckBox.Checked:=(ssShift in fOptions.Shift);
|
|
KeyAltCheckBox.Checked:=(ssAlt in fOptions.Shift);
|
|
OptionScanOutputForFPCMessagesCheckBox.Checked:=
|
|
fOptions.ScanOutputForFPCMessages;
|
|
OptionScanOutputForMakeMessagesCheckBox.Checked:=
|
|
fOptions.ScanOutputForMakeMessages;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.OkButtonClick(Sender: TObject);
|
|
begin
|
|
if (TitleEdit.Text='') or (FilenameEdit.Text='') then begin
|
|
MessageDlg(lisEdtExtToolTitleAndFilenameRequired,
|
|
lisEdtExtToolAValidToolNeedsAtLeastATitleAndAFilename,
|
|
mtError, [mbCancel], 0);
|
|
exit;
|
|
end;
|
|
SaveToOptions;
|
|
ModalResult:=mrOk;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.CancelButtonClick(Sender: TObject);
|
|
begin
|
|
ModalResult:=mrCancel;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.ExternalToolOptionDlgResize(Sender: TObject);
|
|
begin
|
|
with TitleLabel do begin
|
|
SetBounds(5,5,110,22);
|
|
end;
|
|
|
|
with TitleEdit do begin
|
|
Left:=TitleLabel.Left+TitleLabel.Width+5;
|
|
Top:=TitleLabel.Top+2;
|
|
Width:=Self.ClientWidth-Left-10;
|
|
Height:=25;
|
|
end;
|
|
|
|
with FilenameLabel do begin
|
|
SetBounds(TitleLabel.Left,TitleLabel.Top+TitleLabel.Height+10,
|
|
TitleLabel.Width,TitleLabel.Height);
|
|
end;
|
|
|
|
with FilenameEdit do begin
|
|
SetBounds(TitleEdit.Left,FilenameLabel.Top+2,TitleEdit.Width,
|
|
TitleEdit.Height);
|
|
end;
|
|
|
|
with ParametersLabel do begin
|
|
SetBounds(FilenameLabel.Left,FilenameLabel.Top+FilenameLabel.Height+10,
|
|
FilenameLabel.Width,FilenameLabel.Height);
|
|
end;
|
|
|
|
with ParametersEdit do begin
|
|
SetBounds(FilenameEdit.Left,ParametersLabel.Top+2,FilenameEdit.Width,
|
|
FilenameEdit.Height);
|
|
end;
|
|
|
|
with WorkingDirLabel do begin
|
|
SetBounds(ParametersLabel.Left,
|
|
ParametersLabel.Top+ParametersLabel.Height+10,ParametersLabel.Width,
|
|
ParametersLabel.Height);
|
|
end;
|
|
|
|
with WorkingDirEdit do begin
|
|
SetBounds(ParametersEdit.Left,WorkingDirLabel.Top+2,ParametersEdit.Width,
|
|
ParametersEdit.Height);
|
|
end;
|
|
|
|
with OptionsGroupBox do begin
|
|
Left:=5;
|
|
Top:=WorkingDirLabel.Top+WorkingDirLabel.Height+12;
|
|
Width:=Self.ClientWidth-Left-Left;
|
|
Height:=66;
|
|
end;
|
|
|
|
with OptionScanOutputForFPCMessagesCheckBox do begin
|
|
SetBounds(5,2,400,20);
|
|
end;
|
|
|
|
with OptionScanOutputForMakeMessagesCheckBox do begin
|
|
SetBounds(5,OptionScanOutputForFPCMessagesCheckBox.Top
|
|
+OptionScanOutputForFPCMessagesCheckBox.Height+4,400,20);
|
|
end;
|
|
|
|
with KeyGroupBox do begin
|
|
Left:=5;
|
|
Top:=OptionsGroupBox.Top+OptionsGroupBox.Height+12;
|
|
Width:=Self.ClientWidth-Left-Left;
|
|
Height:=50;
|
|
end;
|
|
|
|
with KeyCtrlCheckBox do begin
|
|
Left:=5;
|
|
Top:=2;
|
|
Width:=45;
|
|
Height:=20;
|
|
end;
|
|
|
|
with KeyAltCheckBox do begin
|
|
Left:=KeyCtrlCheckBox.Left+KeyCtrlCheckBox.Width+5;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Height:=20;
|
|
Width:=KeyCtrlCheckBox.Width;
|
|
end;
|
|
|
|
with KeyShiftCheckBox do begin
|
|
Left:=KeyAltCheckBox.Left+KeyAltCheckBox.Width+5;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Height:=20;
|
|
Width:=KeyCtrlCheckBox.Width;
|
|
end;
|
|
|
|
with KeyComboBox do begin
|
|
Left:=KeyShiftCheckBox.Left+KeyShiftCheckBox.Width+5;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Width:=190;
|
|
end;
|
|
|
|
with KeyGrabButton do begin
|
|
Left:=KeyComboBox.Left+KeyComboBox.Width+5;
|
|
Top:=KeyCtrlCheckBox.Top;
|
|
Width:=100;
|
|
Height:=25;
|
|
end;
|
|
|
|
with MacrosGroupbox do begin
|
|
Left:=KeyGroupBox.Left;
|
|
Top:=KeyGroupBox.Top+KeyGroupBox.Height+10;
|
|
Width:=KeyGroupBox.Width;
|
|
Height:=Self.ClientHeight-50-Top;
|
|
end;
|
|
|
|
with OkButton do begin
|
|
SetBounds(270,Self.ClientHeight-40,100,25);
|
|
end;
|
|
|
|
with CancelButton do begin
|
|
SetBounds(390,OkButton.Top,100,25);
|
|
end;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.MacrosGroupboxResize(Sender: TObject);
|
|
begin
|
|
with MacrosInsertButton do begin
|
|
SetBounds(MacrosGroupbox.ClientWidth-75,5,70,MacrosInsertButton.Height);
|
|
end;
|
|
|
|
with MacrosListbox do begin
|
|
SetBounds(2,2,MacrosInsertButton.Left-5,
|
|
MacrosGroupbox.ClientHeight-4);
|
|
end;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.KeyGrabButtonClick(Sender: TObject);
|
|
begin
|
|
ActivateGrabbing(1);
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.SetOptions(TheOptions: TExternalToolOptions);
|
|
begin
|
|
if fOptions=TheOptions then exit;
|
|
fOptions.Assign(TheOptions);
|
|
LoadFromOptions;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.SetTransferMacros(
|
|
TransferMacroList: TTransferMacroList);
|
|
begin
|
|
if fTransferMacros=TransferMacroList then exit;
|
|
fTransferMacros:=TransferMacroList;
|
|
if MacrosListbox=nil then exit;
|
|
FillMacroList;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.FillMacroList;
|
|
var i: integer;
|
|
begin
|
|
MacrosListbox.Items.BeginUpdate;
|
|
MacrosListbox.Items.Clear;
|
|
if fTransferMacros<>nil then begin
|
|
for i:=0 to fTransferMacros.Count-1 do begin
|
|
if fTransferMacros[i].MacroFunction=nil then begin
|
|
MacrosListbox.Items.Add('$('+fTransferMacros[i].Name+') - '
|
|
+fTransferMacros[i].Description);
|
|
end else begin
|
|
MacrosListbox.Items.Add('$'+fTransferMacros[i].Name+'() - '
|
|
+fTransferMacros[i].Description);
|
|
end;
|
|
end;
|
|
end;
|
|
MacrosListbox.Items.EndUpdate;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.SetComboBox(
|
|
AComboBox: TComboBox; const AValue: string);
|
|
var i: integer;
|
|
begin
|
|
i:=AComboBox.Items.IndexOf(AValue);
|
|
if i>=0 then
|
|
AComboBox.ItemIndex:=i
|
|
else begin
|
|
AComboBox.Items.Add(AValue);
|
|
AComboBox.ItemIndex:=AComboBox.Items.IndexOf(AValue);
|
|
end;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.DeactivateGrabbing;
|
|
var i: integer;
|
|
begin
|
|
if GrabbingKey=0 then exit;
|
|
// enable all components
|
|
for i:=0 to ComponentCount-1 do begin
|
|
if (Components[i] is TWinControl) then
|
|
TWinControl(Components[i]).Enabled:=true;
|
|
end;
|
|
if GrabbingKey=1 then
|
|
KeyGrabButton.Caption:=srkmGrabKey;
|
|
GrabbingKey:=0;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.ActivateGrabbing(AGrabbingKey: integer);
|
|
var i: integer;
|
|
begin
|
|
if GrabbingKey>0 then exit;
|
|
GrabbingKey:=AGrabbingKey;
|
|
if GrabbingKey=0 then exit;
|
|
// disable all components
|
|
for i:=0 to ComponentCount-1 do begin
|
|
if (Components[i] is TWinControl) then begin
|
|
if ((GrabbingKey=1) and (Components[i]<>KeyGrabButton)
|
|
and (Components[i]<>KeyGroupBox)) then
|
|
TWinControl(Components[i]).Enabled:=false;
|
|
end;
|
|
end;
|
|
if GrabbingKey=1 then
|
|
KeyGrabButton.Caption:=srkmPressKey
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.FormKeyUp(Sender: TObject; var Key: Word;
|
|
Shift:TShiftState);
|
|
begin
|
|
//writeln('TExternalToolOptionDlg.FormKeyUp Sender=',Classname
|
|
// ,' Key=',Key,' Ctrl=',ssCtrl in Shift,' Shift=',ssShift in Shift
|
|
// ,' Alt=',ssAlt in Shift,' AsString=',KeyAndShiftStateToStr(Key,Shift)
|
|
// );
|
|
if Key in [VK_CONTROL, VK_SHIFT, VK_LCONTROL, VK_RCONTROl,
|
|
VK_LSHIFT, VK_RSHIFT] then exit;
|
|
if (GrabbingKey in [1]) then begin
|
|
if GrabbingKey=1 then begin
|
|
KeyCtrlCheckBox.Checked:=(ssCtrl in Shift);
|
|
KeyShiftCheckBox.Checked:=(ssShift in Shift);
|
|
KeyAltCheckBox.Checked:=(ssAlt in Shift);
|
|
SetComboBox(KeyComboBox,KeyAndShiftStateToEditorKeyString(Key,[]));
|
|
end;
|
|
DeactivateGrabbing;
|
|
end;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.MacrosInsertButtonClick(Sender: TObject);
|
|
var i: integer;
|
|
s: string;
|
|
begin
|
|
i:=MacrosListbox.ItemIndex;
|
|
if i<0 then exit;
|
|
if fTransferMacros[i].MacroFunction=nil then
|
|
s:='$('+fTransferMacros[i].Name+')'
|
|
else
|
|
s:='$'+fTransferMacros[i].Name+'()';
|
|
ParametersEdit.Text:=ParametersEdit.Text+s;
|
|
end;
|
|
|
|
procedure TExternalToolOptionDlg.MacrosListboxClick(Sender: TObject);
|
|
begin
|
|
MacrosInsertButton.Enabled:=(MacrosListbox.ItemIndex>=0);
|
|
end;
|
|
|
|
end.
|