From 4af5b0413c2c23bd70c81b5abf0b6de4e89a1a3e Mon Sep 17 00:00:00 2001
From: Graeme Geldenhuys <graeme@mastermaths.co.za>
Date: Tue, 21 Feb 2012 13:06:28 +0200
Subject: edit demo: Currency Edit's negative values was never set.

---
 examples/gui/edits/edittest.lpr | 1 +
 1 file changed, 1 insertion(+)

(limited to 'examples/gui')

diff --git a/examples/gui/edits/edittest.lpr b/examples/gui/edits/edittest.lpr
index d48c09ef..3098b3e6 100644
--- a/examples/gui/edits/edittest.lpr
+++ b/examples/gui/edits/edittest.lpr
@@ -105,6 +105,7 @@ procedure TMainForm.lbChange(Sender: TObject);
 begin
   edtFloat.NegativeColor := lbNegativeColor.Color;
   edtInteger.NegativeColor := lbNegativeColor.Color;
+  edtCurrency.NegativeColor := lbNegativeColor.Color;
 end;
 
 procedure TMainForm.edtIntegerChange(Sender: TObject);
-- 
cgit v1.2.3-70-g09d2