Inicjalizacja tabeli
Przykład wykona zinicjalizowanie tabeli z czterema kolumnami i 101 wierszami.
W zmiennej
Rows miejmy ilość wierszy, w zmiennej
oTable miejmy obiekt
PmgWTable umieszczony w panelu.
Przykład:
JavaScriptVBScriptWybierz oraz skopiuj do schowka
var iRow, iCol;
var oTable = pMe;
var nRows = 101;
var nCols = 4;
var Minimum = 20;
var Maximum = 90;
oTable.Dim(nCols, nRows, 1, 1, 100, 20, 3, true);
// Ustawienie domyślnej czcionki tabeli:
oTable.Font.Name = "Arial";
oTable.Font.Size = 10;
oTable.Font.Bold = false;
oTable.Font.Italic = false;
// Ustawienie czcionki stałej części tabeli:
oTable.FixedFont.Name = "Courier";
oTable.FixedFont.Size = 12;
oTable.FixedFont.Bold = true;
oTable.FixedFont.Italic = true;
// Ustawienie kolorów tabeli:
oTable.BackColor = "#ffffff";
// ustawienie koloru przy pomocy RGB String w formie "#RRGGBB"
oTable.ForeColor = "#000000";
oTable.FixedForeColor = "#000000";
oTable.FixedBackColor = "#00ff00";
// Wyrównanie tekstu komórek tabeli:
for (iCol = 0; iCol < nCols; iCol++)
{
oTable.SetCellTextAlign(-3, iCol, 1);
}
// Wypełnienie nagłówka tabeli:
oTable.SetCellText(0, 1, "Temperatura");
oTable.SetCellText(0, 2, "Minimum");
oTable.SetCellText(0, 3, "Maximum");
oTable.SetCellForeColor(-3, 2, "#0000d0");
// ustawienie koloru przy pomocy RGB String w formie "#RRGGBB"
oTable.SetCellForeColor(-3, 3, "#ff0000");
for (iRow = 1; iRow < nRows; iRow++)
{
oTable.SetCellText(iRow, 0, "Kociol" + iRow);
oTable.SetCellText(iRow, 1, Pm.Round(Pm.Random(0, 100), 1));
oTable.SetCellText(iRow, 2, Minimum);
oTable.SetCellText(iRow, 3, Maximum);
}
// Ustawienie możliwości edycji kolumn tabeli:
oTable.SetCellEditable(-3, 0, 0);
oTable.SetCellEditable(-3, 1, 2);
oTable.SetCellEditable(-3, 2, 2);
Dim iRow, iCol, oTable, nRows, nCols, Minimum, Maximum
Set oTable = pMe
nRows = 101
nCols = 4
Minimum = 20
Maximum = 90
oTable.Dim nCols, nRows, 1, 1, 100, 20, 3, true
' Ustawienie domyślnej czcionki tabeli:
oTable.Font.Name = "Arial"
oTable.Font.Size = 10
oTable.Font.Bold = false
oTable.Font.Italic = false
' Ustawienie czcionki stałej części tabeli:
oTable.FixedFont.Name = "Courier"
oTable.FixedFont.Size = 12
oTable.FixedFont.Bold = true
oTable.FixedFont.Italic = true
' Ustawienie kolorów tabeli:
oTable.BackColor = "#ffffff"
' ustawienie koloru przy pomocy RGB String w formie "#RRGGBB"
oTable.ForeColor = "#000000"
oTable.FixedForeColor = "#000000"
oTable.FixedBackColor = "#00ff00"
' Wyrównanie tekstu komórek tabeli:
For iCol = 0 To nCols - 1
oTable.SetCellTextAlign -3, iCol, 1
Next
' Wypełnienie nagłówka tabeli:
oTable.SetCellText 0, 1, "Temperatura"
oTable.SetCellText 0, 2, "Minimum"
oTable.SetCellText 0, 3, "Maximum"
oTable.SetCellForeColor -3, 2, "#0000d0"
' ustawienie koloru przy pomocy RGB String w formie "#RRGGBB"
oTable.SetCellForeColor -3, 3, "#ff0000"
For iRow = 1 To nRows - 1
oTable.SetCellText iRow, 0, "Kociol" & iRow
oTable.SetCellText iRow, 1, Pm.Round(Pm.Random(0, 100), 1)
oTable.SetCellText iRow, 2, Minimum
oTable.SetCellText iRow, 3, Maximum
Next
' Ustawienie możliwości edycji kolumn tabeli:
oTable.SetCellEditable -3, 0, 0
oTable.SetCellEditable -3, 1, 2
oTable.SetCellEditable -3, 2, 2