С помощью DataGrid1 через DataView1 вывожу таблицу DataTable1 с количеством столбцов задаваемых пользователем.
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 | procedure TWinForm . Button1_Click(sender: System . Object ; e: System . EventArgs);
var
i,n: Integer ;
Davlenie,Dlina: DataRow;
begin
DataTable1 . Rows . Clear;
DataTable1 . Columns . Clear;
try
n:=System . Convert . ToInt32(TextBox1 . Text);
except
on e: FormatException do
TextBox1 . Text:= 'Ошибка' ;
end ;
if TextBox1 . Text <> 'Ошибка' then
begin
DataTable1 . Columns . Add;
DataTable1 . Columns . Item[ 0 ].DataType:=TypeOf( 'String' );
DataTable1 . Columns . Item[ 0 ].Caption:= 'Параметр' ;
for i:= 1 to n do
begin
DataTable1 . Columns . Add;
DataTable1 . Columns . Item[i].DataType:=TypeOf( 'String' );
DataTable1 . Columns . Item[i].Caption:= 'Точка' +i . ToString;
DataTable1 . Columns . Item[i].DefaultValue:= '' ;
end ;
Davlenie:=DataTable1 . NewRow;
DataTable1 . Rows . Add(Davlenie);
Dlina:=DataTable1 . NewRow;
DataTable1 . Rows . Add(Dlina);
DataTable1 . Rows . Item[ 0 ].Item[ 0 ]:= 'Давление' ;
DataTable1 . Rows . Item[ 1 ].Item[ 0 ]:= 'Длина' ;
end ;
end ;
|
У меня вопросы по оформлению внешнего вида таблицы:
1. задаю заголовок
DataTable1.Columns.Item[0].Caption:='Параметр';
DataGrid1 отображает имя колонки, а не заголовок?
2. как задать размер колонок и строк при отображении в DataGrid1, а также цвет конкретного столбца, строки или ячейки?