Canalblog
Editer l'article Suivre ce blog Administration + Créer mon blog
Publicité
La Vache En Liberté
Publicité
Visiteurs
Depuis la création 26 643
Newsletter
Archives
21 août 2020

Comment zoomer un RichEdit

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 ?).

 

Publicité
Publicité
Commentaires
Publicité