paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-26 12:27:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

MG: small bugfixes

Browse Source 
git-svn-id: trunk@2678 -
This commit is contained in:
lazarus 2002-08-18 04:56:41 +00:00
parent e5676cc1be
commit 0198ac77b8
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/include/canvas.inc
View File

@ -571,7 +571,8 @@ end;
Returns: Nothing Returns: Nothing
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TCanvas.TextRect(Rect: TRect; X, Y : Integer; const Text : String; const Style : TTextStyle); procedure TCanvas.TextRect(Rect: TRect; X, Y : Integer; const Text : String;
const Style : TTextStyle);
var var
Options : Longint; Options : Longint;
fRect : TRect; fRect : TRect;
@ -627,7 +628,7 @@ begin
end end
else else
RequiredState([csHandleValid, csFontValid]); RequiredState([csHandleValid, csFontValid]);
DrawText(Self.Handle, pChar(Text), Length(Text), fRect, Options) DrawText(Self.Handle, pChar(Text), Length(Text), fRect, Options);
end; end;
@ -1040,6 +1041,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.26 2002/09/12 15:35:57 lazarus
MG: small bugfixes
Revision 1.25 2002/09/03 08:07:19 lazarus Revision 1.25 2002/09/03 08:07:19 lazarus
MG: image support, TScrollBox, and many other things from Andrew MG: image support, TScrollBox, and many other things from Andrew