|
Modification of
a set with the specified name:
var
Styles:
TfrxStyles;
StyleSheet:
TfrxStyleSheet;
{ search for the
required set }
Styles :=
StyleSheet.Find('Styles2');
{ modify a style with
the Style1 name from the found set }
with
Styles.Find('Style1')
do
Font.Name := 'Arial
Black';
Adding a set to
a library:
var
Styles:
TfrxStyles;
StyleSheet:
TfrxStyleSheet;
{ the third set
}
Styles :=
StyleSheet.Add;
Styles.Name :=
'Styles3';
Deleting a set
from a library:
var
i: Integer;
StyleSheet:
TfrxStyleSheet;
{ search for the third
set }
i :=
StyleSheet.IndexOf('Styles3');
{ if find, delete
}
if
i <> -1
then
StyleSheet.Delete(i);
|