Knowledge Base Article
KB10652 - Is it possible to set a transparency level for individual shapes?
There is a way to do this, although it is 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: 2005-10-25, Modified: 2005-10-25
|