mirror of
https://github.com/HeidiSQL/HeidiSQL.git
synced 2026-03-13 09:24:25 +08:00
353 lines
13 KiB
ObjectPascal
353 lines
13 KiB
ObjectPascal
unit generic_types;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
interface
|
|
|
|
uses fpjson, jsonparser, SysUtils, RegExpr, SynEditHighlighter, SynHighlighterSQL,
|
|
Classes, Generics.Collections, Graphics, dbstructures;
|
|
|
|
type
|
|
TThreeStateBoolean = (nbUnset, nbFalse, nbTrue);
|
|
|
|
TJSONFloatNumberUntouched = class(TJSONFloatNumber)
|
|
public
|
|
function GetAsString: TJSONStringType; override;
|
|
end;
|
|
|
|
// Regular expression with support for European umlauts/accents as \w (word character)
|
|
TRegExprUmlauts = class(TRegExpr)
|
|
public
|
|
constructor Create;
|
|
end;
|
|
|
|
// Light and dark Color schemes for SynEdit SQL highlighter and grid colors
|
|
TGridTextColors = Array[TDBDatatypeCategoryIndex] of TColor;
|
|
TAppColorScheme = class(TObject)
|
|
public
|
|
Name: String;
|
|
SynSqlSyn: TSynSqlsyn;
|
|
GridTextColors: TGridTextColors;
|
|
GridNullColors: TGridTextColors;
|
|
ActiveLineBackground: TColor;
|
|
MatchingBraceForeground: TColor;
|
|
MatchingBraceBackground: TColor;
|
|
HightlightSameTextBackground: TColor; // This is for grids only, and there's no foreground setting.
|
|
const GridNullBrightness = 20;
|
|
constructor Create;
|
|
destructor Destroy; override;
|
|
// Load colors from settings
|
|
procedure LoadFromSettings;
|
|
// Write colors to settings
|
|
procedure Apply;
|
|
end;
|
|
//TAppColorSchemeList = specialize TObjectList<TAppColorScheme>;
|
|
TAppColorSchemes = class(TObjectList<TAppColorScheme>)
|
|
public
|
|
const SDarkScheme = 'Dark';
|
|
const SLightScheme = 'Light';
|
|
const SBlackScheme = 'Black';
|
|
const SWhiteScheme = 'White';
|
|
constructor Create(AOwnsObjects: Boolean = True); reintroduce; overload;
|
|
procedure ApplyLight;
|
|
procedure ApplyDark;
|
|
end;
|
|
|
|
TFileExtImageIndex = record
|
|
Ext: String;
|
|
ImageIndex: Integer;
|
|
end;
|
|
|
|
function GetFileExtImageIndex(Ext: String): Integer;
|
|
|
|
const FileExtImageIndex: array[0..16] of TFileExtImageIndex = (
|
|
(Ext: 'csv'; ImageIndex: 50),
|
|
(Ext: 'html'; ImageIndex: 32),
|
|
(Ext: 'xml'; ImageIndex: 48),
|
|
(Ext: 'sql'; ImageIndex: 201),
|
|
(Ext: 'LaTeX'; ImageIndex: 153),
|
|
(Ext: 'textile'; ImageIndex: 154),
|
|
(Ext: 'jira-textile'; ImageIndex: 154),
|
|
(Ext: 'php'; ImageIndex: 202),
|
|
(Ext: 'md'; ImageIndex: 199),
|
|
(Ext: 'json'; ImageIndex: 200),
|
|
(Ext: 'jsonl'; ImageIndex: 200),
|
|
(Ext: 'txt'; ImageIndex: 67),
|
|
(Ext: 'zip'; ImageIndex: 53),
|
|
(Ext: 'png'; ImageIndex: 47),
|
|
(Ext: 'jpg'; ImageIndex: 47),
|
|
(Ext: 'pdf'; ImageIndex: 44),
|
|
(Ext: 'sqlite3'; ImageIndex: 196)
|
|
);
|
|
|
|
var
|
|
AppColorSchemes: TAppColorSchemes;
|
|
|
|
implementation
|
|
|
|
uses apphelpers;
|
|
|
|
function GetFileExtImageIndex(Ext: String): Integer;
|
|
var
|
|
i: Integer;
|
|
begin
|
|
Result := -1;
|
|
for i:=Low(FileExtImageIndex) to High(FileExtImageIndex) do begin
|
|
if (FileExtImageIndex[i].Ext = Ext) or ('.'+FileExtImageIndex[i].Ext = Ext) then begin
|
|
Result := FileExtImageIndex[i].ImageIndex;
|
|
break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
{ TJSONFloatNumberUntouched }
|
|
|
|
function TJSONFloatNumberUntouched.GetAsString: TJSONStringType;
|
|
var
|
|
Val: TJSONFloat;
|
|
fs: TFormatSettings;
|
|
begin
|
|
fs := DefaultFormatSettings;
|
|
fs.DecimalSeparator := '.';
|
|
Val := GetAsFloat;
|
|
Result := FloatToStrF(Val, ffFixed, 18, 18, fs);
|
|
|
|
// Trim trailing zeros after the decimal point
|
|
while (Length(Result) > 0) and (Result[High(Result)] = '0') do
|
|
Delete(Result, High(Result), 1);
|
|
// Remove trailing decimal separator if no fractional digits left
|
|
if (Length(Result) > 0) and (Result[High(Result)] = fs.DecimalSeparator) then
|
|
Delete(Result, High(Result), 1);
|
|
end;
|
|
|
|
{ TRegExprUmlauts }
|
|
|
|
constructor TRegExprUmlauts.Create;
|
|
begin
|
|
inherited Create;
|
|
WordChars := WordChars + 'äÄöÖüÜÿŸáÁéÉíÍóÓúÚýÝćĆńŃŕŔśŚźŹĺĹàÀèÈìÌòÒùÙâÂêÊîÎôÔûÛãÃõÕñÑçÇşŞţŢåÅæÆœŒøØß';
|
|
end;
|
|
|
|
{ TAppColorScheme }
|
|
|
|
constructor TAppColorScheme.Create;
|
|
begin
|
|
inherited Create;
|
|
SynSqlSyn := TSynSQLSyn.Create(nil);
|
|
SynSqlSyn.SQLDialect := sqlMySQL;
|
|
end;
|
|
|
|
procedure TAppColorScheme.LoadFromSettings;
|
|
var
|
|
i: Integer;
|
|
Attri: TSynHighlighterAttributes;
|
|
dtc: TDBDatatypeCategoryIndex;
|
|
begin
|
|
Name := _('Current custom settings');
|
|
for i:=0 to SynSqlSyn.AttrCount - 1 do begin
|
|
Attri := SynSqlSyn.Attribute[i];
|
|
Attri.Foreground := AppSettings.ReadInt(asHighlighterForeground, Attri.Name, Attri.Foreground);
|
|
Attri.Background := AppSettings.ReadInt(asHighlighterBackground, Attri.Name, Attri.Background);
|
|
// IntegerStyle gathers all font styles (bold, italic, ...) in one number
|
|
Attri.IntegerStyle := AppSettings.ReadInt(asHighlighterStyle, Attri.Name, Attri.IntegerStyle);
|
|
end;
|
|
ActiveLineBackground := StringToColor(AppSettings.ReadString(asSQLColActiveLine));
|
|
MatchingBraceBackground := StringToColor(AppSettings.ReadString(asSQLColMatchingBraceBackground));
|
|
MatchingBraceForeground := StringToColor(AppSettings.ReadString(asSQLColMatchingBraceForeground));
|
|
HightlightSameTextBackground := AppSettings.ReadInt(asHightlightSameTextBackground);
|
|
|
|
GridTextColors[dtcInteger] := AppSettings.ReadInt(asFieldColorNumeric);
|
|
GridTextColors[dtcReal] := AppSettings.ReadInt(asFieldColorReal);
|
|
GridTextColors[dtcText] := AppSettings.ReadInt(asFieldColorText);
|
|
GridTextColors[dtcBinary] := AppSettings.ReadInt(asFieldColorBinary);
|
|
GridTextColors[dtcTemporal] := AppSettings.ReadInt(asFieldColorDatetime);
|
|
GridTextColors[dtcSpatial] := AppSettings.ReadInt(asFieldColorSpatial);
|
|
GridTextColors[dtcOther] := AppSettings.ReadInt(asFieldColorOther);
|
|
|
|
// Calculate brighter NULL colors - not part of color presets
|
|
for dtc:=Low(DatatypeCategories) to High(DatatypeCategories) do begin
|
|
GridNullColors[dtc] := ColorAdjustBrightness(GridTextColors[dtc], GridNullBrightness);
|
|
end;
|
|
end;
|
|
|
|
destructor TAppColorScheme.Destroy;
|
|
begin
|
|
SynSqlSyn.Free;
|
|
inherited;
|
|
end;
|
|
|
|
procedure TAppColorScheme.Apply;
|
|
var
|
|
i: Integer;
|
|
Attri: TSynHighlighterAttributes;
|
|
begin
|
|
// Highlighter colors
|
|
for i:=0 to SynSqlSyn.AttrCount - 1 do begin
|
|
Attri := SynSqlSyn.Attribute[i];
|
|
AppSettings.WriteInt(asHighlighterForeground, Attri.Foreground, Attri.Name);
|
|
AppSettings.WriteInt(asHighlighterBackground, Attri.Background, Attri.Name);
|
|
AppSettings.WriteInt(asHighlighterStyle, Attri.IntegerStyle, Attri.Name);
|
|
end;
|
|
// Colors sitting on a TSynEdit, not part of a highlighter
|
|
AppSettings.WriteString(asSQLColActiveLine, ColorToString(ActiveLineBackground));
|
|
AppSettings.WriteString(asSQLColMatchingBraceForeground, ColorToString(MatchingBraceForeground));
|
|
AppSettings.WriteString(asSQLColMatchingBraceBackground, ColorToString(MatchingBraceBackground));
|
|
// Grid data type colors
|
|
AppSettings.WriteInt(asHightlightSameTextBackground, HightlightSameTextBackground);
|
|
AppSettings.WriteInt(asFieldColorNumeric, GridTextColors[dtcInteger]);
|
|
AppSettings.WriteInt(asFieldColorReal, GridTextColors[dtcReal]);
|
|
AppSettings.WriteInt(asFieldColorText, GridTextColors[dtcText]);
|
|
AppSettings.WriteInt(asFieldColorBinary, GridTextColors[dtcBinary]);
|
|
AppSettings.WriteInt(asFieldColorDatetime, GridTextColors[dtcTemporal]);
|
|
AppSettings.WriteInt(asFieldColorSpatial, GridTextColors[dtcSpatial]);
|
|
AppSettings.WriteInt(asFieldColorOther, GridTextColors[dtcOther]);
|
|
|
|
AppColorSchemes.First.LoadFromSettings;
|
|
end;
|
|
|
|
|
|
{ TAppColorSchemes }
|
|
|
|
constructor TAppColorSchemes.Create(AOwnsObjects: Boolean = True);
|
|
var
|
|
Scheme: TAppColorScheme;
|
|
begin
|
|
inherited; // Create(AOwnsObjects);
|
|
|
|
// First one always contains the values currently used in the GUI
|
|
Scheme := TAppColorScheme.Create;
|
|
Scheme.LoadFromSettings;
|
|
Add(Scheme);
|
|
|
|
Scheme := TAppColorScheme.Create;
|
|
Scheme.Name := SDarkScheme;
|
|
Scheme.SynSqlSyn.CommentAttri.Foreground := 8710076;
|
|
Scheme.SynSqlSyn.DataTypeAttri.Foreground := 11184895;
|
|
Scheme.SynSqlSyn.FunctionAttri.Foreground := 15792639;
|
|
Scheme.SynSqlSyn.IdentifierAttri.Foreground := 6460927;
|
|
Scheme.SynSqlSyn.KeyAttri.Foreground := 15792639;
|
|
Scheme.SynSqlSyn.NumberAttri.Foreground := 4610525;
|
|
Scheme.SynSqlSyn.StringAttri.Foreground := 5293907;
|
|
Scheme.SynSqlSyn.SymbolAttri.Foreground := 15792639;
|
|
Scheme.SynSqlSyn.TableNameAttri.Foreground := 16755327;
|
|
Scheme.SynSqlSyn.VariableAttri.Foreground := clPurple;
|
|
Scheme.ActiveLineBackground := clNone;
|
|
Scheme.MatchingBraceForeground := $0028EFFF;
|
|
Scheme.MatchingBraceBackground := $004D513B;
|
|
Scheme.HightlightSameTextBackground := clBlack;
|
|
Scheme.GridTextColors[dtcInteger] := $00FF9785;
|
|
Scheme.GridTextColors[dtcReal] := $00D07D7D;
|
|
Scheme.GridTextColors[dtcText] := $0073D573;
|
|
Scheme.GridTextColors[dtcBinary] := $00C9767F;
|
|
Scheme.GridTextColors[dtcTemporal] := $007373C9;
|
|
Scheme.GridTextColors[dtcSpatial] := $00CECE73;
|
|
Scheme.GridTextColors[dtcOther] := $0073C1C1;
|
|
Add(Scheme);
|
|
|
|
Scheme := TAppColorScheme.Create;
|
|
Scheme.Name := SLightScheme;
|
|
Scheme.SynSqlSyn.CommentAttri.Foreground := clGray;
|
|
Scheme.SynSqlSyn.DataTypeAttri.Foreground := clMaroon;
|
|
Scheme.SynSqlSyn.FunctionAttri.Foreground := clNavy;
|
|
Scheme.SynSqlSyn.IdentifierAttri.Foreground := clOlive;
|
|
Scheme.SynSqlSyn.KeyAttri.Foreground := clBlue;
|
|
Scheme.SynSqlSyn.NumberAttri.Foreground := clPurple;
|
|
Scheme.SynSqlSyn.StringAttri.Foreground := clGreen;
|
|
Scheme.SynSqlSyn.SymbolAttri.Foreground := clBlue;
|
|
Scheme.SynSqlSyn.TableNameAttri.Foreground := clFuchsia;
|
|
Scheme.SynSqlSyn.VariableAttri.Foreground := clPurple;
|
|
Scheme.ActiveLineBackground := clNone;
|
|
Scheme.MatchingBraceForeground := clBlack;
|
|
Scheme.MatchingBraceBackground := clAqua;
|
|
Scheme.HightlightSameTextBackground := $00D8F8FF;
|
|
Scheme.GridTextColors[dtcInteger] := $00FF0000;
|
|
Scheme.GridTextColors[dtcReal] := $00FF0048;
|
|
Scheme.GridTextColors[dtcText] := $00008000;
|
|
Scheme.GridTextColors[dtcBinary] := $00800080;
|
|
Scheme.GridTextColors[dtcTemporal] := $00000080;
|
|
Scheme.GridTextColors[dtcSpatial] := $00808000;
|
|
Scheme.GridTextColors[dtcOther] := $00008080;
|
|
Add(Scheme);
|
|
|
|
Scheme := TAppColorScheme.Create;
|
|
Scheme.Name := SBlackScheme;
|
|
Scheme.SynSqlSyn.CommentAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.DataTypeAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.FunctionAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.IdentifierAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.KeyAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.NumberAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.StringAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.SymbolAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.TableNameAttri.Foreground := clBlack;
|
|
Scheme.SynSqlSyn.VariableAttri.Foreground := clBlack;
|
|
Scheme.ActiveLineBackground := clNone;
|
|
Scheme.MatchingBraceForeground := clBlack;
|
|
Scheme.MatchingBraceBackground := clAqua;
|
|
Scheme.HightlightSameTextBackground := $00F4F4F4;
|
|
Scheme.GridTextColors[dtcInteger] := $00000000;
|
|
Scheme.GridTextColors[dtcReal] := $00000000;
|
|
Scheme.GridTextColors[dtcText] := $00000000;
|
|
Scheme.GridTextColors[dtcBinary] := $00000000;
|
|
Scheme.GridTextColors[dtcTemporal] := $00000000;
|
|
Scheme.GridTextColors[dtcSpatial] := $00000000;
|
|
Scheme.GridTextColors[dtcOther] := $00000000;
|
|
Add(Scheme);
|
|
|
|
Scheme := TAppColorScheme.Create;
|
|
Scheme.Name := SWhiteScheme;
|
|
Scheme.SynSqlSyn.CommentAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.DataTypeAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.FunctionAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.IdentifierAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.KeyAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.NumberAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.StringAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.SymbolAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.TableNameAttri.Foreground := clWhite;
|
|
Scheme.SynSqlSyn.VariableAttri.Foreground := clWhite;
|
|
Scheme.ActiveLineBackground := clNone;
|
|
Scheme.MatchingBraceForeground := $0028EFFF;
|
|
Scheme.MatchingBraceBackground := $004D513B;
|
|
Scheme.HightlightSameTextBackground := clBlack;
|
|
Scheme.GridTextColors[dtcInteger] := $00FFFFFF;
|
|
Scheme.GridTextColors[dtcReal] := $00FFFFFF;
|
|
Scheme.GridTextColors[dtcText] := $00FFFFFF;
|
|
Scheme.GridTextColors[dtcBinary] := $00FFFFFF;
|
|
Scheme.GridTextColors[dtcTemporal] := $00FFFFFF;
|
|
Scheme.GridTextColors[dtcSpatial] := $00FFFFFF;
|
|
Scheme.GridTextColors[dtcOther] := $00FFFFFF;
|
|
Add(Scheme);
|
|
end;
|
|
|
|
procedure TAppColorSchemes.ApplyLight;
|
|
var
|
|
Scheme: TAppColorScheme;
|
|
begin
|
|
for Scheme in Self do begin
|
|
if Scheme.Name = SLightScheme then begin
|
|
Scheme.Apply;
|
|
Break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
procedure TAppColorSchemes.ApplyDark;
|
|
var
|
|
Scheme: TAppColorScheme;
|
|
begin
|
|
for Scheme in Self do begin
|
|
if Scheme.Name = SDarkScheme then begin
|
|
Scheme.Apply;
|
|
Break;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
initialization
|
|
|
|
SetJSONInstanceType(jitNumberFloat, TJSONFloatNumberUntouched);
|
|
|
|
|
|
end.
|