pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Reduce flicker of TsTabControl; still not perfect.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3754 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2014-11-20 16:48:31 +00:00
parent a7af4fa1b9
commit 824d6adb92
2 changed files with 12 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/fpspreadsheet/fpspreadsheet.pas
View File

@ -6714,9 +6714,8 @@ begin
Result := TsWorksheet.Create;
Result.FWorkbook := Self; // Must be before "SetName" needing the workbook
Result.Name := AName;
FWorksheets.Add(Pointer(Result));
Result.Name := AName;
if Assigned(FOnAddWorksheet) then FOnAddWorksheet(self, Result);
end;

29
components/fpspreadsheet/fpspreadsheetctrls.pas
View File

@ -150,6 +150,7 @@ type
TsWorkbookTabControl = class(TTabControl)
private
FWorkbookSource: TsWorkbookSource;
FLockCount: Integer;
procedure SetWorkbookSource(AValue: TsWorkbookSource);
protected
procedure Change; override;
@ -983,7 +984,7 @@ end;
-------------------------------------------------------------------------------}
procedure TsWorkbookTabControl.Change;
begin
if FWorkbookSource <> nil then
if (FWorkbookSource <> nil) and (FLockCount = 0) then
FWorkbookSource.SelectWorksheet(Workbook.GetWorksheetByIndex(TabIndex));
inherited;
end;
@ -1039,29 +1040,19 @@ procedure TsWorkbookTabControl.ListenerNotification(
AChangedItems: TsNotificationItems; AData: Pointer = nil);
var
i: Integer;
oldTabIndex: Integer;
list: TStringList;
t: Integer;
begin
Unused(AData);
// Workbook changed
if (lniWorkbook in AChangedItems) then
begin
oldTabIndex := TabIndex;
list := TStringList.Create;
Tabs.BeginUpdate;
try
GetSheetList(list);
Tabs.Assign(list);
if (oldTabIndex = -1) and (Tabs.Count > 0) then
TabIndex := 0
else
if oldTabIndex < Tabs.Count then
TabIndex := oldTabIndex;
finally
list.Free;
Tabs.EndUpdate;
end;
inc(FLockCount); // avoid WorkbookSelect message when adding each tab
GetSheetList(Tabs);
t := TabIndex;
TabIndex := Tabs.Count-1;
t := TabIndex;
dec(FLockCount);
end;
// Worksheet changed
@ -1071,6 +1062,8 @@ begin
if i <> TabIndex then
TabIndex := i;
end;
t := TabIndex;
end;
{@@ ----------------------------------------------------------------------------