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
 ImageEnDBVect1

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
M.Schlegel Posted - Oct 03 2016 : 08:44:56
Hello Team Imageen,

my code is:
...
ImageEnDBVect1.ObjKind[ IEV_NEXT_INSERTED_OBJECT ] := iekELLIPSE;
ImageEnDBVect1.ObjLeft[ IEV_NEXT_INSERTED_OBJECT ] := 100;
ImageEnDBVect1.ObjTop[ IEV_NEXT_INSERTED_OBJECT ] := 100;
ImageEnDBVect1.ObjWidth[ IEV_NEXT_INSERTED_OBJECT ] := 20;
ImageEnDBVect1.ObjHeight[ IEV_NEXT_INSERTED_OBJECT ] := 20;
ImageEnDBVect1.ObjPenColor[ IEV_NEXT_INSERTED_OBJECT ] := clRed;
ImageEnDBVect1.AddNewObject;
...

the new object is visible in ImageEnDBVect1.

...
table1.edit;
ImageEnDBVect1.ObjKind[ IEV_NEXT_INSERTED_OBJECT ] := iekELLIPSE;
ImageEnDBVect1.ObjLeft[ IEV_NEXT_INSERTED_OBJECT ] := 100;
ImageEnDBVect1.ObjTop[ IEV_NEXT_INSERTED_OBJECT ] := 100;
ImageEnDBVect1.ObjWidth[ IEV_NEXT_INSERTED_OBJECT ] := 20;
ImageEnDBVect1.ObjHeight[ IEV_NEXT_INSERTED_OBJECT ] := 20;
ImageEnDBVect1.ObjPenColor[ IEV_NEXT_INSERTED_OBJECT ] := clRed;
ImageEnDBVect1.AddNewObject;
table1.post;
...

the new object is not visible in ImageEnDBVect1. What is wrong?

Delphi7
Imageen 6.3.2

Thank's for help.
Matthias Schlegel
7   L A T E S T    R E P L I E S    (Newest First)
M.Schlegel Posted - Oct 21 2016 : 07:20:45
Hello Nigel,


thank's for the help.
with:

ImageEnDBVect1.ImageChanged;

is it better.

Matthias Schlegel
xequte Posted - Oct 18 2016 : 00:31:58
Hi Matthias

There is an issue which can cause ImageEnDBVect1 to fail to set Field.Modified. We will fix for the next update.

In the meantime, just change your code to:

procedure TMainForm.Button3Click(Sender: TObject);
begin
  ImageEnDBVect1.ObjKind[ IEV_NEXT_INSERTED_OBJECT ] := iekELLIPSE;
  ImageEnDBVect1.ObjLeft[ IEV_NEXT_INSERTED_OBJECT ] := 33;
  ImageEnDBVect1.ObjTop[ IEV_NEXT_INSERTED_OBJECT ] := 33;
  ImageEnDBVect1.ObjWidth[ IEV_NEXT_INSERTED_OBJECT ] := 20;
  ImageEnDBVect1.ObjHeight[ IEV_NEXT_INSERTED_OBJECT ] := 20;
  ImageEnDBVect1.ObjPenColor[ IEV_NEXT_INSERTED_OBJECT ] := clRed;
  ImageEnDBVect1.ObjName [ IEV_NEXT_INSERTED_OBJECT ] := 'Test';
  ImageEnDBVect1.ObjStyle[ IEV_NEXT_INSERTED_OBJECT ]:= [ievsSelectable, ievsMoveable, ievsVisible]  ;
  ImageEnDBVect1.AddNewObject;
  ImageEnDBVect1.ImageChanged;
end;


Nigel
Xequte Software
www.xequte.com
nigel@xequte.com
M.Schlegel Posted - Oct 04 2016 : 05:28:00
Hello Bill,

there is still a problem with AddNewObject via code with ImageEnDBVect. Is it possible to reproducible it in the DemoDBVect example.
I have add a Button with the code;

procedure TMainForm.Button3Click(Sender: TObject);
begin
ImageEnDBVect1.ObjKind[ IEV_NEXT_INSERTED_OBJECT ] := iekELLIPSE;
ImageEnDBVect1.ObjLeft[ IEV_NEXT_INSERTED_OBJECT ] := 33;
ImageEnDBVect1.ObjTop[ IEV_NEXT_INSERTED_OBJECT ] := 33;
ImageEnDBVect1.ObjWidth[ IEV_NEXT_INSERTED_OBJECT ] := 20;
ImageEnDBVect1.ObjHeight[ IEV_NEXT_INSERTED_OBJECT ] := 20;
ImageEnDBVect1.ObjPenColor[ IEV_NEXT_INSERTED_OBJECT ] := clRed;
ImageEnDBVect1.ObjName [ IEV_NEXT_INSERTED_OBJECT ] := 'Test';
ImageEnDBVect1.ObjStyle[ IEV_NEXT_INSERTED_OBJECT ]:= [ievsSelectable, ievsMoveable, ievsVisible] ;
ImageEnDBVect1.AddNewObject;
ImageEnDBVect1.update;
end;

After Post there is no ELLIPSE in the ImageEnDBVect1.

Thank's for help.
Matthias Schlegel
M.Schlegel Posted - Oct 03 2016 : 13:52:13
Hello Bill,

with:

ImageEnDBVect1.Update

all work's fine.

Thank's for the help.

Matthias Schlegel
w2m Posted - Oct 03 2016 : 12:18:37
Did my suggestions work?

Bill Miller
Adirondack Software & Graphics
Email: w2m@hughes.net
EBook: http://www.imageen.com/ebook/
Custom Commercial ImageEn Development
M.Schlegel Posted - Oct 03 2016 : 12:17:50
Hello Bill,
thank's for the help.

Matthias Schlegel
w2m Posted - Oct 03 2016 : 11:24:32
I seldom use TImageEnDBVect. Having said that perhaps all you need is to add ImageEnDBVect1.Update or use a some of the code in the VectorialDB demo:
procedure TMainForm.Button4Click(Sender: TObject);
var
  ms:TMemoryStream;
begin
  ms:=TMemoryStream.Create;
  ImageEnVect1.SaveToStreamAll( ms );
  ms.Position := 0;
  Table1.Edit;
  TBlobField(Table1.FieldByName('Photo')).LoadFromStream( ms );
  Table1.Post;
  ms.Free;
end;

or perhaps all you need is to put the table into edit mode before post
:
Table1.Edit;
Table1.Post;

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