Delphi 11.2 released

[venice2]

Zitat von himitsu:

DWORD und UINT sind doch aber das "Selbe" (in Delphi) ... wo ist da jetzt der funktionale Unterschied?

Fakt ist das nur bei direkter Übergabe von UINT ein Fenster erzeugt wurde warum auch immer.
Habe mich selbst darüber gewundert.

Letztendlich ist es aber korrekt so.

vorher war FHSpinner immer 0

Delphi-Quellcode:

function TSkinSpinner.CreateWindow(ParentHandle: HWND): HWND;
var
  wc: TWndClassEx;

begin

  wc.cbSize := SIZEOF(wc);
  IsInitialized := GetClassInfoEx(hInstance, 'Spinner', wc);
  if not IsInitialized then
  begin
    wc.cbSize := SIZEOF(wc);
    wc.Style := CS_HREDRAW or CS_VREDRAW or CS_OWNDC;
    wc.lpfnWndProc := @WndProc;
    wc.cbClsExtra := 0;
    wc.cbWndExtra := 0;
    wc.hInstance := hInstance;
    wc.hIcon := 0;
    wc.hCursor := LoadCursor(0, IDC_ARROW);
    wc.hbrBackground := 0;
    wc.lpszMenuName := nil;
    wc.lpszClassName := 'Spinner';
    wc.hIconSm := wc.hIcon;
    if RegisterClassEx(wc) <> 0 then
      IsInitialized := True;
  end;

  if IsInitialized then
  begin
    Style := WS_POPUP or WS_VISIBLE;
    FHSpinner := CreateWindowEx(WS_EX_TOOLWINDOW or WS_EX_TOPMOST, 'Spinner', '', Style, 0, 0, 0,
      0, 0, 0, hInstance, nil);

  end;

  Result := FHSpinner;
end;