paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 19:59:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

AJ: added TShape

Browse Source 
git-svn-id: trunk@3592 -
This commit is contained in:
lazarus 2002-10-31 04:27:59 +00:00
parent 038aaa7cb3
commit ba7fa204bd
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/include/brush.inc
View File

@ -112,9 +112,9 @@ begin
Bitmap := TBrush(Source).Bitmap; Bitmap := TBrush(Source).Bitmap;
Color := TBrush(Source).Color; Color := TBrush(Source).Color;
Style := TBrush(Source).Style; Style := TBrush(Source).Style;
end; end
else
inherited Assign(Source); inherited Assign(Source);
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------
@ -194,6 +194,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.4 2002/10/31 04:27:59 lazarus
AJ: added TShape
Revision 1.3 2002/09/18 17:07:24 lazarus Revision 1.3 2002/09/18 17:07:24 lazarus
MG: added patch from Andrew MG: added patch from Andrew