1. This site uses cookies. By continuing to use this site, you are agreeing to our use of cookies. Learn More.
  2. Donation with Paypal!!!

    Go to your paypal account and send directly donation to [email protected]

    1 month - 10 $ - Standart VIP

    6 months - 20 $- Standart VIP

    1 year - 30 $- Standart VIP

    2 years - 50 $- Standart VIP

    Gold member for life - 150 $- Standart VIP

    High Vip (Standart VIP include) group please send PM or email to [email protected] for info

    After Donation please send email to [email protected]

  3. Donation Ways 2020


    Paysend
  4. Telegram
Dismiss Notice

Donation with Paypal!!!

Go to your paypal account and send directly donation to [email protected]

1 month - 10 $ - Standart VIP

6 months - 20 $- Standart VIP

1 year - 30 $- Standart VIP

2 years - 50 $- Standart VIP

Gold member for life - 150 $- Standart VIP

High Vip (Standart VIP include) group please send PM or email to [email protected] for info

After Donation please send email to [email protected]

Dismiss Notice
For open hidden message no need write thanks, thank etc. Enough is click to like button on right side of thread.

TRectangle Bitmap Instead Of TImage For Delphi XE5

Discussion in 'Delphi Android And IOS' started by AdminDF, Mar 8, 2014.

  1. AdminDF
    Offline

    AdminDFAdminDF is a Verified Member Delphifan Staff Member DF Staff

    [​IMG]
    I found this tip over on a Portuguese Delphi Forum and the idea is to use a TRectangle with a bitmap fill instead of a TImage. According to the forum poster a TRectangle is much much lighter resources wise than a TImage and you can accomplish almost the same thing with a TRectangle bitmap fill brush. The drawback to using a TRectangle is that there are only three different display options (wmTile, wmTileOriginal, and wmTileStretch). wmTile will tile the bitmap brush regardless the size of the TRectangle. wmTileOriginal will just show the bitmap once regardless of the TRectangle size. And finally wmTileStretch will stretch the bitmap to the height and width of the rectangle. TImage has a few other different settings for formatting the display of a bitmap but for most uses the TRectangle bitmap fill is probably enough. You could use this idea with the Progress Bar Asynchronous Image Loader instead of it’s current TImage to make it lighter. Here is some sample code that shows how to load a TRectangle Fill with a bitmap using code:

    Code:
    // set the rectangle to the size of your bitmap
    Rectangle1.Width := 300;
    Rectangle1.Height := 300;
    Rectangle1.Stroke.Kind := TBrushKind.bkNone;
    Rectangle1.Fill.Kind := TBrushKind.bkBitmap;
    //Rectangle1.Fill.Bitmap.WrapMode := TWrapMode.wmTile;
    Rectangle1.Fill.Bitmap.WrapMode := TWrapMode.wmTileOriginal;
    //Rectangle1.Fill.Bitmap.WrapMode := TWrapMode.wmTileStretch;
    Rectangle1.Fill.Bitmap.Bitmap.LoadFromFile(‘myfile.jpg’);
     

Share This Page