paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-18 01:29:33 +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

9
lcl/include/brush.inc
View File

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