Discussion :

[popoy]

Bonjour,
Je suis totalement débutant sur Delphi (Version Rio 10.3.3 Comunity)
Sous Firemonkey (Windows, Android, iOS)
J'aimerais mettre un composant imagelist ou virtualimagelist sur mon datamodule.
(Je n'ai pas encore choisit le composant car j'aimerais utiliser toutes les dpi.)
J'aimerais connaitre la liste des composants ainsi que le nom de la propriété qui accepte l'index d'image.
En effet, j'ai essayé Timage mais sauf erreur de ma part , il prend une image a partir du disque et l’intègre a la fiche.
J'aimerais éviter les boutons car j'ai lu qu'ils acceptent que du 16 x 16.
Donc désolé pour une question aussi simple.
Merci d'avance de vos réponses.

[pprem]

Hello

Alors déjà je te suggère de passer à la nouvelle Community Edition sortie ce mois-ci (équivalente à la 10.4.2 Sydney). Pour les smartphones et tablettes tu seras globalement plus à jour de SDK et de règles de publication.

Pour les images et les listes d'images dans FMX c'est quelque peu le foutoir (oui, je sais, j'devrais pas dire ça comme ça).

Concernant le TImage tu as une propriété MultiResBitmap dessus, tu peux t'en servir pour lui fournir toutes les versions de l'image que tu désires afficher.

Le TGlyph en revanche prend son affichage depuis un TImageList (que je te recommande de centraliser dans un module de données pour alléger tes fiches).

Ca, ce sont les grandes lignes. Si tu nous dis plus précisément où tu veux afficher ton image on pourra peut-être t'indiquer un autre composant plus adapté ? Par exemple le TSpeedButton à la place du TButton ou directement une forme (mais ça ne gèrera pas la multirésolution).

[popoy]

Je te remercie pour ta réponse rapide.
Oui leTglyph me paraît bien
Cependant pour une raison obscure, il n'as pas sauf erreur de propriété anchor.
Mon but n'est que de regrouper les images dans le datamodule .
Une autre solution est de mettre les images dans ma base SQLite ce qui fonctionne très bien avec les images du Tlistview .
N'y a t'il pas un composant acceptant aussi bien le binaire et l'index?
Je cherche une solution la plus générique possible.

[pprem]

Je te remercie pour ta réponse rapide.
Oui leTglyph me paraît bien
Cependant pour une raison obscure, il n'as pas sauf erreur de propriété anchor.
Mon but n'est que de regrouper les images dans le datamodule .
Une autre solution est de mettre les images dans ma base SQLite ce qui fonctionne très bien avec les images du Tlistview .
N'y a t'il pas un composant acceptant aussi bien le binaire et l'index?
Je cherche une solution la plus générique possible.

veux-tu le faire depuis le concepteur de fiches ou par programmation ?

Concernant la propriété Anchors du TGlyph, effectivement c'est étrange qu'elle ne soit pas publiée, je ne l'avais jamais vu. Je viens de faire une demande sur QP. Tu peux y accéder par code, même si elle n'est pas disponible dans l'IDE.

[popoy]

veux-tu le faire depuis le concepteur de fiches ou par programmation ?

Concernant la propriété Anchors du TGlyph, effectivement c'est étrange qu'elle ne soit pas publiée, je ne l'avais jamais vu. Je viens de faire une demande sur QP. Tu peux y accéder par code, même si elle n'est pas disponible dans l'IDE.

Pour l'instant, je suis en phase d'apprentissage.
Donc, je cherche à faire les choses aussi bien dans le concepteur et par programmation.
C'est comme par exemple les requêtes paramétré, on peut les faire aussi bien avec TQuery ou execSQL .
Pour revenir à ma question de départ.
Je un composant, même si il faut l'acheter qui me permet d'afficher une image multi dpi aussi par chargement du binaire ou par index .
Que ce composant ai les propriétés d'ancrage , align position taille.
Un composant standard, je ne compte pas faire du dessin avec.
Pour l'instant je suis obligée d'avoir les composants Timage et Tglyph dans les mêmes fiches .
J'aurais voulu en avoir qu'un seul.

[pprem]

doit-on pouvoir cliquer ou interagir avec l'image ou est-elle juste affichée ?

[popoy]

Il est vrai que le clic serait un plus
Je veux juste éviter d'avoir trop de composants dans ma fiche.
Donc une image qui s'affiche avec le clic que l'on charge ou que l'on affecte par index dans le concepteur et par programmation.
Hors sujet : Je ne comprends pas qu'il y ait autant de composants pour les images et que je n'arrive pas à en trouver un qui me convienne

[pprem]

Hors sujet : Je ne comprends pas qu'il y ait autant de composants pour les images et que je n'arrive pas à en trouver un qui me convienne

C'est vrai que sur ce coup là, ils se sont amusés. Surtout si en plus on regarde les formes qui permettent d'afficher un bitmap en fond.

Là, je n'ai pas de solution clé en main. Je dirais TGlyph dans un TRectangle.
TGlyph associé à ta liste d'images, aligné en Client ou Contents.
TRectangle dont tu élimines les rebords avec la propriété Stroke et change le Fill pour le passer en Bitmap, dont tu laisses le HitTest actif pour avoir le onClick déclenché quand tu cliques.

Tu alimentes ton TGlyph à l'écran ou par code via une liste d'images.

Tu alimentes fill.Bitmap.Bitmap du TRectangle si tu préfères travailler avec un bitmap par code. (en pensant à masquer le TGlyph dans ce cas en mettant à false sa propriété Visible).

[SergioMaster]

@pprem Pas mal du tout comme solution (TRectangle, TGlyph). Sans trop réfléchir (vacances obligent) si tout ça est dans un style où même un composant "simple", un peu comme j'ai pu déjà le proposer dans un tuto (note : je vais pas faire l'indication de celui-ci car je passe juste en coup de vent) ça peut vraiment faire quelque chose de sympa.

[Paul TOTH]

sous FMX il y a deux logiques utilisables, les Style (qui ne sont qu'un assemblage de composants utilisé pour faire le rendu), et les empilements de composants qui sont possibles dans un peu tous les sens contrairement à la VCL

dans un projet j'utilise notamment un TRectangle contenant un TText et un TGlyph pour faire des boutons personnalisés

et pour ne pas avoir à gérer le onclick sur chaque rectangle j'ai ajouté dans une unité ceci

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
53
54
 
  TRectangle = class(FMX.Objects.TRectangle)
  private
    FFillColor: TAlphaColor;
  public
    ArticleID: Integer;
    RuptureLine: TLine;
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;
    procedure DoMouseLeave; override;
    procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;
    procedure Click; override;
    procedure SetFillColor(Value: TAlphaColor);
  end;
 
{ TRectangle }
 
procedure TRectangle.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Single);
begin
  inherited;
  if Assigned(OnClick) then // s'il est cliquable
  begin
    FFillColor := Fill.Color; // sauvegarder la couleur
    Fill.Color := ((FFillColor and $FEFEFE) shr 1) or $FF000000; // la rendre un peu plus sombre
  end;
end;
 
procedure TRectangle.Click;
begin
  if FFillColor <> 0 then
    Fill.Color := FFillColor; // restaurer la couleur d'origine
  inherited;
end;
 
procedure TRectangle.DoMouseLeave;
begin
  inherited;
  if FFillColor <> 0 then
    Fill.Color := FFillColor; // restaurer la couleur d'origine
end;
 
procedure TRectangle.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
  Y: Single);
begin
  if FFillColor <> 0 then
    Fill.Color := FFillColor; // restaurer la couleur d'origine
  inherited;
end;
 
procedure TRectangle.SetFillColor(Value: TAlphaColor);
begin
  FFillColor := Value; // utilisé pour changer la couleur du bouton - même s'il est enfoncé, par exemple dans OnClick
  Fill.Color := Value;
end;

voilà ce que ça donne dans l'appli, quand je clique sur "Hamburger" qui est défini comme ceci

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
 
object rtBurger5: TRectangle
  Tag = 5
  Align = Top
  Fill.Color = xFFEDB35D
  Position.Y = 375.000000000000000000
  Size.Width = 150.000000000000000000
  Size.Height = 75.000000000000000000
  Size.PlatformDefault = False
  OnClick = rtBurger0Click
  object txBurger5: TText
    Align = Bottom
    HitTest = False
    Position.Y = 50.000000000000000000
    Size.Width = 150.000000000000000000
    Size.Height = 25.000000000000000000
    Size.PlatformDefault = False
    Text = 'Hamburger'
    TextSettings.Font.Family = 'Arial'
    TextSettings.Font.Size = 14.000000000000000000
    TextSettings.Font.StyleExt = {00070000000000000004000000}
  end
  object Glyph38: TGlyph
    Align = Client
    Size.Width = 150.000000000000000000
    Size.Height = 50.000000000000000000
    Size.PlatformDefault = False
    ImageIndex = 7
    Images = DM.ImageList
  end
end

le prix est ajouté par code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
begin
    tx := TText.Create(rt);
    tx.Align := TAlignLayout.Contents;
    tx.HitTest := False;
    tx.Text := CurrToStr(Prix);
    tx.Font.Family := 'Arial';
    tx.Font.Size := 10;
    tx.Margins.Top := 2;
    tx.Margins.Right := 2;
    tx.TextSettings.HorzAlign := TTextAlign.Trailing;
    tx.TextSettings.VertAlign := TTextAlign.Leading;
    tx.Parent := rt;
end;

notez que, contrairement à la VCL, on peut mettre le composant par dessus les autres, le simple fait de désactiver HitTest le rend insensible à la souris et on peut cliquer sur le parent en dessous sans problème.
TGlyph n'a pas de HitTest mais il est de fait insensible à la souris

[Andnotor]

J'ai fait un mini essai FMX dernièrement et ce HitTest m'a vraiment plu. Dommage qu'il n'existe pas en VCL, ça serait pourtant simple à implémenter.

[Paul TOTH]

J'ai fait un mini essai FMX dernièrement et ce HitTest m'a vraiment plu. Dommage qu'il n'existe pas en VCL, ça serait pourtant simple à implémenter.

uniquement pour les TGraphicControl, pour les TWinControl ils choppent l'évènement qu'il faudrait propager sur le parent...c'est imaginable mais pas simple

sous FMX tous les composant sont dessinés par Delphi (sauf quand on active les composants système) et c'est en fait TForm qui chope le clic et le propage dans les composants, c'est d'ailleurs très pratique pour debuger

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
 
type
  Tform1 = class(TForm)
  ...
  public
    procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Single); override;
  ...
  end;
 
procedure TForm1.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
  Y: Single);
{$IFDEF DEBUG}
var
  Obj: IControl;
  Ctl: TFmxObject;
{$ENDIF}
begin
{$IFDEF DEBUG}
  Obj := ObjectAtPoint(ClientToScreen(TPointF.Create(X, Y)));
  if Obj <> nil then
  begin
    AllocConsole;
    Ctl := Obj.GetObject;
    WriteLn('click on ', Ctl.Name, ':', Ctl.ClassName, ' from ' + Ctl.UnitName);
  end;
{$ENDIF}
  inherited;
end;

avec ce code (pour Windows uniquement) tu as une console (Winapi.Windows) qui s'ouvre pour indiquer le nom et l'unité (cf les Frames) du composant sur lequel on clique

[Andnotor]

Les messages souris (ou pointeurs) sont postés. Ne penses-tu pas qu'on pourrait les interceptés dans WndProc et conditionner le dispatch, un peu comme un KeyPreview pour les touches mais au niveau TControl ?

edit: ça pourrait poser des problèmes avec WM_SETFOCUS, oui c'est peut-être plus compliqué que cela... tout du moins, il y aurait un certains nombre de messages à traiter autres que ceux de la souris. Mais sur les TGraphicControl ce serait déjà bien. C'est de toute façon moins logique sur les TWinControl

[Paul TOTH]

Les messages souris (ou pointeurs) sont postés. Ne penses-tu pas qu'on pourrait les interceptés dans WndProc et conditionner le dispatch, un peu comme un KeyPreview pour les touches mais au niveau TControl ?

edit: ça pourrait poser des problèmes avec WM_SETFOCUS, oui c'est peut-être plus compliqué que cela... tout du moins, il y aurait un certains nombre de messages à traiter autres que ceux de la souris. Mais sur les TGraphicControl ce serait déjà bien. C'est de toute façon moins logique sur les TWinControl

en fait ça doit être possible

https://stackoverflow.com/questions/...ough-windows-c

[popoy]

Merci à tous de m'avoir répondu
Paul TOTH merci pour ta solution toute prête. Je m'y attendait pas.
On peut considéré mon sujet comme résolu.
Nb : Je ne sais pas comment on met le sujet en résolu sur le forum.