1291 lines
44 KiB
ObjectPascal
Executable File
1291 lines
44 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, Registry;
|
|
|
|
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;
|
|
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;
|
|
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;
|
|
jspCTSettings: TJvStandardPage;
|
|
pnlPCSpeed: TPanel;
|
|
lblCPUSpeed: TLabel;
|
|
lblSlow: TLabel;
|
|
lblAverage: TLabel;
|
|
lblFast: TLabel;
|
|
sldSpeed: TJvxSlider;
|
|
lblCodeExplorer: TLabel;
|
|
lblCodeInspector: TLabel;
|
|
pnlCodeInspector: TPanel;
|
|
cmdBrowseLangDir: TFlatButton;
|
|
txtLangDir: TFlatEdit;
|
|
lblLangDir: TLabel;
|
|
chkDontLoadFilesTwice: TFlatCheckBox;
|
|
chkMakeBaks: TFlatCheckBox;
|
|
chkDisableAC: TFlatCheckBox;
|
|
chkDisableCT: TFlatCheckBox;
|
|
chkAUDisable: TFlatCheckBox;
|
|
txtAUDisable: TFlatEdit;
|
|
jspAutocompleteCheck: TJvStandardPage;
|
|
shpFunctions: TShape;
|
|
lstFunctions: TListBox;
|
|
txtSearch: TFlatEdit;
|
|
lvParams: TListView;
|
|
shpParams: TShape;
|
|
cmdAddParam: TFlatButton;
|
|
cmdRemParam: TFlatButton;
|
|
cmdAddFunction: TFlatButton;
|
|
cmdRemFunction: TFlatButton;
|
|
chkAutoHideCT: TFlatCheckBox;
|
|
lblACHint: TLabel;
|
|
procedure jplSettingsChange(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure FormDestroy(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure txtFontSizeChange(Sender: TObject);
|
|
procedure cboLanguageChange(Sender: TObject);
|
|
procedure chkUseDefaultFontClick(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 txtShortcutKeyPress(Sender: TObject; var Key: Char);
|
|
procedure cmdResetShortcutsClick(Sender: TObject);
|
|
procedure txtShortcutKeyUp(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure cboFontChange(Sender: TObject);
|
|
procedure cmdBrowseLangDirClick(Sender: TObject);
|
|
procedure txtAUDisableExit(Sender: TObject);
|
|
procedure txtSearchChange(Sender: TObject);
|
|
procedure cmdRemFunctionClick(Sender: TObject);
|
|
procedure cmdAddParamClick(Sender: TObject);
|
|
procedure cmdRemParamClick(Sender: TObject);
|
|
procedure lvParamsDblClick(Sender: TObject);
|
|
procedure cmdAddFunctionClick(Sender: TObject);
|
|
procedure lstFunctionsClick(Sender: TObject);
|
|
procedure txtCodeSnippetEnter(Sender: TObject);
|
|
procedure txtCodeSnippetExit(Sender: TObject);
|
|
procedure txtCodeSnippetChange(Sender: TObject);
|
|
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, UnitfrmParamEdit,
|
|
UnitACCheck;
|
|
|
|
{$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;
|
|
|
|
lblACHint.Visible := jplSettings.ActivePage = jspAutocompleteCheck;
|
|
txtPAWNOutputExit(Sender);
|
|
txtCPPOutputChange(Sender);
|
|
end;
|
|
|
|
procedure TfrmSettings.FormCreate(Sender: TObject);
|
|
function GetUser: String;
|
|
var
|
|
Buffer: Array[0..MAX_COMPUTERNAME_LENGTH +1] of Char;
|
|
Size: DWord;
|
|
begin
|
|
Size := Pred(SizeOf(Buffer));
|
|
Windows.GetUserName(Buffer, Size);
|
|
Result := StrPas(Buffer);
|
|
end;
|
|
|
|
var AMXXDir: String;
|
|
SteamDir, ListenDir: String;
|
|
eReg: TRegistry;
|
|
eRec: TSearchRec;
|
|
begin
|
|
eConfig := TIniFile.Create(ExtractFilePath(ParamStr(0)) + 'config\Settings.ini');
|
|
{ Auto-Setup if Settings.ini doesn't exist }
|
|
if (not FileExists(ExtractFilePath(ParamStr(0)) + 'config\Settings.ini')) then begin
|
|
eReg := TRegistry.Create(KEY_READ);
|
|
try
|
|
eReg.RootKey := HKEY_LOCAL_MACHINE;
|
|
eReg.OpenKey('SOFTWARE\Microsoft\Windows\CurrentVersion', False);
|
|
{ AMXX }
|
|
AMXXDir := eReg.ReadString('ProgramFilesDir') + '\AMX Mod X\';
|
|
if DirectoryExists(AMXXDir) then
|
|
AMXXDir := IncludeTrailingPathDelimiter(AMXXDir)
|
|
else
|
|
AMXXDir := '';
|
|
eReg.CloseKey;
|
|
{ Language Files }
|
|
if (DirectoryExists(AMXXDir + 'files\base\data\lang')) then
|
|
txtLangDir.Text := AMXXDir + 'files\base\data\lang';
|
|
{ Steam }
|
|
if eReg.KeyExists('SOFTWARE\Valve\Steam') then begin
|
|
eReg.OpenKey('SOFTWARE\Valve\Steam', False);
|
|
SteamDir := eReg.ReadString('InstallPath') + '\';
|
|
eReg.CloseKey;
|
|
end
|
|
else
|
|
SteamDir := '';
|
|
ListenDir := '';
|
|
finally
|
|
eReg.Free;
|
|
end;
|
|
// Editor
|
|
eConfig.WriteInteger('Editor', 'MakeBaks', 1);
|
|
eConfig.WriteInteger('Editor', 'DontLoadFilesTwice', 1);
|
|
eConfig.WriteInteger('Editor', 'Auto-Indent', 1);
|
|
eConfig.WriteInteger('Editor', 'UnindentClosingBrace', 1);
|
|
eConfig.WriteInteger('Editor', 'UnindentEmptyLine', 0);
|
|
eConfig.WriteInteger('Editor', 'Disable_AC', 0);
|
|
eConfig.WriteInteger('Editor', 'Disable_CT', 0);
|
|
eConfig.WriteInteger('Editor', 'AutoDisable', 1500);
|
|
eConfig.WriteInteger('Editor', 'AutoHideCT', 1);
|
|
// Pawn-Compiler
|
|
if AMXXDir <> '' then
|
|
eConfig.WriteString('Pawn-Compiler', 'Path', AMXXDir + 'files\base\scripting\amxxpc.exe')
|
|
else
|
|
eConfig.WriteString('Pawn-Compiler', 'Path', '');
|
|
eConfig.WriteString('Pawn-Compiler', 'Args', '');
|
|
eConfig.WriteString('Pawn-Compiler', 'DefaultOutput', '');
|
|
// CPP-Compiler
|
|
eConfig.WriteString('CPP-Compiler', 'Path', '');
|
|
eConfig.WriteString('CPP-Compiler', 'Args', '');
|
|
eConfig.WriteString('CPP-Compiler', 'DefaultOutput', '');
|
|
// Half-Life
|
|
if SteamDir <> '' then begin
|
|
if FindFirst(SteamDir + 'SteamApps\*@*.*', faDirectory, eRec) = 0 then begin
|
|
SteamDir := SteamDir + 'SteamApps\' + eRec.Name + '\';
|
|
if FileExists(SteamDir + 'counter-strike\hl.exe') then begin
|
|
if DirectoryExists(SteamDir + 'counter-strike\cstrike\addons\amxmodx') then
|
|
ListenDir := SteamDir + 'counter-strike\cstrike\addons\amxmodx\';
|
|
SteamDir := SteamDir + 'counter-strike\hl.exe';
|
|
end
|
|
else if FileExists(SteamDir + 'team fortress classic\hl.exe') then begin
|
|
if DirectoryExists(SteamDir + 'team fortress classic\tfc\addons\amxmodx') then
|
|
ListenDir := SteamDir + 'team fortress classic\tfc\addons\amxmodx\';
|
|
SteamDir := SteamDir + 'team fortress classic\hl.exe';
|
|
end
|
|
else if FileExists(SteamDir + 'half-life\hl.exe') then begin
|
|
if DirectoryExists(SteamDir + 'half-life\addons\amxmodx') then
|
|
ListenDir := SteamDir + 'half-life\addons\amxmodx\';
|
|
SteamDir := SteamDir + 'half-life\hl.exe';
|
|
end
|
|
else
|
|
SteamDir := '';
|
|
end
|
|
else
|
|
SteamDir := '';
|
|
FindClose(eRec.FindHandle);
|
|
end;
|
|
eConfig.WriteString('Half-Life', 'Filename', SteamDir);
|
|
eConfig.WriteString('Half-Life', 'Params', '');
|
|
eConfig.WriteString('Half-Life', 'AMXXListen', ListenDir);
|
|
// FTP
|
|
eConfig.WriteString('FTP', 'Host', '');
|
|
eConfig.WriteInteger('FTP', 'Port', 21);
|
|
eConfig.WriteString('FTP', 'Username', '');
|
|
eConfig.WriteString('FTP', 'Password', '');
|
|
// Proxy
|
|
eConfig.WriteInteger('Proxy', 'ProxyType', 0);
|
|
eConfig.WriteString('Proxy', 'Host', '');
|
|
eConfig.WriteInteger('Proxy', 'Port', 8080);
|
|
eConfig.WriteString('Proxy', 'Username', '');
|
|
eConfig.WriteString('Proxy', 'Password', '');
|
|
// Misc
|
|
eConfig.WriteString('Misc', 'DefaultPluginName', 'New Plug-In');
|
|
eConfig.WriteString('Misc', 'DefaultPluginVersion', '1.0');
|
|
eConfig.WriteString('Misc', 'DefaultPluginAuthor', GetUser);
|
|
eConfig.WriteInteger('Misc', 'SaveNotesTo', 0);
|
|
eConfig.WriteInteger('Misc', 'CPUSpeed', 5);
|
|
eConfig.WriteString('Misc', 'LangDir', txtLangDir.Text);
|
|
eConfig.WriteInteger('Misc', 'ShowStatusbar', 1);
|
|
eConfig.WriteInteger('Misc', 'WindowState', 0);
|
|
end;
|
|
|
|
|
|
ReloadIni;
|
|
case eConfig.ReadInteger('Misc', 'WindowState', 0) of
|
|
0: frmMain.WindowState := wsNormal;
|
|
1: frmMain.WindowState := wsMaximized;
|
|
2: frmMain.WindowState := wsMinimized;
|
|
end;
|
|
|
|
txtCodeSnippetExit(Sender);
|
|
|
|
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
|
|
cboLanguage.OnChange(Self);
|
|
for i := 0 to trvSettings.Items.Count -1 do
|
|
trvSettings.Items[i].Expand(True);
|
|
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.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);
|
|
|
|
Foreground := ForeColor;
|
|
Background := BackColor;
|
|
|
|
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;
|
|
txtPawnOutput.OnEnter(Sender);
|
|
txtCPPOutput.OnEnter(Sender);
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseCPPCompilerClick(Sender: TObject);
|
|
begin
|
|
if odBrowse.Execute then
|
|
txtCPPCompilerPath.Text := odBrowse.FileName;
|
|
txtPawnOutput.OnEnter(Sender);
|
|
txtCPPOutput.OnEnter(Sender);
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseOutputPAWNClick(Sender: TObject);
|
|
var eDir: String;
|
|
begin
|
|
if SelectDirectory(lSelectOutputPAWN, txtPAWNOutput.Text, eDir) then
|
|
txtPAWNOutput.Text := eDir;
|
|
txtPAWNOutput.OnEnter(Self);
|
|
txtCPPOutput.OnEnter(Self);
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseOutputCPPClick(Sender: TObject);
|
|
var eDir: String;
|
|
begin
|
|
if SelectDirectory(lSelectOutputCPP, txtCPPOutput.Text, eDir) then
|
|
txtCPPOutput.Text := eDir;
|
|
txtPAWNOutput.OnEnter(Self);
|
|
txtCPPOutput.OnEnter(Self);
|
|
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;
|
|
lstCodeSnippets.SetFocus;
|
|
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])
|
|
else
|
|
txtCodeSnippetExit(Sender);
|
|
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;
|
|
txtCodeSnippet.Enabled := lstCodeSnippets.Items.Count > 0;
|
|
lstCodeSnippetsClick(Sender);
|
|
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.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;
|
|
|
|
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.Text;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdBrowseLangDirClick(Sender: TObject);
|
|
var eStr: String;
|
|
begin
|
|
if SelectDirectory(lSelectLanguageDir, ExtractFilePath(txtLangDir.Text), eStr) then
|
|
txtLangDir.Text := eStr;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtAUDisableExit(Sender: TObject);
|
|
begin
|
|
if not IsNumeric(txtAUDisable.Text) then
|
|
txtAUDisable.Text := '1500';
|
|
end;
|
|
|
|
procedure TfrmSettings.txtSearchChange(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
for i := 0 to lstFunctions.Items.Count -1 do begin
|
|
if Pos(LowerCase(Trim(lstFunctions.Items[i])), LowerCase(Trim(txtSearch.Text))) = 1 then begin
|
|
lstFunctions.ItemIndex := i;
|
|
break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdRemFunctionClick(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
if lstFunctions.ItemIndex <> -1 then begin
|
|
eACList.Delete(lstFunctions.ItemIndex);
|
|
i := lstFunctions.ItemIndex;
|
|
lstFunctions.DeleteSelected;
|
|
if i <> 0 then
|
|
lstFunctions.ItemIndex := i-1;
|
|
lstFunctionsClick(Self);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdAddParamClick(Sender: TObject);
|
|
begin
|
|
if lstFunctions.ItemIndex = -1 then exit;
|
|
|
|
frmParamEdit.txtFunction.Text := lstFunctions.Items[lstFunctions.ItemIndex];
|
|
frmParamEdit.txtInformation.Clear;
|
|
frmParamEdit.Caption := 'Add parameter';
|
|
if frmParamEdit.ShowModal = mrOk then begin
|
|
with lvParams.Items.Add do begin
|
|
Caption := IntToStr(lvParams.Items.Count);
|
|
SubItems.Add(StringReplace(frmParamEdit.txtInformation.Text, #13#10, '; ', [rfReplaceAll]));
|
|
end;
|
|
lstFunctions.Items[lstFunctions.ItemIndex] := frmParamEdit.txtFunction.Text;
|
|
|
|
with TACFunction(eACList.Items[lstFunctions.ItemIndex]) do begin
|
|
Name := lstFunctions.Items[lstFunctions.ItemIndex];
|
|
Items.Add(StringReplace(frmParamEdit.txtInformation.Text, #13#10, '; ', [rfReplaceAll]));
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdRemParamClick(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
if (lstFunctions.ItemIndex <> -1) and (lvParams.Items.Count <> 0) then begin
|
|
TACFunction(eACList.Items[lstFunctions.ItemIndex]).Items.Delete(lvParams.ItemIndex);
|
|
lvParams.DeleteSelected;
|
|
for i := 0 to lvParams.Items.Count -1 do
|
|
lvParams.Items[i].Caption := IntToStr(i+1);
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.lvParamsDblClick(Sender: TObject);
|
|
begin
|
|
if (lstFunctions.ItemIndex <> -1) and (Assigned(lvParams.Selected)) then begin
|
|
frmParamEdit.Caption := 'Edit parameter information';
|
|
frmParamEdit.txtFunction.Text := lstFunctions.Items[lstFunctions.ItemIndex];
|
|
frmParamEdit.txtInformation.Text := StringReplace(lvParams.Selected.SubItems[0], '; ', #13#10, [rfReplaceAll]);
|
|
if frmParamEdit.ShowModal = mrOk then begin
|
|
lvParams.Selected.SubItems[0] := StringReplace(frmParamEdit.txtInformation.Lines.Text, #13#10, '; ', [rfReplaceAll]);
|
|
lstFunctions.Items[lstFunctions.ItemIndex] := frmParamEdit.txtFunction.Text;
|
|
|
|
with TACFunction(eACList.Items[lstFunctions.ItemIndex]) do begin
|
|
Name := lstFunctions.Items[lstFunctions.ItemIndex];
|
|
Items[lvParams.ItemIndex] := StringReplace(frmParamEdit.txtInformation.Text, #13#10, '; ', [rfReplaceAll]);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.cmdAddFunctionClick(Sender: TObject);
|
|
begin
|
|
frmParamEdit.txtFunction.Clear;
|
|
frmParamEdit.txtInformation.Clear;
|
|
frmParamEdit.txtInformation.Enabled := False;
|
|
frmParamEdit.lblItems.Enabled := False;
|
|
frmParamEdit.Caption := 'Add function';
|
|
if frmParamEdit.ShowModal = mrOk then begin
|
|
lstFunctions.ItemIndex := lstFunctions.Items.Add(frmParamEdit.txtFunction.Text);
|
|
TACFunction(eACList.Add).Name := frmParamEdit.txtFunction.Text;
|
|
lstFunctionsClick(Self);
|
|
end;
|
|
frmParamEdit.txtInformation.Enabled := True;
|
|
frmParamEdit.lblItems.Enabled := True;
|
|
end;
|
|
|
|
procedure TfrmSettings.lstFunctionsClick(Sender: TObject);
|
|
var i: integer;
|
|
begin
|
|
lvParams.Clear;
|
|
if lstFunctions.ItemIndex <> -1 then begin
|
|
for i := 0 to TACFunction(eACList.Items[lstFunctions.ItemIndex]).Items.Count -1 do begin
|
|
with lvParams.Items.Add do begin
|
|
Caption := IntToStr(i+1);
|
|
SubItems.Add(TACFunction(eACList.Items[lstFunctions.ItemIndex]).Items[i]);
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtCodeSnippetEnter(Sender: TObject);
|
|
begin
|
|
if (txtCodeSnippet.Font.Color = $008396A0) and ((ActiveControl = txtCodeSnippet) or (txtCodeSnippet.Enabled)) then begin
|
|
txtCodeSnippet.Font.Color := clWindowText;
|
|
txtCodeSnippet.Text := '';
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtCodeSnippetExit(Sender: TObject);
|
|
begin
|
|
if (txtCodeSnippet.Text = '') then begin
|
|
txtCodeSnippet.Lines.Text := 'Use "!APPEND!" to append or'#13'"!INSERT!" to insert the code'#13'snippet into a new line on click...';
|
|
txtCodeSnippet.Font.Color := $008396A0;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmSettings.txtCodeSnippetChange(Sender: TObject);
|
|
begin
|
|
if (txtCodeSnippet.Font.Color = $008396A0) then
|
|
txtCodeSnippet.Font.Color := clWindowText
|
|
else if (txtCodeSnippet.Text = '') and (ActiveControl <> txtCodeSnippet) then
|
|
txtCodeSnippetExit(Sender);
|
|
end;
|
|
|
|
end.
|