On Mon, 21 Feb 2011, zeljko wrote:
On Monday 21 of February 2011 16:08:34 Michael Van Canneyt wrote:
Hi,
I attached a small image of the SQL editor of TSQLQuery.
Lazarus version of today.
The code in sqlstringspropertyeditordlg.pas (components/sqldb):
constructor TSQLStringsPropertyEditorDlg.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
SourceEditorManagerIntf.GetEditorControlSettings(SQLEditor);
SourceEditorManagerIntf.GetHighlighterSettings(SQLHighlighter);
EditorTabSheet.Caption := SSQLTabCaption;
ResultTabSheet.Caption := SResultTabCaption;
end;
Suggests that the font in the SQL property editor should be the
same as the source editor font. From the attached image, it is
clear that they are different.
(Probably it is the same typeface, but the font in the SQL editor
is much smaller as in the source editor)
I assume this is a bug ? How can I fix this ?
hm...looks like mismatch between Font.Size and Font.Height
Yes, you said this last time I reported it, but nothing changed :)
But how to fix it ? Is it a bug in GetEditorControlSettings ?
I assume so, because it definitely overrides the settings I set in the dialog
form file.
As far as I can see, it ends up in editoroptions.pp:
procedure TEditorOptions.ApplyFontSettingsTo(ASynEdit: TSynEdit);
begin
ASynEdit.Font.Height := fEditorFontHeight;// set height before name for XLFD !
ASynEdit.Font.Name := fEditorFont;
if fDisableAntialiasing then
ASynEdit.Font.Quality := fqNonAntialiased
else
ASynEdit.Font.Quality := fqDefault;
end;
Is this a buggy procedure ?
Michael.
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
