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 ? end; PageControl.ActivePageIndex:=ord(Display); end; ... I rewrote it for the example here,but that's the same code. How can I make it work in FPC+Lazarus ? Thanks, Ido
-- _______________________________________________ Lazarus mailing list Lazarus@lists.lazarus.freepascal.org http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus