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 jfs59 le 10/08/2006 19:49:05

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

Commentaire de MAURICIO le 11/08/2006 11:53:29

Autre chose: avec la source de Caribensila sur les fichiers binaires:
http://www.delphifr.com/codes/INITIATION-FICHIER-SAUVEGARDE-BINAIRE_38197.aspx
il est possible, à la manière d' un Corel, de créer son propre format d' images, applicable à cette source d' ailleurs ...

Commentaire de florenth le 11/08/2006 12:15:11

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

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 cirec le 12/08/2006 14:14:56 administrateur CS

@ 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 !

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

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

Commentaire de Caribensila le 13/08/2006 16:29:24

"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?   ;)

Commentaire de cirec le 13/08/2006 16:37:33 administrateur CS

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?   ;)

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

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 !

Commentaire de Caribensila le 22/07/2008 12:10:22

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 ;) !