Ссылки в FR2.54

dymka · February 2005

Так вот - нужно использовать ссылки, но не просто http://итп итд, а типа такие:
ftp://user:pass@host
mailto:user@domain.com
то генератор ругается на то, что строка после @ не является целым числом.
Похоже он пытается вычислить номер страницы и перейти туда.
Вопрос: какие способы есть обмануть?
Или я туплю не по-децки.

dymka · February 2005

procedure TFastReportForm.FastReportObjectClick(View: TfrView);
begin
  if (UpperCase(Copy(View.Name, 1, 4)) = 'LINK') and
    (ShellExecute(Application.Handle, nil, PChar(View.Tag), nil, nil, SW_SHOWNORMAL) <= 32) then
    ShowMessage(SysErrorMessage(GetLastError));
end;

procedure TFastReportForm.FastReportMouseOverObject(View: TfrView;
  var Cursor: TCursor);
begin
  if (UpperCase(Copy(View.Name, 1, 4)) = 'LINK') then
    Cursor := crHandPoint;
end;

Вот

Типа сначала задай вопрос, а потом подумай. Звиняйте за беспокойство.

Ссылки в FR2.54

Комментарии

Оставить комментарий