TTeeCanvas.EndBlending
TTeeCanvas
procedure EndBlending(Const Blend: TTeeBlend); virtual;
Unit
TeCanvas
Description
Terminates a transparency operation.
The Blend parameter must be a TTeeBlend object obtained when calling the Canvas BeginBlending method.
This method will automatically free the Blend object.
Example:
var blend : TTeeBlend;
R : TRect;
R:=Rect( 40,40,100,100 );
blend := Chart1.Canvas.BeginBlending( R, 50 ) ; // 50 % transparency
Chart1.Canvas.Brush.Color := clBlue;
Chart1.Canvas.Rectangle( R );
Chart1.Canvas.EndBlending( blend );