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

Minor tweaks, default font caching.

Browse Source 
git-svn-id: trunk@683 -
This commit is contained in:
lazarus 2002-02-09 01:45:10 +00:00
parent 170fc3c261
commit 4a3eccc415
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/gtk/gtkobject.inc
View File

@ -31,6 +31,7 @@ begin
FPaintMessages.OwnerHashFunction := @HashPaintMessage;
FAccelGroup := gtk_accel_group_new();
FTimerData := TList.Create;
FDefaultFont:= nil;
end;
{------------------------------------------------------------------------------
@ -3563,9 +3564,16 @@ end;
------------------------------------------------------------------------------}
function TgtkObject.CreateDefaultFont: PGdiObject;
begin
//write(' TgtkObject.CreateDefaultFont ->');
Result := NewGDIObject(gdiFont);
Result^.GDIFontObject := gdk_font_load('-*-helvetica-bold-r-normal--*-120-*-*-*-*-iso8859-1');
if FDefaultFont = nil then begin
FDefaultFont:= gdk_font_load('-adobe-helvetica-medium-r-normal--*-120-*-*-*-*-iso8859-1');
if FDefaultFont = nil then begin
FDefaultFont:= gdk_font_load ('fixed');
if FDefaultFont = nil then raise EOutOfResources.Create('Unable to load default font');
end;
end;
Result^.GDIFontObject:= FDefaultFont;
gdk_font_ref(Result^.GDIFontObject);
end;
{------------------------------------------------------------------------------
@ -3769,6 +3777,9 @@ end;
{ =============================================================================
$Log$
Revision 1.105 2002/02/20 19:11:48 lazarus
Minor tweaks, default font caching.
Revision 1.104 2002/02/18 22:46:11 lazarus
Implented TMenuItem.ShortCut (not much tested).