[Lazarus] How to convert it to FPC/Lazarus

[ik]

On Tue, Apr 12, 2011 at 16:52, <michael.vancanneyt at wisa.be> wrote:

>
>
> 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
>
>
That's more simple :) Thanks.


> Michael.
>



>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>


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