Knowledge Base



KB10652 - Set a transparency level for individual shapes.

This is possible, but not very efficient. You must override OnPaintShape event and then:

procedure TForm1.doPaintShape(
   const _sender : TObject ;
   const _shape : TGIS_Shape
) ;
var
   hndl : Integer ;
begin
   hndl := GIS.LockTransparent( 50 ) ;
   _shape.Draw ;
   GIS,UnlockTransparent( hndl ) ;

end ;
 
Created: October 25, 2005, Modified: September 10, 2015
follow us on Facebook  follow us on Twitter  follow us on Google +  follow us on LinkedIn  Embarcadero