diff options
| -rw-r--r-- | src/gui/fpg_edit.pas | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/src/gui/fpg_edit.pas b/src/gui/fpg_edit.pas index e04f02eb..9c96f489 100644 --- a/src/gui/fpg_edit.pas +++ b/src/gui/fpg_edit.pas @@ -216,6 +216,7 @@ type protected function GetMarginAdjustment: integer; override; procedure HandlePaint; override; + procedure SetTextColor(const AValue: TfpgColor); override; procedure FormatEdit; virtual; procedure Justify; virtual; // to implement in derived classes property OldColor: TfpgColor read FOldColor write SetOldColor; @@ -1825,6 +1826,15 @@ begin end; end; +procedure TfpgBaseNumericEdit.SetTextColor(const AValue: TfpgColor); +begin + if FTextColor = AValue then + Exit; //==> + FTextColor := AValue; + FOldColor := AValue; + Repaint; +end; + procedure TfpgBaseNumericEdit.FormatEdit; begin SetShowThousand; |