LazReport, publish some frame porpeties in shape object, issue #14126

git-svn-id: trunk@20821 -

components/lazreport/source/languages/lr_const.pl.po

@@ -1563,7 +1563,7 @@ msgstr ""
 #: lr_const.spaper256
 msgctxt "lr_const.spaper256"
 msgid "Custom"
-msgstr ""
+msgstr "Użytkownika"
 
 #: lr_const.spaper26
 msgid "E Sheet, 34 x 44\""
@@ -2287,12 +2287,12 @@ msgstr ""
 #: lr_const.svar3
 msgctxt "lr_const.svar3"
 msgid "Date"
-msgstr ""
+msgstr "Data"
 
 #: lr_const.svar4
 msgctxt "lr_const.svar4"
 msgid "Time"
-msgstr ""
+msgstr "Godzina"
 
 #: lr_const.svar5
 msgid "Line#"

components/lazreport/source/lazreport.lpk

@@ -27,7 +27,7 @@ Lazarus Port: Olivier Guilbaud, Jesus Reyes A.
 See license.txt and license-lazreport.txt for details.
 "/>
     <Version Minor="9" Release="5"/>
-    <Files Count="58">
+    <Files Count="61">
       <Item1>
         <Filename Value="lr_class.pas"/>
         <UnitName Value="LR_Class"/>
@@ -261,6 +261,18 @@ See license.txt and license-lazreport.txt for details.
         <Filename Value="lr_rrect.pas"/>
         <UnitName Value="LR_RRect"/>
       </Item58>
+      <Item59>
+        <Filename Value="lr_shape.lfm"/>
+        <Type Value="LFM"/>
+      </Item59>
+      <Item60>
+        <Filename Value="lr_shape.lrs"/>
+        <Type Value="LRS"/>
+      </Item60>
+      <Item61>
+        <Filename Value="lr_shape.pas"/>
+        <UnitName Value="LR_Shape"/>
+      </Item61>
     </Files>
     <i18n>
       <EnableI18N Value="True"/>

components/lazreport/source/lazreport.pas

@@ -11,7 +11,7 @@ uses
   LR_PGrid, LR_View, lr_expres, lr_funct_editor_unit, lr_funct_editor_unit1, 
   LR_Prntr, LR_Edit, LR_Pars, LR_fmted, LR_Const, LR_pgopt, LR_Dopt, LR_GEdit, 
   LR_Utils, LR_GrpEd, lr_propedit, LR_progr, LR_IFlds, SysUtilsAdds, LR_RRect, 
-  LazarusPackageIntf;
+  LR_Shape, LazarusPackageIntf;
 
 implementation
 

components/lazreport/source/lr_shape.pas

@@ -52,6 +52,10 @@ type
 
   published
     property FillColor;
+    property FrameColor;
+    property FrameStyle;
+    property FrameWidth;
+
     property ShapeType : TfrShapeType Read fShapeType write fShapeType;
   end;