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

Revert NegativeDisplayFormat because functionality is ready in DisplayFormat mask positive;negative;zero

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5632 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
jujibo
2017-01-12 09:08:34 +00:00
parent a2825db869
commit a3d3ce9f37
1 changed files with 3 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
components/jujiboutils/src/jlabeledcurrencyedit.pas
View File

@ -36,11 +36,9 @@ type
fPColor: TColor;
theValue: currency;
fFormat: string;
fNFormat: string;
fDecimals: integer;
function getDecimals: integer;
function getFormat: string;
function getNegativeFormat: string;
function getValue: currency;
procedure formatInput;
procedure setDecimals(const AValue: integer);
@ -48,7 +46,6 @@ type
function scaleTo(const AValue: currency; const NDecimals: integer): currency;
function IsValidFloat(const Value: string): boolean;
procedure setNegativeColor(AValue: TColor);
procedure setNegativeFormat(AValue: string);
procedure setValue(const AValue: currency);
protected
{ Protected declarations }
@ -65,8 +62,6 @@ type
property EditFormat: string read fEFormat write fEFormat;
property Decimals: integer read getDecimals write setDecimals;
property Value: currency read getValue write setValue;
property NegativeDisplayFormat: string read getNegativeFormat
write setNegativeFormat;
property NegativeColor: TColor read fNColor write setNegativeColor;
property Action;
@ -143,11 +138,6 @@ begin
Result := fFormat;
end;
function TJLabeledCurrencyEdit.getNegativeFormat: string;
begin
Result := fNFormat;
end;
function TJLabeledCurrencyEdit.getValue: currency;
begin
Result := theValue;
@ -157,19 +147,13 @@ procedure TJLabeledCurrencyEdit.formatInput;
begin
if Font.Color <> fNColor then
fPColor := Font.Color; // store original font color
if (theValue < 0) and (fNFormat <> '') then
begin
Caption := FormatFloat(fNFormat, -theValue);
font.Color := fNColor;
end
else
begin
Caption := FormatFloat(DisplayFormat, theValue);
if theValue < 0 then
font.Color := fNColor
else
font.Color := fPColor;
end;
end;
procedure TJLabeledCurrencyEdit.setDecimals(const AValue: integer);
begin
if (AValue >= 0) and (AValue < 5) then
@ -204,12 +188,6 @@ begin
formatInput;
end;
procedure TJLabeledCurrencyEdit.setNegativeFormat(AValue: string);
begin
fNFormat := AValue;
formatInput;
end;
procedure TJLabeledCurrencyEdit.setValue(const AValue: currency);
begin
if fDecimals > 0 then