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

Merged revision(s) 51791 #26d9446403, 52095 #93b5f73def from trunk:

Browse Source 
LazReport, Decouple flHideZeros and flBandPrintChildIfNotVisible, modified patch by Luiz Americo, fix issue #29313
........
LazReport, fix text width calc on rotated memos, issue #29890
........

git-svn-id: branches/fixes_1_6@52171 -
This commit is contained in:
maxim 2016-04-11 22:16:21 +00:00
parent fec94eed66
commit 239d5cee9e
1 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
components/lazreport/source/lr_class.pas
View File

@ -46,7 +46,7 @@ const
flBandOnFirstPage = $10;
flBandOnLastPage = $20;
flBandRepeatHeader = $40;
flBandPrintChildIfNotVisible = $80;
flBandPrintChildIfNotVisible = $100;
flPictCenter = 2;
flPictRatio = 4;
@ -570,6 +570,7 @@ type
function GetTitleRect: TRect;
function TitleSize: Integer;
procedure CalcTitleSize;
procedure FixPrintChildIfNotVisible;
protected
procedure SetHeight(const AValue: Double); override;
procedure SetVisible(AValue: Boolean);override;
@ -1460,8 +1461,9 @@ const
// on TfrView, used to extend export facilities
// version 2.6: lazreport: added to binary stream Tag property on TfrView
// version 2.7: lazreport: added to binary stream FOnClick, FOnMouseEnter, FOnMouseLeave, FCursor property on TfrMemoView
// version 2.8. lazreport: added support for child bands
// version 2.9. lazreport: added support LineSpacing and GapX, GapY
// version 2.8: lazreport: added support for child bands
// version 2.9: lazreport: added support LineSpacing and GapX, GapY
// version 3.0: lazreport: decoupled flHideZeros and flBandPrintChildIfNotVisible
frSpecCount = 9;
frSpecFuncs: Array[0..frSpecCount - 1] of String = ('PAGE#', '',
@ -3738,8 +3740,8 @@ var
{$ENDIF}
SMemo.Add(str + Chr(w div 256) + Chr(w mod 256));
Inc(size, size1);
//!!
maxWidth := dx - InternalGapX - InternalGapX;
if Angle=0 then
maxWidth := dx - InternalGapX - InternalGapX;
end;
procedure WrapLine(const s: String);
@ -5087,6 +5089,7 @@ begin
fDataSetStr:=ReadString(Stream);
if frVersion>=28 then
fChild :=ReadString(Stream);
fixPrintChildIfNotVisible;
end else
begin
if StreamMode=smDesigning then begin
@ -5104,6 +5107,7 @@ begin
FCondition := XML.GetValue(Path+'Condition/Value', ''); // todo chk
FDatasetStr := XML.GetValue(Path+'DatasetStr/Value', ''); // todo chk
FChild := XML.GetValue(Path+'Child/Value', '');
FixPrintChildIfNotVisible;
end;
procedure TfrBandView.SaveToStream(Stream: TStream);
@ -5465,6 +5469,15 @@ begin
end;
end;
procedure TfrBandView.FixPrintChildIfNotVisible;
begin
if ((frVersion=28) or (frVersion=29)) and (flags and $80 <> 0) then
begin
flags := flags and not $80;
flags := flags or flBandPrintChildIfNotVisible;
end;
end;
procedure TfrBandView.SetHeight(const AValue: Double);
begin
inherited SetHeight(AValue);
@ -10150,8 +10163,8 @@ begin
end;
end;
end;
if Assigned(CurView) and (CurView.Flags and flHideZeros <> 0) then
//check if CurView is TfrBandView to avoid clash with flBandPrintChildIfNotVisible. Issue 29313
if Assigned(CurView) and ((CurView.Flags and flHideZeros <> 0) and not (CurView is TfrBandView)) then
begin
if TVarData(aValue).VType in [varSmallInt, varInteger, varCurrency,
varDecimal, varShortInt, varByte, varWord, varLongWord, varInt64,