Понедельник, 18.12.2017, 21:30
Приветствую Вас Гость | RSS

DELPHI Report

Каталог статей Delphi Report

Главная » Статьи » MS Office (MS Word, MS Excel ) » MS Excel

2.7 Формат заливки ячейки
Заливка ячейки определяется цветом, фоновым рисунком и цветом фонового рисунка. Доступ к этим полям осуществляется через объект Interior, который является свойством объекта Range. Цвет заливки может выбираться из определенной палитры цветов, в этом случае индекс цвета записывается в поле ColorIndex. Если необходимо задать цвет, отличный от цветов палитры, используется поле Color, в которое записывается значение комбинации трех основных цветов RGB. Фоновый рисунок заливки выбирается путем записи в поле Pattern константы из списка (смотрите исходный текст на домашней странице). Цвет фонового рисунка выбирается из цветовой палитры с записью в переменную PatternColorIndex цветового индекса или записью непосредственно значения RGB в поле PatternColor. Функция SetPatternRange реализует в среде Delphi управление форматом заливки ячеек. В этой функции, как и во всех предыдущих, действия могут выполняться как над одной ячейкой так и над множеством, все определяется форматом аргумента функции range:string.

Code:

 

Function SetPatternRange(sheet:variant;range:string;

Pattern,ColorIndex,PatternColorIndex,Color,PatternColor:integer):boolean;

begin

SetPatternRange:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Range[range].Interior.Pattern:=Pattern;

if ColorIndex>0

  then E.ActiveWorkbook.Sheets.Item[sheet].Range

   [range].Interior.ColorIndex:=ColorIndex

  else E.ActiveWorkbook.Sheets.Item[sheet].Range

   [range].Interior.Color:=color;

if PatternColorIndex>0

  then E.ActiveWorkbook.Sheets.Item[sheet].Range

   [range].Interior.PatternColorIndex:=PatternColorIndex

  else E.ActiveWorkbook.Sheets.Item[sheet].Range

   [range].Interior.PatternColor:=PatternColor;

except

SetPatternRange:=false;

end;

End;

 

 Далее


Простая заливка ячейки

Категория: MS Excel | Добавил: delphi (01.09.2008)
Просмотров: 4524 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Google
Форма входа
Категории раздела
MS Excel [22]MS Word [18]
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2017