Windows 7 Support für Delphi [ALPHA 1]

[Lasse2002]

Um Sakura zuvorzukommen, hier ist der Bugfix . So ziemlich am Schluß von dwTaskbarComponents.pas fehlt ein Aufruf von DefWindowProc.

Delphi-Quellcode:

procedure TdwTaskbarComponent.WndProc(var Message: TMessage);
begin
  if Message.Msg = FMsgAutoInitialize then
  begin
    if FAutoInitialize then
    begin
      FIsInitialized := DoInitialize;
    end;
  end
  else
  if Message.Msg = FMsgUpdate then
  begin
    if FIsInitialized then
      DoUpdate;
  end
  else
    Message.Result := DefWindowProc(FHandle, Message.Msg, Message.WParam, Message.LParam);
end;