SÉLECTIONNNER, DÉPLACER, ÉTIRER DES LIGNES DANS UN CANVAS.

Commentaire de japee le 10/08/2006 16:44:58 administrateur CS

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...

Commentaire de MAURICIO le 11/08/2006 11:46:08 administrateur CS

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.aspx

L' 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!!!

Commentaire de Caribensila le 11/08/2006 12:02:35

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!  lol
Des 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.

Commentaire de cirec le 12/08/2006 00:06:39 administrateur CS

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 )

Commentaire de cirec le 12/08/2006 00:54:06 administrateur CS

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

Commentaire de cirec le 12/08/2006 01:56:05 administrateur CS

"Rien n'échappe à ton oeil de lynx, Cirec"
Arrête j'ai les chevilles qui enfles ... mdr

Moi 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 ? mdr

Merci quand même ;-)

Commentaire de cirec le 12/08/2006 02:06:35 administrateur CS

Ça y est elles ont pétées ... mes chevilles ... et y en a partout …  mdr

Merci 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 :-)

Commentaire de japee le 12/08/2006 08:39:58 administrateur CS

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...

Commentaire de Caribensila le 13/08/2006 15:43:11

--> 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... :)

Commentaire de japee le 13/08/2006 16:16:42 administrateur CS

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.

Commentaire de japee le 13/08/2006 16:36:16 administrateur CS

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...

Commentaire de Caribensila le 13/08/2006 16:45:56

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! lol
Mais c'est un sacré boulot d'historien-géographe...

Commentaire de cantador le 20/07/2008 14:38:07 administrateur CS

@cari :
il manque Randomize (juste en début de create),
pour que à l'ouverture les lignes s'affichent aléatoirement.

Commentaire de MAURICIO le 22/07/2008 12:30:32 administrateur CS

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 lol

A+ et bonnes vacances à tous!!!