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

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

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

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

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

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

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

Выравнивание всталяемого значения ячейки основной надписи по левому краю!

Автор funtik, 26.01.07, 10:57:18

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

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

funtik

При занесении значения в штамп выравнивание текста происходит по центру!
Как при вставке в штамп выравнивание текста сделать по левому краю?
используемая процедура:
procedure ***;
var
 stamp         : ksStamp;
 itemParam  : ksTextItemParam;
 itemFont    : ksTextItemFont;
 docPar       : ksDocumentParam;
 shPar         : ksSheetPar;
 stPar          : ksStandartSheet;
begin
 itemParam := ksTextItemParam( KompasApi.GetParamStruct(ko_TextItemParam) );
 docPar  := ksDocumentParam( KompasApi.GetParamStruct(ko_DocumentParam) );
 if (itemParam <> nil) then begin
   itemParam.Init;
   itemFont := ksTextItemFont(itemParam.GetItemFont);
                 itemFont.SetBitVectorValue(NEW_LINE, true);
                 stamp := ksStamp(doc.GetStamp);
                 stamp.ksOpenStamp;
   if (stamp <> nil) then begin
                 stamp.ksColumnNumber(111);
                 if (itemFont <> nil) then begin
                  itemParam.s := AValue;
                               doc.ksTextLine(itemParam);
          end;   
 End;
 stamp.ksCloseStamp;
end;

Bordes

Попробуйте использовать  ksSetTextLineAlign

Пример из справки по SDK

if (::OpenStamp()) {
    ::ColumnNumber(2); // 2-справа
    ::ksSetTextLineAlign(0);
    ::TextLine(NEW_LINE, 0, 0 , "1111111");
    ::CloseStamp();
  }