Skip to content

Commit

Permalink
Further work on issue JAM-Software#770
Browse files Browse the repository at this point in the history
* Removed no longer used protected property TVirtualTreeHintWindow.HintData
* It does not seem to be necessery to override TVirtualTreeHintWindow.WMEraseBkgnd()
  • Loading branch information
joachimmarder authored and Sharlikran committed Nov 11, 2018
1 parent 759c1a0 commit c435270
Showing 1 changed file with 0 additions and 14 deletions.
14 changes: 0 additions & 14 deletions Source/VirtualTrees.pas
Original file line number Diff line number Diff line change
Expand Up @@ -864,12 +864,9 @@ TVirtualTreeHintWindow = class(THintWindow)
FHintData: TVTHintData;
FTextHeight: Integer;
procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;
procedure WMEraseBkgnd(var Message: TWMEraseBkgnd); message WM_ERASEBKGND;
strict protected
procedure CreateParams(var Params: TCreateParams); override;
procedure Paint; override;

property HintData: TVTHintData read FHintData;
public
function CalcHintRect(MaxWidth: Integer; const AHint: string; AData: Pointer): TRect; override;
function IsHintMsg(var Msg: TMsg): Boolean; override;
Expand Down Expand Up @@ -5581,17 +5578,6 @@ procedure TVirtualTreeHintWindow.CMTextChanged(var Message: TMessage);
// swallow this message to prevent the ancestor from resizing the window (we don't use the caption anyway)
end;

//----------------------------------------------------------------------------------------------------------------------

procedure TVirtualTreeHintWindow.WMEraseBkgnd(var Message: TWMEraseBkgnd);

// The control is fully painted by own code so don't erase its background as this causes flickering.

begin
Message.Result := 1;
end;


//----------------------------------------------------------------------------------------------------------------------

procedure TVirtualTreeHintWindow.CreateParams(var Params: TCreateParams);
Expand Down

0 comments on commit c435270

Please sign in to comment.