Effets zoom & miroir sur bitmap

Soyez le premier à donner votre avis sur cette source.

Vue 5 931 fois - Téléchargée 687 fois

Description

Exemple simple d'effets de Zoom & Miroir ...

Deux méthodes sont proposées ici
- Méthode avec StretchBlt
- Méthode avec PlgBlt

De petits décalages sont perceptibles, ils sont dues à l'utilisation de "Round"

Le code est assez simple et commenté ... juste ce qu'il faut ;-)

Source / Exemple :


All in Zip

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
71
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
15 décembre 2011

OK ! Merci !
Le fait d'ignorer ne les supprimait pas définitivement du code.
J'ai donc modifié le fichier DFM !
Merci pour ta réponse aussi rapide !
Messages postés
3826
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
10 mai 2021
46
Salut,

les propriétés ExplicitTop et ExplicitHeight sont des nouvelles propriétés disponibles à partir de Turbo Delphi (Delphi 2006).

Le fait de les ignorer devrait aussi les supprimer définitivement du code. Si le problème devait persister il faut ouvrir le fichier DFM avec NotePad et supprimer ces lignes manuellement.
Messages postés
71
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
15 décembre 2011

Bonjour,
Pourquoi, à l'ouverture du projet dans delphi 2005, ai-je ces 2 messages d'erreurs : "Pour pb_Display (qui est le nom de la paintBox), les propriétés ExplicitTop et ExplicitHeight n'existent pas. Ignorer ?"
Le fait d'ignorer ne crée pas d'erreurs mais je ne trouve pas ces références dans le code pour les modifier et supprimer ultérieurement ces 2 messages d'erreurs.
Un éclairsissement svp ! Merci !
Messages postés
128
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
14 juillet 2008

j'aime bien
Messages postés
436
Date d'inscription
jeudi 9 janvier 2003
Statut
Membre
Dernière intervention
5 février 2015

Bonjour

Je vois qu'on ressort ma bonne vieille méthode "Halftone"

càd SetStretchBltMode(pb_Display.Canvas.Handle, HALFTONE);

avec "StretchBl"

A l'époque je l'avais montré sur le présent site (et sur un autre site Delphi bien connu) pour faire des zooms en conservant la qualité d'image

(débat intéressant à l'époque Julio)

Je vois que c'est repris régulièrement, ça fait plaisir


hi! hi!

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.