remove csCaptureMouse from TCustomEdit and TCustomCombobox (they are not needed and breaks behavior or qt applications)

git-svn-id: trunk@14220 -

lcl/editbtn.pas

@@ -46,7 +46,7 @@ type
     function GetButtonWidth: Integer;
     function GetDirectInput: Boolean;
     function GetFlat: Boolean;
-    Procedure CheckButtonVisible;
+    procedure CheckButtonVisible;
     procedure SetButtonHint(const AValue: TTranslateString);
     procedure SetButtonNeedsFocus(const AValue: Boolean);
     procedure SetButtonWidth(const AValue: Integer);
@@ -64,7 +64,7 @@ type
     procedure SetReadOnly(Value: Boolean); override;
     procedure DoPositionButton; virtual;
     procedure DoButtonClick (Sender: TObject); virtual;
-    Procedure Loaded; override;
+    procedure Loaded; override;
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure CMVisibleChanged(var Msg: TLMessage); message CM_VISIBLECHANGED;
     procedure CMEnabledChanged(var Msg: TLMessage); message CM_ENABLEDCHANGED;
@@ -537,7 +537,6 @@ begin
 end;
 
 procedure TCustomEditButton.SetGlyph(Pic: TBitmap);
-
 Begin
   FButton.Glyph:=Pic;
 end;

lcl/include/customcombobox.inc

@@ -715,6 +715,7 @@ begin
   inherited Create(TheOwner);
 
   fCompStyle := csComboBox;
+  ControlStyle := ControlStyle - [csCaptureMouse];
   SetInitialBounds(0,0,GetControlClassDefaultSize.X,GetControlClassDefaultSize.Y);
   FItems := TStringlist.Create;
   FItemIndex:=-1;

lcl/include/customedit.inc

@@ -48,6 +48,7 @@ begin
   inherited Create(AOwner);
   //FCompStyle is set here because TEdit inherits from this.
   //TCustomMemo also inherits from here but it's create changes fcompstyle to csMemo
+  ControlStyle := ControlStyle - [csCaptureMouse];
   FCompStyle := csEdit;
   FMaxLength:= -1;
   ParentColor := false;

lcl/interfaces/qt/qtwidgets.pas

@@ -2528,6 +2528,7 @@ end;
 
 procedure TQtWidget.grabMouse;
 begin
+  //DumpStack;
   //DebugLn(['current grab is: ', dbgs(QWidget_mouseGrabber())]);
   //DebugLn(['grab mouse for: ', dbgsName(LCLObject), ' : ', dbgs(Widget)]);
   QWidget_grabMouse(Widget);

lcl/stdctrls.pp

@@ -1184,7 +1184,7 @@ type
   TCheckBoxStyle = (cbsSystem, cbsCrissCross, cbsCheck);
 
   TCheckBox = class(TCustomControl)
-  Private
+  private
     FAllowGrayed,
     FWordWrap,
     FAttachTextToBox: Boolean;