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
 Need help with your library

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
vlkc Posted - Mar 27 2018 : 15:15:21
Could someone please check my source. It works for 20-30 bitmaps and then stuck. Thank you


Form_main.ImageEnVect1.LockPaint;
Form_main.ImageEnVect1.RemoveAllObjects;
Form_main.ImageEnVect1.ClearAll();
obj_parallel := IEV_NEXT_INSERTED_OBJECT;
Form_main.ImageEnVect1.ObjBrushStyle[obj_parallel]:= TBrushStyle(1);
Form_main.ImageEnVect1.MouseInteractVt := Form_main.ImageEnVect1.MouseInteractVt + [miPutBox];
Form_main.ImageEnVect1.Assign(NewBitmap);
Form_main.ImageEnVect1.Fit;
Form_main.ImageEnVect1.SelectionBase := iesbBitmap;
Form_main.ImageEnVect1.Select(10,10,400,300,iespReplace);
Form_main.ImageEnVect1.UnLockPaint;
7   L A T E S T    R E P L I E S    (Newest First)
vlkc Posted - May 13 2018 : 07:27:17
ImageEnVect1.ObjBrushStyle[IEV_NEXT_INSERTED_OBJECT]:= TBrushStyle(-1);

I don't know is it correct, but it helps :)
xequte Posted - Mar 28 2018 : 20:16:13
Hi

obj_parallel is just a variable, so setting it to -1 (IEV_NEXT_INSERTED_OBJECT) could not cause a crash.

I added a 3 second delay. It did not cause any issues.

What are the specs of the system you are testing it on?



Nigel
Xequte Software
www.imageen.com
vlkc Posted - Mar 28 2018 : 05:35:09
maybe this line hangs - obj_parallel := IEV_NEXT_INSERTED_OBJECT;
vlkc Posted - Mar 28 2018 : 05:32:17
actually i run it in thread. could you please do the test with 1000 loop and 3 sec delay?
xequte Posted - Mar 28 2018 : 03:24:01
Hi

I tested as follows and had no problems:

procedure Tfmain.Button6Click(Sender: TObject);
var
  NewBitmap: TIEBitmap;
  I: Integer;
begin
  for I := 1 to 1000 do
  begin
    Caption := IntToStr( I );
    NewBitmap := TIEBitmap.Create();
    NewBitmap.Read('D:\_Testfiles\bigimage.jpg');
    ImageEnVect1.LockPaint;
    ImageEnVect1.RemoveAllObjects;
    ImageEnVect1.ClearAll();
    ImageEnVect1.ObjBrushStyle[IEV_NEXT_INSERTED_OBJECT]:= TBrushStyle(1);
    ImageEnVect1.MouseInteractVt := ImageEnVect1.MouseInteractVt + [miPutBox];
    ImageEnVect1.Assign(NewBitmap);
    ImageEnVect1.Fit;
    ImageEnVect1.SelectionBase := iesbBitmap;
    ImageEnVect1.Select(10,10,400,300,iespReplace);
    ImageEnVect1.UnLockPaint;
    NewBitmap.Free;
  end;
end;


Nigel
Xequte Software
www.imageen.com
vlkc Posted - Mar 27 2018 : 16:23:50
yes that is all. I'm inserting "NewBitmap" and displaying it.
w2m Posted - Mar 27 2018 : 15:43:26
I do not understand what you want to do.

Your code removes all objects, prepares to insert an object, changes the background bitmap and makes a selection. I do not understand. Did you not include all the code?
What are you trying to do?

Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development