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

TPen assign also copies pen mode (issue #1732), TShape invalidate if not visible at design time

Browse Source 
git-svn-id: trunk@8774 -
This commit is contained in:
jesus 2006-02-19 07:33:58 +00:00
parent f96d5431af
commit 8b421f305e
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/pen.inc
View File

@ -147,6 +147,7 @@ begin
Width := TPen(Source).Width; Width := TPen(Source).Width;
SetColor(TPen(Source).Color,TFPCanvasHelper(Source).FPColor); SetColor(TPen(Source).Color,TFPCanvasHelper(Source).FPColor);
Style := TPen(Source).Style; Style := TPen(Source).Style;
Mode := TPEn(Source).Mode;
end end
else else
inherited Assign(Source); inherited Assign(Source);

3
lcl/include/shape.inc
View File

@ -77,7 +77,8 @@ end;
procedure TShape.StyleChanged(Sender: TObject); procedure TShape.StyleChanged(Sender: TObject);
begin begin
If (Parent <> nil) and Visible and Parent.HandleAllocated If (Parent <> nil) and (Visible or (csDesigning in ComponentState))
and Parent.HandleAllocated
then then
Invalidate; Invalidate;
end; end;