[Lazarus] How to convert it to FPC/Lazarus

[michael.vancanneyt at wisa.be]

On Tue, 12 Apr 2011, ik wrote:

> 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 ?

   PageControl.Pages[i].TabVisible:= TTab(I) in Display

Michael.