Набираю код. После точки жму Ctrl+spase, и получаю в окне сообщений
- Код: Выделить всё
---------------------------------------------
main.pas(6286,29) Error: позиция курсора вне кода
Курсор останавливается вот тут
- Код: Выделить всё
procedure TFormMainFobos.OpenHTMLFile(const Filename: string);
var
fs: TFileStream;
NewHTML: TSimpleIpHtml;
begin
try
fs:=TFileStream.Create(UTF8ToSys(Filename),fmOpenRead);
try
NewHTML:=TSimpleIpHtml.Create; // строка 6286. 29-я позиция точка
NewHTML.OnGetImageX:=@HTMLGetImageX;
NewHTML.LoadFromStream(fs);
finally
fs.Free;
end;
IpHtmlPanel1.Visible := true;
IpHtmlPanel1.Enabled := true;
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;
