freepascal.ru

leo_bsv писал(а):Пишите ваши наблюдения и мысли. Бум допиливать.

Владимир писал(а):2.Вызов ShowDocument с пустыми параметрами вообще лишен смысла, поэтому этот вопрос закрываем.

procedure ShowDocument(editor:string='xdg-open'; f_name:string='doc.odt');

ShowDocument('my_editor', 'new.odt');

ShowDocument;

ShowDocument('my_second_editor');

procedure TOdt.ShowDocument(editor:string='xdg-open';
                            f_name:string='doc.odt');
var exe_path, templ_path, sh: string;
    Proc: TProcess;
begin
  if editor='' then editor:='xdg-open';
  exe_path:=ExtractFilePath(Application.ExeName);
  {$IFDEF Linux}
  templ_path:=IncludeTrailingPathDelimiter(exe_path+'temp');
  GenerateDocument(templ_path,f_name,'');
  try
    Proc:=TProcess.Create(nil);
    Proc.CommandLine:=editor+' '+templ_path+f_name;
    Proc.Options:=[poWaitOnExit];
    Proc.ShowWindow:=swoShowMaximized;
    Proc.Execute;
  finally
    if Proc.WaitOnExit then begin
      Proc.CommandLine:='rm '+templ_path+' -r';
      Proc.Execute;
      Proc.Free;
    end;
  end;
  {$ENDIF}
end; 

ShowDocument('','myfile.odt')

leo_bsv писал(а):позволяет опускать параметры при вызове

Владимир писал(а):Да понимаю я, я говорю о бессмысленности вызова с ПУСТЫМИ параметрами.

Владимир писал(а):сделал новый проект специально для тестирования ODFProc. Все, что касается класса TOdt - живет, TodtTable - в упор не видит

leo_bsv писал(а):компилится но не видит ТOdtTable?

Владимир писал(а):Ага, компилится, но не видит TOdtTtable.

procedure TForm1.Button1Click(Sender: TObject);
var ODT: TOdt;
    T: TOdtTable;
begin
   ODT:=TOdt.Create;
   ODT.LoadTemplate(FNE.Text);
   // Заполним таблицу
   T:=ODT.GetTable('Таблица1');
   T.MultiplyRow(1,5);
   ODT.ShowDocument;
   ODT.Destroy;   
end;

leo_bsv писал(а):Работает...

leo_bsv писал(а):
Re: Работа с uOpenOffice

Сообщение leo_bsv » 22.12.2011 01:15:42
обновил ещё раз

Владимир писал(а):Боюсь показаться назойливым

leo_bsv писал(а):допилена TOdtTable.AppendRow, просьба тестить

Владимир писал(а):Вообще-то при наличии MultiplyRow большого смысла в AppendRow не вижу.

Владимир писал(а):В самой процедуре Cols почему-то 9-тизначное (при таблице в 5 столбцов).

Владимир писал(а):Считаю, что для начала не следует связываться с объединенными ячейками, пусть будет простая таблица.

Владимир писал(а):p.s. Если интересно, могу поделиться допиленным под Utf8 модулем "Сумма прописью". Также сделал шаблоны форм КМ-3 и КМ-6.

Владимир писал(а):могу поделиться допиленным под Utf8 модулем "Сумма прописью"

leo_bsv писал(а):а вот от этого не откажусь