paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 17:09:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

turbopower_ipro: less hints

Browse Source 
git-svn-id: trunk@35132 -
This commit is contained in:
mattias 2012-02-04 18:10:08 +00:00
parent 1130c0fb47
commit f11890d646
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
components/turbopower_ipro/design/ipidehtmlcontrol.pas
View File

@ -42,15 +42,15 @@ type
{ TLazIPHtmlControl } { TLazIPHtmlControl }
TLazIPHtmlControl = class(TCustomPanel,TIDEHTMLControlIntf) TLazIPHtmlControl = class(TCustomPanel,TIDEHTMLControlIntf)
function DataProviderCanHandle(Sender: TObject; const URL: string): Boolean; function DataProviderCanHandle(Sender: TObject; const {%H-}URL: string): Boolean;
procedure DataProviderCheckURL(Sender: TObject; const URL: string; procedure DataProviderCheckURL(Sender: TObject; const {%H-}URL: string;
var Available: Boolean; var ContentType: string); var Available: Boolean; var ContentType: string);
procedure DataProviderGetHtml(Sender: TObject; const URL: string; procedure DataProviderGetHtml(Sender: TObject; const {%H-}URL: string;
const {%H-}aPostData: TIpFormDataEntity; var Stream: TStream); const {%H-}aPostData: TIpFormDataEntity; var Stream: TStream);
procedure DataProviderGetImage(Sender: TIpHtmlNode; const URL: string; procedure DataProviderGetImage(Sender: TIpHtmlNode; const URL: string;
var Picture: TPicture); var Picture: TPicture);
procedure DataProviderLeave(Sender: TIpHtml); procedure DataProviderLeave(Sender: TIpHtml);
procedure DataProviderReportReference(Sender: TObject; const URL: string); procedure DataProviderReportReference(Sender: TObject; const {%H-}URL: string);
procedure IPHTMLPanelHotClick(Sender: TObject); procedure IPHTMLPanelHotClick(Sender: TObject);
private private
FIDEProvider: TAbstractIDEHTMLProvider; FIDEProvider: TAbstractIDEHTMLProvider;