sheet

Type: Integer

Availability: Read or write at run time for tables

The sheet property contains the index of the current sheet for the Table control. This sheet value is used in the access of the table control properties. Changing the sheet property does not affect the sheet that is displayed. Using the topSheet property can change the sheet that is displayed. Sheet access is 1-relative.

The following example shows the use of the sheet property in a method that updates a table.

vars
    count, entry, row, sheet : Integer;
    companiesPerSheet        : Integer;
    company                  : Company;
begin
    // work out number of rows per sheet
    count := app.myMarket.allCompanies.size div 3;
    if (count * 3) < app.myMarket.allCompanies.size then
        companiesPerSheet := count + 1;
    else
        companiesPerSheet := count;
    endif;
    entry           := 1;
    count           := 0;
    tblPrices.sheet := 1;
    if reason = Price_Change and changedCompany <> null then
        findCompanyInTable(changedCompany, companiesPerSheet, sheet, row);
        return;
    endif;
    foreach company in app.myMarket.allCompanies do
        sharedLock(company);
        tblPrices.row        := tblPrices.row + 1;
        tblPrices.column     := 1;
        tblPrices.text       := company.shortName;
        // set column on item Object to company
        tblPrices.itemObject := company;
        tblPrices.column     := 2;
        tblPrices.text       := company.name;
        tblPrices.column     := 3;
        tblPrices.accessMode := Table.AccessMode_Column;
        tblPrices.alignment  := Table.Alignment_Right;
        tblPrices.text       := company.currentPrice.currencyFormat;
        tblPrices.column     := 4;
        tblPrices.accessMode := Table.AccessMode_Column;
        tblPrices.alignment  := Table.Alignment_Right;
        tblPrices.text       := company.availableShares.String;
        entry                := entry + 1;
        if count = 0 then
           tblPrices.sheetCaption := company.shortName;
        endif;
        count := count + 1;
        if count >= companiesPerSheet then
            count := 0;
            tblPrices.rows := tblPrices.row;
            tblPrices.sheetCaption := tblPrices.sheetCaption &
                      " - " & company.shortName;
            if tblPrices.sheet < 3 then
                tblPrices.sheet := tblPrices.sheet + 1;
            endif;
        endif;
        unlock(company);
    endforeach;
    if count <> 0 then
        tblPrices.rows := tblPrices.row;
    endif;
end;