TSimpleIpHtml Identifier not found Error

[zozuliar]

Здравствуйте.
Какой модуль надо подключить, чтобы компилятор начал понимать идентификатор
TSimpleIpHtml ?
Данный вопрос возник при попытке скопипастить в свою прогу метод TMainForm.OpenHTMLFile из проекта-примера
D:lazarusexamplesturbopower_ipro
Ошибка возникает в строке

Код: Выделить всё

NewHTML: TSimpleIpHtml;


Добавлено спустя 1 минуту 18 секунд:
У меня Lazarus 1.0.14
FPC 2.6.2
Win7 32-bit

[resident]

IpHtml

[zozuliar]

Так ведь стоИт. Правда, в разделе interface.

Добавлено спустя 44 секунды:

Код: Выделить всё

{$mode objfpc}{$H+}
.....
interface

uses
  Classes, SysUtils, FileUtil, PrintersDlgs, Forms, Controls, Graphics, Dialogs,
  StdCtrls, ExtCtrls, DBCtrls, sqldb, DB, Printers, Menus, printer4lazarus,
  RTTICtrls, IpHtml, Ipfilebroker, windows, LResources;

type     
.....


[resident]

У меня какой-то другой пример

type
TSimpleIpHtml = class(TIpHtml)
public
property OnGetImageX;
end;

procedure TMainForm.OpenHTMLFile(const Filename: string);
var
fs: TFileStream;
NewHTML: TSimpleIpHtml;
begin
try
fs:=TFileStream.Create(UTF8ToSys(Filename),fmOpenRead);
try
NewHTML:=TSimpleIpHtml.Create; // Beware: Will be freed automatically by IpHtmlPanel1
NewHTML.OnGetImageX:=@HTMLGetImageX;
NewHTML.LoadFromStream(fs);
finally
fs.Free;
end;
IpHtmlPanel1.SetHtml(NewHTML);
except
on E: Exception do begin
MessageDlg('Unable to open HTML file',
'HTML File: '+Filename+#13
+'Error: '+E.Message,mtError,[mbCancel],0);
end;
end;
end;

А для чего Вам всё это?

[zozuliar]

А-а-а-а-а. Понял.
Дело в том. что я не объявил тип

Код: Выделить всё

TSimpleIpHtml = class(TIpHtml)

А нужно мне это вот почему.
Есть некая форма с описанием некоего строительного объекта.
К этому строительному объекту нужно добавлять комментарии на этой же форме, а саму форму распечатывать.
Вот я и решил, отображать уже введённые данные (в т.ч. комментарии) в HTML-файл и показывать при помощи TIpHmlPanel.
Если добавляют новый комментарий, я перегенерирую хтмл-файл. Если нужно будет форму распечатать, я просто открою HTML-файл в браузере при помощи команды

Код: Выделить всё

ShellExecute(Handle, 'open', PChar(FileName), nil, nil, SW_SHOWNORMAL);

Потому что распечатывать формы я не умею

[Sharfik]

Неплохое решение кстати. Если Html хорошо сделан.