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

spready: Adapt to changes in fpspreadsheet.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6582 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-08-10 11:25:16 +00:00
parent e908d9ba3b
commit fc35dffc82
5 changed files with 34 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
applications/spready/sutils.pas
View File

@ -5,18 +5,30 @@ unit sutils;
interface
uses
SysUtils,
fpstypes, fpspreadsheet;
function GetCellFormatAsString(AWorkbook: TsWorkbook; AIndex: Integer): String;
var
UTF8FormatSettings: TFormatSettings;
//function GetCellFormatAsString(AWorkbook: TsWorkbook; AIndex: Integer): String;
function GetColorName(AColor: TsColor): String;
function GetFontAsString(AFont: TsFont): String;
implementation
uses
fpsstrings, fpsNumFormat;
{@@ ----------------------------------------------------------------------------
Determines the name of a color from its rgb value
-------------------------------------------------------------------------------}
type
TRGBA = packed record
R, G, B, A: byte;
end;
function GetColorName(AColor: TsColor): string;
var
rgba: TRGBA absolute AColor;
@ -29,7 +41,7 @@ begin
scBlueGray : Result := rsBlueGray;
scBrown : Result := rsBrown;
scCoral : Result := rsCoral;
scCyan : Result := rsCyan;
//scCyan : Result := rsCyan;
scDarkBlue : Result := rsDarkBlue;
scDarkGreen : Result := rsDarkGreen;
scDarkPurple : Result := rsDarkPurple;
@ -51,9 +63,9 @@ begin
scLightOrange: Result := rsLightOrange;
scLightTurquoise: Result := rsLightTurquoise;
scLightYellow: Result := rsLightYellow;
scLime : Result := rsLime;
// scLime : Result := rsLime;
scMagenta : Result := rsMagenta;
scNavy : Result := rsNavy;
// scNavy : Result := rsNavy;
scOceanBlue : Result := rsOceanBlue;
scOlive : Result := rsOlive;
scOliveGreen : Result := rsOliveGreen;
@ -88,7 +100,7 @@ begin
end;
end;
end;
(*
{@@ ----------------------------------------------------------------------------
Returns a string describing the cell format with the specified index.
-------------------------------------------------------------------------------}
@ -100,6 +112,7 @@ var
numFmt: TsNumFormatParams;
begin
Result := '';
fmt := GetPointerToCellFormat(AIndex);
if fmt = nil then
exit;
@ -141,6 +154,7 @@ begin
Result := Format('%s; %s', [Result, GetEnumName(TypeInfo(TsBiDiMode), ord(fmt^.BiDiMode))]);
if Result <> '' then Delete(Result, 1, 2);
end;
*)
{@@ ----------------------------------------------------------------------------
Returns a string which identifies the font.
@ -163,4 +177,8 @@ begin
Result := '';
end;
initialization
InitUTF8FormatSettings(UTF8FormatSettings);
end.