Le programme de l'inventeur de Paint dans un écran fullscreen.

Fermé
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 - 17 sept. 2013 à 20:38
sp40 Messages postés 1276 Date d'inscription mardi 28 octobre 2003 Statut Contributeur Dernière intervention 3 juillet 2015 - 19 déc. 2013 à 11:58
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/100122-le-programme-de-l-inventeur-de-paint-dans-un-ecran-fullscreen

sp40 Messages postés 1276 Date d'inscription mardi 28 octobre 2003 Statut Contributeur Dernière intervention 3 juillet 2015 15
19 déc. 2013 à 11:58
c'est bien...
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
19 déc. 2013 à 10:42
De plus si vous regarder attentivement ce code sources vous verrez que la VCL de delphi n'est pas utilisée non plus dans cet extrait.
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
Modifié par denisbertin le 19/12/2013 à 10:41
Ceci se semble pas être compréhensible, néanmoins ce modèle de logiciel de dessin assité par ordinateur, il me semble l'avoir conçus à la date que j'ai indiquée
en basic et en langage d'assemblage car l'utilisation des fonctions dite moveto-lineto ne possédait pas l'attributs Xor et j'ai reprogrammé ces fonctions de tracer sur ce petit ordinateur jouet. Cet attribut permet de faire mouvoir des lignes avec un simple chevauchement de l'une à l'autre et de la même pour les cercles et les ellipses.
sp40 Messages postés 1276 Date d'inscription mardi 28 octobre 2003 Statut Contributeur Dernière intervention 3 juillet 2015 15
19 déc. 2013 à 09:28
Ah bon ? Delphi existait à l'époque ? Et sur Oric-1 en plus ???
Sérieusement, qu'est ce qu'on s'en fout... Arrête de te regarder le nombril... et de polluer ce site par des commentaires inutiles.
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
19 déc. 2013 à 01:46
Un logiciel initialement écrit par denis Bertin sur son Oric-1 en 1982 dont michel à ajouter les trames en langage d'assemblage 6502.
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
28 nov. 2013 à 23:01
Effectivement dans le gestionnaire des messages il manquait la fonction postquitmessage(-1);
cherriemerrie Messages postés 1 Date d'inscription jeudi 28 novembre 2013 Statut Membre Dernière intervention 28 novembre 2013
28 nov. 2013 à 17:15
Merci denisbertin pour cette application de dessin.

Apres une premiere compilation et execution du programme, j'ai note 2 petites choses:
1. les 'headers' GDI que tu as inclus requierent egalement le 'header' DirectDraw;
2. j'ai du tuer le processus de l'application manuellement.

En ce qui concerne le code, j'admire l'utilisation du winAPI.

Keep it up!
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
25 sept. 2013 à 13:14
Puisqu'il m'est si facile de refaire mon premier Paint avec le compilateur Delphi pour Windows et que vous en avez la connaissance que pourriez vous faire avec ?
L'imagination à pour limite ces propres règles qui quand elles sont appliquées, permette de se comprendre, il en est de même de tout un chacun, et seul le dépassement de celle-ci permet en les assimilant de s'accomplir. Avec ces règles avec son esprit comportemental un individu se dépasse quand il comprend.
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
25 sept. 2013 à 10:49
Il n'y a pas de Dfm dans ce module parce qu'il est écrit d'un bloc avec les méthodes de création de fenêtre de l'application programme interface de Windows, vous auriez put le comprendre.
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
25 sept. 2013 à 10:33
De quels bogues voulez-vous parler ?
sp40 Messages postés 1276 Date d'inscription mardi 28 octobre 2003 Statut Contributeur Dernière intervention 3 juillet 2015 15
24 sept. 2013 à 09:32
L'outil polygone ne prend pas la couleur sélectionnée.
Pour le reste des réponses, je n'ai rien compris, désolé.
Pour apprécier le contenu du code, des commentaires un peu plus explicites que "{denis Bertin}" seraient les bienvenus... Mais ça, je crois qu'on te l'a déjà dit. De même qu'on t'a déjà dit que, ici, la publication de source (à plus forte raison pour un "n ième" paint-like) doit avoir un objectif pédagogique, et qu'on n'est pas là pour se regarder le nombril...

D'une manière générale, on reste sur un dev du style de ceux auquels tu nous as déjà habitué... Aucune progression, dommage.
C'est la période des champignons, non ? :-)
cs_cantador Messages postés 4720 Date d'inscription dimanche 26 février 2006 Statut Modérateur Dernière intervention 31 juillet 2021 13
23 sept. 2013 à 16:46
il aurait été plus simple de fournir le .dfm
on sent le petit coup de pub pour le site web..
cette idée a déjà fait l'objet de plusieurs publications dont
Leornado de Debiars etc.
lors du test de l'exécutable, un grand nombre de bugs se produisent..
même si effectivement l'interface est plutôt sympathique, il y a encore du travail à
à faire sur ce logiciel pour le rendre exploitable.
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
23 sept. 2013 à 15:50
La fonction Copier place l'image de votre dessin dans le presse-papier vous pouvez alors la coller dans Word et de le faire essayer à vos enfants.
La fonction effacer remplit l'écran de la couleur choisie comme un télécran multicouleur.
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
23 sept. 2013 à 15:47
Imaginer par la suite que vous mémoriser les figures dans ne liste polymorhe, alors vous obtiendrais un petit logiciel style CAO. avec cette fonction vous pouvez alors générer des fichiers DXF par exemple et les relires. Ce squelette d'application pour vous initier au dessin infographique sur ordinateur...
denisbertin Messages postés 245 Date d'inscription lundi 22 avril 2013 Statut Membre Dernière intervention 13 mai 2023 1
23 sept. 2013 à 15:44
A remplacer la boucle de message d'après le livre de Charles Petzold comme ceci :

while Getmessage(message,0,0,0) do
begin
translatemessage(message);
dispatchmessage(message);
end;

Les lignes devienne alors disjointes : explication du fonctionnement :

Sélectionner un outil de tracé quelconque puis cliquer sur l'espace de dessin
Chaque figure fonctionne de la même façon cliquer et relacher la souris pour déterminer un point, déplacer la souris pour indiquer un deuxième point et la figure se positionne.

Avec l'outil polygone vous pouvez aussi tracer des triangle si vous avez bien lut le code source.

L'outil flèche habituellement permet de sélectionner un élément dans ce cas elle appel la fonction floodfill de remplissage avec trois options selon l'état des touches MAJ et CONTL, vous pouvez aussi cliquer sur la palette des couleurs pour colorier l'élement de dessin à venir...
sp40 Messages postés 1276 Date d'inscription mardi 28 octobre 2003 Statut Contributeur Dernière intervention 3 juillet 2015 15
23 sept. 2013 à 09:33
Bonjour,
Quelques petites remarques (projet compilé avec Delphi XE2) :
- Le "bouton" avec la croix (en bas à droite de l'écran) ferme le programme, mais le processus n'est pas terminé (encore visible dans le gestionnaire de tâches,
- A quoi sert ou comment fonctionne la fonction copier ?
- A quoi sert ou comment fonctionne le bouton avec la flèche ? (pour sélectionner quelque chose ?)
- Lors du dessin de traits successifs, parfois le trait repart du point p-2. Je m'explique : Je pose un premier point p1, un second point p2, un trait est tracé de p1 à p2. Je pose un troisième point p3, un trait est tracé de p2 à p3. Je pose un quatrième point p4, et là un trait est tracé de p2 à p4... Est-ce normal ?
- Le dessin "étoile" ne dessine pas une étoile mais un hexagone.

Voilà, sinon, j'aime bien l'interface...