paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 12:12:25 +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+} {$MODE DELPHI}{$H+}
{$DEFINE VERSION7} { Delphi 7.0 or higher } {$DEFINE VERSION7} { Delphi 7.0 or higher }
{$DEFINE VERSION4}
{$DEFINE VERSION5}
{$DEFINE Version6OrHigher} {$DEFINE Version6OrHigher}
{$DEFINE Version7OrHigher} {$DEFINE Version7OrHigher}

6
components/turbopower_ipro/iphtml.pas
View File

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