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

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 unload IEV File from ImageEnVect1

Note: You must be registered in order to post a reply.
To register, click here. Registration is FREE!

View 
UserName:
Password:
Format  Bold Italicized Underline  Align Left Centered Align Right  Horizontal Rule  Insert Hyperlink   Browse for an image to attach to your post Browse for a zip to attach to your post Insert Code  Insert Quote Insert List
   
Message 

 

Emoji
Smile [:)] Big Smile [:D] Cool [8D] Blush [:I]
Tongue [:P] Evil [):] Wink [;)] Black Eye [B)]
Frown [:(] Shocked [:0] Angry [:(!] Sleepy [|)]
Kisses [:X] Approve [^] Disapprove [V] Question [?]

 
Check here to subscribe to this topic.
   

T O P I C    R E V I E W
peberhardt Posted - May 22 2017 : 03:44:08
Hello,

i am using more as one iev files for the same ImageVect1

( not on the same time )


// look for vectorial objects
if FileExists(file_string + '.iev') then
begin
ImageEnVect1.LoadFromFileIEV(file_string + '.iev');
end
else
begin

// here i need a empty ImageVect1

// not working the 3 codes...
  ImageEnVect1.Clear;
  ImageEnVect1.ClearAll;
  ImageEnVect1.Blank;

end;


thank you for help

best regards
peter
7   L A T E S T    R E P L I E S    (Newest First)
xequte Posted - May 28 2017 : 15:17:31
OK, so why not use

procedure TForm1.btn_load_jellyClick(Sender: TObject);
begin
  if FileExists(ExtractFilePath(Application.exename) + 'jelly.jpg') then
  begin
    ImageEnVect1.RemoveAllObjects();

      // load the bitmap
    ImageEnVect1.IO.LoadFromFile(ExtractFilePath(Application.exename) + 'jelly.jpg');

      // look for vectorial objects
    if FileExists(ExtractFilePath(Application.exename) + 'jelly.iev') then
    begin
      ImageEnVect1.LoadFromFileIEV(ExtractFilePath(Application.exename) + 'jelly.iev');
    end;
  end;
end;

procedure TForm1.btn_load_flowerClick(Sender: TObject);
begin
   if FileExists(ExtractFilePath(Application.exename) + 'flower.jpg') then
  begin
    ImageEnVect1.RemoveAllObjects();

      // load the bitmap
    ImageEnVect1.IO.LoadFromFile(ExtractFilePath(Application.exename) + 'flower.jpg');

      // look for vectorial objects
    if FileExists(ExtractFilePath(Application.exename) + 'flower.iev') then
    begin
      ImageEnVect1.LoadFromFileIEV(ExtractFilePath(Application.exename) + 'flower.iev');
    end;
  end;
end;


Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
peberhardt Posted - May 26 2017 : 15:50:59
Hello,

i have a video as Attach

i load a Pic ( Jelly ) make a Vector and save the Vector as jelly.iev

now i load another Picture ( flower )
and i have loading flower.jpg AND jelly.iev


attach/peberhardt/2017526154517_iev problem.zip
523.51 KB

procedure TForm1.btn_load_jellyClick(Sender: TObject);
begin
  if FileExists(ExtractFilePath(Application.exename) + 'jelly.jpg') then
  begin
      // load the bitmap
    ImageEnVect1.IO.LoadFromFile(ExtractFilePath(Application.exename) + 'jelly.jpg');

      // look for vectorial objects
    if FileExists(ExtractFilePath(Application.exename) + 'jelly.iev') then
    begin
      ImageEnVect1.LoadFromFileIEV(ExtractFilePath(Application.exename) + 'jelly.iev');
    end;
  end;
end;

procedure TForm1.btn_load_flowerClick(Sender: TObject);
begin
   if FileExists(ExtractFilePath(Application.exename) + 'flower.jpg') then
  begin
      // load the bitmap
    ImageEnVect1.IO.LoadFromFile(ExtractFilePath(Application.exename) + 'flower.jpg');

      // look for vectorial objects
    if FileExists(ExtractFilePath(Application.exename) + 'flower.iev') then
    begin
      ImageEnVect1.LoadFromFileIEV(ExtractFilePath(Application.exename) + 'flower.iev');
    end;
  end;
end;

// save iev for Jelly
procedure TForm1.btn_iev_save_1Click(Sender: TObject);
begin
ImageEnVect1.SaveToFileIEV(ExtractFilePath(Application.exename) + 'jelly.iev');
end;

// save iev for flower
procedure TForm1.btn_iev_save_2Click(Sender: TObject);
begin
ImageEnVect1.SaveToFileIEV(ExtractFilePath(Application.exename) + 'flower.iev');
end;

// make vector
procedure TForm1.Button1Click(Sender: TObject);
begin
  ImageEnVect1.ObjFontHeight[-1] := 30;
  ImageEnVect1.ObjTransparency[-1] := 255;
  ImageEnVect1.ObjPenColor[-1] := clWhite;
ImageEnVect1.MouseInteractVt := ImageEnVect1.MouseInteractVt + [miPutText];
end;
xequte Posted - May 24 2017 : 20:07:22
Sorry Peter, I'm not seeing what you are trying to do.

Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
peberhardt Posted - May 24 2017 : 06:28:05
Hello,

because B.iev on first call from B.ipg not exist


best regards
peter
xequte Posted - May 24 2017 : 06:15:03
Sorry I'm not following. Why not just use:

if FileExists('B.iev') then
begin
  ImageEnVect1.IO.LoadFromFile('B.jpg');
  ImageEnVect1.LoadFromFileIEV('B.iev');
end;


Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
peberhardt Posted - May 24 2017 : 03:45:22
Hello Nigel,

here my way for more understanding

Button one ( load Picture A.jpg ) and wenn exist A.iev


ImageEnVect1.IO.LoadFromFile('A.jpg');

if FileExists('A.iev') then
begin
ImageEnVect1.LoadFromFileIEV('A.iev');
end;



Button two ( load Picture B.jpg ) and wenn exist B.iev


ImageEnVect1.IO.LoadFromFile('B.jpg');

if FileExists('B.iev') then
begin
ImageEnVect1.LoadFromFileIEV('B.iev');
end;


the proplem is wenn not exist B.iev then is the follow loaded

B.jpg and A.iev

a clear all objects is not a solution


best regards
peter
xequte Posted - May 23 2017 : 22:51:58
Hi Peter

Please use:

ImageEnVect1.RemoveAllObjects();
ImageEnVect1.ClearAll();


Nigel
Xequte Software
www.xequte.com
nigel@xequte.com