IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

 Delphi Discussion :

Dessiner et effacer sur l'écran


Sujet :

Delphi

  1. #1
    Membre à l'essai
    Inscrit en
    Juillet 2006
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Juillet 2006
    Messages : 8
    Points : 10
    Points
    10
    Par défaut Dessiner et effacer sur l'écran
    salut
    je cherche a dessiner directement sur l ecran (fenetre windows) un motif
    à l aide de ellipse/lineto etc..
    mais je n arrive pas à effacer l image précedente qui reste à l écran
    voici mon début de code

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
     c := TCanvas.create;
     c.Handle := getDC(0);
     for aa:=1 to 100 do begin
       c.pen.color := clgreen;
       c.moveto(0,0);
       c.lineto(aa,aa+30);
     end;
    merci de votre aide

  2. #2
    Modérateur

    Homme Profil pro
    Ingénieur retraité
    Inscrit en
    Octobre 2005
    Messages
    2 396
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur retraité

    Informations forums :
    Inscription : Octobre 2005
    Messages : 2 396
    Points : 3 263
    Points
    3 263
    Par défaut
    Bonjour,

    Tu peux trouver ici :
    http://www.developpez.net/forums/sho...71#post2980971
    dans mon message du 22/02/2008, 12h46 un exemple de code qui permet de tracer à la souris un motif de sélection (Rectangle) dans le canvas d'un TImage et où le relâchement de la souris laisse la sélection visible, et le click suivant, n'importe où sur le TImage, provoque l'effacement de la sélection.
    L'effacement s'effectue en retraçant le rectangle en pen.mode:=pmNotXor par dessus le tracé initial.

    A+
    N'oubliez pas de consulter les FAQ Delphi et les cours et tutoriels Delphi

  3. #3
    Membre à l'essai
    Inscrit en
    Juillet 2006
    Messages
    8
    Détails du profil
    Informations forums :
    Inscription : Juillet 2006
    Messages : 8
    Points : 10
    Points
    10
    Par défaut merci
    merci pour ton lien - j ai résolu mon problème gràce à cela

  4. #4
    Membre habitué Avatar de stfanny31
    Femme Profil pro
    Étudiant
    Inscrit en
    Mars 2008
    Messages
    254
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Âge : 41
    Localisation : Algérie

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Mars 2008
    Messages : 254
    Points : 163
    Points
    163
    Par défaut dessiner et déplace des ligne
    bonjour Mr:'Gilbert Geyer'
    puisque vous semblé maitrisé bien ce domaine
    esque SVP vous pouvé me dir comment fair pr fair un truc qui resmble a Paint
    je dois pouvoir désssiner des ligne et des cercle et les déplace a l'aide de la souris sur mon écran
    exactement comme notre Paint bien aimé
    (c'est pr fair la simulation d'un Reseau )
    merci bcp

  5. #5
    Modérateur

    Homme Profil pro
    Ingénieur retraité
    Inscrit en
    Octobre 2005
    Messages
    2 396
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : Ingénieur retraité

    Informations forums :
    Inscription : Octobre 2005
    Messages : 2 396
    Points : 3 263
    Points
    3 263
    Par défaut
    Bonjour,

    je dois pouvoir désssiner des ligne et des cercle et les déplace a l'aide de la souris sur mon écran
    ... tu peux trouver ici :http://www.developpez.net/forums/sho...=471406&page=3
    le code de l'unité uImgD dont la première moitié figure dans mon message du 06/02/2008, 13h16 et la deuxième dans celui du message du même jour 13h18.

    Il permet de tracer des Droites , Rectangles, Cercles, Polygones et de les déplacer, les étirer ou de les faire pivoter par agrippage avec la souris.

    Il est facilement modifiable pour créer un objet formé par l'association de ces trucs de base afin de disposer d'un ensemble déplacable, étirable ou pivotable par agrippage d'un seul d'entre-eux ... d'ailleurs le Rectangle traité dans ce code n'est rien d'autre qu'un objet formé par l'association de 4 tronçons de droites raccordées à angle droit ... et le Polygone est un autre exemple d'une association similaire.

    A+
    N'oubliez pas de consulter les FAQ Delphi et les cours et tutoriels Delphi

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Dessiner un point sur l'écran
    Par Nicolas123 dans le forum OpenGL
    Réponses: 5
    Dernier message: 14/06/2009, 23h04
  2. Réponses: 6
    Dernier message: 07/04/2009, 11h52
  3. Réponses: 10
    Dernier message: 15/04/2008, 15h26
  4. Affichage d'un dessin sur l'écran de l'oscillo
    Par Master C dans le forum Assembleur
    Réponses: 1
    Dernier message: 03/04/2008, 19h39
  5. Dessiner sur l'écran
    Par carlg dans le forum API, COM et SDKs
    Réponses: 12
    Dernier message: 11/03/2006, 11h16

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo