Declaration

procedure IEDrawShape(Canvas: TCanvas;
                      Shape: TIEShape;
                      Left, Top, Width, Height: Integer;
                      MaintainAspect: TIEBooleanEx = iebDefault); overload;
procedure IEDrawShape(Canvas: TCanvas;
                      Shape: TIEShape;
                      Left, Top, Width, Height: Integer;
                      MaintainAspect: TIEBooleanEx;
                      BorderColor: TColor; BorderWidth: Integer;
                      FillColor: TColor;
                      Angle: Integer = 0;
                      ShapeModifier: Integer = 0); overload;
procedure IEDrawShape(Canvas: TIECanvas;
                      Shape: TIEShape;
                      Left, Top, Width, Height: Integer; MaintainAspect: TIEBooleanEx;
                      BorderColor: TColor; BorderWidth: Integer;
                      FillColor: TColor; FillColor2: TColor = clNone; FillGradient: TIEGDIPlusGradient = gpgVertical;
                      AntiAlias: Boolean = True;
                      Angle: Integer = 0;
                      ShapeModifier: Integer = 0;
                      BorderTransparency: Integer = 255; FillTransparency: Integer = 255); overload;

Description

Draw a TIEShape onto a canvas at the specified size and position.
If MaintainAspect is iebDefault, then shapes are output at the aspect ratio they were designed (if iebTrue then a 1:1 aspect ratio is enforced even if it was not designed with one).
For the first overload, the Canvas Brush is used for color and fill.
For the second, the colors you specify will override the canvas brush.
Angle is the amount of rotation to apply (degrees counter-clockwise).

 

ShapeModifier has the following effect:

Note:
◼You must add the iexHelperFunctions unit to your uses clause
◼The TIECanvas overload is the same as calling AdvancedDrawShape

Examples

// Draw a pink balloon
ImageEnView1.IEBitmap.Allocate( 600, 800 );
ImageEnView1.IEBitmap.Fill( clWhite );
IEDrawShape( ImageEnView1.IEBitmap.IECanvas, iesBalloon, 0, 0, ImageEnView1.IEBitmap.Width, ImageEnView1.IEBitmap.Height, iebDefault, clBlack, 2, $00921CF0 );
ImageEnView1.Update();




// Draw a explosion at the centre of the current image
IEDrawShape( ImageEnView1.IEBitmap.Canvas, iesExplosion, Width div 2 - 100, Height div 2 - 100, 200, 200 );
ImageEnView1.Update;

// Draw a shape to the current the image
IEDrawShape( ImageEnView1.IEBitmap.IECanvas,      // Dest canvas
             iesHeart,                            // Shape
             60, 60, 180, 180,                    // Position
             iebDefault,                          // MaintainAspect
             clRed, 10,                           // BorderColor/BorderWidth
             clNone, clNone, gpgVertical );       // FillColor/FillColor2/FillGradient: TIEGDIPlusGradient
ImageEnView1.Update();




// Add all shapes to a TImageEnMView
ImageEnMView1.LockUpdate();
ImageEnMView1.Clear;
for shp := Low(TIEShape) to High(TIEShape) do
begin
  bmp := TBitmap.Create;
  bmp.PixelFormat := pf24bit;
  bmp.Width  := Thumb_Size;
  bmp.Height := Thumb_Size;
  IEDrawShape( bmp.Canvas, shp, 0, 0, bmp.Width, bmp.Height, iebDefault, clNone, 0, clRed );
  idx := ImageEnMView1.AppendImage( bmp );
  ImageEnMView1.ImageBottomText[idx] := IEShapeToStr( shp );
  bmp.free;
end;
ImageEnMView1.UnlockUpdate();

// Save all shapes as gif files
for shp := Low(TIEShape) to High(TIEShape) do
begin
  bmp := TIEBitmap.Create;
  bmp.Allocate( Thumb_Size, Thumb_Size );
  bmp.Fill(clWhite );
  IEDrawShape( bmp.IECanvas, shp, 0, 0, bmp.Width, bmp.Height, iebDefault, clNone, 0, $00FF8000 );
  bmp.SaveToFile( 'D:\' + IEShapeToStr( shp ) +'.gif');
  bmp.Free();
end;

See Also

◼IEDrawShapeToComboListBoxItem
◼FillWithShape
◼AdvancedDrawShape

---

Loading contents...