Show dlgCommandLine.pas syntax highlighted
unit dlgCommandLine;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, SynEdit, StdCtrls, ExtCtrls, Buttons, TB2Item, TBX, TBXExtItems,
Menus, TBXDkPanels;
type
TCommandLineDlg = class(TForm)
Panel1: TPanel;
Label1: TLabel;
SynParameters: TSynEdit;
Label3: TLabel;
OKButton: TBitBtn;
BitBtn2: TBitBtn;
HelpButton: TBitBtn;
cbUseCommandLine: TCheckBox;
TBXButton1: TTBXButton;
TBXPopupHistory: TTBXPopupMenu;
PopupHistoryItem: TTBXMRUListItem;
EmptyHistoryPopupItem: TTBXItem;
procedure btnHelpClick(Sender: TObject);
procedure FormDestroy(Sender: TObject);
procedure SynParametersEnter(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure OKButtonClick(Sender: TObject);
procedure TBXPopupHistoryPopup(Sender: TObject);
private
{ Private declarations }
procedure CommandLineMRUClick(Sender: TObject; const Filename: string);
public
{ Public declarations }
end;
implementation
uses dmCommands;
{$R *.dfm}
procedure TCommandLineDlg.SynParametersEnter(Sender: TObject);
begin
CommandsDataModule.ParameterCompletion.Editor := SynParameters;
CommandsDataModule.ModifierCompletion.Editor := SynParameters;
end;
procedure TCommandLineDlg.TBXPopupHistoryPopup(Sender: TObject);
begin
if PopupHistoryItem.MRUList.Items.Count > 0 then
EmptyHistoryPopupItem.Visible := False;
end;
procedure TCommandLineDlg.FormCreate(Sender: TObject);
begin
PopupHistoryItem.MRUList.OnClick := CommandLineMRUClick;
end;
procedure TCommandLineDlg.FormDestroy(Sender: TObject);
begin
CommandsDataModule.ParameterCompletion.Editor := nil;
CommandsDataModule.ModifierCompletion.Editor := nil;
PopupHistoryItem.MRUList.OnClick := nil;
end;
procedure TCommandLineDlg.OKButtonClick(Sender: TObject);
begin
if (SynParameters.Text <> '') and cbUseCommandLine.Checked then
CommandsDataModule.CommandLineMRU.Add(SynParameters.Text);
end;
procedure TCommandLineDlg.btnHelpClick(Sender: TObject);
begin
Application.HelpContext(HelpContext);
end;
procedure TCommandLineDlg.CommandLineMRUClick(Sender: TObject;
const Filename: string);
begin
SynParameters.Text := Filename;
SynParameters.SetFocus;
end;
end.
See more files for this project here