paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 18:50:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Patch from inoussa to publish stretch for shape

Browse Source 
git-svn-id: trunk@41748 -
This commit is contained in:
michael 2019-03-19 21:43:15 +00:00
parent 282f4a6972
commit 409ca963ca
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/fcl-report/src/fpreport.pp
View File

@ -2062,7 +2062,8 @@ type
property ShapeType;
property Orientation;
property CornerRadius;
property Color;
property Color;
property StretchMode;
end;
@ -5176,8 +5177,13 @@ begin
end;
procedure TFPReportCustomShape.RecalcLayout;
var
h: TFPReportUnits;
begin
// Do nothing
if StretchMode = smDontStretch then
exit;
h := Layout.Height;
ApplyStretchMode(h);
end;
procedure TFPReportCustomShape.DoWriteLocalProperties(AWriter: TFPReportStreamer; AOriginal: TFPReportElement);

4
packages/fcl-report/src/fpreportdb.pp
View File

@ -64,7 +64,11 @@ begin
FDataset.RemoveFreeNotification(Self);
FDataSet:=AValue;
if Assigned(FDataset) then
begin
FDataset.FreeNotification(Self);
// if FDataset.Active then
// InitFieldDefs;
end;
end;
function TFPReportDatasetData.GetIsOpened: boolean;