<div dir="ltr">Hello,<br><br>I have a Delphi based program that I try to rewrite for Lazarus (The original code is not mine).<br><br>There is a code there like so:<br><br>type<br>  TTab = (ttOne, ttTwo, ttThree);<br><br>  TTabs = set of TItems;<br>

<br>...<br>procedure DisplayTabs(Display : TTabs);<br>var                                                                                                                                         <br> i:integer;                                                                                                                                 <br>

begin                                                                                                                                       <br> Tabs:=Display;                                                                                                                            <br>

 for i:=0 to PageControl.PageCount-1 do begin                                                                                               <br>  PageControl.Pages[i].TabVisible:= word(Display) and (1 shl i)>0; // how to make this work ?<br>

 end;                                                                                                                                       <br> PageControl.ActivePageIndex:=ord(Display);<br>end;<br>...<br><br>I rewrote it for the example here,but that's the same code. How can I make it work in FPC+Lazarus ?<br>

<br>Thanks,<br>Ido<br clear="all"><br>
</div>