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

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

« предыдущая - следующая »

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

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();
  }