[Lazarus] How to convert it to FPC/Lazarus

[ik]

Hello,

I have a Delphi based program that I try to rewrite for Lazarus (The
original code is not mine).

There is a code there like so:

type
  TTab = (ttOne, ttTwo, ttThree);

  TTabs = set of TItems;

...
procedure DisplayTabs(Display : TTabs);
var

 i:integer;

begin

 Tabs:=Display;

 for i:=0 to PageControl.PageCount-1 do
begin

  PageControl.Pages[i].TabVisible:= word(Display) and (1 shl i)>0; // how to
make this work ?
 end;

 PageControl.ActivePageIndex:=ord(Display);
end;
...

I rewrote it for the example here,but that's the same code. How can I make
it work in FPC+Lazarus ?

Thanks,
Ido
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus/attachments/20110412/ea5fd5a5/attachment-0002.html>