TRichEdit: Mausrad-Zoom?

[PeterPanino]

Seltsamerweise gibt diese Funktion in Delphi 12.1 dieses Ergebnis zurück: "RichEdit 2.0":

Delphi-Quellcode:

function GetRichEditVersion(RichEdit: TRichEdit): string;
var
  ClassName: array[0..255] of Char;
begin
  // Get the window class name of the RichEdit control
  if GetClassName(RichEdit.Handle, ClassName, Length(ClassName)) > 0 then
  begin
    if StrPos(ClassName, 'RICHEDIT50W') <> nil then
      Result := 'RichEdit 4.1'
    else if StrPos(ClassName, 'RichEdit20W') <> nil then
      Result := 'RichEdit 3.0'
    else if StrPos(ClassName, 'RichEdit') <> nil then
      Result := 'RichEdit 2.0'
    else
      Result := 'RichEdit 1.0 or older';
  end
  else
    Result := 'Unable to determine RichEdit version';
end;