paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 11:01:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source 
git-svn-id: trunk@20821 -
This commit is contained in:
jesus 2009-07-10 20:05:01 +00:00
parent 01f1a46a2a
commit 96ecfcf61f
4 changed files with 21 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/lazreport/source/languages/lr_const.pl.po
View File

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

14
components/lazreport/source/lazreport.lpk
View File

@ -27,7 +27,7 @@ Lazarus Port: Olivier Guilbaud, Jesus Reyes A.
See license.txt and license-lazreport.txt for details. See license.txt and license-lazreport.txt for details.
"/> "/>
<Version Minor="9" Release="5"/> <Version Minor="9" Release="5"/>
<Files Count="58"> <Files Count="61">
<Item1> <Item1>
<Filename Value="lr_class.pas"/> <Filename Value="lr_class.pas"/>
<UnitName Value="LR_Class"/> <UnitName Value="LR_Class"/>
@ -261,6 +261,18 @@ See license.txt and license-lazreport.txt for details.
<Filename Value="lr_rrect.pas"/> <Filename Value="lr_rrect.pas"/>
<UnitName Value="LR_RRect"/> <UnitName Value="LR_RRect"/>
</Item58> </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> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>

2
components/lazreport/source/lazreport.pas
View File

@ -11,7 +11,7 @@ uses
LR_PGrid, LR_View, lr_expres, lr_funct_editor_unit, lr_funct_editor_unit1, 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_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, LR_Utils, LR_GrpEd, lr_propedit, LR_progr, LR_IFlds, SysUtilsAdds, LR_RRect,
LazarusPackageIntf; LR_Shape, LazarusPackageIntf;
implementation implementation

4
components/lazreport/source/lr_shape.pas
View File

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