paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-11 18:20:41 +01:00
Code Issues Packages Projects Releases Wiki Activity

added csClickEvents to TImage

Browse Source 
git-svn-id: trunk@4563 -
This commit is contained in:
mattias 2003-09-04 11:10:18 +00:00
parent bad5a3e490
commit 9612264b46
3 changed files with 12 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/extctrls.pp
View File

@ -364,7 +364,7 @@ type
procedure DoAutoSize; Override;
Procedure Paint; Override;
public
constructor Create(AOwner: TComponent); override;
constructor Create(TheOwner: TComponent); override;
destructor Destroy; override;
published
Property Align;
@ -756,6 +756,9 @@ end.
{
$Log$
Revision 1.71 2003/09/04 11:10:18 mattias
added csClickEvents to TImage
Revision 1.70 2003/09/03 08:53:39 mattias
implemented TImage.Proportional

8
lcl/include/image.inc
View File

@ -16,18 +16,18 @@
*****************************************************************************
}
constructor TImage.Create(AOwner: TComponent);
constructor TImage.Create(TheOwner: TComponent);
begin
inherited Create(AOwner);
inherited Create(TheOwner);
FCompStyle := csImage;
ControlStyle:= [csCaptureMouse, csDoubleClicks];
ControlStyle:= [csCaptureMouse, csClickEvents, csDoubleClicks];
AutoSize := False;
FCenter := False;
FStretch := False;
FTransparent := True;
FPicture := TPicture.Create;
FPicture.OnChange := @PictureChanged;
Setbounds(0,0,100,100);
SetInitialBounds(0,0,100,100);
end;
destructor TImage.Destroy;

5
lcl/interfaces/gtk/gtkobject.inc
View File

@ -5619,7 +5619,7 @@ begin
csGTKTable :
begin
P := gtk_table_new(2,2,False);
P := gtk_table_new(2,2,False);
end;
csHintWindow :
@ -8122,6 +8122,9 @@ end;
{ =============================================================================
$Log$
Revision 1.405 2003/09/04 11:10:18 mattias
added csClickEvents to TImage
Revision 1.404 2003/09/04 10:51:30 mattias
fixed default size of preview widget