paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 12:39:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

fpvectorial: Adds some more conveniece styles

Browse Source 
git-svn-id: trunk@43108 -
This commit is contained in:
sekelsenmat 2013-10-05 20:26:24 +00:00
parent 4c9c1ca079
commit 9b3994023a
1 changed files with 30 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
components/fpvectorial/fpvectorial.pas
View File

@ -1135,6 +1135,8 @@ type
SelectedElement: TvEntity;
// List of common styles, for conveniently finding them
StyleTextBody, StyleHeading1, StyleHeading2, StyleHeading3: TvStyle;
StyleTextBodyCentralized, StyleHeading1Centralized,
StyleHeading2Centralized, StyleHeading3Centralized: TvStyle;
StyleBulletList, StyleNumberList : TvListStyle;
StyleTextSpanBold, StyleTextSpanItalic, StyleTextSpanUnderline: TvStyle;
{ Base methods }
@ -6244,6 +6246,34 @@ begin
lCurStyle.SetElements := [spbfFontSize, spbfFontName, spbfFontBold];
StyleHeading3 := lCurStyle;
// ---------------------------------
// Centralized paragraph styles
// ---------------------------------
StyleTextBodyCentralized := AddStyle();
StyleTextBodyCentralized.ApplyOver(StyleTextBody);
StyleTextBodyCentralized.Name := 'Text Body Centered';
StyleTextBodyCentralized.Alignment := vsaCenter;
StyleTextBodyCentralized.SetElements := StyleTextBodyCentralized.SetElements + [spbfAlignment];
StyleHeading1Centralized := AddStyle();
StyleHeading1Centralized.ApplyOver(StyleHeading1);
StyleHeading1Centralized.Name := 'Heading 1 Centered';
StyleHeading1Centralized.Alignment := vsaCenter;
StyleHeading1Centralized.SetElements := StyleHeading1Centralized.SetElements + [spbfAlignment];
StyleHeading2Centralized := AddStyle();
StyleHeading2Centralized.ApplyOver(StyleHeading2);
StyleHeading2Centralized.Name := 'Heading 2 Centered';
StyleHeading2Centralized.Alignment := vsaCenter;
StyleHeading2Centralized.SetElements := StyleHeading2Centralized.SetElements + [spbfAlignment];
StyleHeading3Centralized := AddStyle();
StyleHeading3Centralized.ApplyOver(StyleHeading3);
StyleHeading3Centralized.Name := 'Heading 3 Centered';
StyleHeading3Centralized.Alignment := vsaCenter;
StyleHeading3Centralized.SetElements := StyleHeading3Centralized.SetElements + [spbfAlignment];
// ---------------------------------
// Bullet List Items
// ---------------------------------