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

* x86_64 fix: Debugln of TFontHandleCache.Add

Browse Source 
git-svn-id: trunk@6396 -
This commit is contained in:
marc 2004-12-19 21:38:21 +00:00
parent 529d872aea
commit bfa23e222a
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/font.inc
View File

@ -112,7 +112,7 @@ begin
Result.LogFont:=LogFont; Result.LogFont:=LogFont;
FDescriptors.Add(Result); FDescriptors.Add(Result);
if FindFontDesc(LogFont,LongFontName)=nil then begin if FindFontDesc(LogFont,LongFontName)=nil then begin
debugln('TFontHandleCache.Add Added: ',HexStr(Cardinal(Result),8),' LongFontName=',Result.LongFontName); DebugLn('TFontHandleCache.Add Added: %p LongFontName=%s',[Pointer(Result), Result.LongFontName]);
RaiseGDBException(''); RaiseGDBException('');
end; end;
end; end;
@ -964,6 +964,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.21 2004/12/19 21:38:21 marc
* x86_64 fix: Debugln of TFontHandleCache.Add
Revision 1.20 2004/11/10 18:23:56 mattias Revision 1.20 2004/11/10 18:23:56 mattias
impementing changing a TLabel.Font properties Size, Height, Name, Style - set only at Handle creation time impementing changing a TLabel.Font properties Size, Height, Name, Style - set only at Handle creation time