Как да промените шрифта в таблицата, DelphiSite

Най-четени

Как да промените шрифта в таблицата?

Как да промените шрифта в таблицата? Нека се опитаме да променим шрифта само в клетката на таблицата. За да направите това, можете да използвате обекта Font като свойство на клетка, например: ActiveDocument.Tables.Item(Table).Columns.Item(Column).Cells.Item(Row).Range.font. Има и друг начин: можете да изберете клетка и да работите с обекта Selection.Font. Вторият метод е изгоден с това, че може да се използва за промяна на шрифта не само в таблицата, но и във всички избрани обекти. Нека го разгледаме по-подробно. Изберете клетка от таблица, като използвате метода Select на обекта Cell. В Delphi тази функция би изглеждала така:

Използваме тази функция, за да изберете конкретна клетка от таблица. След това можете да започнете да работите със свойството Font на обекта Selection. Обектът Font е подобен на обекта със същото име в Delphi, но има някои разлики: цветът на шрифта се определя от индекс, който може да има малък брой възможни стойности, но броят на режимите на подчертаване и зачертаване на текст е по-голям, отколкото за шрифта в Delphi. Тъй като се предполага, че разработваме приложения в Delphi за разработване на документи в Word, би било удобно да приложим функцията за преобразуване на полето на шрифта. Ето пример за такава функция:

Функция FontToEFont ( шрифт:Tfont;EFont: вариант;

ColorIndex: integer ) : boolean ;

EFont. Име :=шрифт. име;

ако fsBold infont. стил

след това EFont. Удебелен := Вярно // Удебелен

иначе EFont. Bold := False ; // Тънък

ако fsИталик в шрифта. стил

след това EFont. Курсив := Вярно // Курсив

иначе EFont. Курсив := Невярно ; //

EFont. Размер:=шрифт. Размер ; // Размер

ако fsStrikeOut в шрифта. стил

след това EFont. Зачертано :=Вярно // Зачертано

иначе EFont. Зачертано := Невярно ; //

if fs Подчертайте в шрифта. стил

след това EFont. Подчертано :=wdUnderlineSingle // Подчертано

иначе EFont. Подчертан:=wdUnderlineNone; //

EFont. ColorIndex :=ColorIndex; // Цвят

Когато обектът е избран, можем да променим неговия шрифт, за това използваме следната функция за обекта Selection:

Функция SetFontSelection ( font:Tfont;

ColorIndex: integer ) : boolean ;

SetFontSelection:=FontToEFont ( font,W. Selection . font ,ColorIndex ) ;

В тялото на вашата програма замяната на шрифта ще изглежда, например, както следва: SelectCell(tab_,2,3); SetFontSelection(Button2.font,5); Където tab_ е номерът на таблицата, Button2.font е шрифтът на бутона, 5 е индексът на цвета.

---