Disable Tooltip Soft-Shadow ?

[HPW]

Hallo,

Ich habe ein Problem mit den XP Soft-Shadows der Tooltips.

Unter Delphi 5 haben die Tooltips keinen Soft-Shadow.

Unter Delphi 7 haben die Tooltips einen Soft-Shadow.

Hier gibt es einen Code der den Shadow einschalten kann.

http://www.swissdelphicenter.ch/de/showcode.php?id=1182

Ich habe aber nun ein Plugin das unter D7 kompiliert ist und in einer
fremden Anwendung laufen soll, die unter D5/D6 kompiliert ist.

Dort bleiben nun die Soft-Shadows bei Bewegen des Cursors als Artefacte auf dem Fenster der Host-Anwendung übrig.

Wie kann ich denn nun unter D7 die Soft-Shadows abschalten damit das Plugin kompatibel zur Host-Anwendung ist?

[HPW]

Ein hilsbereiter Kollege vom delphiarea forum hat mir weiter geholfen:

Delphi-Quellcode:

type 
  TNoShadowHintWindow = class(THintWindow) 
  protected 
    procedure CreateParams(var Params: TCreateParams); override; 
  end; 

procedure TNoShadowHintWindow.CreateParams(var Params: TCreateParams); 
const 
  CS_DROPSHADOW = $00020000; 
begin 
  inherited CreateParams(Params); 
  Params.WindowClass.Style := Params.WindowClass.Style and not CS_DROPSHADOW; 
end; 

initialization 
  HintWindowClass := TNoShadowHintWindow; 
end.