Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Делфи 2-3 / 3. Delphi-3.doc
Скачиваний:
55
Добавлен:
30.03.2015
Размер:
416.26 Кб
Скачать

Сохранение текущих цветовых значений в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

У компонента есть множество свойств, некоторые из них доступны уже в процессе разработки программы, остальные — только в ходе ее выполнения.