paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-05 09:38:50 +01:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit: Changes to font handling. Fixed bug #12011 / bug #7828 and further fix to bug #12482

Browse Source 
git-svn-id: trunk@18538 -
This commit is contained in:
martin 2009-02-02 21:33:12 +00:00
parent 2ee4dda931
commit 0b4a2d7e77
1 changed files with 11 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

67
components/synedit/synedit.pp
View File

@ -447,7 +447,6 @@ type
function GetCanUndo: Boolean;
function GetCaretXY: TPoint;
function GetFoldedCodeColor: TSynSelectedColor;
function GetFont: TFont;
function GetMarkup(Index: integer): TSynEditMarkup;
function GetMarkupByClass(Index: TSynEditMarkupClass): TSynEditMarkup;
{$IFDEF SYN_LAZARUS}
@ -523,7 +522,6 @@ type
procedure SetCaretX(Value: Integer);
procedure SetCaretY(Value: Integer);
procedure SetExtraLineSpacing(const Value: integer);
procedure SetFont(const Value: TFont);
procedure SetGutter(const Value: TSynGutter);
procedure SetHideSelection(const Value: boolean);
procedure SetHighlighter(const Value: TSynCustomHighlighter);
@ -844,7 +842,6 @@ type
property SelEnd: Integer read GetSelEnd write SetSelEnd;
property UseIncrementalColor : Boolean write SetUseIncrementalColor;
{$ENDIF}
property Font: TFont read GetFont write SetFont;
property GutterWidth: Integer read fGutterWidth;
property Highlighter: TSynCustomHighlighter
read fHighlighter write SetHighlighter;
@ -1711,11 +1708,6 @@ begin
SizeOrFontChanged(TRUE);
end;
function TCustomSynEdit.GetFont: TFont;
begin
Result := inherited Font;
end;
function TCustomSynEdit.GetLines: TStrings;
begin
Result := FLines;
@ -4273,53 +4265,6 @@ begin
{$ENDIF}
end;
procedure TCustomSynEdit.SetFont(const Value: TFont);
var
DC: HDC;
Save: THandle;
Metrics: TTextMetric;
AveCW, MaxCW: Integer;
begin
DebugLn('TCustomSynEdit.SetFont--------------------------------------------');
DebugLn(' TCustomSynEdit.SetFont A1',Value.Name);
DC := GetDC(0);
Save := SelectObject(DC, Value.Reference.Handle);
DebugLn(' TCustomSynEdit.SetFont A2',Value.Name);
GetTextMetrics(DC, Metrics);
SelectObject(DC, Save);
ReleaseDC(0, DC);
with Metrics do begin
AveCW := tmAveCharWidth;
MaxCW := tmMaxCharWidth;
end;
DebugLn(Format(' TCustomSynEdit.SetFont B %d,%d,%s', [AveCW,MaxCW, Value.Name]));
case AveCW = MaxCW of
True: inherited Font := Value;
False:
begin
with fFontDummy do begin
{$IFDEF SYN_LAZARUS}
BeginUpdate;
{$ENDIF}
DebugLn(' TCustomSynEdit.SetFont C fFontDummy="',fFontDummy.Name,'"');
Color := Value.Color;
Pitch := fpFixed;
Size := Value.Size;
Style := Value.Style;
{$IFDEF SYN_LAZARUS}
Quality := Value.Quality;
EndUpdate;
{$ENDIF}
end;
DebugLn(Format(' TCustomSynEdit.SetFont D AveCW=%d MaxCW=%d Value="%s" Value.Size=%d Value.Height=%d DummyHeight=%d fFontDummy="%s"', [AveCW, MaxCW, Value.Name, Value.Size, Value.Height, fFontDummy.Height, fFontDummy.Name]));
inherited Font := fFontDummy;
end;
end;
DebugLn(Format(' TCustomSynEdit.SetFont E "%s" Height=%d AveCW=%d MaxCW=%d CharWidth=%d', [Font.Name, Font.Height, AveCW, MaxCW, CharWidth]));
//if fGutter.ShowLineNumbers then
GutterChanged(Self); // Todo: Make the LineNumberGutterPart an observer
end;
procedure TCustomSynEdit.SetLeftChar(Value: Integer);
{begin} //mh 2000-10-19
var
@ -8636,10 +8581,19 @@ const
BoldStyles: array[boolean] of TFontStyles = ([], [fsBold]);
ItalicStyles: array[boolean] of TFontStyles = ([], [fsItalic]);
begin
FFontDummy.Assign(Font);
with FFontDummy do begin
// Keep GTK happy => By ensuring a change the XFLD fontname gets cleared
Pitch := fpVariable;
Style := [fsBold];
Pitch := fpDefault; // maybe Fixed
// TODO: Clear style only, if Highlighter uses styles
Style := []; // Reserved for Highlighter
end;
with fTextDrawer do begin
//debugln('TCustomSynEdit.RecalcCharExtent A UseUTF8=',dbgs(UseUTF8),
// ' Font.CanUTF8='+dbgs(Font.CanUTF8)+' CharHeight=',dbgs(CharHeight));
BaseFont := Self.Font;
BaseFont := FFontDummy;
BaseStyle := ItalicStyles[UsesFontStyle(fsItalic)];
//debugln('TCustomSynEdit.RecalcCharExtent B CharHeight=',dbgs(CharHeight));
fTextHeight := CharHeight + fExtraLineSpacing;
@ -8652,6 +8606,7 @@ begin
TSynEditStrings(fLines).IsUtf8 := FUseUTF8;
//debugln('TCustomSynEdit.RecalcCharExtent UseUTF8=',dbgs(UseUTF8),' Font.CanUTF8=',dbgs(Font.CanUTF8));
{$ENDIF}
GutterChanged(Self);
end;
procedure TCustomSynEdit.HighlighterAttrChanged(Sender: TObject);