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

fpspreadsheet: Add text format. Allow leading apostrophe to prevent conversion of a cell text to numbers.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4538 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-03-09 21:17:53 +00:00
parent 52975a9ac1
commit c8d5e0f95a
20 changed files with 292 additions and 333 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/fpsvisualutils.pas
View File

@@ -356,7 +356,7 @@ end;
{ Draw lines in horizontal orienation }
procedure TsTextPainter.DrawHor(AOverrideTextColor: TColor);
var
xpos, ypos, dx, j: Integer;
xpos, ypos, j: Integer;
lineinfo: TsLineInfo;
pEnd: PChar;
begin
@@ -447,7 +447,7 @@ var
xpos, ypos, dx: Integer;
j: Integer;
lineinfo: TsLineInfo;
pEnd, p: PChar;
pEnd: PChar;
begin
// (1) Get starting point of line
lineinfo := TsLineInfo(FLines[0]);