From: <ah...@us...> - 2006-08-13 13:20:27
|
Revision: 10883 Author: ahuser Date: 2006-08-13 06:20:07 -0700 (Sun, 13 Aug 2006) ViewCVS: http://svn.sourceforge.net/jvcl/?rev=10883&view=rev Log Message: ----------- Added HintWindowClass property to the JvExVCL controls Modified Paths: -------------- trunk/jvcl/run/JvComponentPanel.pas trunk/jvcl/run/JvExButtons.pas trunk/jvcl/run/JvExCheckLst.pas trunk/jvcl/run/JvExComCtrls.pas trunk/jvcl/run/JvExControls.pas trunk/jvcl/run/JvExDBGrids.pas trunk/jvcl/run/JvExExtCtrls.pas trunk/jvcl/run/JvExForms.pas trunk/jvcl/run/JvExGrids.pas trunk/jvcl/run/JvExMask.pas trunk/jvcl/run/JvExStdCtrls.pas Modified: trunk/jvcl/run/JvComponentPanel.pas =================================================================== --- trunk/jvcl/run/JvComponentPanel.pas 2006-08-13 13:18:41 UTC (rev 10882) +++ trunk/jvcl/run/JvComponentPanel.pas 2006-08-13 13:20:07 UTC (rev 10883) @@ -15,6 +15,7 @@ All Rights Reserved. Contributor(s): + Andreas Hausladen You may retrieve the latest version of this file at the Project JEDI's JVCL home page, located at http://jvcl.sourceforge.net @@ -45,7 +46,7 @@ Types, QTypes, {$ENDIF VisualCLX} Classes, Buttons, - JvButtons, JvExtComponent; + JvButtons, JvExtComponent, JvExButtons; type TButtonClick = procedure(Sender: TObject; Button: Integer) of object; @@ -57,13 +58,13 @@ FButtons: TList; FOnClick: TButtonClick; FOnDblClick: TButtonClick; - FButtonPointer: TSpeedButton; + FButtonPointer: TJvExSpeedButton; FButtonLeft: TJvNoFrameButton; FButtonRight: TJvNoFrameButton; FFirstVisible: Integer; FLockUpdate: Integer; - FSelectButton: TSpeedButton; - function GetButton(Index: Integer): TSpeedButton; + FSelectButton: TJvExSpeedButton; + function GetButton(Index: Integer): TJvExSpeedButton; function GetButtonCount: Integer; procedure SetButtonCount(AButtonCount: Integer); procedure SetButtonWidth(AButtonWidth: Integer); @@ -88,7 +89,7 @@ procedure Invalidate; override; procedure BeginUpdate; procedure EndUpdate; - property Buttons[Index: Integer]: TSpeedButton read GetButton; default; + property Buttons[Index: Integer]: TJvExSpeedButton read GetButton; default; property FirstVisible: Integer read FFirstVisible write SetFirstVisible; published property Align; @@ -144,7 +145,7 @@ FButtonHeight := 28; FButtonLeft := TJvNoFrameButton.Create(Self); FButtonRight := TJvNoFrameButton.Create(Self); - FButtonPointer := TSpeedButton.Create(Self); + FButtonPointer := TJvExSpeedButton.Create(Self); with FButtonLeft do begin Parent := Self; @@ -212,12 +213,12 @@ FSelectButton := FButtonPointer; end; -function TJvComponentPanel.GetButton(Index: Integer): TSpeedButton; +function TJvComponentPanel.GetButton(Index: Integer): TJvExSpeedButton; begin if (Index < 0) or (Index > FButtons.Count - 1) then Result := nil else - Result := TSpeedButton(FButtons[Index]); + Result := TJvExSpeedButton(FButtons[Index]); end; function TJvComponentPanel.GetButtonCount: Integer; @@ -227,7 +228,7 @@ procedure TJvComponentPanel.SetButtonCount(AButtonCount: Integer); var - TmpButton: TSpeedButton; + TmpButton: TJvExSpeedButton; begin // (rom) removed the exception and the limit of 100 buttons if AButtonCount < 0 then @@ -242,13 +243,14 @@ end; while FButtons.Count < AButtonCount do begin - TmpButton := TSpeedButton.Create(Self); + TmpButton := TJvExSpeedButton.Create(Self); with TmpButton do begin Flat := True; Parent := Self; Top := 0; GroupIndex := 1; + HintWindowClass := Self.HintWindowClass; OnClick := BtnClick; OnDblClick := BtnDblClick; end; @@ -292,7 +294,7 @@ begin if FSelectButton <> Sender then begin - FSelectButton := TSpeedButton(Sender); + FSelectButton := TJvExSpeedButton(Sender); if Assigned(FOnClick) then FOnClick(Sender, FButtons.IndexOf(FSelectButton)); end; Modified: trunk/jvcl/run/JvExButtons.pas =================================================================== --- trunk/jvcl/run/JvExButtons.pas 2006-08-13 13:18:41 UTC (rev 10882) +++ trunk/jvcl/run/JvExButtons.pas 2006-08-13 13:20:07 UTC (rev 10883) @@ -55,6 +55,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -62,7 +63,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -96,6 +97,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; end; @@ -105,6 +107,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -112,7 +115,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -146,6 +149,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -278,6 +282,8 @@ function TJvExSpeedButton.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -479,6 +485,8 @@ function TJvExBitBtn.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; Modified: trunk/jvcl/run/JvExCheckLst.pas =================================================================== --- trunk/jvcl/run/JvExCheckLst.pas 2006-08-13 13:18:41 UTC (rev 10882) +++ trunk/jvcl/run/JvExCheckLst.pas 2006-08-13 13:20:07 UTC (rev 10883) @@ -55,6 +55,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -62,7 +63,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -96,6 +97,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -228,6 +230,8 @@ function TJvExCheckListBox.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; Modified: trunk/jvcl/run/JvExComCtrls.pas =================================================================== --- trunk/jvcl/run/JvExComCtrls.pas 2006-08-13 13:18:41 UTC (rev 10882) +++ trunk/jvcl/run/JvExComCtrls.pas 2006-08-13 13:20:07 UTC (rev 10883) @@ -56,6 +56,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -63,7 +64,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -97,6 +98,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -131,6 +133,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -138,7 +141,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -172,6 +175,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -205,6 +209,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -212,7 +217,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -246,6 +251,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -279,6 +285,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -286,7 +293,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -320,6 +327,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -353,6 +361,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -360,7 +369,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -394,6 +403,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -427,6 +437,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -434,7 +445,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -468,6 +479,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -501,6 +513,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -508,7 +521,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -542,6 +555,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -575,6 +589,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -582,7 +597,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -616,6 +631,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -649,6 +665,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -656,7 +673,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -690,6 +707,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -723,6 +741,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -730,7 +749,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -764,6 +783,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -797,6 +817,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -804,7 +825,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -838,6 +859,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -873,6 +895,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -880,7 +903,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -914,6 +937,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -947,6 +971,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -954,7 +979,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -988,6 +1013,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1021,6 +1047,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1028,7 +1055,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1062,6 +1089,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1097,6 +1125,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1104,7 +1133,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1138,6 +1167,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1171,6 +1201,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1178,7 +1209,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1212,6 +1243,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1245,6 +1277,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1252,7 +1285,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1286,6 +1319,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1319,6 +1353,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1326,7 +1361,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1360,6 +1395,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1393,6 +1429,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1400,7 +1437,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1434,6 +1471,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1467,6 +1505,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1474,7 +1513,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1508,6 +1547,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1541,6 +1581,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1548,7 +1589,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1582,6 +1623,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1615,6 +1657,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1622,7 +1665,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1656,6 +1699,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1689,6 +1733,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1696,7 +1741,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1730,6 +1775,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1763,6 +1809,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1770,7 +1817,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1804,6 +1851,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1837,6 +1885,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1844,7 +1893,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1878,6 +1927,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1911,6 +1961,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1918,7 +1969,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -1952,6 +2003,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -1985,6 +2037,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -1992,7 +2045,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -2026,6 +2079,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -2059,6 +2113,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -2066,7 +2121,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -2100,6 +2155,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; end; @@ -2210,6 +2266,8 @@ function TJvExCustomComboBoxEx.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -2545,6 +2603,8 @@ function TJvExCustomStatusBar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -2880,6 +2940,8 @@ function TJvExComboBoxEx.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -3215,6 +3277,8 @@ function TJvExCustomHeaderControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -3552,6 +3616,8 @@ function TJvExHeaderControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -3887,6 +3953,8 @@ function TJvExCustomListView.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -4222,6 +4290,8 @@ function TJvExListView.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -4557,6 +4627,8 @@ function TJvExCustomTreeView.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -4892,6 +4964,8 @@ function TJvExTreeView.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -5227,6 +5301,8 @@ function TJvExTrackBar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -5562,6 +5638,8 @@ function TJvExAnimate.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -5897,6 +5975,8 @@ function TJvExCoolBar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -6232,6 +6312,8 @@ function TJvExCommonCalendar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -6567,6 +6649,8 @@ function TJvExMonthCalendar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -6902,6 +6986,8 @@ function TJvExCustomHotKey.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -7237,6 +7323,8 @@ function TJvExHotKey.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -7572,6 +7660,8 @@ function TJvExCustomUpDown.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -7907,6 +7997,8 @@ function TJvExUpDown.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -8242,6 +8334,8 @@ function TJvExDateTimePicker.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -8577,6 +8671,8 @@ function TJvExProgressBar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -8912,6 +9008,8 @@ function TJvExPageControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -9247,6 +9345,8 @@ function TJvExPageScroller.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -9582,6 +9682,8 @@ function TJvExCustomTabControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -9917,6 +10019,8 @@ function TJvExTabControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -10252,6 +10356,8 @@ function TJvExTabSheet.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -10587,6 +10693,8 @@ function TJvExToolBar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -10922,6 +11030,8 @@ function TJvExStatusBar.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -11257,6 +11367,8 @@ function TJvExToolButton.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; Modified: trunk/jvcl/run/JvExControls.pas =================================================================== --- trunk/jvcl/run/JvExControls.pas 2006-08-13 13:18:41 UTC (rev 10882) +++ trunk/jvcl/run/JvExControls.pas 2006-08-13 13:20:07 UTC (rev 10883) @@ -170,6 +170,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -177,7 +178,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -211,6 +212,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; end; @@ -220,6 +222,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -227,7 +230,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -261,6 +264,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -294,6 +298,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -301,7 +306,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -335,6 +340,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -368,6 +374,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -375,7 +382,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -409,6 +416,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; end; @@ -418,6 +426,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -425,7 +434,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -459,6 +468,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -999,6 +1009,8 @@ function TJvExControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -1200,6 +1212,8 @@ function TJvExWinControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -1535,6 +1549,8 @@ function TJvExGraphicControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -1736,6 +1752,8 @@ function TJvExCustomControl.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -2071,6 +2089,8 @@ function TJvExHintWindow.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; Modified: trunk/jvcl/run/JvExDBGrids.pas =================================================================== --- trunk/jvcl/run/JvExDBGrids.pas 2006-08-13 13:18:41 UTC (rev 10882) +++ trunk/jvcl/run/JvExDBGrids.pas 2006-08-13 13:20:07 UTC (rev 10883) @@ -55,6 +55,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -62,7 +63,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -96,6 +97,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -129,6 +131,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -136,7 +139,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IFNDEF CLR} @@ -170,6 +173,7 @@ property OnParentColorChange: TNotifyEvent read FOnParentColorChanged write FOnParentColorChanged; public constructor Create(AOwner: TComponent); override; + property HintWindowClass: THintWindowClass read FHintWindowClass write FHintWindowClass; published property AboutJVCL: TJVCLAboutInfo read FAboutJVCL write FAboutJVCL stored False; private @@ -302,6 +306,8 @@ function TJvExCustomDBGrid.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; @@ -637,6 +643,8 @@ function TJvExDBGrid.HintShow(var HintInfo: THintInfo): Boolean; begin GetHintColor(HintInfo, Self, FHintColor); + if FHintWindowClass <> nil then + HintInfo.HintWindowClass := FHintWindowClass; Result := BaseWndProcEx(CM_HINTSHOW, 0, HintInfo) <> 0; end; Modified: trunk/jvcl/run/JvExExtCtrls.pas =================================================================== --- trunk/jvcl/run/JvExExtCtrls.pas 2006-08-13 13:18:41 UTC (rev 10882) +++ trunk/jvcl/run/JvExExtCtrls.pas 2006-08-13 13:20:07 UTC (rev 10883) @@ -55,6 +55,7 @@ FAboutJVCL: TJVCLAboutInfo; FHintColor: TColor; FMouseOver: Boolean; + FHintWindowClass: THintWindowClass; {$IFDEF VCL} FOnMouseEnter: TNotifyEvent; FOnMouseLeave: TNotifyEvent; @@ -62,7 +63,7 @@ FOnParentColorChanged: TNotifyEvent; function BaseWndProc(Msg: Integer; WParam: Integer = 0; LParam: Longint = 0): Integer; overload; function BaseWndProc(Msg: Integer; WParam: Integer; LParam: TControl): Integer; overload; - function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; + function BaseWndProcEx(Msg: Integer; WParam: Integer; var LParam): Integer; protected procedure WndProc(var Msg: TMessage); override; {$IF... [truncated message content] |