paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 19:49:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fixes in DoCopyProps. Fixes issue #40362

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-10-12 11:11:33 +02:00
parent 0d37b3c6ec
commit 9ef5b8bce9
3 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fcl-image/src/fpbrush.inc
View File

@ -30,6 +30,7 @@ begin
begin
self.Style := Style;
self.Image := Image;
self.Pattern := Pattern;
end;
inherited DoCopyProps(From);
end;

15
packages/fcl-image/src/fpfont.inc
View File

@ -37,13 +37,14 @@ end;
procedure TFPCustomFont.DoCopyProps (From:TFPCanvasHelper);
begin
with from as TFPCustomFont do
begin
self.FName := FName;
self.FSize := FSize;
self.FFPColor := FFPColor;
self.FFlags := FFlags;
end;
if From is TFPCustomFont then
with from as TFPCustomFont do
begin
self.FName := FName;
self.FSize := FSize;
self.FOrientation := FOrientation
end;
Inherited;
end;
function TFPCustomFont.CopyFont : TFPCustomFont;

2
packages/fcl-image/src/fppen.inc
View File

@ -57,6 +57,8 @@ begin
self.Width := Width;
self.Mode := Mode;
self.pattern := pattern;
self.EndCap := EndCap;
self.JoinStyle := JoinStyle;
end;
inherited;
end;