Release 0.1.5: Most Orph controls now work with latest Carbon widgetset.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@201 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
macpgmr
2007-06-30 18:40:18 +00:00
parent e0831713d2
commit b6098dba58
5 changed files with 36 additions and 24 deletions

View File

@@ -209,7 +209,11 @@ begin
FShadowColor := clBtnShadow;
FShadowedText := False;
{$IFDEF MSWINDOWS}
Font.Name := 'Arial';
{$ELSE}
Font.Name := 'default';
{$ENDIF}
Height := 20;
Width := 130;
@@ -490,7 +494,9 @@ begin
GetTextMetrics(Canvas.Handle, TM);
if (TM.tmPitchAndFamily and TMPF_TRUETYPE) = 0 then
{force true-type font}
{$IFDEF MSWINDOWS}
Font.Name := 'Arial';
{$ENDIF}
end;
end;
if Value < 0 then Neg := -1 else Neg := 1;