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

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 Drag and Drop Issue?		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

stkwon

20 Posts
Posted - Oct 01 2018 :  12:16:45  Show Profile  Reply




Hello!

i have some problem when after drag & drop

from ImageMView to ImageEnView.

i loaded images from LoadFromURL on ImageMView..

but. i can't see after Drag&Drop image on ImageEnView.

this picture is after Drag&Drop screen shot.

how can i fix it?


i used source code this :

procedure MouseMove Event ->

if ssLeft in Shift then
begin
ImageEnMView.MouseInteract := [];
ImageEnMView.IEBeginDrag( false, -1 );
end;

procedure EndDrag Event ->

ImageEnMViewCalliGraphyConsonant.IEEndDrag;
ImageEnMViewCalliGraphyConsonant.MouseInteract := [mmiSelect];



==========================

please help me!!

xequte

39053 Posts
Posted - Oct 01 2018 :  14:23:53  Show Profile  Reply
Hi

Please see the demo:

\demos\LayerEditing\DragDropLayers\Layers_DragDrop.dpr

Nigel
Xequte Software
www.imageen.com
Go to Top of Page

stkwon

20 Posts
Posted - Oct 02 2018 :  22:48:22  Show Profile  Reply
thank you! xequte

bro,

but, i already used your sample code.

can you test with this URL images on imageenMView?

http://modoody.com:3319/BlackJack.png.png
http://modoody.com:3319/Cardenio-Modern.png

please check. with this image url , loadfromURL function on ImageEnMIO .
Go to Top of Page

xequte

39053 Posts
Posted - Oct 03 2018 :  02:17:36  Show Profile  Reply
Hi

I added these two lines to the FormShow event of the DragDropLayers demo:

ImageEnMView1.MIO.LoadFromURL( 'http://modoody.com:3319/BlackJack.png');
ImageEnMView1.MIO.LoadFromURL( 'http://modoody.com:3319/Cardenio-Modern.png');

It worked fine.

What is the code in your drop event?

Nigel
Xequte Software
www.imageen.com
Go to Top of Page

stkwon

20 Posts
Posted - Oct 03 2018 :  02:28:54  Show Profile  Reply
hi,

If TControl( Source )is TImageEnMView then
begin
idx := TImageEnMView( Source ).SelectedImage;

Showmessage( TImageEnMView( Source ).SelectedFilename );
if idx >= 0 then
begin
bmp := TImageEnMView(Source).GetTIEBitmap( idx );

ImageEnView.LayersAdd(bmp);
ImageEnView.CurrentLayer.PosX := X;
ImageEnView.CurrentLayer.PosY := Round(Y / 2) ;

TImageEnMView( Source ).ReleaseBitmap( idx, False );
end;
end;

this is my dragdrop event

bro, can you send me your source code? with load from url?
Go to Top of Page

stkwon

20 Posts
Posted - Oct 03 2018 :  03:55:22  Show Profile  Reply
i can't drag&drop on your demo source too...

:(

maybe, is this wrong property problem?
Go to Top of Page

xequte

39053 Posts
Posted - Oct 03 2018 :  05:30:37  Show Profile  Reply
Please try this demo:

attach/xequte/201810353026_DragDropLayers.zip
107.93 KB

If it does not work, what version of Delphi are you using?


Nigel
Xequte Software
www.imageen.com
Go to Top of Page

stkwon

20 Posts
Posted - Oct 03 2018 :  10:08:47  Show Profile  Reply
hey bro,

your source code is work fine.

i was copy and paste your VCL control.

thank you so much..but i dont know why i doesn't work;;

thank you so much!
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: