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

* Changed TImage.Transparent default to Flase (delphi compatible)

Browse Source 
git-svn-id: trunk@12722 -
This commit is contained in:
marc 2007-11-03 18:22:15 +00:00
parent e2a52c1ccb
commit f745b551ef
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customimage.inc
View File

@ -19,12 +19,11 @@
constructor TCustomImage.Create(TheOwner: TComponent);
begin
inherited Create(TheOwner);
// obsolete: FCompStyle := csImage;
ControlStyle:= [csCaptureMouse, csClickEvents, csDoubleClicks];
AutoSize := False;
FCenter := False;
FStretch := False;
FTransparent := True;
FTransparent := False;
FPicture := TPicture.Create;
FPicture.OnChange := @PictureChanged;
FUseParentCanvas := false;