paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-19 02:29:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

ipro: delphi 4+5 defines

Browse Source 
git-svn-id: trunk@35821 -
This commit is contained in:
mattias 2012-03-08 11:48:23 +00:00
parent c52851dbfa
commit 1a7f713de1
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/turbopower_ipro/ipdefine.inc
View File

@ -43,6 +43,8 @@
{$MODE DELPHI}{$H+}
{$DEFINE VERSION7} { Delphi 7.0 or higher }
{$DEFINE VERSION4}
{$DEFINE VERSION5}
{$DEFINE Version6OrHigher}
{$DEFINE Version7OrHigher}

6
components/turbopower_ipro/iphtml.pas
View File

@ -3451,7 +3451,7 @@ type
property HotNode : TIpHtmlNode read FHotNode; {!!.12}
function IsURLHtml(const URL: string): Boolean;
procedure MakeAnchorVisible(const Name: string);
{$IFDEF VERSION4}
{$IF defined(VERSION4) and not defined(IP_LAZARUS)}
procedure MouseWheelHandler(Var Message: TMessage); Override; {!!.16}
{$ENDIF}
procedure OpenURL(const URL: string);
@ -3565,7 +3565,7 @@ type
property Visible; {!!.10}
property VLinkColor;
property WantTabs;
{$IFDEF VERSION4}
{$IF defined(VERSION4) and not defined(IP_LAZARUS)}
property OnCanResize; {!!.10}
{$ENDIF}
property OnClick;
@ -19548,7 +19548,7 @@ begin
end;
{New in !!.16}
{$IFDEF VERSION4}
{$IF defined(VERSION4) and not defined(IP_LAZARUS)}
procedure TIpHtmlCustomPanel.MouseWheelHandler(var Message: TMessage);
begin
inherited MouseWheelHandler(Message);