TMapObj.AppendDrawObject

TMapObj

Добавить элемент графического описания объектов.

function AppendDrawObject (aImage : integer; const parm : Pointer): integer;

Описание:

Функция добавляет элемент графического описания к графическому объекту. aImage - номер функции типа IMG_XXXXXXX (см. MAPGDI.INC), parm  - адрес структуры типа IMGXXXXXX. При ошибке возвращает ноль, иначе - число элементов в записи.

Например, функция, которая добавляет графического описания объектов может выглядеть следующим образом:

//=================================================

function MapObj AppendDrawObject l(aMapObj : TMapObj; const aExCode,aLocal : integer) : integer;

var

 layernumber : integer;

 parms : TIMGSQUARE;

begin

  layernumber :=  aMapOb.LayerNumber;

  aMapObj.CreateDrawObject(0,layernumber,KM_IDFLOAT2,OL_SQUARE);

  parms.Color:=RGB(random(255),random(255),random(255));      

  aMapObj.AppendDrawObject(IMG_SQUARE,@parms);

  aMapObj.Commit;

end;