TRichEdit: Mausrad-Zoom?

[PeterPanino]

Hier ist eine erweiterte Version:

Delphi-Quellcode:

type
  TWinControlAccess = class(TWinControl);

function GetMyRichEditVersion(RichEdit: TRichEdit): string;
var
  ClassName: array[0..255] of Char;
  Params: TCreateParams;
begin
  // First, check the class name created by TRichEdit
  TWinControlAccess(RichEdit).CreateParams(Params);
  ShowMessage('CreateParams ClassName: ' + string(Params.WindowClass.lpszClassName));

  // Now, use GetClassName to check the actual class name at runtime
  if GetClassName(RichEdit.Handle, ClassName, Length(ClassName)) > 0 then
  begin
    ShowMessage('GetClassName: ' + string(ClassName));  // Display runtime class name

    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;

Aber bis jetzt hat noch niemand auf meine eigentliche Ausgangsfrage geantwortet:

"Weiß jemand, wie der Wert dieser Art von Zoom zum Zweck der Wiederherstellung ausgelesen werden kann?"