paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 20:59:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

fixed calling TImage.OnPaint

Browse Source 
git-svn-id: trunk@5155 -
This commit is contained in:
mattias 2004-02-03 19:02:35 +00:00
parent f2532f58ef
commit 601ad1658f
2 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/bevel.inc
View File

@ -154,6 +154,8 @@ Begin
LineTo(ALeft + Width - 2, ATop + Height);
End;
End;
inherited Paint;
End;
// included by extctrls.pp
@ -249,6 +251,9 @@ End;
{
$Log$
Revision 1.8 2004/02/03 19:02:35 mattias
fixed calling TImage.OnPaint
Revision 1.7 2002/08/30 12:32:20 lazarus
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...

2
lcl/include/customimage.inc
View File

@ -174,6 +174,8 @@ begin
end;
StretchDraw(iRect, Picture.Graphic);
end;
inherited Paint;
end;
// included by extctrls.pp