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 :

Création d'un Bitmap


Sujet :

Delphi

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    171
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 171
    Par défaut Création d'un Bitmap
    Bonjour

    Voila j'utilise Delphi 7 et voudrais savoir comment à partir d'un tableau de données contenant les coordonnées X et Y du pixel et une autre valeur je peux construite une image bitmap ou autre (aucun à-priori là-dessus) la troisième valeur correspondrait alors à un niveau de gris.

    Merci d'avance

  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
    Par défaut
    comment à partir d'un tableau de données contenant les coordonnées X et Y du pixel et une autre valeur je peux construite une image bitmap ?
    Exemple pour des X,Y tous positifs :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    function CreeBmp(TableauXYC : array of integer) : tBitMap;
    var          x,y,c,xMax,Ymax : integer; bmp : tBitMap; 
    begin       // ici faut insérer le code qui donne Xmax et Ymax à partir du TableauXYC 
                  bmp := tBitMap.create;
                  bmp.width:=xMax+20;
                  bmp.height:=abs(Ymax)+20;
                  bmp.pixelformat := pf24bit; // : valable pour beaucoup de couleurs
                  with bmp.canvas do
                  begin Pen.mode:=pmcopy;
                          Pen.Width:=1;
                          Brush.Color:=clWhite;
                          rr:=rect(0,0,bmp.width,bmp.height);
                          FillRect(rr); // à ce stade le bmp est tout blanc
                          pen.color:=clBlack; // : pour tracer éventuellement les axes des X,Y en noir
                          // ici le début de la boucle de lecture des x et des y et de la valeur du gris à partir du TableauXYC 
                          x:=...
                          y:=...
                          c:=... // avec c <=255 pour le "gris"
                          Pixels[x,y]:=RGB(c,c,c);
                          // ici la fin de la boucle
                  end;
                  Result:=bmp;
    end;
    ...... et pour afficher le bmp :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    procedure TForm1.button1Click(sender...);
    var           bmp : tBitMap; 
    begin        bmp:=CreeBmp(monTableauXYC); // on supoose que le tableau à déjà été crée et que la fiche comporte un TImage cible
                   // choisir entre :
                   image1.stretch:=true; 
                   // et :
                   image1.Autosize:=true;   
                   image1.Picture.Graphic:=bmp; // pour voir le bmp
    end;
    N'oubliez pas de consulter les FAQ Delphi et les cours et tutoriels Delphi

  3. #3
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    171
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 171
    Par défaut
    Génial merci!!

  4. #4
    Membre éprouvé
    Avatar de TicTacToe
    Inscrit en
    Septembre 2005
    Messages
    1 940
    Détails du profil
    Informations personnelles :
    Âge : 52

    Informations forums :
    Inscription : Septembre 2005
    Messages : 1 940
    Par défaut
    Si ton problème est résolu alors clic sur

    Merci
    Section Delphi
    La mine d'or: La FAQ, les Sources

    Un développement compliqué paraitra simple pour l'utilisateur, frustrant non ?
    Notre revanche ? l'inverse est aussi vrai ;-)

  5. #5
    Membre confirmé
    Profil pro
    Inscrit en
    Avril 2007
    Messages
    171
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Avril 2007
    Messages : 171
    Par défaut
    !!
    j'en ai pas trouvé d'autre.

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

Discussions similaires

  1. Réponses: 3
    Dernier message: 21/12/2009, 16h42
  2. Problème dans la création d'un Bitmap 1 bit
    Par colorid dans le forum Langage
    Réponses: 1
    Dernier message: 21/12/2009, 00h12
  3. Création d'un bitmap depuis un fichier bmp
    Par Tyu38 dans le forum Débuter
    Réponses: 14
    Dernier message: 04/06/2008, 13h08
  4. création et manipulation Bitmap sous C++
    Par jejerome dans le forum C++
    Réponses: 3
    Dernier message: 18/11/2006, 23h46
  5. Création d'un bitmap -> error :
    Par Le Scandinave dans le forum MFC
    Réponses: 4
    Dernier message: 22/03/2005, 09h57

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