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