ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 How to bring layer infront of all layers?
 New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

aftereffectniko

Ethiopia
23 Posts

Posted - May 07 2013 :  10:39:34  Show Profile  Reply
How to bring layer infront of all layer and back of all layers? Help please?

w2m

USA
1990 Posts

Posted - May 07 2013 :  14:06:46  Show Profile  Reply
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
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: