fpspreadsheet: Add property SelectionPen to WorksheetGrid

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4449 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2016-01-21 11:39:05 +00:00
parent 7d731629e1
commit bbe063d794
2 changed files with 37 additions and 16 deletions
--- a/components/fpspreadsheet/examples/visual/fpsctrls/main.lfm
+++ b/components/fpspreadsheet/examples/visual/fpsctrls/main.lfm
@@ -30,6 +30,8 @@ object MainForm: TMainForm
      FrozenCols = 0
      FrozenRows = 0
      ReadFormulas = False
+      SelectionPen.JoinStyle = pjsMiter
+      SelectionPen.Width = 3
      TextOverflow = True
      WorkbookSource = WorkbookSource
      Align = alClient
@@ -49,6 +51,7 @@ object MainForm: TMainForm
      TitleFont.Height = -13
      TitleFont.Name = 'Arial'
      TitleStyle = tsNative
+      UseXORFeatures = True
      OnClickHyperlink = WorksheetGridClickHyperlink
    end
  end