opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-26 22:00:16 +08:00
Code Issues Packages Projects Releases Wiki Activity

Issue #8: add "Black" and "White" SQL color presets

Browse Source
This commit is contained in:
Ansgar Becker
2018-11-25 14:12:36 +01:00
parent 94aed8be05
commit 665dacdc59
2 changed files with 42 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
source/options.dfm
View File

@ -1358,4 +1358,44 @@ object optionsform: Toptionsform
Left = 120
Top = 352
end
object SynSQLSyn_Black: TSynSQLSyn
Options.AutoDetectEnabled = False
Options.AutoDetectLineLimit = 0
Options.Visible = False
CommentAttri.Foreground = clBlack
ConditionalCommentAttri.Foreground = clBlack
DataTypeAttri.Foreground = clBlack
DelimitedIdentifierAttri.Foreground = clBlack
FunctionAttri.Foreground = clBlack
IdentifierAttri.Foreground = clBlack
KeyAttri.Foreground = clBlack
NumberAttri.Foreground = clBlack
StringAttri.Foreground = clBlack
SymbolAttri.Foreground = clBlack
TableNameAttri.Foreground = clBlack
VariableAttri.Foreground = clBlack
SQLDialect = sqlMySQL
Left = 196
Top = 404
end
object SynSQLSyn_White: TSynSQLSyn
Options.AutoDetectEnabled = False
Options.AutoDetectLineLimit = 0
Options.Visible = False
CommentAttri.Foreground = clWhite
ConditionalCommentAttri.Foreground = clWhite
DataTypeAttri.Foreground = clWhite
DelimitedIdentifierAttri.Foreground = clWhite
FunctionAttri.Foreground = clWhite
IdentifierAttri.Foreground = clWhite
KeyAttri.Foreground = clWhite
NumberAttri.Foreground = clWhite
StringAttri.Foreground = clWhite
SymbolAttri.Foreground = clWhite
TableNameAttri.Foreground = clWhite
VariableAttri.Foreground = clWhite
SQLDialect = sqlMySQL
Left = 284
Top = 404
end
end

2
source/options.pas
View File

@ -157,6 +157,8 @@ type
lblSqlFontSize: TLabel;
SynSQLSyn_Dark: TSynSQLSyn;
SynSQLSyn_Light: TSynSQLSyn;
SynSQLSyn_Black: TSynSQLSyn;
SynSQLSyn_White: TSynSQLSyn;
procedure FormShow(Sender: TObject);
procedure Modified(Sender: TObject);
procedure Apply(Sender: TObject);