mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2025-08-06 18:24:26 +08:00
23c13d2531
* TNTGrid is not capable of displaying a sort arrow in column titles. So, signalize sort direction of columns in grids and listviews by lightgrey (= ascending) and mediumgrey (= descending) * Remove special color for NULL cells in grids because it can conflict with the new sorting colors. Instead, place a grey (NULL) text in these cells. Less gaudy colors now. * Also remove grey background in primary key columns for the benefit of sorting colors. PK cells have bold font anyway, should be noticable enough.
452 lines
14 KiB
ObjectPascal
452 lines
14 KiB
ObjectPascal
unit options;
|
|
|
|
|
|
// -------------------------------------
|
|
// Preferences
|
|
// -------------------------------------
|
|
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
StdCtrls, ComCtrls, Registry, ExtCtrls, DBGrids;
|
|
|
|
type
|
|
Toptionsform = class(TForm)
|
|
PageControl1: TPageControl;
|
|
TabSheet1: TTabSheet;
|
|
ButtonCancel: TButton;
|
|
ButtonOK: TButton;
|
|
ButtonApply: TButton;
|
|
TabSheet2: TTabSheet;
|
|
CheckBoxAutoReconnect: TCheckBox;
|
|
PageControl2: TPageControl;
|
|
TabSheet3: TTabSheet;
|
|
TabSheet4: TTabSheet;
|
|
Panel1: TPanel;
|
|
Label2: TLabel;
|
|
Label1: TLabel;
|
|
Label3: TLabel;
|
|
ComboBoxFonts: TComboBox;
|
|
Label4: TLabel;
|
|
Label5: TLabel;
|
|
Label6: TLabel;
|
|
pnlKeywords: TPanel;
|
|
ColorDialog1: TColorDialog;
|
|
Label7: TLabel;
|
|
pnlFunctions: TPanel;
|
|
Label8: TLabel;
|
|
pnlDatatypes: TPanel;
|
|
Label9: TLabel;
|
|
pnlNumeric: TPanel;
|
|
Label10: TLabel;
|
|
pnlString: TPanel;
|
|
Label11: TLabel;
|
|
pnlComments: TPanel;
|
|
TabSheet5: TTabSheet;
|
|
GroupBox1: TGroupBox;
|
|
Label12: TLabel;
|
|
Edit1: TEdit;
|
|
Edit2: TEdit;
|
|
Label13: TLabel;
|
|
Label14: TLabel;
|
|
Edit3: TEdit;
|
|
Label15: TLabel;
|
|
Label16: TLabel;
|
|
Label17: TLabel;
|
|
CheckBoxConvertHTMLEntities: TCheckBox;
|
|
Label18: TLabel;
|
|
TabSheet7: TTabSheet;
|
|
GroupBox2: TGroupBox;
|
|
Panel8: TPanel;
|
|
Label21: TLabel;
|
|
Label23: TLabel;
|
|
ComboBoxDataFonts: TComboBox;
|
|
Edit4: TEdit;
|
|
UpDownDataFontSize: TUpDown;
|
|
Label24: TLabel;
|
|
Label25: TLabel;
|
|
Label22: TLabel;
|
|
EditFontSize: TEdit;
|
|
UpDownFontSize: TUpDown;
|
|
CheckBoxlimit: TCheckBox;
|
|
EditLimit: TEdit;
|
|
UpDownLimit: TUpDown;
|
|
Label26: TLabel;
|
|
Label19: TLabel;
|
|
Label20: TLabel;
|
|
Label28: TLabel;
|
|
pnlTablenames: TPanel;
|
|
updownLogSQLNum: TUpDown;
|
|
editLogSQLNum: TEdit;
|
|
editDefaultColWidth: TEdit;
|
|
updownDefaultColWidth: TUpDown;
|
|
CheckBoxRestoreLastUsedDB: TCheckBox;
|
|
chkRememberFilters: TCheckBox;
|
|
chkLogToFile: TCheckBox;
|
|
btnOpenLogFolder: TButton;
|
|
Label29: TLabel;
|
|
pnlActiveLine: TPanel;
|
|
labelLogSnip: TLabel;
|
|
editLogSnip: TEdit;
|
|
updownLogSnip: TUpDown;
|
|
labelSqlSnipHint: TLabel;
|
|
procedure ButtonCancelClick(Sender: TObject);
|
|
procedure FormShow(Sender: TObject);
|
|
procedure Modified(Sender: TObject);
|
|
procedure Apply(Sender: TObject);
|
|
procedure ButtonOKClick(Sender: TObject);
|
|
procedure FontsChange(Sender: TObject);
|
|
procedure CallColorDialog(Sender: TObject);
|
|
procedure DataFontsChange(Sender: TObject);
|
|
procedure CheckBoxlimitClick(Sender: TObject);
|
|
procedure anyUpDownLimitChanging(Sender: TObject;
|
|
var AllowChange: Boolean);
|
|
procedure btnOpenLogFolderClick(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
function OptionsWindow (AOwner : TComponent; Flags : String = '') : Boolean;
|
|
|
|
var
|
|
fontname : String = 'Courier New';
|
|
fontsize : Integer = 9;
|
|
datafontname : String = 'MS SANS SERIF';
|
|
datafontcharset : String = '';
|
|
datafontsize : Integer = 8;
|
|
AutoReconnect : Boolean = false;
|
|
|
|
implementation
|
|
uses childwin, main, helpers;
|
|
{$R *.DFM}
|
|
|
|
|
|
function OptionsWindow (AOwner : TComponent; Flags : String = '') : Boolean;
|
|
var
|
|
f : Toptionsform;
|
|
begin
|
|
f := Toptionsform.Create(AOwner);
|
|
Result := (f.ShowModal=mrOK);
|
|
FreeAndNil (f);
|
|
end;
|
|
|
|
|
|
procedure Toptionsform.ButtonCancelClick(Sender: TObject);
|
|
begin
|
|
// Cancel
|
|
ModalResult := mrCancel;
|
|
end;
|
|
|
|
procedure Toptionsform.Modified(Sender: TObject);
|
|
begin
|
|
// Modified
|
|
ButtonApply.Enabled := true;
|
|
end;
|
|
|
|
|
|
{**
|
|
Apply settings to registry, childwin and mainform
|
|
}
|
|
procedure Toptionsform.Apply(Sender: TObject);
|
|
var
|
|
cwin : TMDIChild;
|
|
reg : TRegistry;
|
|
begin
|
|
Screen.Cursor := crHourGlass;
|
|
|
|
// Open registry key
|
|
reg := TRegistry.Create;
|
|
reg.OpenKey(REGPATH, true);
|
|
|
|
// Save values
|
|
reg.WriteBool('AutoReconnect', CheckBoxAutoReconnect.Checked);
|
|
reg.WriteBool('ConvertHTMLEntities', CheckBoxConvertHTMLEntities.Checked);
|
|
reg.WriteBool('RestoreLastUsedDB', CheckBoxRestoreLastUsedDB.Checked);
|
|
reg.WriteString('FontName', ComboBoxFonts.Text);
|
|
reg.WriteInteger('FontSize', UpDownFontSize.Position);
|
|
reg.WriteInteger('logsqlnum', updownLogSQLNum.Position);
|
|
reg.WriteInteger('logsqlwidth', updownLogSnip.Position);
|
|
reg.WriteString('SQLColKeyAttri', colortostring(pnlKeywords.Color));
|
|
reg.WriteString('SQLColFunctionAttri', colortostring(pnlFunctions.Color));
|
|
reg.WriteString('SQLColDataTypeAttri', colortostring(pnlDatatypes.Color));
|
|
reg.WriteString('SQLColNumberAttri', colortostring(pnlNumeric.Color));
|
|
reg.WriteString('SQLColStringAttri', colortostring(pnlString.Color));
|
|
reg.WriteString('SQLColCommentAttri', colortostring(pnlComments.Color));
|
|
reg.WriteString('SQLColTablenameAttri', colortostring(pnlTablenames.Color));
|
|
reg.WriteString('SQLColActiveLine', ColorToString(pnlActiveLine.Color));
|
|
reg.WriteString('CSVSeparator', Edit1.Text);
|
|
reg.WriteString('CSVEncloser', Edit2.Text);
|
|
reg.WriteString('CSVTerminator', Edit3.Text);
|
|
reg.WriteInteger('DefaultColWidth', updownDefaultColWidth.Position);
|
|
reg.WriteBool('DataLimit', CheckBoxLimit.Checked);
|
|
reg.WriteInteger('DataLimitEnd', UpDownLimit.Position);
|
|
reg.WriteString('DataFontName', Panel8.Font.Name);
|
|
reg.WriteInteger('DataFontSize', UpDownDataFontSize.Position);
|
|
reg.WriteBool('RememberFilters', chkRememberFilters.Checked);
|
|
reg.WriteBool('LogToFile', chkLogToFile.Checked);
|
|
|
|
// Close registry key
|
|
reg.CloseKey;
|
|
reg.Free;
|
|
|
|
// Set relevant properties in childwin
|
|
cwin := Mainform.Childwin;
|
|
if cwin <> nil then
|
|
begin
|
|
cwin.SynMemoQuery.Font := self.Panel1.Font;
|
|
cwin.SynMemoSQLLog.Font := self.Panel1.Font;
|
|
cwin.SynSQLSyn1.KeyAttri.Foreground := self.pnlKeywords.Color;
|
|
cwin.SynSQLSyn1.FunctionAttri.Foreground := self.pnlFunctions.Color;
|
|
cwin.SynSQLSyn1.DataTypeAttri.Foreground := self.pnlDatatypes.Color;
|
|
cwin.SynSQLSyn1.NumberAttri.Foreground := self.pnlNumeric.Color;
|
|
cwin.SynSQLSyn1.StringAttri.Foreground := self.pnlString.Color;
|
|
cwin.SynSQLSyn1.CommentAttri.Foreground := self.pnlComments.Color;
|
|
cwin.SynSQLSyn1.TablenameAttri.Foreground := self.pnlTablenames.Color;
|
|
cwin.SynMemoQuery.ActiveLineColor := self.pnlActiveLine.Color;
|
|
cwin.gridData.Font := self.Panel8.font;
|
|
cwin.gridQuery.Font := self.Panel8.font;
|
|
cwin.DBMemo1.Font := self.Panel8.font;
|
|
cwin.gridData.Refresh;
|
|
// Set the grid-cells to always-edit-mode
|
|
cwin.gridData.Options := cwin.gridData.Options + [dgAlwaysShowEditor];
|
|
cwin.gridQuery.Options := cwin.gridQuery.Options + [dgAlwaysShowEditor];
|
|
cwin.prefRememberFilters := chkRememberFilters.Checked;
|
|
cwin.prefLogsqlnum := self.updownLogSQLNum.Position;
|
|
cwin.prefLogSqlWidth := self.updownLogSnip.Position;
|
|
cwin.TrimSQLLog;
|
|
if chkLogToFile.Checked then
|
|
cwin.ActivateFileLogging
|
|
else if cwin.prefLogToFile then
|
|
cwin.DeactivateFileLogging;
|
|
btnOpenLogFolder.Enabled := DirectoryExists(DirnameSessionLogs);
|
|
cwin.prefDefaultColWidth := updownDefaultColWidth.Position;
|
|
cwin.prefCSVSeparator := self.Edit1.text;
|
|
cwin.prefCSVEncloser := self.Edit2.text;
|
|
cwin.prefCSVTerminator := self.Edit3.text;
|
|
cwin.prefConvertHTMLEntities := self.CheckBoxConvertHTMLEntities.Checked;
|
|
end;
|
|
|
|
// Set relevant properties in mainform
|
|
Mainform.CheckBoxLimit.Checked := CheckBoxLimit.Checked;
|
|
Mainform.UpDownLimitEnd.Position := UpDownLimit.Position;
|
|
|
|
// Settings have been applied, send a signal to the user
|
|
ButtonApply.Enabled := false;
|
|
|
|
Screen.Cursor := crDefault;
|
|
end;
|
|
|
|
|
|
|
|
procedure Toptionsform.FormShow(Sender: TObject);
|
|
|
|
// ----------- Callback.Funktion for Fixed_Pitch -----------------//
|
|
function EnumFixedProc(lpelf: PEnumLogFont;
|
|
lpntm: PNewTextMetric;
|
|
FontType: Integer;
|
|
Data: LPARAM) // Strings-Objekt
|
|
: Integer; // 0 = Cancel
|
|
stdcall; // Important for all API-Callbacks
|
|
begin
|
|
Result := 1; // don't cancel
|
|
if (lpelf^.elfLogFont.lfPitchAndFamily and FIXED_PITCH) <> 0 then
|
|
(TStrings(Data)).Add(String(lpelf^.elfLogFont.lfFaceName));
|
|
end;
|
|
|
|
var
|
|
reg : TRegistry;
|
|
begin
|
|
screen.Cursor := crHourGlass;
|
|
|
|
// Open registry key
|
|
reg := TRegistry.Create;
|
|
reg.OpenKey(REGPATH, true);
|
|
|
|
// Read and display values
|
|
if reg.ValueExists('FontName') then
|
|
fontname := reg.ReadString('FontName');
|
|
if reg.ValueExists('FontSize') then
|
|
fontsize := reg.ReadInteger('FontSize');
|
|
if reg.ValueExists('DataFontName') then
|
|
datafontname := reg.ReadString('DataFontName');
|
|
if reg.ValueExists('DataFontCharset') then
|
|
datafontcharset := reg.ReadString('DataFontCharset');
|
|
if reg.ValueExists('DataFontSize') then
|
|
datafontsize := reg.ReadInteger('DataFontSize');
|
|
if reg.ValueExists('AutoReconnect') then
|
|
AutoReconnect := reg.ReadBool('AutoReconnect');
|
|
if reg.ValueExists('ConvertHTMLEntities') then
|
|
CheckBoxConvertHTMLEntities.Checked := reg.ReadBool('ConvertHTMLEntities');
|
|
if reg.ValueExists('RestoreLastUsedDB') then
|
|
CheckBoxRestoreLastUsedDB.Checked := reg.ReadBool('RestoreLastUsedDB');
|
|
if reg.ValueExists('DataLimit') then
|
|
CheckBoxLimit.Checked := reg.ReadBool('DataLimit');
|
|
if reg.ValueExists('DataLimitEnd') then
|
|
UpDownLimit.Position := reg.ReadInteger('DataLimitEnd');
|
|
CheckBoxLimit.OnClick(self);
|
|
if reg.ValueExists('logsqlnum') then
|
|
updownLogSQLNum.Position := reg.ReadInteger('logsqlnum');
|
|
if reg.ValueExists('logsqlwidth') then
|
|
updownLogSnip.Position := reg.ReadInteger('logsqlwidth');
|
|
// Default Column-Width in DBGrids:
|
|
if reg.ValueExists('DefaultColWidth') then
|
|
updownDefaultColWidth.Position := reg.ReadInteger('DefaultColWidth');
|
|
|
|
// Color-coding:
|
|
if reg.ValueExists('SQLColKeyAttri') then
|
|
pnlKeywords.Color := StringToColor(reg.readstring('SQLColKeyAttri'))
|
|
else
|
|
pnlKeywords.Color := clBlue;
|
|
if reg.ValueExists('SQLColFunctionAttri') then
|
|
pnlFunctions.Color := StringToColor(reg.readstring('SQLColFunctionAttri'))
|
|
else
|
|
pnlFunctions.Color := clNavy;
|
|
if reg.ValueExists('SQLColDataTypeAttri') then
|
|
pnlDatatypes.Color := StringToColor(reg.readstring('SQLColDataTypeAttri'))
|
|
else
|
|
pnlDatatypes.Color := clMaroon;
|
|
if reg.ValueExists('SQLColNumberAttri') then
|
|
pnlNumeric.Color := StringToColor(reg.readstring('SQLColNumberAttri'))
|
|
else
|
|
pnlNumeric.Color := clPurple;
|
|
if reg.ValueExists('SQLColStringAttri') then
|
|
pnlString.Color := StringToColor(reg.readstring('SQLColStringAttri'))
|
|
else
|
|
pnlString.Color := clGreen;
|
|
if reg.ValueExists('SQLColCommentAttri') then
|
|
pnlComments.Color := StringToColor(reg.readstring('SQLColCommentAttri'))
|
|
else
|
|
pnlComments.Color := clGray;
|
|
if reg.ValueExists('SQLColTablenameAttri') then
|
|
pnlTablenames.Color := StringToColor(reg.readstring('SQLColTablenameAttri'))
|
|
else
|
|
pnlTablenames.Color := clFuchsia;
|
|
if reg.ValueExists('SQLColActiveLine') then
|
|
pnlActiveLine.Color := StringToColor(reg.readstring('SQLColActiveLine'))
|
|
else
|
|
pnlActiveLine.Color := clWindow;
|
|
|
|
|
|
Edit1.Text := ',';
|
|
Edit2.Text := '';
|
|
Edit3.Text := '\r\n';
|
|
|
|
// CSV-Options:
|
|
if reg.ValueExists('CSVSeparator') then
|
|
Edit1.Text := reg.ReadString('CSVSeparator');
|
|
if reg.ValueExists('CSVEncloser') then
|
|
Edit2.Text := reg.ReadString('CSVEncloser');
|
|
if reg.ValueExists('CSVTerminator') then
|
|
Edit3.Text := reg.ReadString('CSVTerminator');
|
|
|
|
// Remember data pane filters across sessions
|
|
if reg.ValueExists('RememberFilters') then
|
|
chkRememberFilters.Checked := reg.ReadBool('RememberFilters');
|
|
|
|
// Log to file
|
|
if reg.ValueExists('LogToFile') then
|
|
chkLogToFile.Checked := reg.ReadBool('LogToFile');
|
|
btnOpenLogFolder.Enabled := DirectoryExists(DirnameSessionLogs);
|
|
|
|
// Close registry key
|
|
reg.CloseKey;
|
|
reg.Free;
|
|
|
|
// Miscellaneous:
|
|
CheckBoxAutoReconnect.Checked := AutoReconnect;
|
|
|
|
// SQL-Appearance:
|
|
EnumFontFamilies(Canvas.Handle, // HDC of Device-Context.
|
|
nil, // Name of Font-Family (PChar)
|
|
@EnumFixedProc, // Address of Callback-Function
|
|
LPARAM(Pointer(ComboBoxFonts.Items))); // customized data
|
|
|
|
ComboBoxFonts.ItemIndex := ComboBoxFonts.Items.IndexOf(fontname);
|
|
UpDownFontSize.Position := fontsize;
|
|
with Panel1.Font do begin
|
|
Name := fontname;
|
|
Size := fontsize;
|
|
end;
|
|
|
|
// Data-Appearance:
|
|
with ComboBoxDataFonts do begin
|
|
Items := Screen.Fonts;
|
|
ItemIndex := Items.IndexOf(datafontname);
|
|
end;
|
|
UpDownDataFontSize.Position := datafontsize;
|
|
with Panel8.Font do begin
|
|
Name := datafontname;
|
|
Size := datafontsize;
|
|
end;
|
|
|
|
|
|
ButtonApply.Enabled := false;
|
|
screen.Cursor := crdefault;
|
|
end;
|
|
|
|
|
|
|
|
procedure Toptionsform.ButtonOKClick(Sender: TObject);
|
|
begin
|
|
Apply(self);
|
|
ModalResult := mrOK;
|
|
end;
|
|
|
|
procedure Toptionsform.FontsChange(Sender: TObject);
|
|
begin
|
|
with Panel1.Font do begin
|
|
Name := ComboBoxFonts.Items[ComboBoxFonts.ItemIndex];
|
|
Size := UpDownFontSize.Position;
|
|
end;
|
|
Modified(self);
|
|
end;
|
|
|
|
|
|
procedure Toptionsform.CallColorDialog(Sender: TObject);
|
|
begin
|
|
colordialog1.Color := (sender as TPanel).Color;
|
|
if ColorDialog1.Execute then
|
|
begin
|
|
(sender as TPanel).Color := ColorDialog1.Color;
|
|
modified(self);
|
|
end;
|
|
end;
|
|
|
|
procedure Toptionsform.DataFontsChange(Sender: TObject);
|
|
begin
|
|
with Panel8.Font do begin
|
|
Name := ComboBoxDataFonts.Text;
|
|
// Charset := GREEK_CHARSET;
|
|
Size := UpDownDataFontSize.Position;
|
|
end;
|
|
Modified(self);
|
|
end;
|
|
|
|
procedure Toptionsform.CheckBoxlimitClick(Sender: TObject);
|
|
begin
|
|
UpDownLimit.Enabled := CheckBoxLimit.Checked;
|
|
EditLimit.Enabled := CheckBoxLimit.Checked;
|
|
Modified(sender);
|
|
end;
|
|
|
|
procedure Toptionsform.anyUpDownLimitChanging(Sender: TObject;
|
|
var AllowChange: Boolean);
|
|
begin
|
|
modified(sender);
|
|
end;
|
|
|
|
|
|
{**
|
|
Open folder with session logs
|
|
}
|
|
procedure Toptionsform.btnOpenLogFolderClick(Sender: TObject);
|
|
begin
|
|
ShellExec( '', DirnameSessionLogs );
|
|
end;
|
|
|
|
end.
|