Note: You must be registered in order to post a reply. To register, click here. Registration is FREE!
T O P I C R E V I E W
aftereffectniko
Posted - Jun 17 2013 : 13:52:19 How to write If layer 1 exist then delete layer 1 else close the progarme
1 L A T E S T R E P L I E S (Newest First)
w2m
Posted - Jun 17 2013 : 16:00:20
procedure TForm1.Button1Click(Sender: TObject);
begin
{ Layer 0 is the background and is always present
so if LayersCount = 2 then there is a background
layer (0) and a "true" layer (1) }
if ImageEnView1.LayersCount = 2 then
ImageEnView1.LayersRemove(1)
else
Close;
end;