paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 00:39:44 +02:00
Code Issues Packages Projects Releases Wiki Activity

SynEdit, Cleanup: removed some unused code

Browse Source 
git-svn-id: trunk@18537 -
This commit is contained in:
martin 2009-02-02 21:31:30 +00:00
parent bc26d214a2
commit 2ee4dda931
1 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/synedit/syntextdrawer.pp
View File

@ -105,8 +105,6 @@ type
FontsData: TheFontsData;
end;
{ TheStockFontManager }
{ TheFontsInfoManager }
TheFontsInfoManager = class
@ -147,9 +145,6 @@ type
FCrntStyle: TFontStyles;
FpCrntFontData: PheFontData;
// local font info
{$IFDEF SYN_LAZARUS}
FBaseFontName: string;
{$ENDIF}
function GetBaseFont: TFont;
function GetIsDBCSFont: Boolean;
function GetIsTrueType: Boolean;
@ -770,15 +765,7 @@ begin
end else begin
ReleaseFontsInfo;
FpInfo := pInfo;
{$IFDEF SYN_LAZARUS}
FBaseFontName := FpInfo^.BaseFont.Name;
if IsFontNameXLogicalFontDesc(FBaseFontName) then begin
// clear styles and height
FBaseFontName:=ClearXLFDStyle(FBaseFontName);
FBaseFontName:=ClearXLFDHeight(FBaseFontName);
end;
// clear styles
{$ENDIF}
SetStyle(Value.Style);
end;
end