| T O P I C R E V I E W |
| HeinzPo |
Posted - Apr 21 2014 : 16:18:49
I am a absolute beginner.
I make a line with arrow as following:
procedure TEditF.Button2Click(Sender: TObject);
begin
fEdit.MouseInteractVt := fEdit.MouseInteractVt + [miPutLine];
fEdit.ObjPenColor[IEV_NEXT_INSERTED_OBJECT] := clRed;
fEdit.ObjPenWidth[IEV_NEXT_INSERTED_OBJECT] := 16;
fEdit.ObjBeginShape[IEV_NEXT_INSERTED_OBJECT] := iesOUTARROW;
fEdit.ObjEndShape [IEV_NEXT_INSERTED_OBJECT] := iesNONE;
fEdit.ObjShapeHeight[IEV_NEXT_INSERTED_OBJECT] := 35;
fEdit.ObjShapeWidth[IEV_NEXT_INSERTED_OBJECT] := 35;
end;
After the insert I like to select the object for moving, but I can only insert other lines.
Which is the right way?
|
| 4 L A T E S T R E P L I E S (Newest First) |
| exchangeviews |
Posted - Sep 20 2014 : 23:37:01
You could try putting fEdit.MouseInteractVt := [miObjectSelect] in the SelectObject event. Reply if it works for you. I think no need to add a button to your form to select object. |
| w2m |
Posted - Apr 22 2014 : 07:22:41
I suppose you could try putting fEdit.MouseInteractVt := [miObjectSelect] in the OnAfterDrawObject event.
William Miller |
| HeinzPo |
Posted - Apr 21 2014 : 22:12:25
Okay, thanks.
I thought there will a way without button.
A automatic way for selection after inserting every line.
Best regards, Olaf
|
| w2m |
Posted - Apr 21 2014 : 16:42:09
Add a button to your form. Then add this to the button's OnClick Event:
fEdit.MouseInteractVt := [miObjectSelect];
After clicking the button you can select the objects.
William Miller
Adirondack Software & Graphics
Email: w2m@frontiernet.net
EBook: http://www.imageen.com/ebook/
Apprehend: http://www.frontiernet.net/~w2m/index.html
Custom ImageEn Development |
Search
