paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-06 11:38:15 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add new TImage event OnPictureChanged

Browse Source 
git-svn-id: trunk@17065 -
This commit is contained in:
paul 2008-10-20 04:46:40 +00:00
parent 4104418b88
commit c29b56e233
2 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/extctrls.pp
View File

@ -553,6 +553,7 @@ type
TCustomImage = class(TGraphicControl)
private
FOnPictureChanged: TNotifyEvent;
FPicture: TPicture;
FCenter: Boolean;
FProportional: Boolean;
@ -592,6 +593,7 @@ type
property Stretch: Boolean read FStretch write SetStretch default False;
property Transparent: Boolean read FTransparent write SetTransparent default False;
property Proportional: Boolean read FProportional write SetProportional default False;
property OnPictureChanged: TNotifyEvent read FOnPictureChanged write FOnPictureChanged;
end;
@ -620,6 +622,7 @@ type
property OnMouseMove;
property OnMouseUp;
property OnPaint;
property OnPictureChanged;
property OnResize;
property OnStartDrag;
property ParentShowHint;

2
lcl/include/customimage.inc
View File

@ -155,6 +155,8 @@ begin
Picture.Graphic.Transparent := FTransparent;
end;
invalidate;
if Assigned(OnPictureChanged) then
OnPictureChanged(Self);
end;
function TCustomImage.DestRect: TRect;