paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 00:54:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Synedit: improve default-font (check it exists)

Browse Source 
git-svn-id: trunk@25441 -
This commit is contained in:
martin 2010-05-15 18:57:55 +00:00
parent 754af06409
commit aa6b21a51f
1 changed files with 34 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

51
components/synedit/synedit.pp
View File

@ -94,23 +94,12 @@ const
ALPHA_LC = ['a'..'z']; ALPHA_LC = ['a'..'z'];
ScrollBarWidth=0; ScrollBarWidth=0;
{$UNDEF SynDefaultFont}
{$IFDEF LCLgtk} // SynDefaultFont is determined in InitSynDefaultFont()
SynDefaultFontName = '-adobe-courier-medium-r-normal-*-*-140-*-*-*-*-iso10646-1'; SynDefaultFontName: String = '';
SynDefaultFontHeight = 14; SynDefaultFontHeight: Integer = 13;
{$DEFINE SynDefaultFont} SynDefaultFontPitch: TFontPitch = fpFixed;
{$ENDIF} SynDefaultFontQuality: TFontQuality = fqNonAntialiased;
{$IFDEF LCLcarbon}
SynDefaultFontName = 'Monaco'; // Note: carbon is case sensitive
SynDefaultFontHeight = 12;
{$DEFINE SynDefaultFont}
{$ENDIF}
{$IFNDEF SynDefaultFont}
SynDefaultFontName = 'Courier New';
SynDefaultFontHeight = -13;
{$ENDIF}
SynDefaultFontPitch = fpFixed;
SynDefaultFontQuality = fqNonAntialiased;
{$IFNDEF SYN_COMPILER_3_UP} {$IFNDEF SYN_COMPILER_3_UP}
// not defined in all Delphi versions // not defined in all Delphi versions
@ -1297,6 +1286,33 @@ begin
Result := (Code = TMethod(AEvent).Code) and (Data = TMethod(AEvent).Data); Result := (Code = TMethod(AEvent).Code) and (Data = TMethod(AEvent).Data);
end; end;
procedure InitSynDefaultFont;
begin
if SynDefaultFontName <> '' then exit;
Screen.Fonts;
{$UNDEF SynDefaultFont}
{$IFDEF LCLgtk}
SynDefaultFontName := '-adobe-courier-medium-r-normal-*-*-140-*-*-*-*-iso10646-1';
SynDefaultFontHeight := 14;
{$DEFINE SynDefaultFont}
{$ENDIF}
{$IFDEF LCLcarbon}
SynDefaultFontName := 'Monaco'; // Note: carbon is case sensitive
SynDefaultFontHeight := 12;
{$DEFINE SynDefaultFont}
{$ENDIF}
{$IFnDEF SynDefaultFont}
SynDefaultFontName := 'Courier New';
SynDefaultFontHeight := -13;
{$ENDIF}
if Screen.Fonts.IndexOf(SynDefaultFontName) >= 0 then
exit;
if Screen.Fonts.IndexOf('DejaVu Sans Mono') >= 0 then begin
SynDefaultFontName := 'DejaVu Sans Mono';
SynDefaultFontHeight := 13;
end;
end;
{ TCustomSynEdit } { TCustomSynEdit }
procedure TCustomSynEdit.AquirePrimarySelection; procedure TCustomSynEdit.AquirePrimarySelection;
@ -1511,6 +1527,7 @@ end;
constructor TCustomSynEdit.Create(AOwner: TComponent); constructor TCustomSynEdit.Create(AOwner: TComponent);
begin begin
InitSynDefaultFont;
inherited Create(AOwner); inherited Create(AOwner);
SetInline(True); SetInline(True);
ControlStyle:=ControlStyle+[csOwnedChildrenNotSelectable]; ControlStyle:=ControlStyle+[csOwnedChildrenNotSelectable];