как технические требования программно разместить над штампом?

Автор jurchello, 29.06.13, 11:54:13

« назад - далее »

0 Пользователи и 2 гостей просматривают эту тему.

jurchello

Подскажите пожалуйста, как узнать координаты верхнего левого  угла штампа для размещения техтребований с помощью Delhpi?

Они вроде сами автоматически размещаются.
// заполнение технических требований
procedure FillTechnicalDemand;
var
ItemParam:ksTextItemParam;
ItemFont:ksTextItemFont;
Doc:ksDocument2D;
begin
  Doc:=ksDocument2D(Kompas.ActiveDocument2D);
  if(Doc.ksOpenTechnicalDemand(nil,0)<>0)then  // nil - одной страницей
   begin
     ItemParam:=ksTextItemParam(Kompas.GetParamStruct(ko_TextItemParam));
     if ItemParam<>nil then
      begin
        ItemParam.Init;
        ItemFont:=ksTextItemFont(ItemParam.GetItemFont);
        if ItemFont<>nil then
         begin
           ItemFont.Init;
           ItemFont.SetBitVectorValue(NEW_LINE,True);
           ItemParam.s:=IDS_TT_4;
           Doc.ksTextLine(ItemParam);
         end;
      end;
     Doc.ksCloseTechnicalDemand;
   end;
end;

jurchello

Спасибо, действительно вместо координат прямоугольника установил nil, и все работает как надо.