ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 TImageEnProc.AutoCrop		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

PeterPanino

933 Posts
Posted - Mar 04 2019 :  06:43:43  Show Profile  Reply
The TImageEnProc.AutoCrop function works very well, however it always crops the image NEATLY.

I want to have an TImageEnProc.AutoCrop override with an additional parameter which does not crop neatly but leaves a crop-margin:

AutoCrop(Tolerance: Integer; Background: TColor; CropMargin: Integer; DoCrop: Boolean = True): TRect;

So, while the normal AutoCrop function may produce this result:



...the enhanced AutoCrop function e.g.:

ImageEnView1.Proc.AutoCrop(0, CreateRGB(87, 255, 63), 16);


would create this result:

xequte

38616 Posts
Posted - Mar 04 2019 :  17:42:26  Show Profile  Reply
Hi Peter

You can do it as follows:

rect := ImageEnView1.Proc.AutoCrop( 0, clWhite, False );
ImageEnView1.Proc.Crop( max( rect.Left - Crop_Margin, 0 ),
                        max( rect.Top - Crop_Margin, 0 ),
                        min( rect.Right + Crop_Margin, ImageEnView1.IEBitmap.Width ),
                        min( rect.Bottom + Crop_Margin, ImageEnView1.IEBitmap.Height ) );


Nigel
Xequte Software
www.imageen.com
Go to Top of Page

PeterPanino

933 Posts
Posted - Mar 05 2019 :  09:48:51  Show Profile  Reply
Thank you very much!


  ThisRect := imgHome.Proc.AutoCrop(0, BackColor, False);
  imgHome.Proc.Crop(Max(ThisRect.Left - ThisCropMargin, 0),                          // X1
                    Max(ThisRect.Top - ThisCropMargin, 0),                           // y1
                    Min(ThisRect.Right + ThisCropMargin, imgHome.IEBitmap.Width),    // x2
                    Min(ThisRect.Bottom + ThisCropMargin, imgHome.IEBitmap.Height)); // y2
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: