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
 Image distorted

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
PeterPanino Posted - Mar 03 2019 : 11:18:23
I create a Bitmap in this way:

function Control2Bitmap(Control_: TWinControl): TBitmap;
begin
  Result := TBitmap.Create;
  with Result do begin
    Height := Control_.Height;
    Width  := Control_.Width;
    Canvas.Handle := CreateDC(nil, nil, nil, nil);
    Canvas.Lock;
    Control_.PaintTo(Canvas.Handle, 0, 0);
    Canvas.Unlock;
    DeleteDC(Canvas.Handle);
  end;
end;

procedure TFormMain.tbtnGetPicGridClick(Sender: TObject);
var
  ThisBitmap: TBitmap;
begin
  ThisBitmap := Control2Bitmap(FlowPanel);
  CodeSite.Send('TFormMain.tbtnGetPicGridClick: ThisBitmap', ThisBitmap);
  ImageEnView1.Bitmap.Assign(ThisBitmap);
  ThisBitmap.ReleaseHandle;
  ThisBitmap.Free;
end;


But the image looks distorted (although ImageEnView1.LegacyBitmap = True):



How can I get a clean bitmap?
1   L A T E S T    R E P L I E S    (Newest First)
PeterPanino Posted - Mar 03 2019 : 11:29:59
Solved:

ImageEnView1.IEBitmap.CopyFromTBitmap(ThisBitmap);