TabIndex value doesn't change the grid on Lazarus 1.8.2 [Answered by
wp]
lazarus / 49-FPSpreadsheet

----------------------------------------------------------------------
totya · 2018-04-22 18:57

Hi!

This (ugly demo) code works on Lazarus 1.6.4, but not on Lazarus
1.8.2.

Thanks...

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i unit
Unit1; {$mode objfpc}{$H+} interface uses  Classes, SysUtils,
FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls, 
fpspreadsheetctrls, fpspreadsheetgrid,   fpsallformats; type   {
TForm1 }   TForm1 = class(TForm)    Timer: TTimer;    WorkbookSource:
TsWorkbookSource;    WorkbookTabControl: TsWorkbookTabControl;   
procedure FormActivate(Sender: TObject);    procedure
FormCreate(Sender: TObject);    procedure TimerTimer(Sender:
TObject);  private    WorksheetGrid: TsWorksheetGrid;  public  
end; var  Form1: TForm1; implementation {$R *.lfm} { TForm1
} procedure TForm1.FormCreate(Sender: TObject);begin  Timer.Enabled:=
false;end; procedure TForm1.FormActivate(Sender: TObject);begin 
WorkbookSource.FileName:= 'test_multi.xls';   with WorkbookTabControl
do    begin      Align:= alClient;      WorkbookSource:=
Self.WorkbookSource;    end;   WorksheetGrid:=
TsWorksheetGrid.Create(self);   if Assigned(WorksheetGrid) then     
with WorksheetGrid do      begin        Parent:= WorkbookTabControl; 
     Align:= alClient;        WorkbookSource:= Self.WorkbookSource;  
     Timer.Enabled:= true;      end;end; procedure
TForm1.TimerTimer(Sender: TObject);begin  Timer.Enabled:= false;   if
WorkbookTabControl.TabIndex < WorkbookTabControl.Tabs.Count -1    then
WorkbookTabControl.TabIndex:= WorkbookTabControl.TabIndex +1    else
WorkbookTabControl.TabIndex:= 0;   Timer.Enabled:= true;end; end.

----------------------------------------------------------------------
wp · 2018-04-22 20:14

For Delphi compatibility, this behavior of TCustomTabControl and its
descendants was changed in Laz 1.8. Please see the 1.8 release notes:
http://wiki.freepascal.org/Lazarus_1.8.0_release_notes#TCustomTabContr
ol_setting_TabIndex_or_PageIndex_by_code. Here you find the
information that you must add nboDoChangeOnSetIndex  to the
TabControl's Options to get back the old behavior.

----------------------------------------------------------------------
totya · 2018-04-22 20:24

Hi!

Thank you master!

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i Options:=
Options+ [nboDoChangeOnSetIndex];