• Добро пожаловать на Форум пользователей ПО АСКОН. Пожалуйста, авторизуйтесь.
 

Уважаемые пользователи,

Хотим проинформировать вас о режиме работы регистрации на нашем сайте.

Зарегистрироваться возможно в рабочие дни, с 8:00 до 20:00 (мск).

Если у вас возникнут вопросы или потребуется дополнительная информация, не стесняйтесь обращаться к нашей службе поддержки. Вы можете связаться с нами по указанным контактным данным на нашем сайте.

Благодарим вас за понимание и сотрудничество. Мы ценим ваше терпение и стремимся предоставить вам лучший опыт использования нашего сервиса.

С уважением,
Команда Ascon

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

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

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

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

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, и все работает как надо.