Лекция 05 Компоненты Additional (151028)

Компонент TStringGrid – таблица строк

Установка для просмотра нужной области таблицы (номера первых видимых столбцов и строк)

procedure TForm1.Button1Click(Sender: TObject); Begin

StringGrid1.LeftCol := 3;

StringGrid1.TopRow := 5; End;

Компонент TStringGrid – таблица строк

Заполнение ячеек их координатами:

procedure TForm1.FormCreate(Sender: TObject); Var c,r: integer;

Begin

StringGrid1.ColCount := 10;

StringGrid1.RowCount := 10;

For c:=0 to StringGrid1.ColCount – 1 do For r:= 0 to StringGrid1.RowCount – 1 do StringGrid1.Cells[c,r] :=

‘(’ + IntToStr(c) + ’,’ + IntToStr(r) + ‘)’; End;

Компонент TStringGrid – таблица строк

Выделение прямоугольной области ячеек:

procedure TForm1.Button1Click(Sender: TObject); Var GRect: TGridRect;

Begin

GRect.Left := 2;

GRect.Top := 2;

GRect.Right := 3;

GRect.Bottom := 5; StringGrid1.Selection := GRect;

End;

Компонент TDrawGrid – рисуемая таблица

Особенности использования:

-Работа по визуальному представлению каждого объекта в ячейке полностью возлагается на программиста;

-Большинство свойств совпадают с аналогичными свойствами таблицы строк;

-Создавать массивы объектов необходимо отдельно

-Класс TDrawGrid может быть использован как базовый класс для создания собственных электронных таблиц со сложным поведением.

Компонент F1book (закладка ActiveX)

аналог таблицы Excel (Ввод и Вывод данных)

Компонент F1book (закладка ActiveX)

аналог таблицы Excel

F1book1.

-.NumberRC[ i, j ] – адресация ячеек

-.ClearRange (r1, c1, r2, c2, k),

где k=1 – все, k=2 – форматы, k=3 – значения

-.Write(‘имя файла.txt’, результат) – вывод в файл

For i:=1 to N do begin

F1book1.NumberRC[I, 1]:=x[i];

End;

Панель Win32

Основные компоненты

Панель Win32

Компонент TrackBar

Пример изменения ширины и высоты

F1book с помощью TrackBar

Пример изменения ширины и высоты

F1book с помощью TrackBar

procedure TForm1.FormCreate(Sender: TObject); begin

f1book1.MaxCol:=TrackBar1.Position;

f1book1.MaxRow:=TrackBar2.Position;

end;