Was steht unter XE6 in Vcl.ComCtrls.TToolBarStyleHook.ApplyImageList?

[himitsu]

Zitat:

Delphi-Quellcode:

type
  THande = type Cardinal;

Vielleicht ist das noch ein "Übersetzungsfehler" aus dem Win32.

Oder man hätte da auch LRESULT als Typ verwenden können.


Oder wie wäre es damit?

Delphi-Quellcode:

procedure TToolBarStyleHook.ApplyImageList;
begin
  if not Assigned(FImages) then
  begin
    FImages := TImageList.Create(nil);
    FImages.ShareImages := True;
  end;
  FImages.Handle := SendMessage(Handle, TB_GETIMAGELIST, 0, 0);
end;

Seit wann gibt es TToolBarStyleHook eigentlich und warum verwendet sonst keiner Win64?