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