Ces quelques lignes de code,repondent à une question que je me.pose depuis 2006

procedure SetZoom(const RichEdit: TCustomRichEdit; const Value: Integer);
const EM_SETZOOM = (WM_USER + 225);
begin
  SendMessage(RichEdit.Handle, EM_SETZOOM, Value, 100);
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  SetZoom(RichEdit1, 200);
end;

Je ne sais pas si si 200=200%, mais selon cette valeur, zoome ou dézoome (pivot=100 ?).