| T O P I C R E V I E W |
| klausdoege |
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 |
| 3 L A T E S T R E P L I E S (Newest First) |
| klausdoege |
Posted - May 14 2012 : 14:23:58
Hello,
thank you, i will try it.
Klaus
Klaus
www.klausdoege.de |
| fab |
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; |
| Boban |
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; |
|
|
Search
