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

MG: improved TFont for XLFD font names

Browse Source 
git-svn-id: trunk@1048 -
This commit is contained in:
lazarus 2002-02-09 01:47:43 +00:00
parent c7ce14d1ab
commit e8786384f5
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
lcl/include/interfacebase.inc
View File

@ -123,6 +123,15 @@ begin
Result := 0;
end;
function TInterfaceBase.CreateFontIndirectEx(const LogFont: TLogFont;
const LongFontName: string): HFONT;
begin
// this functions is needed, because the fontname in TLogFont is limited to
// 32 characters. If the interface does not support long font names, it can
// simple omitt this function
Result := CreateFontIndirect(LogFont);
end;
function TInterfaceBase.CreatePenIndirect(const LogPen: TLogPen): HPEN;
begin
Result := 0;
@ -574,6 +583,9 @@ end;
{ =============================================================================
$Log$
Revision 1.31 2002/06/04 15:17:22 lazarus
MG: improved TFont for XLFD font names
Revision 1.30 2002/05/27 17:58:41 lazarus
MG: added command line help