The use of the BCB of edrawing-CodePudding

Using BCB to insert two different DXF chart, added together, according to how to make one figure moves with the mouse, but keeping one??

CodePudding user response:

This is an example of the mouse to drag the image, hope this helpful to you:

code:

//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

# include & lt; The VCL. H> 
# pragma hdrstop 

# include "MainForm. H" 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
# pragma package (smart_init) 
# pragma resource "*. DFM 
"TForm1 * Form1; 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
__fastcall TForm1: : TForm1 (TComponent * Owner) 
: TForm (the Owner) 
{
IXStart=0; 
IYStart=0; 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 
Void __fastcall TForm1: : ImageMouseDown (TObject * Sender, 
TMouseButton Button, TShiftState Shift, int X, int Y) 
{
IXStart=X; 
IYStart=Y; 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- 

Void __fastcall TForm1: : ImageMouseMove (TObject * Sender, TShiftState Shift, 
Int X, int Y) 
{
Int iX, iY; 
If (Shift. The Contains (ssLeft)) 
{
IX=X - iXStart; 
IY=Y - iYStart; 
If (iY) 
Image1 - & gt; Left +=iX. 
If (iY) 
Image1 - & gt; Top +=iY; 
} 
} 
//-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- --