Télécharger le zip
J'aime beaucoup.C'est joli, utile et pas forcément évident pour autant.Et en plus, c'est 100% GDI : légèreté absolue niveau ressources.Par contre, au lieu de dessiner dans un TImage, pourquoi ne pas le faire directement sur la fiche ? en appelant Redessiner() dans le OnPaint.Un petit DoubleBuffered := True dans le OnCreate serait aussi le bienvenu.
Salut,J'ai pas encore regardé le code, mais j'ai envie de dire à Florent : Mais pourquoi pas, justement, dans un TImage, ça simplifie, non ?Et puis c'est plus facile d'entretien : lignes dociles à sol facile à cirer, quoi...
Ca ne simplifie rien.Il suffit juste de changer Img_Surface.Canvas par (Self.)Canvas et de mettre les evenements OnMouseDown, OnMouseMove et OnMouseUp du TImage sur ceux de la fiche. Ensuite tu enlève ton TImage.Rien n'est compliqué !Par contre, si tu ne veux pas que cela prenne toute la surface de la fiche, un TImage (ou TPaintBox) est plus adapté, bien sûr.Le sol est plus facile à cirer, OK, mais à quoi ça sert si c'est du carrelage ? ^^
un bon exemple .. j'avais fait ca différemment .. reste a developper un container de vecteurs et de creer des formes vectorielles de rectangle, cercle, ellipse ou autres poligones ... et ensuite fonction copier coller ... impression sauvegarde etc ... c'est un bon début ...
Mon editeur d' images (dll appelée dans mes applis) se fait vieux: pas moyen de bouger/redimensionner une ligne comme ici (avant exportation vers un Bmp ou autres) ... Même si ma version permet le copier/coller, le zoom, insertion de texte, de dessiner des lignes, cercles et autres fonctions graphiques, j' avoue que j' avais prévu de créer un compo TPaintControl pour notre belle communauté qui fonctionnerai à la manière d' un Corel: par objet dessiné. Ma démo sur les courbes Bézier est dans l' esprit de cette source:http://www.delphifr.com/codes/MANIPULER-COURBES-BEZIER-SUPER-SIMPLE_22698.aspxL' idée d' utiliser des vecteurs m' a aussi traversé l' esprit. Mais vous lisez dans mes pensées les gars?C' est un projet très ambitieux, mais je pense que c' est faisable, sacré boulot quand même ... En tout cas, bravo pour cette démo, comme toujours d' ailleurs venant de notre Cari!!!
Autre chose: avec la source de Caribensila sur les fichiers binaires: http://www.delphifr.com/codes/INITIATION-FICHIER-SAUVEGARDE-BINAIRE_38197.aspxil est possible, à la manière d' un Corel, de créer son propre format d' images, applicable à cette source d' ailleurs ...
Salut à tous.--> FLORENTH Ca me semblait plus polyvalent de le faire dans un TImage. Mais tu as raison, ce serait plus logique sur la fiche. Et comme tu as expliqué comment faire... J'oublie tj ce foutu DoubleBuffered. 'Faut dire que chez moi il n'y a pas de "sautillements". Il y en a chez vous?--> JAPEE Tu verras qu'il n'y a rien de transcendant dans ce code. C'est vraiment pour débutant. Une bonne logique et qq notions de géométrie suffisent.--> JFS59 & MAURICIO C'est çui qui dit qui y est! lolDes vecteurs? 'connais pas trop... J'avais plutôt pensé utiliser les régions de Windows... à tester?En tout cas, merci pour vos idées les gars.
Les régions de Windows dis-tu ?A oublier pour ton projet je pense. Elles ne sont bonnes que pour donner des formes particuliaires aux fiches et composants, c'est tout.C'est bien trop lourd en mémoire et en plus, une fois créees, c'est pas évident à modifier.Non, rien ne remplace quelques lignes de calcul vectoriel (mais non c'est pas compliqué ^^).PS: Pas de sautillement chez toi ? Tu as une Ferrari dans ton PC ? (ou c'est moi qui ai une lada ...)
Je crois que je n'échapperai pas à une initiation au calcul vectoriel. Si vous connaissez un bon tuto... ^^PS: J'ai un PC assez récent: Pentium D 830 Dual Core 3GHz et une GeForce 6700 XL...
Salut,c'est génial (avec un effet d'ombre en plus)j'ai décelé un petit bug quand tu selectionnes une ligne et que tu la modifies en une ligne parfaitement verticale (tant qu'elle est selectionnée tu peux la modifier) mais si tu la laisses dans cette position tu n'arrives plus à la selectionner pour la modifier.A l'horizontale ça fonctionne très bien.@ Florenth : je pense effectivement que tu as une lada (chez moi ça ne clignote pas) (P4 3Ghz HT ATI pro )
en fait j'arrive à re-selectionner la ligne mais que par les extemitésje vais regarder le code d'un peut plus près ...@+Cirec
Voici ce que j'ai modifier pour que ça fonctionne.Et dans tous les sens : :-)j'ai laissé le code original en commentaire function ToucheLigne(Pt, Pt1, Pt2: TPoint): Boolean; {Détermne si Pt est proche du segment Pt1-Pt2 (fonction de Ecart).} var A,B,Dist : Double; begin //result := false; // voir plus loin **** {Calcul des coefficients de la droite Pt1-Pt2 d'équation y = Ax+B} if (Pt1.X - Pt2.X) = 0 then //A:= 0 à la place de A := 0 j'effectue le calcule inverse ... Begin A := (Pt1.X - Pt2.X) / (Pt1.Y - Pt2.Y); B := Pt1.X - A * Pt1.Y; {Calcul de la distance de Pt à la droite Pt1-Pt2} Dist := Abs(Pt.X - A * Pt.Y - B) / Sqrt(1 + Sqr(A)); End else Begin // ... du calcule originale A := (Pt1.Y - Pt2.Y) / (Pt1.X - Pt2.X); B := Pt1.Y - A * Pt1.X; {Calcul de la distance de Pt à la droite Pt1-Pt2} Dist := Abs(Pt.Y - A * Pt.X - B) / Sqrt(1 + Sqr(A)); End; {Vérification} //if (Dist <= Ecart) //and (Distance(Pt,Pt1) + Distance(Pt,Pt2) <= Dist + Distance(Pt1,Pt2)) //then result := true; // *** on peut aussi écrir la condition comme suit ce qui évite l'initialisation // en début de fonction : Result := False; Result := (Dist <= Ecart) and (Distance(Pt,Pt1) + Distance(Pt,Pt2) <= Dist + Distance(Pt1,Pt2));end;Voilà c'est tout@+Cirec
Rien n'échappe à ton oeil de lynx, Cirec.Et tu fonds sur le bug comme le rapace sur sa proie. Tu le réduis inexorablement à l'état de néant... Tu le ventiles, tu le disperses, en quelque sorte. Tu lui montres qui c'est, Raoul, quoi...Bien vu. ;-)
"Rien n'échappe à ton oeil de lynx, Cirec"Arrête j'ai les chevilles qui enfles ... mdrMoi je dirais : - Une bonne dose de chance - Un écran 19" TFT ( à 20 cm des yeux) ça aide à voir claire :-) - Et surtout Caribensila qui à fait 95° du travail, repasser derrière quand le code est bien commenté c'est beaucoup plus facile (enfin pour moi) - Euh c'est qui Raoul ? mdrMerci quand même ;-)
'tain! Ce Cirec!Comme dit Japee, quel oeil de lynx!...J'étais en train de me dire, tranquille, que "A" devait se balader vers l'infini... Et Cirec nous donne le code tout corrigé!!!Si on pouvait te donner une note, Cirec, ce serait 10/10 et le premier prix de gentillesse, en prime! :)Merci!
Ça y est elles ont pétées ... mes chevilles ... et y en a partout … mdrMerci beaucoup mais comme dit c'est parfois plus facile pour moi de corriger que de créer.et en plus ça me fait plaisir et j'apprend toujours un peut plus comme ça !"J'espère pouvoir vous montrer un exemple bientôt"Bonne continuation pour la suite :-)
:) Danke.
Citation approximative de Raoul Boltoni (Bernard Blier) dans "Les tontons flingueurs", film savoureux dialogué par l'immense Michel Audiard :"je vais lui montrer qui c'est, Raoul, au gugusse de Montauban..." etc...
Pour le bug, oui, c'est admirablement bien trouvé. En fait, tout le monde sait qu'il n'existe pas d'équation réduite pour une droite verticale (seulement cartésienne) mais je n'y a ait pas pensé en lisant le code.C'est vrai que Cirec à l'oeil. Et comme il dit, vu que c'est bien commenté, ça facilite drolement la tâche.@Caribensila : alors, c'est quoi ton exemple ? Je sens d'ici soit un éditeur de formes avec sauvegarde dans un fichier binaire, soit ... autre chose !@Cirec: J'ai un P4 2.8 GHz (HT désactivé), 512 Mo de RAM et une GeForce4 4600. C'est quand même étrange qu'une simple opération graphique de ce genre fasse clignoter la fiche
@ Japee : Merci pour cette précision.Tu te souviens des dialogues et des noms de personnages ? Wouaou ... je me rappel bien du film mais c'est tout. Bravo belle culture.Il est vrai qu'Audiard ce sont des dialogues à part, ce langage fleuri sans jamais être vulgaire ni même ridicule nous laisse de bons souvenirs. Dommage qu'il n'y ait pas de relève.@ Florenth : Ben on a pas de grande différence à part le HT désactivé.J’ai autant de ram que toi et ma carte vidéo est moins bonne que la tienne (Il me semble Ati pro 9200 128DDR 400Mhz AGP8) F0xi dirait c'est une daube :-)Tu as désactivé le HT pour des raisons de compatibilités avec certaines applications ? (The Gimp par Ex.)Je ne vois pas autre chose c'est quand même pas la petite différence de fréquence (2.8 à 3.0 Ghz) qui vont faire clignoter ta fiche !
--> Florenth Ce n'est pas un éditeur de formes que je cherche à faire. Ce serait plutôt un exemple montrant comment mettre en relation de dépendance diverses entités de façon ergonomique et intuitive. Quelque chose comme un générateur d'arbre généalogique ou un éditeur de plan pour un rapport écrit... Je cherche une idée qui apporterait quelque chose de nouveau et pas seulement une ressucée de ce code. J'attends l'inspiration... :)
"Quelque chose comme un générateur d'arbre généalogique..."Marrant, c'est le prix dissuasif des logiciels "sérieux" de généalogie qui m'a, entre autres choses, amené à la programmation. Mais je me suis un peu perdu en route je crois, même si je pense revenir un jour à ma motivation initiale...
Mais ce que je voulais dire, surtout : c'est vrai que beaucoup de logiciels nécessitent un apprentissage, un formatage made in Microsoft pour tout dire, et qu'il me parait intéressant d'envisager une approche plus intuitive et plus ergonomique des dits logiciels. Ce que tu sembles envisager.
"je pense revenir un jour à ma motivation initiale"Je comprends mieux ta connaissance poussée des problèmes de dates grégoriennes et de dates juliennes... :)Que faisiez-vous dans la nuit du 5 au 14 octobre 1582? ;)
Tout à fait, Caribensila.J'ai même en réserve un code basé sur le calendrier perpétuel Moret afin de déterminer le jour de la semaine en fonction de la date, tenant compte effectivement de la nuit du 5 au 14, lol ;-)Mais je ne suis pas sûr que ce travail soit très intéressant, c'est plutôt un exercice de programmation, quoique...
Après le jour le plus long ...Nous avons la nuit la plus longue :-)Alors ?Le monsieur vous demande :Que faisiez-vous dans la nuit du 5 au 14 octobre 1582? ;)
Ouais, un vrai casse-tête!Il y a un décalage temporel couplé à un décalage géographique (tu te souviens de notre discussion, Japee?).Si ton code résoud tous ces problèmes, il faudrait le publier! lolMais c'est un sacré boulot d'historien-géographe...
Oui, je m'en souviens... c'était sur un code de Grandvizir il me semble.En fait, il suffirait d'introduire un paramètre variable correspondant à la date de passage Julien->Grégorien, à charge à l'utilisateur de connaître cette date, sinon date officielle...Cirec> m'en rappelle plus, j'avais un mal de tête carabiné au réveil, lol !
@cari :il manque Randomize (juste en début de create), pour que à l'ouverture les lignes s'affichent aléatoirement.
C'est exact, Cantador.Mais, sans prétendre que cela était voulu, pour cette démo c'est pas trop grave je pense.En tout cas je suis heureux de constater qu'il y a encore des gens qui cherchent et deterrent de vieux sources. Et pas un débutant ( les débutants ayant une fâcheuse inclination à poster leurs questions sur le forum au 1er contre-temps, de nos jours ;) !
Même si on poste pas de commentaires, on suit la conversation et l' évolution des sources ^^"les débutants ayant une fâcheuse inclination à poster leurs questions sur le forum au 1er contre-temps, de nos jours" Je pense que l' ajout de questions sur le forum devrait être bloqué de temps en temps pour obliger les membres à penser par eu même au lieu de poser une question pour chaque ligne de leur code. Pour certains, on arrive presque à refaire leur projet rien qu' en regroupant les réponses à leurs questions. Surtout que c' est en cherchant que l' on trouve des réponses ... sur d' autres sujets lolA+ et bonnes vacances à tous!!!
@Cari et Mauricio :Et c'est tellement vrai !
Se souvenir du profil
Mot de passe oublié ? / Activation de compteCréer un compte