Discussion :

[SergioMaster]

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

[SergioMaster]

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

[SergioMaster]

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.