Discussion :

[Paul TOTH]

iPhone.zip

juste pour le fun

NB: je n'ai pas de iPhone ni de portable multiTouch, mais on s'amuse comme on peu

[cincap]

Bonjour à toutes et à tous,

@ Paul TOTH, superbe réalisation pour le fun et cela fonctionne sur D6

@+,

Cincap

[ouiouioui]

Effectivement c'est très sympa
le code est très commenté et bien ordonné sa c'est super

[Droïde Système7]

Très sympa comme effet

Du code très instructif, à conserver sous le coude.

Marche impec sous Vista et D7

Paul, c'est une véritable légende sur pattes

Bravo !

Au passage, que certains, prennent de la graine de l'indentation ; c'est un modèle.

@+

[GoustiFruit]

Un seul mot: classieux !

[Cl@udius]

Excellent.

J'adore quand Paul poste dans le forum Débutant.

[GoustiFruit]

Ca doit être pour nous narguer

[chaplin]

Pas de scintillement et très réactif .

[Paul TOTH]

Excellent.

J'adore quand Paul poste dans le forum Débutant.

ben en fait j'ai pas trouvé de forum plus adapté

[Gilbert Geyer]

Bonjour,

Super !

En virant le Variant du uses, et en déclarant chaque fois var Pixel: PByteArray; à la place du PCardinal; puis en remplaçant tous les TransformColor(Pixel^); par TransformColor(Cardinal(Pixel));... alors ça marche même sous Delphi-Cinq ... sauf que la couleur n'étant pas assombrie on y voit nettement plus clair.

A+

[Paul TOTH]

Bonjour,

Super !

En virant le Variant du uses, et en déclarant chaque fois var Pixel: PByteArray; à la place du PCardinal; puis en remplaçant tous les TransformColor(Pixel^); par TransformColor(Cardinal(Pixel));... alors ça marche même sous Delphi-Cinq ... sauf que la couleur n'étant pas assombrie on y voit nettement plus clair.

A+

ouais...et en ajoutant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
type
  PCardinal = ^Cardinal;

ben ça fonctionne comme sous D6

pis ça fonctionne aussi sous D2005 et 2009

[Gilbert Geyer]

Bonjour,

Merci Paul TOTH pour :

type
PCardinal = ^Cardinal;

testé, marche sous D5 ... et l'assombrissement est exactement comme celui de l'exe d'origine.

L'appli donne des idées du genre remplacer le BitMap du Desktop par un BitMap de surface quadruple de celle de l'écran + une routine d'identification de la zone d'un click-souris ou d'un double-cick et si ça correspond à la position du dessin d'un bouton alors on déclenche la procedure tartanpion associée à la zone du click ... histoire de simuler un espace de travail quatre fois plus grand que celui de l'écran et pour joindre l'utile à l'agréable.
Mais ceci n'est pas un appel du pied...

A+

[chaplin]

J'ai fait une petite adaptation pour charger des fichiers JPEG (photos de vacances ), c'est vraiment cool .

[Paul TOTH]

J'ai fait une petite adaptation pour charger des fichiers JPEG (photos de vacances ), c'est vraiment cool .

il manque la gestion de la molette pour faire du zoom (à défaut de MultiTouch) et pour faire comme un vrai iPhone, il me semble que l'image doit rebondir sur les bords

on peut aussi imaginer un clic droit, puis gauche pour faire tourner l'image de 90° dans un sens, et un clic gauche, puis droit pour la faire tourner dans l'autre sens

[chaplin]

on peut aussi imaginer un clic droit, puis gauche pour faire tourner l'image de 90° dans un sens, et un clic gauche, puis droit pour la faire tourner dans l'autre sens

C'est la deuxième étape , je suis déjà content du premier résultat, comme je me suis jamais attardé sur les images. Mais avec cette exemple, comme il n'y a aucun scintillement (2Ghz), malgré la taille de l'image, ça donne envie d'approfondir le sujet du graphisme.

Une trentaine de lignes de codes, et déjà des résulats encourageant.

[GoustiFruit]

il manque la gestion de la molette pour faire du zoom (à défaut de MultiTouch) et pour faire comme un vrai iPhone, il me semble que l'image doit rebondir sur les bords

on peut aussi imaginer un clic droit, puis gauche pour faire tourner l'image de 90° dans un sens, et un clic gauche, puis droit pour la faire tourner dans l'autre sens

Toi t'as acheté un iPhone !

[Paul TOTH]

Toi t'as acheté un iPhone !

ben non justement mais tu peux m'en offrir un si tu veux

[Gilbert Geyer]

Bonjour,

Chaplin a dit

Une trentaine de lignes de codes, et déjà des résulats encourageants

... ce serait sympa de publier ici ces quelques lignes de code : ça pourrait déclencher une saine émulation d'idées et de paufinements.

A+

[chaplin]

... ce serait sympa de publier ici ces quelques lignes de code : ça pourrait déclencher une saine émulation d'idées et de paufinements.

A+

J'entends bien gilbert, pour l'instant je bidouille, c'est pas "informatiquement correct" . Je voulais déjà comprendre son code, puis m'émuler sur des exemples plus personnels.

En résumé, j'ai rajouté une barre de menu avec une commande "ouvrir", un TOpenDialog pour charger mes photos ... en Jpeg qui m'a obligé a rajouter l'unité Jpeg dans les uses. La "Bidouille", du moins dans Delphi 2009, c'est que la propriété bitmap est protected, donc j'ai du faire une classe descendante pour la rendre public.
Au lieu d'utiliser le bureau comme image, je l'ai simplement remplacé par une image jpeg transformée en bitmap pour limiter l'adaptation du code.

Effectivement, le "fun code" de Paul TOTH est une bonne amorce pour faire un programme plus élaboré.

[Gilbert Geyer]

Re-bonjour,

Merci Chaplin pour ta réponse.

pour l'instant je bidouille, c'est pas "informatiquement correct"

... sur ce point faut vraiment pas être gêné car si nous étions capables de toujours produire du code "informatiquement correct" du premier coup je suis certain que ce Forum n'existerait pas.

Bonne continuation et à +.