SetFont (Index as integer, Face as String, Size as Integer, Attribute as Integer) as void
Definiuje kroje pisma dla poszczególnych poziomów zagłębienia drzewa.
Index określa poziom zagłębienia w strukturze drzewa, dla którego określany jest krój pisma (patrz także właściwość Indent obiektu Row oraz metodę InsertChildRow)
Face nazwa dowolnego kroju pisma, zainstalowanego w systemie Windows.
Size wysokość kroju pisma podana w pikselach
Attribute dodatkowe atrybuty kroju pisma, dowolna suma poniższych wartości:
•1 – pogrubienie
•2 – pochylenie
•4 – podkreślenie
•8 – przekreślenie
W przypadku gdy arkusz nie zawiera danych hierarchicznych zmiana kroju pisma dla poziomu 0 oznacza zmianę kroju pisma dla wszystkich komórek arkusza.
AmCtrl1.ColumnCount = 1
AmCtrl1.TreeMode = ttSolidLines
AmCtrl1.Template.SetFont 0, "Times New Roman", 18, 1
AmCtrl1.Template.SetFont 1, "Arial", 16, 2
AmCtrl1.Template.SetFont 2, "Arial", 14, 4
AmCtrl1.RowCount = 1
AmCtrl1.Rows(0).Value(0) = "201 Rozrachunki"
Set r = AmCtrl1.Rows(0).InsertChildRow(0)
r.Value(0) = "001 Dostawcy"
Set r = r.InsertChildRow(0)
r.Value(0) = "13467 PPHU Rawa S.A."
Ustawienia krojów pisma oraz funkcji InsertChildRow można używać również bez wyświetlania struktury drzewa w pierwszej kolumnie.
AmCtrl1.ColumnCount = 1
AmCtrl1.TreeMode = ttNone
AmCtrl1.Template.SetFont 0, "Times New Roman", 18, 1
AmCtrl1.Template.SetFont 1, "Arial", 16, 2
AmCtrl1.Template.SetFont 2, "Arial", 14, 4
AmCtrl1.RowCount = 1
AmCtrl1.Rows(0).Value(0) = "201 Rozrachunki"
Set r = AmCtrl1.Rows(0).InsertChildRow(0)
r.Value(0) = "001 Dostawcy"
Set r = r.InsertChildRow(0)
r.Value(0) = "13467 PPHU Rawa S.A."