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 Michael. -- _______________________________________________ Lazarus mailing list [email protected] http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
