
- •Delphi. Визуальное программирование – 3 Классы tStringList и tIniFile Динамическое помещение компонентов на форму
- •Динамическое создание компонента типа tTabSet
- •Выбор элемента в ColorPropertyRg
- •Изменение значения в полосе прокрутки
- •Активация кнопкиУстановить(Set)
- •Сохранение текущих цветовых значений вIni-файле
- •Задания для самостоятельного выполнения
- •Класс tDrawGrid
- •Свойства компонента DrawGrid
- •Основные свойства, доступные во время разработки
- •Свойство Options
- •Свойства, доступные во время выполнения программы
- •Методы компонента DrawGrid
- •События компонента DrawGrid
- •Задание. Символы системных шрифтов
- •Класс tStringGrid
- •Новые свойства
- •Задание. Игра «Жизнь»
Сохранение текущих цветовых значений вIni-файле
Кнопка Сохранить предназначена для сохранения текущих цветовых значений в Ini-файле:
procedure TMainF.SaveBtnClick(Sender: TObject);
var i: 0..3;
Section: string; {вспомогательная переменная,
определяющая раздел Ini-файла, в котором будет сохранены данные }
begin
if Combobox1.ItemIndex<>-1 then
begin {если компонент выбран}
case Combobox1.ItemIndex of
0 : Section:=' Tabset' ; {определяем название секции Ini-файла}
end;
for i:=0 to ColorPropertyRG.items.Count-1 do
IniFile.WriteString (Section, string(ColorPropertyRG.Items[i]), IntToStr(ColorArray[i].CurrentColor));
{запись данных в Ini-файл}
end;
end;
Эксперимент. Убедитесь, что после щелчка на кнопке Сохранить был создан файл с именем 'c:\Colors.ini'. Посмотрите структуру созданного файла. Измените значение одного из свойств. ♦
Опишем процедуру чтения из INI-файла цветовых параметров компонента Tabset:
procedure TMainF.LoadTabsetSetting;
var IniValueList: TStringList;
i: Integer;
begin
IniValueList:=TStringList.Create;
{создаем объект типа TStringList для считывания цветовых значений из Ini-файла}
try
IniFile.ReadSectionValues('Tabset’,IniValueList);
{чтение цветовых значений свойств}
for i:=0 to IniValueList. Count-1 do {заполняем массив
цветовыми значениями}
with ColorArray[i] do begin
CurrentColor:=StrToInt(IniValueList.Values[ColorPropertyRG.items[i]]);
OriginalColor:=CurrentColor;
end;
finally
IniValueList. Free; {освобождаем память, выделенную под объект
типа TStringList}
end;
ChangeTabsetColor; {}
end;
Эксперимент. Удалите комментарии в методе NewTabset, запустите проект. Что происходит при выборе компонента Tabset?
Задания для самостоятельного выполнения
1. Допишите приложение Colorlni, дополнив его следующими функциями:
1. 1. добавьте возможность изменения свойств компонентов ListBox и Edit;
1.2. синхронизируйте изменение значений в компонентах SpinEdit с соответствующими им компонентами Srollbar.
Класс tDrawGrid
Компонент DrawGrid предназначен для создания таблицы, в ячейках которой расположены данные. Компонент обеспечивает двумерное представление данных, упорядоченных по строкам и столбцам.
Таблица делится на две части — фиксированную и рабочую. Фиксированная часть служит для показа заголовков столбцов/строк и для ручного управления их размерами. Обычно фиксированная часть занимает крайний левый столбец и самый верхний ряд таблицы. Она может содержать произвольное количество столбцов и рядов, причем эти величины можно изменять как в процессе разработки, так и программно. Рабочая часть состоит из ячеек, в которых находятся данные. Если рабочая часть не помещается целиком в пределах окна компонента, то у компонента автоматически появляются полосы прокрутки. При прокрутке рабочей области фиксированная часть не исчезает, но меняется ее содержимое — заголовки строк и рядов.
Заносить данные в ячейки таблицы можно только в ходе работы программы.
Свойства компонента DrawGrid
У компонента есть множество свойств, некоторые из них доступны уже в процессе разработки программы, остальные — только в ходе ее выполнения.