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

fixed default font

Browse Source 
git-svn-id: trunk@2325 -
This commit is contained in:
mattias 2002-08-17 23:41:16 +00:00
parent 19b1eab0d1
commit 3ad2a817de
3 changed files with 22 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/controls.pp
View File

@ -286,10 +286,11 @@ type
TControlCanvas = class(TCanvas)
private
FControl: Tcontrol;
FControl: TControl;
FDeviceContext: HDC;
FWindowHandle: HWND;
procedure SetControl(AControl: TControl);
procedure CreateFont; override;
protected
procedure CreateHandle; override;
public
@ -1447,6 +1448,9 @@ end.
{ =============================================================================
$Log$
Revision 1.111 2003/04/02 13:23:23 mattias
fixed default font
Revision 1.110 2003/03/25 10:45:40 mattias
reduced focus handling and improved focus setting

13
lcl/include/controlcanvas.inc
View File

@ -32,6 +32,16 @@ begin
end;
end;
{------------------------------------------------------------------------------
procedure TControlCanvas.CreateFont;
------------------------------------------------------------------------------}
procedure TControlCanvas.CreateFont;
begin
inherited CreateFont;
//writeln('TControlCanvas.CreateFont A ',ClassName,' Control=',Control.Name,':',Control.ClassName,' ',Font.Name,' ',Font.Height);
//if Control.ClassName='TSpeedButton' then RaiseGDBException('ARRGH');
end;
{------------------------------------------------------------------------------
Method: TControlCanvas.Create
Params: none
@ -103,6 +113,9 @@ end;
{ =============================================================================
$Log$
Revision 1.5 2003/04/02 13:23:23 mattias
fixed default font
Revision 1.4 2002/05/10 06:05:51 lazarus
MG: changed license to LGPL

5
lcl/interfaces/gtk/gtkproc.inc
View File

@ -3399,7 +3399,7 @@ end;
a generic fixed font, if THAT fails, it gets whatever font is available.
If the result is not nil it MUST be GDK_FONT_UNREF'd when done.
------------------------------------------------------------------------------}
function GetDefaultFont : PGDKFont;
function GetDefaultFont: PGDKFont;
var
Style : PGTKStyle;
begin
@ -4015,6 +4015,9 @@ end;
{ =============================================================================
$Log$
Revision 1.166 2003/04/02 13:23:24 mattias
fixed default font
Revision 1.165 2003/03/28 19:39:54 mattias
started typeinfo for double extended