Set the LayersCurrent to the selected index to make a layer the top layer. Change all layers transparency to specific transparency... say 100. Set the selected or top layer transparency to 255 or non-transparent. Using the demo in Samples\ImageProcessing1\
Layers try this:
procedure Tfmain.ImageEnMView1ImageSelect(Sender: TObject; idx: Integer);
var
i: integer;
begin
// make all layers transparency 100
for i := 0 to ImageEnView1.LayersCount - 1 do
ImageEnView1.Layers[i].Transparency := 100;
// make selected layer the top layer
ImageEnView1.LayersCurrent := idx;
// make current layer transparency 255
with ImageEnView1 do
begin
CurrentLayer.Transparency := 255;
RefreshControls;
end;
end;
William Miller
Search
