FreePascal.ru

Romtek писал(а):

function MinimizeName(const Filename: TFileName; Canvas: TCanvas; MaxLen: Integer): TFileName;

Unit: FileCtrl (Delphi)

В Lazarus такой функции нет, но нашел ее код тут:

http://www.koders.com/delphi/fid96B9646DBA762623ECF5A61D73098E29E7DBECA4.aspx?s=MinimizeName

И все заработало Спасибо

Помню давно еще встречалась такая процедурка, которая может из пути вида "C:\DATA\Folder1\Folder2\Folder3\Folder4\Folder5\Folder6\Folder7\22APR05P.038"
если он больше n символов, сделать путь вида "C:\DATA\Folder1\..\Folder7\22APR05P.038"

Кто нибудь знает где такое можно найти? Не помню где ...

появляется окошко "processing" и прога ничего не делает, хотя и не виснет

Я установил свойство ShowProgress в False и отчет стал выводиться
Да, действительно, спасибо, заработало

А еще такой вопрос, как нибудь можно приготовленный в дизайнере репорт вывести на печать, не заходя в меню. Не ...

Здравствуйте у меня проблема.

Поставил последний CVS (30/05/2006) LazReport на Lazarus 0.9.16 под вынью. Установилось нормально, но отказывается работать. В Lazarus захожу в дезайн репорт, кидаю пару бэндов, компилирую проект, пробую вызывать frReport1.ShowReport или frReport1.PrintPreparedReport ...