1016 lines
34 KiB
ObjectPascal
Executable File
1016 lines
34 KiB
ObjectPascal
Executable File
unit UnitfrmSettings;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Windows, Messages, Classes, Graphics, Controls,
|
|
StdCtrls, ExtCtrls, Forms, JvExControls, JvComponent, JvPageList,
|
|
ComCtrls, JvExComCtrls, JvPageListTreeView, TBXDkPanels, SpTBXDkPanels,
|
|
SpTBXEditors, IniFiles, TFlatButtonUnit, TFlatEditUnit, TFlatCheckBoxUnit,
|
|
TFlatListBoxUnit, TFlatComboBoxUnit, mbXPFontCombo, ScintillaLanguageManager,
|
|
SciKeyBindings, menus, TFlatTabControlUnit, TFlatMemoUnit,
|
|
TFlatRadioButtonUnit, sciLexer, sciLexerMod, sciLexerMemo, Dialogs,
|
|
FileCtrl, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
|
|
IdFTP, IdException, ImgList, JvxSlider;
|
|
|
|
type
|
|
TfrmSettings = class(TForm)
|
|
trvSettings: TJvSettingsTreeView;
|
|
jplSettings: TJvPageList;
|
|
jspHighlighter: TJvStandardPage;
|
|
jspTools: TJvStandardPage;
|
|
jspShortcuts: TJvStandardPage;
|
|
jspCompiler: TJvStandardPage;
|
|
jspFTP: TJvStandardPage;
|
|
jspPlugIns: TJvStandardPage;
|
|
jspMisc: TJvStandardPage;
|
|
jspCodeSnippets: TJvStandardPage;
|
|
lblCurrSetting: TLabel;
|
|
pnlControls: TPanel;
|
|
bvlControls: TBevel;
|
|
cmdOK: TFlatButton;
|
|
cmdCancel: TFlatButton;
|
|
lblStyles: TLabel;
|
|
cboLanguage: TFlatComboBox;
|
|
lblLanguage: TLabel;
|
|
pnlHighlighter: TPanel;
|
|
lblProperties: TLabel;
|
|
cboFont: TmbXPFontCombo;
|
|
lblFont: TLabel;
|
|
chkBold: TFlatCheckBox;
|
|
chkItalic: TFlatCheckBox;
|
|
chkUnderlined: TFlatCheckBox;
|
|
chkVisible: TFlatCheckBox;
|
|
pnlColors: TPanel;
|
|
cmdSelectBackground: TFlatButton;
|
|
imgBackground: TImage;
|
|
lblBackground: TLabel;
|
|
cmdSelectForeground: TFlatButton;
|
|
imgForeground: TImage;
|
|
lblForeground: TLabel;
|
|
lblFontSize: TLabel;
|
|
txtFontSize: TFlatEdit;
|
|
chkUseDefaultFont: TFlatCheckBox;
|
|
cmdReset: TFlatButton;
|
|
pnlDefaultNewPluginValues: TPanel;
|
|
lblDefaultInfo: TLabel;
|
|
lblDefaultAuthor: TLabel;
|
|
txtDefaultAuthor: TFlatEdit;
|
|
lblDefaultVersion: TLabel;
|
|
lblDefaultName: TLabel;
|
|
txtDefaultName: TFlatEdit;
|
|
txtDefaultVersion: TFlatEdit;
|
|
shpStyles: TShape;
|
|
lstStyles: TListBox;
|
|
chkHighlightBraces: TFlatCheckBox;
|
|
chkAutoCloseBraces: TFlatCheckBox;
|
|
chkAutoCloseQuotes: TFlatCheckBox;
|
|
chkClearUndoAfterSave: TFlatCheckBox;
|
|
bvlTools1: TBevel;
|
|
chkWordWrap: TFlatCheckBox;
|
|
lblCodeFolding: TLabel;
|
|
pnlCodeFolding: TPanel;
|
|
cboCodeFolding: TFlatComboBox;
|
|
lblCodeFoldingStyle: TLabel;
|
|
lvShortcuts: TListView;
|
|
cmdApply: TFlatButton;
|
|
shpShortcuts: TShape;
|
|
ftcCodeSnippets: TFlatTabControl;
|
|
shpCodeSnippets: TShape;
|
|
shpCodeSnippet: TShape;
|
|
lstCodeSnippets: TListBox;
|
|
txtCodeSnippet: TMemo;
|
|
cmdCSAdd: TFlatButton;
|
|
cmdCSRemove: TFlatButton;
|
|
chkShowStatusbar: TFlatCheckBox;
|
|
lblCaret: TLabel;
|
|
pnlCaret: TPanel;
|
|
cmdSelectCaretFore: TFlatButton;
|
|
imgCaretFore: TImage;
|
|
lblSelectCaretFore: TLabel;
|
|
cmdSelectCaretBack: TFlatButton;
|
|
imgCaretBack: TImage;
|
|
lblSelectCaretBack: TLabel;
|
|
bvlCaret1: TBevel;
|
|
chkShowCaret: TFlatCheckBox;
|
|
lblCaretPeriod: TLabel;
|
|
txtPeriod: TFlatEdit;
|
|
pnlNotes: TPanel;
|
|
lblSaveNotesTo: TLabel;
|
|
optFileComment: TFlatRadioButton;
|
|
optConfig: TFlatRadioButton;
|
|
shpPlugins: TShape;
|
|
lvPlugins: TListView;
|
|
cmdReload: TFlatButton;
|
|
cmdLoad: TFlatButton;
|
|
cmdUnload: TFlatButton;
|
|
cmdRemove: TFlatButton;
|
|
chkRestoreCaret: TFlatCheckBox;
|
|
txtLines: TFlatEdit;
|
|
bvlCaret2: TBevel;
|
|
optDontSave: TFlatRadioButton;
|
|
lblPAWN: TLabel;
|
|
pnlSMALLCompiler: TPanel;
|
|
lblCPPCompiler: TLabel;
|
|
pnlCPPCompiler: TPanel;
|
|
lblPAWNCompilerPath: TLabel;
|
|
txtPAWNCompilerPath: TFlatEdit;
|
|
cmdBrowsePAWNCompiler: TFlatButton;
|
|
txtCPPCompilerPath: TFlatEdit;
|
|
lblCPPCompilerPath: TLabel;
|
|
cmdBrowseCPPCompiler: TFlatButton;
|
|
lblCPPHint: TLabel;
|
|
lblCPPCompilerArgs: TLabel;
|
|
txtCPPCompilerArguments: TFlatEdit;
|
|
txtCPPOutput: TFlatEdit;
|
|
lblCPPOutput: TLabel;
|
|
txtPAWNOutput: TFlatEdit;
|
|
txtPAWNArgs: TFlatEdit;
|
|
lblPAWNArgs: TLabel;
|
|
lblSPAWNOutput: TLabel;
|
|
cmdBrowseOutputPAWN: TFlatButton;
|
|
cmdBrowseOutputCPP: TFlatButton;
|
|
pnlFTPData: TPanel;
|
|
lblFTPData: TLabel;
|
|
chkPassive: TFlatCheckBox;
|
|
txtHost: TFlatEdit;
|
|
lblHost: TLabel;
|
|
txtPort: TFlatEdit;
|
|
txtUsername: TFlatEdit;
|
|
txtPassword: TFlatEdit;
|
|
lblPassword: TLabel;
|
|
lblUsername: TLabel;
|
|
lblPort: TLabel;
|
|
pnlDefaultPath: TPanel;
|
|
pnlDirectory: TPanel;
|
|
trvDirectories: TTreeView;
|
|
txtDefaultDir: TFlatEdit;
|
|
cmdConnect: TFlatButton;
|
|
lblDefaultDir: TLabel;
|
|
lblDefaultDirectory: TLabel;
|
|
odBrowse: TOpenDialog;
|
|
ilImages: TImageList;
|
|
jspProxy: TJvStandardPage;
|
|
pnlProxy: TPanel;
|
|
txtProxyPassword: TFlatEdit;
|
|
txtProxyUsername: TFlatEdit;
|
|
lblProxyPassword: TLabel;
|
|
lblProxyUsername: TLabel;
|
|
txtProxyHost: TFlatEdit;
|
|
txtProxyPort: TFlatEdit;
|
|
lblProxyPort: TLabel;
|
|
lblProxyHost: TLabel;
|
|
cboProxy: TFlatComboBox;
|
|
lblProxy: TLabel;
|
|
pnlPCSpeed: TPanel;
|
|
lblCPUSpeed: TLabel;
|
|
sldSpeed: TJvxSlider;
|
|
lblSlow: TLabel;
|
|
lblAverage: TLabel;
|
|
lblFast: TLabel;
|
|
jspHalfLife: TJvStandardPage;
|
|
pnlHLExecutable: TPanel;
|
|
lblHLExec: TLabel;
|
|
txtHLExec: TFlatEdit;
|
|
cmdBrowseHL: TFlatButton;
|
|
lblCustomParameters: TLabel;
|
|
txtCustomParameters: TFlatEdit;
|
|
chkIndentGuides: TFlatCheckBox;
|
|
lblAutoIndent: TLabel;
|
|
pnlAutoIndent: TPanel;
|
|
chkAutoIndent: TFlatCheckBox;
|
|
cmdAdvancedAutoIndent: TFlatButton;
|
|
txtAMXXDir: TFlatEdit;
|
|
lblAMXXDir: TLabel;
|
|
cmdBrowseAMXXDir: TFlatButton;
|
|
cmdResetShortcuts: TFlatButton;
|
|
txtShortcut: TFlatEdit;
|
|
procedure jplSettingsChange(Sender: TObject);
|
|
procedure txtLinesChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure chkRestoreCaretClick(Sender: TObject);
|
|
procedure txtFontSizeChange(Sender: TObject);
|
|
procedure cboLanguageChange(Sender: TObject);
|
|
procedure chkUseDefaultFontClick(Sender: TObject);
|
|
procedure cboFontChange(Sender: TObject);
|
|
procedure chkBoldClick(Sender: TObject);
|
|
procedure chkItalicClick(Sender: TObject);
|
|
procedure chkUnderlinedClick(Sender: TObject);
|
|
procedure chkVisibleClick(Sender: TObject);
|
|
procedure cmdResetClick(Sender: TObject);
|
|
procedure lstStylesClick(Sender: TObject);
|
|
procedure lvShortcutsClick(Sender: TObject);
|
|
procedure trvSettingsChanging(Sender: TObject; Node: TTreeNode;
|
|
var AllowChange: Boolean);
|
|
procedure txtPeriodChange(Sender: TObject);
|
|
procedure txtPortChange(Sender: TObject);
|
|
procedure lvShortcutsSelectItem(Sender: TObject; Item: TListItem;
|
|
Selected: Boolean);
|
|
procedure cmdApplyClick(Sender: TObject);
|
|
procedure cmdSelectForegroundClick(Sender: TObject);
|
|
procedure cmdSelectBackgroundClick(Sender: TObject);
|
|
procedure cmdSelectCaretForeClick(Sender: TObject);
|
|
procedure cmdSelectCaretBackClick(Sender: TObject);
|
|
procedure cmdBrowsePAWNCompilerClick(Sender: TObject);
|
|
procedure cmdBrowseCPPCompilerClick(Sender: TObject);
|
|
procedure cmdBrowseOutputPAWNClick(Sender: TObject);
|
|
procedure cmdBrowseOutputCPPClick(Sender: TObject);
|
|
procedure txtPAWNOutputExit(Sender: TObject);
|
|
procedure txtCPPOutputChange(Sender: TObject);
|
|
procedure cmdCSAddClick(Sender: TObject);
|
|
procedure cmdCSRemoveClick(Sender: TObject);
|
|
procedure lstCodeSnippetsClick(Sender: TObject);
|
|
procedure ftcCodeSnippetsTabChanged(Sender: TObject);
|
|
procedure txtCodeSnippetKeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure cmdConnectClick(Sender: TObject);
|
|
procedure trvDirectoriesExpanded(Sender: TObject; Node: TTreeNode);
|
|
procedure trvDirectoriesChange(Sender: TObject; Node: TTreeNode);
|
|
procedure trvDirectoriesExpanding(Sender: TObject; Node: TTreeNode;
|
|
var AllowExpansion: Boolean);
|
|
procedure trvDirectoriesCollapsing(Sender: TObject; Node: TTreeNode;
|
|
var AllowCollapse: Boolean);
|
|
procedure cboProxyChange(Sender: TObject);
|
|
procedure txtProxyPortChange(Sender: TObject);
|
|
procedure jplSettingsChanging(Sender: TObject; PageIndex: Integer;
|
|
var AllowChange: Boolean);
|
|
procedure txtProxyHostChange(Sender: TObject);
|
|
procedure cmdBrowseHLClick(Sender: TObject);
|
|
procedure cmdAdvancedAutoIndentClick(Sender: TObject);
|
|
procedure cmdReloadClick(Sender: TObject);
|
|
procedure cmdUnloadClick(Sender: TObject);
|
|
procedure cmdLoadClick(Sender: TObject);
|
|
procedure cmdRemoveClick(Sender: TObject);
|
|
procedure cmdBrowseAMXXDirClick(Sender: TObject);
|
|
procedure txtShortcutKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure txtShortcutKeyPress(Sender: TObject; var Key: Char);
|
|
procedure cmdResetShortcutsClick(Sender: TObject);
|
|
procedure txtShortcutKeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
public
|
|
Foreground, Background: TColor;
|
|
CaretFore, CaretBack: TColor;
|
|
procedure UpdateItemIndex;
|
|
procedure PaintForeground(eColor: TColor);
|
|
procedure PaintBackground(eColor: TColor);
|
|
procedure PaintCaretFore(eColor: TColor);
|
|
procedure PaintCaretBack(eColor: TColor);
|
|
procedure EnableControls(eEnable: Boolean); // For Proxy
|
|
end;
|
|
|
|
var
|
|
frmSettings: TfrmSettings;
|
|
eConfig: TIniFile;
|
|
|
|
implementation
|
|
|
|
uses UnitMainTools, UnitfrmMain, UnitfrmSelectColor, UnitLanguages,
|
|
UnitCodeSnippets, UnitfrmAutoIndent, UnitPlugins;
|
|
|
|
{$R *.DFM}
|
|
|
|
procedure TfrmSettings.jplSettingsChange(Sender: TObject);
|
|
begin
|
|
if not Started then exit;
|
|
|
|
if Assigned(trvSettings.Selected.Parent) then
|
|
lblCurrSetting.Caption := trvSettings.Selected.Parent.Text + ' - ' + (jplSettings.ActivePage as TJvStandardPage).Caption
|
|
else
|
|
lblCurrSetting.Caption := (jplSettings.ActivePage as TJvStandardPage).Caption;
|
|
|
|
txtPAWNOutputExit(Sender);
|
|
txtCPPOutputChange(Sender);
|
|
end;
|
|
|
|
procedure TfrmSettings.txtLinesChange(Sender: TObject);
|
|
begin
|
|
if not IsNumeric(txtLines.Text) then
|
|
txtLines.Text := '600';
|
|
end;
|
|
|
|
procedure TfrmSettings.FormCreate(Sender: TObject);
|
|
begin
|
|
eConfig := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config\Settings.ini');
|
|
ReloadIni;
|
|
case eConfig.ReadInteger('Misc', 'WindowState', 0) of
|
|
0: frmMain.WindowState := wsNormal;
|
|
1: frmMain.WindowState := wsMaximized;
|
|
2: frmMain.WindowState := wsMinimized;
|
|
end;
|
|
|
|
PaintForeground(clBlack);
|
|
PaintBackground(clBlack);
|
|
PaintCaretFore(clBlack);
|
|
PaintCaretBack(clBlack);
|
|
end;
|
|
|
|
procedure TfrmSettings.FormDestroy(Sender: TObject);
|
|
begin
|
|
case frmMain.WindowState of
|
|
wsNormal : eConfig.WriteInteger('Misc', 'WindowState', 0);
|
|
wsMaximized: eConfig.WriteInteger('Misc', 'WindowState', 1);
|
|
else eConfig.WriteInteger('Misc', 'WindowState', 2);
|
|
end;
|
|
|
|
if frmMain.IdFTP.Connected then
|
|
frmMain.IdFTP.Disconnect;
|
|
|
|
eConfig.Free;
|
|
end;
|
|
|
|
procedure TfrmSettings.FormShow(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
txtLines.Enabled := chkRestoreCaret.Checked;
|
|
cboLanguage.OnChange(Self);
|
|
for i := 0 to trvSettings.Items.Count -1 do
|
|
trvSettings.Items[i].Expand(True);
|
|
end;
|
|
|
|
procedure TfrmSettings.chkRestoreCaretClick(Sender: TObject);
|
|
begin
|
|
txtLines.Enabled := chkRestoreCaret.Checked;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtFontSizeChange(Sender: TObject);
|
|
begin
|
|
if not IsNumeric(txtFontSize.Text) then begin
|
|
txtFontSize.Text := '0';
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontSize := 0;
|
|
end
|
|
else
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontSize := StrToInt(txtFontSize.Text);
|
|
end;
|
|
|
|
{ For Highlighter Section }
|
|
|
|
procedure TfrmSettings.PaintBackground(eColor: TColor);
|
|
begin
|
|
imgBackground.Canvas.Pen.Color := $008396A0;
|
|
imgBackground.Canvas.Brush.Color := eColor;
|
|
imgBackground.Canvas.Rectangle(0, 0, 19, 19);
|
|
end;
|
|
|
|
procedure TfrmSettings.PaintForeground(eColor: TColor);
|
|
begin
|
|
imgForeground.Canvas.Pen.Color := $008396A0;
|
|
imgForeground.Canvas.Brush.Color := eColor;
|
|
imgForeground.Canvas.Rectangle(0, 0, 19, 19);
|
|
end;
|
|
|
|
procedure TfrmSettings.cboLanguageChange(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
lstStyles.Items.Clear;
|
|
for i := 0 to TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Count -1 do
|
|
lstStyles.Items.Add(TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[i]).Name);
|
|
|
|
if lstStyles.Items.Count > 0 then
|
|
lstStyles.ItemIndex := 0;
|
|
cboFont.Enabled := lstStyles.Items.Count <> 0;
|
|
chkUseDefaultFont.Enabled := lstStyles.Items.Count <> 0;
|
|
chkBold.Enabled := lstStyles.Items.Count <> 0;
|
|
chkItalic.Enabled := lstStyles.Items.Count <> 0;
|
|
chkUnderlined.Enabled := lstStyles.Items.Count <> 0;
|
|
chkVisible.Enabled := lstStyles.Items.Count <> 0;
|
|
cmdSelectForeground.Enabled := lstStyles.Items.Count <> 0;
|
|
cmdSelectBackground.Enabled := lstStyles.Items.Count <> 0;
|
|
|
|
UpdateItemIndex;
|
|
end;
|
|
|
|
procedure TfrmSettings.chkUseDefaultFontClick(Sender: TObject);
|
|
begin
|
|
cboFont.Enabled := not chkUseDefaultFont.Checked;
|
|
if chkUseDefaultFont.Checked then
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := ''
|
|
else
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Selected;
|
|
end;
|
|
|
|
procedure TfrmSettings.cboFontChange(Sender: TObject);
|
|
begin
|
|
if (not chkUseDefaultFont.Checked) then
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontName := cboFont.Selected;
|
|
end;
|
|
|
|
procedure TfrmSettings.chkBoldClick(Sender: TObject);
|
|
begin
|
|
if chkBold.Checked then
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles + [fsBold]
|
|
else
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles - [fsBold];
|
|
end;
|
|
|
|
procedure TfrmSettings.chkItalicClick(Sender: TObject);
|
|
begin
|
|
if chkItalic.Checked then
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles + [fsItalic]
|
|
else
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles - [fsItalic];
|
|
end;
|
|
|
|
procedure TfrmSettings.chkUnderlinedClick(Sender: TObject);
|
|
begin
|
|
if chkUnderlined.Checked then
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles + [fsUnderline]
|
|
else
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles := TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontStyles - [fsUnderline];
|
|
end;
|
|
|
|
procedure TfrmSettings.chkVisibleClick(Sender: TObject);
|
|
begin
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).Visible := chkVisible.Checked;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdResetClick(Sender: TObject);
|
|
begin
|
|
if MessageBox(Handle, PChar(lWarnHighlighterReset), 'AMXX-Studio', MB_ICONWARNING + MB_YESNO) = mrYes then begin
|
|
DeleteFile(PChar(ExtractFilePath(ParamStr(0)) + 'config\Editor.sci'));
|
|
cmdReset.Enabled := False;
|
|
cboLanguage.Enabled := False;
|
|
lstStyles.Enabled := False;
|
|
lblFont.Enabled := False;
|
|
cboFont.Enabled := False;
|
|
chkUseDefaultFont.Enabled := False;
|
|
chkBold.Enabled := False;
|
|
chkItalic.Enabled := False;
|
|
chkUnderlined.Enabled := False;
|
|
chkVisible.Enabled := False;
|
|
lblFontSize.Enabled := False;
|
|
txtFontSize.Enabled := False;
|
|
lblForeground.Enabled := False;
|
|
cmdSelectForeground.Enabled := False;
|
|
lblBackground.Enabled := False;
|
|
cmdSelectBackground.Enabled := False;
|
|
MessageBox(Handle, PChar(lHighlighterResetDone), 'AMXX-Studio', MB_ICONINFORMATION);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.UpdateItemIndex;
|
|
begin
|
|
lblFont.Enabled := lstStyles.ItemIndex <> -1;
|
|
cboFont.Enabled := lstStyles.ItemIndex <> -1;
|
|
chkUseDefaultFont.Enabled := lstStyles.ItemIndex <> -1;
|
|
chkBold.Enabled := lstStyles.ItemIndex <> -1;
|
|
chkItalic.Enabled := lstStyles.ItemIndex <> -1;
|
|
chkUnderlined.Enabled := lstStyles.ItemIndex <> -1;
|
|
chkVisible.Enabled := lstStyles.ItemIndex <> -1;
|
|
lblFontSize.Enabled := lstStyles.ItemIndex <> -1;
|
|
txtFontSize.Enabled := lstStyles.ItemIndex <> -1;
|
|
lblForeground.Enabled := lstStyles.ItemIndex <> -1;
|
|
cmdSelectForeground.Enabled := lstStyles.ItemIndex <> -1;
|
|
lblBackground.Enabled := lstStyles.ItemIndex <> -1;
|
|
cmdSelectBackground.Enabled := lstStyles.ItemIndex <> -1;
|
|
|
|
if lstStyles.ItemIndex <> -1 then begin
|
|
with TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]) do begin
|
|
chkUseDefaultFont.Checked := FontName = '';
|
|
if FontName <> '' then
|
|
cboFont.Selected := FontName;
|
|
cboFont.Enabled := FontName <> '';
|
|
chkBold.Checked := fsBold in FontStyles;
|
|
chkItalic.Checked := fsItalic in FontStyles;
|
|
chkUnderlined.Checked := fsUnderline in FontStyles;
|
|
chkVisible.Checked := Visible;
|
|
txtFontSize.Text := IntToStr(TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).FontSize);
|
|
|
|
PaintForeground(ForeColor);
|
|
PaintBackground(BackColor);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.lstStylesClick(Sender: TObject);
|
|
begin
|
|
UpdateItemIndex;
|
|
end;
|
|
|
|
procedure TfrmSettings.lvShortcutsClick(Sender: TObject);
|
|
begin
|
|
cmdApply.Enabled := Assigned(lvShortcuts.Selected);
|
|
txtShortcut.Enabled := cmdApply.Enabled;
|
|
if cmdApply.Enabled then
|
|
txtShortcut.Text := lvShortcuts.Selected.Subitems[0];
|
|
end;
|
|
|
|
procedure TfrmSettings.trvSettingsChanging(Sender: TObject;
|
|
Node: TTreeNode; var AllowChange: Boolean);
|
|
begin
|
|
if (not Started) then exit;
|
|
|
|
if (Assigned(Node.Parent)) and (not cmdReset.Enabled) then
|
|
AllowChange := Node.Parent.Index <> 0
|
|
else
|
|
AllowChange := True;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtPeriodChange(Sender: TObject);
|
|
begin
|
|
if not IsNumeric(txtPeriod.Text) then
|
|
txtPeriod.Text := '1024';
|
|
end;
|
|
|
|
procedure TfrmSettings.txtPortChange(Sender: TObject);
|
|
begin
|
|
if not IsNumeric(txtPort.Text) then
|
|
txtPort.Text := '21';
|
|
end;
|
|
|
|
procedure TfrmSettings.PaintCaretBack(eColor: TColor);
|
|
begin
|
|
imgCaretBack.Canvas.Pen.Color := $008396A0;
|
|
imgCaretBack.Canvas.Brush.Color := eColor;
|
|
imgCaretBack.Canvas.Rectangle(0, 0, 19, 19);
|
|
end;
|
|
|
|
procedure TfrmSettings.PaintCaretFore(eColor: TColor);
|
|
begin
|
|
imgCaretFore.Canvas.Pen.Color := $008396A0;
|
|
imgCaretFore.Canvas.Brush.Color := eColor;
|
|
imgCaretFore.Canvas.Rectangle(0, 0, 19, 19);
|
|
end;
|
|
|
|
procedure TfrmSettings.lvShortcutsSelectItem(Sender: TObject;
|
|
Item: TListItem; Selected: Boolean);
|
|
begin
|
|
lvShortcuts.OnClick(Sender);
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdApplyClick(Sender: TObject);
|
|
begin
|
|
if Assigned(lvShortcuts.Selected) then
|
|
lvShortcuts.Selected.SubItems[0] := txtShortcut.Text;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdSelectForegroundClick(Sender: TObject);
|
|
begin
|
|
if ShowColorDialog(Foreground, imgForeground) then
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).ForeColor := Foreground;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdSelectBackgroundClick(Sender: TObject);
|
|
begin
|
|
if ShowColorDialog(Background, imgBackground) then
|
|
TSciStyle(TSciLangItem(frmMain.sciEditor.LanguageManager.LanguageList.Items[cboLanguage.ItemIndex]).Styles.Items[lstStyles.ItemIndex]).BackColor := Background;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdSelectCaretForeClick(Sender: TObject);
|
|
begin
|
|
ShowColorDialog(CaretFore, imgCaretFore);
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdSelectCaretBackClick(Sender: TObject);
|
|
begin
|
|
ShowColorDialog(CaretBack, imgCaretBack);
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowsePAWNCompilerClick(Sender: TObject);
|
|
begin
|
|
if odBrowse.Execute then
|
|
txtPAWNCompilerPath.Text := odBrowse.FileName;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseCPPCompilerClick(Sender: TObject);
|
|
begin
|
|
if odBrowse.Execute then
|
|
txtCPPCompilerPath.Text := odBrowse.FileName;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseOutputPAWNClick(Sender: TObject);
|
|
var eDir: String;
|
|
begin
|
|
if SelectDirectory(lSelectOutputPAWN, txtPAWNOutput.Text, eDir) then
|
|
txtPAWNOutput.Text := eDir;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseOutputCPPClick(Sender: TObject);
|
|
var eDir: String;
|
|
begin
|
|
if SelectDirectory(lSelectOutputCPP, txtCPPOutput.Text, eDir) then
|
|
txtCPPOutput.Text := eDir;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtPAWNOutputExit(Sender: TObject);
|
|
var eHDC: HDC;
|
|
eCanvas: TCanvas;
|
|
begin
|
|
if (txtPAWNOutput.Text = '') and (not txtPAWNOutput.Focused) then begin
|
|
eHDC := GetDC(txtPAWNOutput.Handle);
|
|
eCanvas := TCanvas.Create;
|
|
eCanvas.Handle := eHDC;
|
|
eCanvas.Font.Name := 'Tahoma';
|
|
eCanvas.Font.Color := clBtnShadow;
|
|
eCanvas.Font.Size := 7;
|
|
eCanvas.TextOut(1, 1, lDynamic);
|
|
eCanvas.Free;
|
|
txtPAWNOutput.Hint := lOutputHint;
|
|
end
|
|
else
|
|
txtPAWNOutput.Hint := '';
|
|
end;
|
|
|
|
procedure TfrmSettings.txtCPPOutputChange(Sender: TObject);
|
|
var eHDC: HDC;
|
|
eCanvas: TCanvas;
|
|
begin
|
|
if (txtCPPOutput.Text = '') and (not txtCPPOutput.Focused) then begin
|
|
eHDC := GetDC(txtCPPOutput.Handle);
|
|
eCanvas := TCanvas.Create;
|
|
eCanvas.Handle := eHDC;
|
|
eCanvas.Font.Name := 'Tahoma';
|
|
eCanvas.Font.Color := clBtnShadow;
|
|
eCanvas.Font.Size := 7;
|
|
eCanvas.TextOut(1, 1, lDynamic);
|
|
eCanvas.Free;
|
|
txtCPPOutput.Hint := lOutputHint;
|
|
end
|
|
else
|
|
txtCPPOutput.Hint := '';
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdCSAddClick(Sender: TObject);
|
|
var eStr: String;
|
|
begin
|
|
if InputQuery(lAddCodeSnippetCaption, lAddCodeSnippetPrompt, eStr) then begin
|
|
eStr := StringReplace(eStr, '=', '', [rfReplaceAll]);
|
|
if eStr = '' then begin
|
|
MessageBox(Handle, PChar(lEmptyCodeSnippetTitle), PChar(Application.Title), MB_ICONWARNING);
|
|
cmdCSAdd.Click;
|
|
end
|
|
else begin
|
|
if lstCodeSnippets.Items.IndexOf(eStr) = -1 then begin
|
|
lstCodeSnippets.ItemIndex := lstCodeSnippets.Items.Add(eStr);
|
|
AddSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], eStr, '');
|
|
txtCodeSnippet.Enabled := True;
|
|
lstCodeSnippetsClick(Sender);
|
|
end
|
|
else
|
|
MessageBox(Handle, PChar(lCodeSnippetExists), PChar(Application.Title), MB_ICONWARNING);
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdCSRemoveClick(Sender: TObject);
|
|
begin
|
|
if lstCodeSnippets.ItemIndex <> -1 then begin
|
|
DelSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], lstCodeSnippets.Items[lstCodeSnippets.ItemIndex]);
|
|
lstCodeSnippets.Items.Delete(lstCodeSnippets.ItemIndex);
|
|
if lstCodeSnippets.Items.Count > 0 then
|
|
lstCodeSnippets.ItemIndex := 0
|
|
else
|
|
txtCodeSnippet.Clear;
|
|
lstCodeSnippetsClick(Sender);
|
|
end;
|
|
cmdCSRemove.Enabled := lstCodeSnippets.ItemIndex <> -1;
|
|
txtCodeSnippet.Enabled := lstCodeSnippets.Items.Count > 0;
|
|
end;
|
|
|
|
procedure TfrmSettings.lstCodeSnippetsClick(Sender: TObject);
|
|
begin
|
|
cmdCSRemove.Enabled := lstCodeSnippets.ItemIndex <> -1;
|
|
if cmdCSRemove.Enabled then
|
|
txtCodeSnippet.Lines.Text := GetSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], lstCodeSnippets.Items[lstCodeSnippets.ItemIndex]);
|
|
end;
|
|
|
|
procedure TfrmSettings.ftcCodeSnippetsTabChanged(Sender: TObject);
|
|
begin
|
|
lstCodeSnippets.Items.Text := GetSnippetList(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab]).Text;
|
|
if lstCodeSnippets.Items.Count > 0 then
|
|
lstCodeSnippets.ItemIndex := 0
|
|
else
|
|
txtCodeSnippet.Clear;
|
|
lstCodeSnippetsClick(Sender);
|
|
txtCodeSnippet.Enabled := lstCodeSnippets.Items.Count > 0;
|
|
cmdCSRemove.Enabled := lstCodeSnippets.ItemIndex <> -1;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtCodeSnippetKeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
SetSnippet(ftcCodeSnippets.Tabs[ftcCodeSnippets.ActiveTab], lstCodeSnippets.Items[lstCodeSnippets.ItemIndex], txtCodeSnippet.Lines.Text);
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdConnectClick(Sender: TObject);
|
|
var i: integer;
|
|
eStr: TStringList;
|
|
CurNode: TTreeNode;
|
|
begin
|
|
{ The following functions are copied from my installer }
|
|
|
|
if (Trim(txtHost.Text) = '') or (Trim(txtUsername.Text) = '') or (Trim(txtPassword.Text) = '') then
|
|
MessageBox(Handle, PChar(lFillInEachField), PChar(Application.Title), MB_ICONWARNING)
|
|
else if cmdConnect.Caption = lConnect then begin
|
|
// ... design stuff ...
|
|
Screen.Cursor := crHourGlass;
|
|
cmdConnect.Enabled := False;
|
|
txtHost.Enabled := False;
|
|
txtPort.Enabled := False;
|
|
txtUsername.Enabled := False;
|
|
txtPassword.Enabled := False;
|
|
chkPassive.Enabled := False;
|
|
cmdConnect.Caption := lConnecting;
|
|
// ... disconnect if already connected ...
|
|
if frmMain.IdFTP.Connected then
|
|
frmMain.IdFTP.Disconnect;
|
|
// ... set values, connect and check errors etc ...
|
|
i := TryConnect;
|
|
case i of
|
|
1: begin
|
|
txtUsername.SetFocus;
|
|
txtUsername.SelectAll;
|
|
end;
|
|
2: begin
|
|
txtHost.SetFocus;
|
|
txtHost.SelectAll;
|
|
end;
|
|
3, 4: begin
|
|
txtPort.SetFocus;
|
|
txtPort.SelectAll;
|
|
end;
|
|
end;
|
|
|
|
if i <> 0 then begin
|
|
// reset button properties
|
|
cmdConnect.Enabled := True;
|
|
txtHost.Enabled := True;
|
|
txtPort.Enabled := True;
|
|
txtUsername.Enabled := True;
|
|
txtPassword.Enabled := True;
|
|
chkPassive.Enabled := True;
|
|
cmdConnect.Caption := lConnect;
|
|
Screen.Cursor := crDefault;
|
|
// ... connect failed, leave procedure ...
|
|
exit;
|
|
end;
|
|
// ... connect successful, change captions ...
|
|
trvDirectories.Enabled := True;
|
|
cmdConnect.Enabled := True;
|
|
cmdConnect.Caption := lDisconnect;
|
|
// ... scan for initial directory ...
|
|
eStr := TStringList.Create;
|
|
eStr.Text := StringReplace(frmMain.IdFTP.RetrieveCurrentDir, '/', #13, [rfReplaceAll]);
|
|
for i := eStr.Count -1 downto 0 do begin
|
|
if eStr[i] = '' then
|
|
eStr.Delete(i);
|
|
end;
|
|
|
|
CurNode := nil;
|
|
if eStr.Count <> 0 then begin
|
|
for i := 0 to eStr.Count -1 do
|
|
CurNode := trvDirectories.Items.AddChild(CurNode, eStr[i]);
|
|
end;
|
|
if trvDirectories.Items.Count <> 0 then
|
|
trvDirectories.Items.Item[0].Expand(True);
|
|
eStr.Destroy;
|
|
|
|
// ... scan for directories ...
|
|
with GetAllDirs do begin
|
|
for i := 0 to Count -1 do
|
|
trvDirectories.Items.AddChild(trvDirectories.Items.AddChild(CurNode, Strings[i]), 'Scanning...');
|
|
Free;
|
|
end;
|
|
|
|
if Assigned(CurNode) then
|
|
CurNode.Expand(False);
|
|
Screen.Cursor := crDefault;
|
|
end
|
|
else begin
|
|
Screen.Cursor := crHourGlass;
|
|
frmMain.IdFTP.Quit;
|
|
trvDirectories.Items.Clear;
|
|
cmdConnect.Enabled := True;
|
|
trvSettings.Enabled := True;
|
|
txtHost.Enabled := True;
|
|
txtPort.Enabled := True;
|
|
txtUsername.Enabled := True;
|
|
txtPassword.Enabled := True;
|
|
chkPassive.Enabled := True;
|
|
cmdConnect.Caption := lConnect;
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.trvDirectoriesExpanded(Sender: TObject;
|
|
Node: TTreeNode);
|
|
var ePath: String;
|
|
CurNode: TTreeNode;
|
|
i: integer;
|
|
begin
|
|
if Node.Item[0].Text = lScanning then begin // no directories have been added yet
|
|
Screen.Cursor := crHourGlass;
|
|
// get complete path
|
|
ePath := '/';
|
|
CurNode := Node;
|
|
repeat
|
|
ePath := '/' + CurNode.Text + ePath;
|
|
CurNode := CurNode.Parent;
|
|
until (not Assigned(CurNode));
|
|
// change dir and add directories in it
|
|
try
|
|
Repaint;
|
|
frmMain.IdFTP.ChangeDir(ePath);
|
|
with GetAllDirs do begin
|
|
Node.Item[0].Free;
|
|
for i := 0 to Count -1 do begin
|
|
trvDirectories.Items.AddChild(trvDirectories.Items.AddChild(Node, Strings[i]), lScanning);
|
|
end;
|
|
Free;
|
|
end;
|
|
finally
|
|
Application.ProcessMessages;
|
|
end;
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.trvDirectoriesChange(Sender: TObject;
|
|
Node: TTreeNode);
|
|
var ePath: String;
|
|
CurNode: TTreeNode;
|
|
begin
|
|
if Screen.Cursor <> crDefault then exit; // on disconnect this event is also raised
|
|
|
|
// get complete path
|
|
ePath := '/';
|
|
CurNode := Node;
|
|
repeat
|
|
ePath := '/' + CurNode.Text + ePath;
|
|
CurNode := CurNode.Parent;
|
|
until (not Assigned(CurNode));
|
|
// change path
|
|
txtDefaultDir.Text := ePath;
|
|
end;
|
|
|
|
procedure TfrmSettings.trvDirectoriesExpanding(Sender: TObject;
|
|
Node: TTreeNode; var AllowExpansion: Boolean);
|
|
begin
|
|
Node.ImageIndex := 1;
|
|
Node.SelectedIndex := 1;
|
|
end;
|
|
|
|
procedure TfrmSettings.trvDirectoriesCollapsing(Sender: TObject;
|
|
Node: TTreeNode; var AllowCollapse: Boolean);
|
|
begin
|
|
Node.ImageIndex := 0;
|
|
Node.SelectedIndex := 0;
|
|
end;
|
|
|
|
procedure TfrmSettings.cboProxyChange(Sender: TObject);
|
|
begin
|
|
EnableControls(cboProxy.ItemIndex <> 0); // 0 = None
|
|
SetProxySettings;
|
|
end;
|
|
|
|
procedure TfrmSettings.EnableControls(eEnable: Boolean);
|
|
begin
|
|
lblProxyHost.Enabled := eEnable;
|
|
lblProxyPassword.Enabled := eEnable;
|
|
lblProxyPort.Enabled := eEnable;
|
|
lblProxyUsername.Enabled := eEnable;
|
|
txtProxyHost.Enabled := eEnable;
|
|
txtProxyPort.Enabled := eEnable;
|
|
txtProxyUsername.Enabled := eEnable;
|
|
txtProxyPassword.Enabled := eEnable;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtProxyPortChange(Sender: TObject);
|
|
begin
|
|
if not IsNumeric(txtProxyPort.Text) then
|
|
txtProxyPort.Text := '8080';
|
|
SetProxySettings;
|
|
end;
|
|
|
|
procedure TfrmSettings.jplSettingsChanging(Sender: TObject;
|
|
PageIndex: Integer; var AllowChange: Boolean);
|
|
begin
|
|
if (frmMain.IdFTP.Connected) and (jplSettings.Pages[PageIndex] = jspProxy) then
|
|
AllowChange := False;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtProxyHostChange(Sender: TObject);
|
|
begin
|
|
SetProxySettings;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseHLClick(Sender: TObject);
|
|
begin
|
|
if odBrowse.Execute then
|
|
txtHLExec.Text := odBrowse.FileName;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdAdvancedAutoIndentClick(Sender: TObject);
|
|
begin
|
|
frmAutoIndent.ShowModal;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdReloadClick(Sender: TObject);
|
|
begin
|
|
if Assigned(lvPlugins.Selected) then begin
|
|
if lvPlugins.Selected.SubItems[2] = 'Loaded' then
|
|
cmdUnload.Click;
|
|
cmdLoad.Click;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdUnloadClick(Sender: TObject);
|
|
begin
|
|
if Assigned(lvPlugins.Selected) then begin
|
|
if lvPlugins.Selected.SubItems[2] = 'Unloaded' then
|
|
MessageBox(Handle, PChar(lAlreadyUnLoaded), PChar(Application.Title), MB_ICONERROR)
|
|
else
|
|
UnloadPlugin(lvPlugins.Selected);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdLoadClick(Sender: TObject);
|
|
begin
|
|
if Assigned(lvPlugins.Selected) then begin
|
|
if lvPlugins.Selected.SubItems[2] = 'Loaded' then
|
|
MessageBox(Handle, PChar(lAlreadyLoaded), PChar(Application.Title), MB_ICONERROR)
|
|
else
|
|
LoadPlugin(lvPlugins.Selected);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdRemoveClick(Sender: TObject);
|
|
begin
|
|
if Assigned(lvPlugins.Selected) then begin
|
|
if lvPlugins.Selected.SubItems[2] = 'Loaded' then
|
|
cmdUnload.Click;
|
|
DeleteFile(PChar(ExtractFilePath(ParamStr(0)) + 'plugins\' + lvPlugins.Selected.SubItems[0]));
|
|
lvPlugins.DeleteSelected;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseAMXXDirClick(Sender: TObject);
|
|
var eStr: String;
|
|
begin
|
|
if SelectDirectory(lSelectAMXXCaption, ExtractFilePath(txtHLExec.Text), eStr) then
|
|
txtAMXXDir.Text := eStr;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtShortcutKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if (Key = VK_SHIFT) or (Key = VK_CONTROL) or (Key = VK_MENU) then begin
|
|
txtShortcut.Clear;
|
|
if ssShift in Shift then
|
|
txtShortcut.Text := txtShortcut.Text + 'Shift+';
|
|
if ssCtrl in Shift then
|
|
txtShortcut.Text := txtShortcut.Text + 'Ctrl+';
|
|
if ssAlt in Shift then
|
|
txtShortcut.Text := txtShortcut.Text + 'Alt+';
|
|
Key := 0;
|
|
end
|
|
else
|
|
txtShortcut.Text := ShortcutToText(Shortcut(Key, Shift));
|
|
end;
|
|
|
|
procedure TfrmSettings.txtShortcutKeyPress(Sender: TObject; var Key: Char);
|
|
begin
|
|
Key := #0;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdResetShortcutsClick(Sender: TObject);
|
|
var i: integer;
|
|
Item: TListItem;
|
|
KeyCommand: TSciKeyCommand;
|
|
Ident: String;
|
|
begin
|
|
if MessageBox(Handle, PChar(lResetShortcuts), PChar(Application.Title), MB_ICONQUESTION + MB_YESNO) = mrYes then begin
|
|
frmMain.sciEditor.KeyCommands.ResetDefaultCommands;
|
|
frmSettings.lvShortcuts.Items.BeginUpdate;
|
|
try
|
|
frmSettings.lvShortcuts.Clear;
|
|
for i := 0 to frmMain.sciEditor.KeyCommands.Count - 1 do begin
|
|
KeyCommand := frmMain.sciEditor.KeyCommands.Items[i] as TSciKeyCommand;
|
|
Ident := 'Unknown';
|
|
IntToIdent(KeyCommand.Command, Ident, Sci_KeyboardCommandMap);
|
|
if Ident <> 'No Command' then begin // Important for Control Chars, the user mustn't change the values for it...
|
|
Item := frmSettings.lvShortcuts.Items.Add;
|
|
Item.Caption:= Ident;
|
|
Item.SubItems.Add(ShortCutToText(KeyCommand.ShortCut));
|
|
Item.Data := KeyCommand;
|
|
end;
|
|
end;
|
|
finally
|
|
frmSettings.lvShortcuts.Items.EndUpdate;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtShortcutKeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if (Key = VK_SHIFT) or (Key = VK_CONTROL) or (Key = VK_MENU) then begin
|
|
if txtShortcut.Text[Length(txtShortcut.Text)] = '+' then
|
|
txtShortcut.Text := 'None';
|
|
end;
|
|
end;
|
|
|
|
end.
|