mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-15 15:59:08 +02:00
Minor tweaks, default font caching.
git-svn-id: trunk@683 -
This commit is contained in:
parent
170fc3c261
commit
4a3eccc415
@ -31,6 +31,7 @@ begin
|
|||||||
FPaintMessages.OwnerHashFunction := @HashPaintMessage;
|
FPaintMessages.OwnerHashFunction := @HashPaintMessage;
|
||||||
FAccelGroup := gtk_accel_group_new();
|
FAccelGroup := gtk_accel_group_new();
|
||||||
FTimerData := TList.Create;
|
FTimerData := TList.Create;
|
||||||
|
FDefaultFont:= nil;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
{------------------------------------------------------------------------------
|
{------------------------------------------------------------------------------
|
||||||
@ -3563,9 +3564,16 @@ end;
|
|||||||
------------------------------------------------------------------------------}
|
------------------------------------------------------------------------------}
|
||||||
function TgtkObject.CreateDefaultFont: PGdiObject;
|
function TgtkObject.CreateDefaultFont: PGdiObject;
|
||||||
begin
|
begin
|
||||||
//write(' TgtkObject.CreateDefaultFont ->');
|
|
||||||
Result := NewGDIObject(gdiFont);
|
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;
|
end;
|
||||||
|
|
||||||
{------------------------------------------------------------------------------
|
{------------------------------------------------------------------------------
|
||||||
@ -3769,6 +3777,9 @@ end;
|
|||||||
{ =============================================================================
|
{ =============================================================================
|
||||||
|
|
||||||
$Log$
|
$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
|
Revision 1.104 2002/02/18 22:46:11 lazarus
|
||||||
Implented TMenuItem.ShortCut (not much tested).
|
Implented TMenuItem.ShortCut (not much tested).
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user