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

Composants FMX Delphi Discussion :

Créer un bitmap [Android]


Sujet :

Composants FMX Delphi

  1. #1
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    12 979
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 12 979
    Points : 35 295
    Points
    35 295
    Billets dans le blog
    54
    Par défaut Créer un bitmap
    Bonjour,

    [Tokyo 10.2]

    ce code fonctionne parfaitement sous windows
    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
     
    procedure TForm1.ListView1UpdatingObjects(const Sender: TObject;
      const AItem: TListViewItem; var AHandled: Boolean);
    var AListItemBitmap : TListItemImage;
        AListItemText : TListItemText;
        AColor : TAlphaColor;
        i : word;
    begin
    AListItemBitmap:=AItem.Objects.FindObjectT<TListItemImage>('Image2');
    AListItemText:=AItem.Objects.FindObjectT<TListItemText>('Text1');
    if Assigned(AListItemBitmap) then
     begin
        AListItemBitmap.Bitmap:=TBitmap.Create(40,40);   << ne semble pas fonctionner sous Androïd
        try
           AColor:=StringToAlphaColor(AListItemText.Text)
        except // certaines couleurs sont inconnues! i.e. monneygreen, ltgrey
          AColor:=TAlphaColorRec.Null;
        end;
        AListItemBitmap.Bitmap.Clear(AColor);
     end;
    end;
    // le on close query se doit de gérer les fuites mémoires
    Par contre sous Androïd mon bitmap reste vide !
    j'imagine qu'Android ne supportant que peu de format d'images il y a une histoire là dessous mais je ne vois pas !

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    procedure TForm1.CouleurClick(Sender: TObject);
    begin
    Image1.Bitmap.Clear(TAlphaColorF.Create(random(255) / 255, random(255) / 255, random(255) / 255, random(255) / 255).ToAlphaColor); // couleur aléatoire
    end;
    ce code fonctionne sous Androïd pour peu que le TImage ait un png présent dans le MultiResBitmap

    Des pistes ? Merci
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio, Sidney) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

  2. #2
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    12 979
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 12 979
    Points : 35 295
    Points
    35 295
    Billets dans le blog
    54
    Par défaut
    Bonjour,

    j'ai contourné mon problème de base. Toutefois j'aimerai bien avoir la solution à cette question je garde donc la discussion ouverte.

    En aparté à ceci, j'ai des difficultés à comprendre comment bien déployer vers Androïd, ces histoires de magasins, de clés etc...
    J'ai réussi à le faire pour le programme qui me préoccupe mais je pensais avoir suivi la même démarche pour un simple petit programme pour tester cette fameuse création et impossible de déployer (erreur 1).

    Quelqu'un a t-il connaissance d'un tutoriel simple sur le sujet "déploiement d'une application sous Android" , vidéos acceptées mais je veux vraiment du BABA.
    Je trouve trop à "tiroirs" les explications de déploiements sur le wiki et j'ai raté la marche lors de la sortie des premières versions permettant la compilation Android faute de matériel pour les tests.

    Merci
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio, Sidney) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

  3. #3
    Rédacteur/Modérateur

    Avatar de SergioMaster
    Homme Profil pro
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    12 979
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 65
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 12 979
    Points : 35 295
    Points
    35 295
    Billets dans le blog
    54
    Par défaut
    Bonjour,

    1. Pour ce qui est d'une création d'un bitmap
    j'ai trouvé une solution du moins pour ce qui est de remplir un Timage
    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
    24
    25
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
     
    unit Ubmp;
     
    interface
     
    uses
      System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
      FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs,
      FMX.Controls.Presentation, FMX.StdCtrls, FMX.Objects, FMX.ScrollBox, FMX.Memo,
      FMX.MultiresBitmap;
     
    type
      TForm8 = class(TForm)
        Image1: TImage;
        Button1: TButton;
        Rectangle1: TRectangle;
        Memo1: TMemo;
        procedure Button1Click(Sender: TObject);
      private
        { Déclarations privées }
      public
        { Déclarations publiques }
      end;
     
    var
      Form8: TForm8;
     
    implementation
     
    {$R *.fmx}
     
    procedure TForm8.Button1Click(Sender: TObject);
    var aBMP : TFixedBitmapItem;
    begin
    Rectangle1.Fill.Color:=TAlphaColorF.Create(random(255) / 255, random(255) / 255, random(255) / 255, random(255) / 255).ToAlphaColor;
     
    if Image1.Bitmap.IsEmpty then
      begin
       try
        aBMP:=Image1.MultiResbitmap.Add;
        aBmp.Bitmap.Height:=40;
        abmp.Bitmap.Width:=40;
        Image1.Bitmap.Clear(Rectangle1.Fill.Color);
       except
         on E:Exception do  memo1.Lines.Add(E.Message);
       end;
      end
     else begin
       Image1.Bitmap.Clear(rectangle1.fill.color);
     end;
    end;
    end.
    2.Pour ce qui est du déploiement. Étrangement en déplaçant l'application dans un autre répertoire j'ai pu le faire sans problème
    Une question de droits windows peut-être ... Je suis toujours preneur pour une vidéo ou un tutoriel mais je pose quand même la discussion comme résolue.
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein

    Delphi installés : D3,D7,D2010,XE4,XE7,D10 (Tokyo, Rio, Sidney) et peut être quelques autres
    SGBD : Firebird 2.5, 3, SQLite
    générateurs Etats : FastReport, Rave, QuickReport
    OS : Window Vista, Windows 10, Ubuntu, Androïd

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

Discussions similaires

  1. Créer un Bitmap dans une ScrollBox
    Par ero-sennin dans le forum Delphi
    Réponses: 9
    Dernier message: 01/08/2006, 18h34
  2. Créer un bitmap à partir de plusieurs autres
    Par MiJack dans le forum Delphi
    Réponses: 4
    Dernier message: 08/06/2006, 13h47
  3. Créer un bitmap de l'alphabet
    Par Glosialabolas dans le forum OpenGL
    Réponses: 4
    Dernier message: 24/01/2006, 11h58
  4. Comment créer un bitmap à partir d'un panel ?
    Par calou34 dans le forum Composants VCL
    Réponses: 3
    Dernier message: 19/08/2003, 15h06
  5. Comment faire pour créer un bitmap
    Par GliGli dans le forum C++Builder
    Réponses: 2
    Dernier message: 24/04/2002, 15h41

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