From: <ah...@us...> - 2008-12-02 19:25:27
|
Revision: 12066 http://jvcl.svn.sourceforge.net/jvcl/?rev=12066&view=rev Author: ahuser Date: 2008-12-02 19:25:24 +0000 (Tue, 02 Dec 2008) Log Message: ----------- Disable mouse-over highlighting in the IDE Modified Paths: -------------- trunk/jvcl/run/JvColorBox.pas Modified: trunk/jvcl/run/JvColorBox.pas =================================================================== --- trunk/jvcl/run/JvColorBox.pas 2008-12-02 18:32:35 UTC (rev 12065) +++ trunk/jvcl/run/JvColorBox.pas 2008-12-02 19:25:24 UTC (rev 12066) @@ -407,7 +407,7 @@ begin inherited MouseEnter(Control); {$IFDEF JVCLThemesEnabled} - if ThemeServices.ThemesEnabled and Enabled then + if ThemeServices.ThemesEnabled and Enabled and not (csDesigning in ComponentState) then Invalidate; {$ENDIF JVCLThemesEnabled} end; @@ -416,7 +416,7 @@ begin inherited MouseLeave(Control); {$IFDEF JVCLThemesEnabled} - if ThemeServices.ThemesEnabled and Enabled then + if ThemeServices.ThemesEnabled and Enabled and not (csDesigning in ComponentState) then Invalidate; {$ENDIF JVCLThemesEnabled} end; @@ -428,7 +428,7 @@ begin { Draw the button face } DrawThemedButtonFace(Self, Canvas, ClientRect, 1, bsAutoDetect, False, - FIsDown, Focused, IsMouseOver(Self)); + FIsDown, Focused, IsMouseOver(Self) and not (csDesigning in ComponentState)); Increment := Ord(FIsDown); Rec := ClientRect; @@ -463,14 +463,12 @@ Invalidate; end; - procedure TJvCustomDropButton.CMSysColorChange(var Msg: TMessage); begin inherited; Invalidate; end; - procedure TJvCustomDropButton.Resize; begin inherited Resize; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |