paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 09:56:12 +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); LineTo(ALeft + Width - 2, ATop + Height);
End; End;
End; End;
inherited Paint;
End; End;
// included by extctrls.pp // included by extctrls.pp
@ -249,6 +251,9 @@ End;
{ {
$Log$ $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 Revision 1.7 2002/08/30 12:32:20 lazarus
MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ... MG: MoveWindowOrgEx, Splitted FWinControls/FControls, TControl drawing, Better DesignerDrawing, ...

2
lcl/include/customimage.inc
View File

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