| Author |
 Topic  |
|
|
klausdoege
Germany
389 Posts |
 Posted - May 13 2012 : 16:05:42
|
Hello,
if I use a background and a layer, then objects are not shown,
the object is always behind the Layer.
Can I put an object over one layer ?
If yes, then how ?
Klaus
Klaus
www.klausdoege.de |
|
|
Boban
Yugoslavia
41 Posts |
Posted - May 13 2012 : 17:17:37
|
Hi Klaus
Try this.
procedure TForm1.FormActivate(Sender: TObject);
begin
ctrlch := false;
ImageEnView1.SetLayersGripStyle(clBlack,clInfoBk,bsSolid,4,iegsCircle;
ImageEnView1.ForceALTkey:=true;
ImageEnView1.LayersSync := false;
ImageEnView1.MouseInteract := [miMoveLayers, miResizeLayers];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ImageEnView1.MouseInteractVt := [miPutText];
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ImageEnView1.MouseInteractVt := [miSelect];
end;
//Properties (OnSelectObject)
procedure TForm1.ImageEnView1SelectObject(Sender: TObject);
var
q, obj: integer;
begin
// load properties to "Object properties"
ctrlch := true;
obj := -1; // -1 is next object (new object to insert)
with ImageEnView1 do
for q := -1 to SelObjectsCount - 1 do
begin
if q >= 0 then
obj := SelObjects[q];
end;
ctrlch := false;
end; |
 |
|
|
fab
1310 Posts |
Posted - May 14 2012 : 00:54:58
|
It is possible to anchor an object to a layer with ObjLayer[] property.
// create next objects on layer 1
ImageEnVect1.ObjLayer[IEV_NEXT_INSERTED_OBJECT] := 1; |
|
|
|
klausdoege
Germany
389 Posts |
Posted - May 14 2012 : 14:23:58
|
Hello,
thank you, i will try it.
Klaus
Klaus
www.klausdoege.de |
|
|
| |
Topic |
|
Search
Objekt over a Layer ?
