jvcllaz: Activate HotTracking in JvPanel.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7002 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/run/JvCore/jvexcontrols.pas

@@ -64,10 +64,6 @@ const
   ******************** NOT CONVERTED *)
 
 type
-  (********************** NOT CONVERTED ****
-  TJvHotTrackOptions = class;
-  *****************************************)
-
   { IJvExControl is used for the identification of an JvExXxx control. }
   IJvExControl = interface
     ['{8E6579C3-D683-4562-AFAB-D23C8526E386}']
@@ -80,50 +76,6 @@ type
     ['{76942BC0-2A6E-4DC4-BFC9-8E110DB7F601}']
   end;
 
-
-  (***************************** NOT CONVERTED ****
-  { IJvHotTrack is Specifies whether Control are highlighted when the mouse passes over them}
-  IJvHotTrack = interface
-    ['{8F1B40FB-D8E3-46FE-A7A3-21CE4B199A8F}']
-
-    function GetHotTrack:Boolean;
-    function GetHotTrackFont:TFont;
-    function GetHotTrackFontOptions:TJvTrackFontOptions;
-    function GetHotTrackOptions:TJvHotTrackOptions;
-
-    procedure SetHotTrack(Value: Boolean);
-    procedure SetHotTrackFont(Value: TFont);
-    procedure SetHotTrackFontOptions(Value: TJvTrackFontOptions);
-    procedure SetHotTrackOptions(Value: TJvHotTrackOptions);
-
-    property HotTrack: Boolean read GetHotTrack write SetHotTrack;
-    property HotTrackFont: TFont read GetHotTrackFont write SetHotTrackFont;
-    property HotTrackFontOptions: TJvTrackFontOptions read GetHotTrackFontOptions write SetHotTrackFontOptions;
-    property HotTrackOptions: TJvHotTrackOptions read GetHotTrackOptions write SetHotTrackOptions;
-  end;
-
-  TJvHotTrackOptions = class(TJvPersistentProperty)
-  private
-    FEnabled: Boolean;
-    FFrameVisible: Boolean;
-    FColor: TColor;
-    FFrameColor: TColor;
-    procedure SetColor(Value: TColor);
-    procedure SetEnabled(Value: Boolean);
-    procedure SetFrameColor(Value: TColor);
-    procedure SetFrameVisible(Value: Boolean);
-  public
-    constructor Create; virtual;
-    procedure Assign(Source: TPersistent); override;
-  published
-    property Enabled: Boolean read FEnabled write SetEnabled default False;
-    property Color: TColor read FColor write SetColor default $00D2BDB6;
-    property FrameVisible: Boolean read FFrameVisible write SetFrameVisible default False;
-    property FrameColor: TColor read FFrameColor write SetFrameColor default $006A240A;
-  end;
-  ***********************)
-
-type
   TStructPtrMessage = class(TObject)
   private
   public
@@ -144,22 +96,13 @@ procedure CreateWMMessage(var Mesg: TLMessage; Msg: Cardinal; WParam: WPARAM; LP
 
 function SmallPointToLong(const Pt: TSmallPoint): LongInt; {$IFDEF SUPPORTS_INLINE} inline {$ENDIF}
 function ShiftStateToKeyData(Shift: TShiftState): Longint;
-
+function GetFocusedControl(AControl: TControl): TWinControl;
-//******************** NOT CONVERTED
-//function GetFocusedControl(AControl: TControl): TWinControl;
-
 function DlgcToDlgCodes(Value: Longint): TDlgCodes;
 function DlgCodesToDlgc(Value: TDlgCodes): Longint;
 procedure GetHintColor(var HintInfo: THintInfo; AControl: TControl; HintColor: TColor);
 function DispatchIsDesignMsg(Control: TControl; var Msg: TLMessage): Boolean;
 
 type
-  //******************** NOT CONVERTED
-  //CONTROL_DECL_DEFAULT(Control)
-
-  //******************** NOT CONVERTED
-  //WINCONTROL_DECL_DEFAULT(WinControl)
-
   TJvDoEraseBackgroundMethod = function(Canvas: TCanvas; Param: LPARAM): Boolean of object;
 
 function IsDefaultEraseBackground(Method: TJvDoEraseBackgroundMethod; MethodPtr: Pointer): Boolean;
@@ -413,7 +356,6 @@ begin
     Result := Result or ShiftMask;
 end;
 
-(******************** NOT CONVERTED
 function GetFocusedControl(AControl: TControl): TWinControl;
 var
   Form: TCustomForm;
@@ -423,7 +365,6 @@ begin
   if Assigned(Form) then
     Result := Form.ActiveControl;
 end;
-******************** NOT CONVERTED *)
 
 function DlgcToDlgCodes(Value: Longint): TDlgCodes;
 begin
@@ -505,86 +446,12 @@ begin
   end;
 end;
 
-(**************************** NOT CONVERTED ***
+function IsDefaultEraseBackground(Method: TJvDoEraseBackgroundMethod;
-
+  MethodPtr: Pointer): Boolean;
-//=== { TJvHotTrackOptions } ======================================
-
-constructor TJvHotTrackOptions.Create;
 begin
-  inherited Create;
+  Result := TMethod(Method).Code = MethodPtr;
-  FEnabled := False;
-  FFrameVisible := False;
-  FColor := $00D2BDB6;
-  FFrameColor := $006A240A;
 end;
 
-procedure TJvHotTrackOptions.Assign(Source: TPersistent);
-begin
-  if Source is TJvHotTrackOptions then
-  begin
-    BeginUpdate;
-    try
-      Enabled := TJvHotTrackOptions(Source).Enabled;
-      Color := TJvHotTrackOptions(Source).Color;
-      FrameVisible := TJvHotTrackOptions(Source).FrameVisible;
-      FrameColor := TJvHotTrackOptions(Source).FrameColor;
-    finally
-      EndUpdate;
-    end;
-  end
-  else
-    inherited Assign(Source);
-end;
-
-procedure TJvHotTrackOptions.SetColor(Value: TColor);
-begin
-  if FColor <> Value then
-  begin
-    Changing;
-    ChangingProperty('Color');
-    FColor := Value;
-    ChangedProperty('Color');
-    Changed;
-  end;
-end;
-
-procedure TJvHotTrackOptions.SetEnabled(Value: Boolean);
-begin
-  if FEnabled <> Value then
-  begin
-    Changing;
-    ChangingProperty('Enabled');
-    FEnabled := Value;
-    ChangedProperty('Enabled');
-    Changed;
-  end;
-end;
-
-procedure TJvHotTrackOptions.SetFrameVisible(Value: Boolean);
-begin
-  if FFrameVisible <> Value then
-  begin
-    Changing;
-    ChangingProperty('FrameVisible');
-    FFrameVisible := Value;
-    ChangedProperty('FrameVisible');
-    Changed;
-  end;
-end;
-
-procedure TJvHotTrackOptions.SetFrameColor(Value: TColor);
-begin
-  if FFrameColor <> Value then
-  begin
-    Changing;
-    ChangingProperty('FrameColor');
-    FFrameColor := Value;
-    ChangedProperty('FrameColor');
-    Changed;
-  end;
-end;
-
-*********************************)
 
 //============================================================================
 
@@ -777,15 +644,8 @@ begin
   end;
 end;
 
-//============================================================================
 
-function IsDefaultEraseBackground(Method: TJvDoEraseBackgroundMethod;
+{ TJvExCustomControl }
-  MethodPtr: Pointer): Boolean;
-begin
-  Result := TMethod(Method).Code = MethodPtr;
-end;
-
-//============================================================================
 
 constructor TJvExCustomControl.Create(AOwner: TComponent);
 begin
@@ -913,7 +773,7 @@ end;
 
 // 25.09.2007 - SESS:
 // I have done this because TextChanged wasn't fired as expected.
-// I still don't shure if this problem is only for this reintroduced
+// I still don't sure if this problem is only for this reintroduced
 // method because the way LCL treats Caption or will have the same
 // problem with other reintroduced methods. So far, I tested some
 // other events and seems not.

components/jvcllaz/run/JvCore/jvexextctrls.pas

@@ -89,8 +89,8 @@ type
     function WantKey(Key: Integer; Shift: TShiftState): Boolean; virtual;
     function HintShow(var HintInfo: THintInfo): Boolean; reintroduce; dynamic;
     function HitTest(X, Y: Integer): Boolean; reintroduce; virtual;
-    procedure MouseEnter; override;
+    procedure MouseEnter(AControl: TControl); reintroduce; dynamic;
-    procedure MouseLeave; override;
+    procedure MouseLeave(AControl: TControl); reintroduce; dynamic;
     property MouseOver: Boolean read FMouseOver write FMouseOver;
     property HintColor: TColor read FHintColor write FHintColor default clDefault;
     property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
@@ -332,26 +332,20 @@ begin
   Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0;
 end;
 
-procedure TJvExCustomPanel.MouseEnter;
+procedure TJvExCustomPanel.MouseEnter(AControl: TControl);
 begin
-  inherited;
   FMouseOver := True;
-  { --not needed
   if Assigned(FOnMouseEnter) then
     FOnMouseEnter(Self);
   BaseWndProc(CM_MOUSEENTER, 0, AControl);
-  ------}
 end;
 
-procedure TJvExCustomPanel.MouseLeave;
+procedure TJvExCustomPanel.MouseLeave(AControl: TControl);
 begin
   FMouseOver := False;
-  inherited;
-  { ------ not needed in LCL
   BaseWndProc(CM_MOUSELEAVE, 0, AControl);
   if Assigned(FOnMouseLeave) then
     FOnMouseLeave(Self);
-  ------------- }
 end;
 
 procedure TJvExCustomPanel.FocusChanged(AControl: TWinControl);
@@ -449,12 +443,10 @@ begin
     CM_HITTEST:
       with TCMHitTest(Msg) do
         Result := LRESULT(HitTest(XPos, YPos));
-    { -------------- not needed in LCL ----------
     CM_MOUSEENTER:
       MouseEnter(TControl(Msg.LParam));
     CM_MOUSELEAVE:
       MouseLeave(TControl(Msg.LParam));
-    --------------------------------------------}
     CM_VISIBLECHANGED:
       VisibleChanged;
     CM_ENABLEDCHANGED:

components/jvcllaz/run/JvStdCtrls/jvpanel.pas

@@ -190,9 +190,9 @@ type
     procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
     procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
     procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
+    procedure MouseEnter(AControl: TControl); override;
+    procedure MouseLeave(AControl: TControl); override;
     (************************* NOT CONVERTED ****
-    procedure MouseEnter; override;
-    procedure MouseLeave; override;
     procedure ParentColorChanged; override;
     ********************************************)
     procedure TextChanged; override;
@@ -270,8 +270,8 @@ type
     property Layout;
     property Movable;
     property Sizeable;
-    (******************** NOT CONVERTED ***
     property HintColor;
+    (******************** NOT CONVERTED ***
     property Transparent;
     **************************************)
     property MultiLine;
@@ -860,7 +860,6 @@ begin
         ACanvas.Font := Self.Font;
 
       SetBkMode(Handle, BkModeTransparent);
-      Font := Self.Font;
       ATextRect := GetClientRect;
       InflateRect(ATextRect, -BorderWidth, -BorderWidth);
       BevelSize := 0;
@@ -911,8 +910,7 @@ begin
 end;
 **************************************)
 
-(********************** NOT CONVERTED ****
+procedure TJvCustomArrangePanel.MouseEnter(AControl: TControl);
-procedure TJvCustomArrangePanel.MouseEnter;
 var
   NeedRepaint: Boolean;
   OtherDragging: Boolean;
@@ -920,12 +918,12 @@ begin
   if csDesigning in ComponentState then
     Exit;
 
-  if not MouseOver and Enabled and (Control = nil) then
+  if not MouseOver and Enabled and (AControl = nil) then
   begin
     OtherDragging := Mouse.IsDragging;
-    NeedRepaint := not Transparent and
+    NeedRepaint := not FTransparent and
      ((FHotTrack and Enabled and not FDragging and not OtherDragging));
-    inherited MouseEnter(Control); // set MouseOver
+    inherited MouseEnter(AControl); // set MouseOver
     if NeedRepaint then
       Repaint;
   end
@@ -933,7 +931,7 @@ begin
     inherited;
 end;
 
-procedure TJvCustomArrangePanel.MouseLeave;
+procedure TJvCustomArrangePanel.MouseLeave(AControl: TControl);
 var
   NeedRepaint: Boolean;
   OtherDragging:Boolean;
@@ -941,11 +939,11 @@ begin
   if csDesigning in ComponentState then
     Exit;
   OtherDragging := Mouse.IsDragging;
-  if MouseOver and Enabled and (Control = nil) then
+  if MouseOver and Enabled and (AControl = nil) then
   begin
-    NeedRepaint := not Transparent and
+    NeedRepaint := not FTransparent and
      ((FHotTrack and (FDragging or (Enabled and not OtherDragging))));
-    inherited MouseLeave(Control); // set MouseOver
+    inherited MouseLeave(AControl); // set MouseOver
 
     if Sizeable then
       RestoreSizeableCursor;;
@@ -956,7 +954,6 @@ begin
   else
     inherited;
 end;
-**********************************)
 
 procedure TJvCustomArrangePanel.SetSizeableCursor;
 begin