pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

fpspreadsheet: Fix new cell painting code causing a hang in case of stacked text rotation.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4205 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-07-09 17:47:59 +00:00
parent 5b319c45bf
commit e1920a4bfa
2 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/fpspreadsheetgrid.pas
View File

@ -2791,6 +2791,7 @@ begin
if cell <> nil then
begin
Result := TrimToCell(cell);
{
if Worksheet.ReadTextRotation(cell) = rtStacked then
begin
s := Result;
@ -2801,6 +2802,7 @@ begin
if i < Length(s) then Result := Result + LineEnding;
end;
end;
}
end;
end;
end;

2
components/fpspreadsheet/fpsvisualutils.pas
View File

@ -486,7 +486,7 @@ begin
case AHorAlignment of
haLeft : xpos := ARect.Left + stackPeriod div 2;
haRight : xpos := ARect.Right - totalHeight + stackPeriod div 2;
haCenter: xpos := (ARect.Left + ARect.Right - totalHeight) div 2;
haCenter: xpos := (ARect.Left + ARect.Right - (Length(lineInfos)-1) * stackPeriod) div 2;
end;
end;
end;