paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 13:19:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

SQLDB: Enforce usage of default SynEdit font in GenerateSQLDlg form. Patch by Don Siders (see issue #39975).

Browse Source
This commit is contained in:
wp_xyz 2022-11-20 16:32:34 +01:00
parent f40f8d5c28
commit ecf49109b1
2 changed files with 25 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/sqldb/generatesqldlg.lfm
View File

@ -264,13 +264,13 @@ object GenerateSQLForm: TGenerateSQLForm
Width = 788
Align = alClient
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
Gutter.Width = 55
Gutter.Width = 53
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
@ -727,7 +727,7 @@ object GenerateSQLForm: TGenerateSQLForm
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15
Width = 13
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
@ -769,13 +769,13 @@ object GenerateSQLForm: TGenerateSQLForm
Width = 788
Align = alClient
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
Gutter.Width = 55
Gutter.Width = 53
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
@ -1232,7 +1232,7 @@ object GenerateSQLForm: TGenerateSQLForm
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15
Width = 13
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
@ -1274,13 +1274,13 @@ object GenerateSQLForm: TGenerateSQLForm
Width = 788
Align = alClient
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
Gutter.Width = 55
Gutter.Width = 53
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
@ -1737,7 +1737,7 @@ object GenerateSQLForm: TGenerateSQLForm
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15
Width = 13
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
@ -1779,13 +1779,13 @@ object GenerateSQLForm: TGenerateSQLForm
Width = 788
Align = alClient
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
Gutter.Width = 55
Gutter.Width = 53
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
@ -2242,7 +2242,7 @@ object GenerateSQLForm: TGenerateSQLForm
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15
Width = 13
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone
@ -2284,13 +2284,13 @@ object GenerateSQLForm: TGenerateSQLForm
Width = 788
Align = alClient
Font.Height = 13
Font.Name = 'DejaVu Sans Mono'
Font.Name = 'Courier New'
Font.Pitch = fpFixed
Font.Quality = fqNonAntialiased
ParentColor = False
ParentFont = False
TabOrder = 0
Gutter.Width = 55
Gutter.Width = 53
Gutter.MouseActions = <>
RightGutter.Width = 0
RightGutter.MouseActions = <>
@ -2747,7 +2747,7 @@ object GenerateSQLForm: TGenerateSQLForm
MouseActions = <>
end
object SynGutterLineNumber1: TSynGutterLineNumber
Width = 15
Width = 13
MouseActions = <>
MarkupInfo.Background = clBtnFace
MarkupInfo.Foreground = clNone

10
components/sqldb/generatesqldlg.pp
View File

@ -532,6 +532,16 @@ procedure TGenerateSQLForm.FormCreate(Sender: TObject);
begin
Caption:= lrsGeneratesqlstatements;
EdtQuoteChar.Text:='"';
MSelect.Font.Height := SynDefaultFontHeight;
MSelect.Font.Name := SynDefaultFontName;
MInsert.Font.Height := SynDefaultFontHeight;
MInsert.Font.Name := SynDefaultFontName;
MUpdate.Font.Height := SynDefaultFontHeight;
MUpdate.Font.Name := SynDefaultFontName;
MDelete.Font.Height := SynDefaultFontHeight;
MDelete.Font.Name := SynDefaultFontName;
MRefresh.Font.Height := SynDefaultFontHeight;
MRefresh.Font.Name := SynDefaultFontName;
end;
procedure TGenerateSQLForm.BGenerateClick(Sender: TObject);