This uses the layers demo is samples.
procedure TForm1.MoveLayerToBack1Click(Sender: TObject);
{ Move current layer to back. }
begin
if ImageEnView1.LayersCurrent > 1 then
begin
with ImageEnView1 do
LayersMove(LayersCurrent, LayersCurrent - 1);
RefreshControls;
RefreshLayerViewer;
end
else
MessageBox(0, PChar('Layer ' + IntToStr(ImageEnView1.LayersCurrent) + ' is the bottom most layer.'), 'Can Not Move Layer', MB_ICONWARNING or
MB_OK or MB_TOPMOST);
end;
procedure TForm1.MoveLayerToFront1Click(Sender: TObject);
{ Move current layer to front. }
begin
if ImageEnView1.LayersCurrent <> ImageEnView1.LayersCount - 1 then
begin
with ImageEnView1 do
LayersMove(LayersCurrent, LayersCurrent + 1);
RefreshControls;
RefreshLayerViewer;
end
else
MessageBox(0, PChar('Layer ' + IntToStr(ImageEnView1.LayersCurrent) + ' is the top most layer.'), 'Can Not Move Layer', MB_ICONWARNING or
MB_OK or MB_TOPMOST);
end;
William Miller
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html