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

increased verbosity on double adding font to cache

Browse Source 
git-svn-id: trunk@5766 -
This commit is contained in:
mattias 2004-08-10 21:56:23 +00:00
parent 1410eb274a
commit d9389ed03a
1 changed files with 37 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

61
lcl/interfaces/gtk/gtkfontcache.pas
View File

@ -51,6 +51,7 @@ type
destructor Destroy; override; destructor Destroy; override;
procedure IncreaseRefCount; procedure IncreaseRefCount;
procedure DecreaseRefCount; procedure DecreaseRefCount;
function DebugReport: string;
end; end;
{ TGdkFontCache } { TGdkFontCache }
@ -170,6 +171,32 @@ begin
Free; Free;
end; end;
function TGdkFontCacheItem.DebugReport: string;
var
i: Integer;
begin
Result:=HexStr(Cardinal(GdkFont),8)
+' LongFontName="'+LongFontName+'" '
+' lfFaceName="'+LogFont.lfFaceName+'" '
+' CharSet='+dbgs(LogFont.lfCharSet)
+' ClipPrecision='+dbgs(LogFont.lfClipPrecision)
+' Escapement='+dbgs(LogFont.lfEscapement)
+' Height='+dbgs(LogFont.lfHeight)
+' Italic='+dbgs(LogFont.lfItalic)
+' Orientation='+dbgs(LogFont.lfOrientation)
+' OutPrecision='+dbgs(LogFont.lfOutPrecision)
+' PitchAndFamily='+dbgs(LogFont.lfPitchAndFamily)
+' Quality='+dbgs(LogFont.lfQuality)
+' StrikeOut='+dbgs(LogFont.lfStrikeOut)
+' Underline='+dbgs(LogFont.lfUnderline)
+' Weight='+dbgs(LogFont.lfWeight)
+' Width='+dbgs(LogFont.lfWidth)
+#13;
for i:=0 to SizeOf(LogFont)-1 do
Result:=Result+hexstr(ord(PChar(@LogFont)[i]),2);
Result:=Result+#13;
end;
{ TGdkFontCache } { TGdkFontCache }
constructor TGdkFontCache.Create; constructor TGdkFontCache.Create;
@ -230,6 +257,14 @@ end;
procedure TGdkFontCache.Add(Item: TGdkFontCacheItem); procedure TGdkFontCache.Add(Item: TGdkFontCacheItem);
var var
OldItem: TGdkFontCacheItem; OldItem: TGdkFontCacheItem;
procedure RaiseGDKFontAlreadyAdded;
begin
debugln('TGdkFontCache.Add New='+Item.DebugReport);
debugln('TGdkFontCache.Add Old='+OldItem.DebugReport);
RaiseGDBException('TGdkFontCache.Add');
end;
//ANode: TAvgLvlTreeNode; //ANode: TAvgLvlTreeNode;
begin begin
{$IFDEF VerboseFontCache} {$IFDEF VerboseFontCache}
@ -237,11 +272,8 @@ begin
' LongFontName=',Item.LongFontName,' lfFaceName=',Item.LogFont.lfFaceName); ' LongFontName=',Item.LongFontName,' lfFaceName=',Item.LogFont.lfFaceName);
{$ENDIF} {$ENDIF}
OldItem:=FindGDKFont(Item.GdkFont); OldItem:=FindGDKFont(Item.GdkFont);
if OldItem<>nil then begin if OldItem<>nil then
debugln('TGdkFontCache.Add New=',Item.LongFontName,'/',Item.LogFont.lfFaceName); RaiseGDKFontAlreadyAdded;
debugln('TGdkFontCache.Add Old=',OldItem.LongFontName,'/',OldItem.LogFont.lfFaceName);
RaiseGDBException('TGdkFontCache.Add');
end;
FItemsSortedForGdkFont.Add(Item); FItemsSortedForGdkFont.Add(Item);
FItemsSortedForLogFont.Add(Item); FItemsSortedForLogFont.Add(Item);
@ -272,31 +304,12 @@ procedure TGdkFontCache.Add(TheGdkFont: PGDKFont; const LogFont: TLogFont;
const LongFontName: string); const LongFontName: string);
var var
NewItem: TGdkFontCacheItem; NewItem: TGdkFontCacheItem;
i: Integer;
begin begin
if FindGDKFont(LogFont,LongFontName)<>nil then if FindGDKFont(LogFont,LongFontName)<>nil then
RaiseGDBException('TGdkFontCache.Add Already exists'); RaiseGDBException('TGdkFontCache.Add Already exists');
NewItem:=CreateNewItem(TheGdkFont); NewItem:=CreateNewItem(TheGdkFont);
NewItem.LogFont:=LogFont; NewItem.LogFont:=LogFont;
NewItem.LongFontName:=LongFontName; NewItem.LongFontName:=LongFontName;
{debugln('TGdkFontCache.Add ',HexStr(Cardinal(TheGdkFont),8),
' LongFontName=',LongFontName,' lfFaceName=',LogFont.lfFaceName,
' '+dbgs(LogFont.lfCharSet)
+' '+dbgs(LogFont.lfClipPrecision)
+' '+dbgs(LogFont.lfEscapement)
+' '+dbgs(LogFont.lfHeight)
+' '+dbgs(LogFont.lfItalic)
+' '+dbgs(LogFont.lfOrientation)
+' '+dbgs(LogFont.lfOutPrecision)
+' '+dbgs(LogFont.lfPitchAndFamily)
+' '+dbgs(LogFont.lfQuality)
+' '+dbgs(LogFont.lfStrikeOut)
+' '+dbgs(LogFont.lfUnderline)
+' '+dbgs(LogFont.lfWeight)
+' '+dbgs(LogFont.lfWidth));
for i:=0 to SizeOf(LogFont)-1 do
write(hexstr(ord(PChar(@LogFont)[i]),2));
writeln('');}
Add(NewItem); Add(NewItem);
if FindGDKFont(LogFont,LongFontName)=nil then if FindGDKFont(LogFont,LongFontName)=nil then
RaiseGDBException('TGdkFontCache.Add added where?'); RaiseGDBException('TGdkFontCache.Add added where?');