Axolot Data

Code: Select all

  // Fix the top rows for scrolling
  CurrentSheet.Pane.PaneType := ptFrozen;
  CurrentSheet.Pane.SplitColX := 1;
  CurrentSheet.Pane.SplitRowY := 4;
  CurrentSheet.Pane.LeftCol := 1;
  CurrentSheet.Pane.TopRow := 4;

Code: Select all

CurrentSheet.Options := CurrentSheet.Options + [soFrozenPanes];

Code: Select all

	XLSReadWriteII41->Version = xvExcel2007;
	XLSReadWriteII41->Sheets->Items[0]->Options = XLSReadWriteII41->Sheets->Items[0]->Options << soFrozenPanes;
	XLSReadWriteII41->Filename = L"test.xlsx";
	for(int i=0; i<=10; i++)
		for(int j=0; j<=10; j++)
			XLSReadWriteII41->Sheets->Items[0]->AsString[i][j] = L"Test[" + IntToStr(i) + L";" + IntToStr(j) + L"]";
	XLSReadWriteII41->Sheets->Items[0]->Pane->PaneType = ptFrozen;
	XLSReadWriteII41->Sheets->Items[0]->Pane->SplitColX = 1;
	XLSReadWriteII41->Sheets->Items[0]->Pane->SplitRowY = 4;
	XLSReadWriteII41->Sheets->Items[0]->Pane->LeftCol = 1;
	XLSReadWriteII41->Sheets->Items[0]->Pane->TopRow = 4;
	XLSReadWriteII41->Write();