<div dir="ltr"><br><div dir="ltr"><br></div><br>
<br><br><div class="gmail_quote">On Tue, Apr 12, 2011 at 16:52,  <span dir="ltr"><<a href="mailto:michael.vancanneyt@wisa.be">michael.vancanneyt@wisa.be</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

<div class="im"><br>
<br>
On Tue, 12 Apr 2011, ik wrote:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Hello,<br>
<br>
I have a Delphi based program that I try to rewrite for Lazarus (The<br>
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>
<br>
i:integer;<br>
<br>
begin<br>
<br>
Tabs:=Display;<br>
<br>
for i:=0 to PageControl.PageCount-1 do<br>
begin<br>
<br>
 PageControl.Pages[i].TabVisible:= word(Display) and (1 shl i)>0; // how to<br>
make this work ?<br>
</blockquote>
<br></div>
  PageControl.Pages[i].TabVisible:= TTab(I) in Display<br>
<br></blockquote><div><br>That's more simple :) Thanks.<br> </div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;">
Michael.<br></blockquote><div><br> </div><blockquote class="gmail_quote" style="margin: 0pt 0pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;"><font color="#888888">
<br>
--<br>
_______________________________________________<br>
Lazarus mailing list<br>
<a href="mailto:Lazarus@lists.lazarus.freepascal.org" target="_blank">Lazarus@lists.lazarus.freepascal.org</a><br>
<a href="http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus" target="_blank">http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus</a><br>
</font></blockquote></div><br><br>Ido<br></div>