From eedba8c151df038f4dc25d2e41726e8c6b0f5dd5 Mon Sep 17 00:00:00 2001
From: graemeg <graemeg@ae50a9b5-8222-0410-bf8d-8a13f76226bf>
Date: Fri, 14 Sep 2007 09:02:21 +0000
Subject: * New overloaded EndDraw method for TfpgCanvas. * Finished
 implementation change of ComboBox internal button. It now uses   a fake
 (painted) button instead of a real button. Up/Down state is also   supported.
 * Implemented Up/Down state for Scrollbar buttons. * Increased the version
 numbers of the fpGUI packages and uiDesigner. * If TfpgEdit is disabled, the
 mouse cursor doesn't change to a I beam.

---
 src/gui/gui_edit.pas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src/gui/gui_edit.pas')

diff --git a/src/gui/gui_edit.pas b/src/gui/gui_edit.pas
index c94e2bca..ad04f01d 100644
--- a/src/gui/gui_edit.pas
+++ b/src/gui/gui_edit.pas
@@ -546,7 +546,8 @@ begin
   inherited HandleMouseEnter;
   if (csDesigning in ComponentState) then
     Exit;
-  MouseCursor := mcIBeam;
+  if Enabled then
+    MouseCursor := mcIBeam;
 end;
 
 procedure TfpgEdit.HandleMouseExit;
-- 
cgit v1.2.3-70-g09d2