// Draw an anti-aliased ellipse onto a TBitmap iec := TIECanvas.Create( ABitmap.Canvas ); with iec do begin Pen.Style := psSolid; Pen.Width := 3; Pen.Mode := pmCopy; Pen.Color := clRed; Brush.Style := bsClear; Ellipse( Rect( 100, 100, 200, 200 )); end; iec.Free();
// Draw an anti-aliased ellipse onto a TIEBitmap with iebmp.IECanvas do begin Pen.Style := psSolid; Pen.Mode := pmCopy; Pen.Color := clRed; Brush.Style := bsClear Ellipse( Rect( 100, 100, 200, 200 )); end;
// Draw a 5-pointed star var pp: array[0..10] of TPoint; begin ImageEnView1.IEBitmap.IECanvas.Pen.Color := clOrangeRed; ImageEnView1.IEBitmap.IECanvas.Pen.Width := 3;
// Draw an envelope with 50% transparency with ImageEnView1.IEBitmap.IECanvas do begin Pen.Mode := pmCopy; Pen.Style := psSolid; Pen.Color := clBlack; Pen.Transparency := 128;
// Draw a semi-transparent text box onto a bitmap const Horz_Margin = 8; Vert_Margin = 3; Center_Text = False; var x, y: integer; tw, rw, rh: integer; iec: TIECanvas; ss: string; begin ss := 'This is my text'; x := 100; y := 100;