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
 Issue with latest 4.0.1 version

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
swierzbicki Posted - Mar 06 2012 : 05:10:38
Hello,

I'm getting errors since updating to the latest 4.0.1 version.
Method CheckSelectedImageIsVisible is throwing an exception :
"Control '' has no parent windows".

I'm basically creating ImageEnMView instance at runtime (I'm adding TIFF picture at the end of an FastReport report) :

ImageEnMView := TImageEnMView.create(Nil);
      DocumentStream := TMemoryStream.create();
      Try
        ImageEnMView.Clear;

        (QrDocuments.Fieldbyname('Documents') as TBlobField).SaveToStream(DocumentStream);
        DocumentStream.Position := 0; // <<<< ADDED THIS

        ImageEnMView.MIO.LoadFromStreamTIFF(DocumentStream);
        ImageEnMView.MIO.Update;
        If not(QrDocuments.Fieldbyname('Documents').IsNull) Then
          For i := 0 To ImageEnMView.ImageCount - 1 Do
          Begin
            ImageEnMView.SelectedImage := i;
            Page := TfrxReportPage.create(frxReport);
            Page.CreateUniqueName;

            If ImageEnMView.Bitmap.Width > ImageEnMView.Bitmap.Height Then
              Page.Orientation := poLandscape
            Else
              Page.Orientation := poPortrait;
            Page.LeftMargin := 0;
            Page.RightMargin := 0;
            Page.TopMargin := 0;
            Page.BottomMargin := 0;
            Image := TfrxPictureview.create(Page);
            Image.CreateUniqueName;
            Image.Align := baclient;
            Image.Picture.Assign(ImageEnMView.Bitmap);
          End;
      Finally
        DocumentStream.Free;
        ImageEnMView.Free;
      End;


To solve this issue I have modified the method

quote:
procedure TImageEnMView.CheckSelectedImageIsVisible;
// NPC: 23/11/11
var
info: PIEImageInfo;
iViewX, iViewY : integer;
begin
if (fSelectedItem >= 0) and (fMultiSelecting = False) then
begin
iViewX := fViewX;
iViewY := fViewY;
info := PIEImageInfo(fImageInfo[fSelectedItem]);

if info^.X < iViewX then
iViewX := info^.X
else if (Parent <> nil) then
if info^.X + fThumbWidth > iViewX + ClientWidth then
iViewX := info^.X - ClientWidth + fThumbWidth;

if info^.Y < iViewY then
iViewY := info^.Y
else if (Parent <> nil) then

if info^.Y + fThumbHeight > iViewY + ClientHeight then
iViewY := info^.Y - ClientHeight + fThumbHeight;

SetViewXY(iViewX, iViewY);
end;
end;
1   L A T E S T    R E P L I E S    (Newest First)
fab Posted - Mar 06 2012 : 07:31:31
Hello,
thank you. You fix is Ok.
In the next minor release it will be:

procedure TImageEnMView.CheckSelectedImageIsVisible;
// NPC: 23/11/11
var
  info: PIEImageInfo;
  iViewX, iViewY : integer;
begin
  if assigned(Parent) and (fSelectedItem >= 0) and (fMultiSelecting = False) then
  begin
    iViewX := fViewX;
    iViewY := fViewY;
    info := PIEImageInfo(fImageInfo[fSelectedItem]);

    if info^.X < iViewX then
      iViewX := info^.X
    else if info^.X + fThumbWidth > iViewX + ClientWidth then
      iViewX := info^.X - ClientWidth + fThumbWidth;

    if info^.Y < iViewY then
      iViewY := info^.Y
    else if info^.Y + fThumbHeight > iViewY + ClientHeight then
      iViewY := info^.Y - ClientHeight + fThumbHeight;

    SetViewXY(iViewX, iViewY);
  end;
end;