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 ?).
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]
10 janvier 2019
RESSOUCES codes touche virtuelle
Les codes touche virtuelle fournissent une représentation symbolique des appuis utilisateur sur les touches.
Les codes touche virtuelle vous permettent de représenter les valeurs clavier pour les touches non-alphanumériques. Windows définit des constantes spéciales pour chaque touche pouvant être enfoncée par l'utilisateur. Ces constantes peuvent alors être utilisées pour faire référence à la frappe de touche dans des appels API Windows ou dans un gestionnaire... [Lire la suite]
09 septembre 2018
RESSOUCES Raccourcis clavier
Windows 7
Raccourcis clavier permettant de contrôler Windows 7 à partir du clavier.
Raccourcis clavier d’Options d’ergonomie
Le tableau ci-dessous répertorie les raccourcis clavier susceptibles de faciliter l’utilisation de votre PC.
Appuyez sur la touchePour ce faire :
Maj droite pendant huit secondes
Activer et désactiver les touches filtres
Alt gauche + Maj gauche + Impr. écran
Activer et désactiver le contraste élevé
Alt gauche + Maj gauche + Verr... [Lire la suite]
27 août 2018
RESSOUCES Sources Pascal Delphi Lazarus
Loupe
Présentation
Petite fenêtre effectuant un zoom d'une partie de l'écran. NOTES : C'est en cherchant autour du source précédent ( obtenir la couleur d'un point de l'écran ) que j'ai vu la fonction API StretchBlt. Je me suis dit qu'en une ligne on pouvait copier et agrandir une partie de l'écran : donc faire une loupe toute simple !Utilisation : La loupe se place par défaut en haut à droite de l'écran. Pour la déplacer il suffit de cliquer dessus et de la faire glisser là ou vous voulez. Pour fermer la loupe il faut faire un clic... [Lire la suite]