From 3dcc4271bf7430496a41af7eb566afa82b20df0b Mon Sep 17 00:00:00 2001 From: micha Date: Sat, 19 Jun 2004 15:36:29 +0000 Subject: [PATCH] fix speedbutton group in design mode git-svn-id: trunk@5584 - --- lcl/include/speedbutton.inc | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lcl/include/speedbutton.inc b/lcl/include/speedbutton.inc index fe53a9c20e..d106d3a4e2 100644 --- a/lcl/include/speedbutton.inc +++ b/lcl/include/speedbutton.inc @@ -653,7 +653,6 @@ procedure TSpeedButton.CMButtonPressed(var Message : TLMessage); var Sender : TSpeedButton; begin - if csDesigning in ComponentState then exit; if Message.WParam = WParam(FGroupIndex) then begin Sender := TSpeedButton(Message.LParam); @@ -773,6 +772,9 @@ end; { ============================================================================= $Log$ + Revision 1.54 2004/06/19 15:36:29 micha + fix speedbutton group in design mode + Revision 1.53 2004/05/11 12:16:47 mattias replaced writeln by debugln