TTeeCanvas.EndBlending

Contents All Classes Index A-Z All Units

TTeeCanvas.EndBlending
TTeeCanvas

procedure EndBlending(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 );