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 ?).  
Posté par Luc Fricot à 12:16 - Permalien [#]
Tags : , , ,
10 août 2020

Utiîser Delphi 7 sous Windoéws 10 (en vrac)

Sommaire →Généralités →Installation et informations (7) Où trouver des composants et outils freeware pour Delphi ? Peut-on installer plusieurs versions de Delphi sur un même système ? Comment automatiser l'installation du SP1 pour Delphi 2005 ? Comment récupérer des options de configuration de Delphi après une réinstallation ? Comment utiliser les fichiers d'aide au format hlp sous les nouveaux OS Windows (7 et plus) ? Réinstaller Delphi 7 après une désinstallation Comment installer et utiliser Delphi 7 avec les OS récents... [Lire la suite]
Posté par Luc Fricot à 22:54 - Permalien [#]
Tags : , , ,