Discussion :

[Gouyon]

Bonjour à tous

J'ai créer quelques composant d'affichage FMX (voir ce billet dans mon blog) et je suis en train de créer des composants de choix (boutons, interrupteur...). Parmi eux il y en a un que j'ai baptisé TSelecteur et qui agit comme une TListbox sauf qu'il aura un aspect de ce genre

Naïvement j'ai fait descendre mon composant Selecteur d'un TListBox et surcharger la méthode Paint pour dessiner comme je le veux mon composant. Sauf que ça ne marche pas je passe bien dans ma méthode Paint mais il doit y avoir un appel à une autre car j’obtiens toujours à l'écran le dessin classique d'une TListbox.

Donc je suis reparti d'un ancêtre TRectangle auquel je pensais ajouter une propriété items comme elle existe pour les listbox

Pour cela j'ai fouillé dans les sources de TListBox et je suis malheureusement tombé sur une suite d'héritage très complexe et j'avoue être perdu.
Au départ j'avais fait ça

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
55
56
57
58
59
60
61
62
63
64
 
unit Selecteur;
 
interface
 
uses
  System.SysUtils, Couleurs, System.Classes, System.Types, System.UIConsts, FMX.Types, FMX.Controls, FMX.Objects,
  FMX.Graphics, FMX.ListBox;
 
type
  TGenre = (Circulaire, Horizontal, Vertical);
 
  TSelecteur = class(TRectangle)
  private
    FGenre: TGenre;
    FChoix:TStrings;
    procedure setChoix(valeur:TStrings);
  protected
    { Déclarations protégées }
  public
    constructor Create(AOwner: TComponent); override;
    procedure Paint; override;
  published
    property Genre: TGenre read FGenre write FGenre;
    property Choix: TStrings read FChoix write setChoix;
 
 
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('VisuLabo', [TSelecteur]);
end;
 
constructor TSelecteur.Create(AOwner: TComponent);
begin
  inherited;
  FGenre := Horizontal;
  FChoix:=TStrings.Create;
end;
 
procedure TSelecteur.Paint;
var
  rect: TRectF;
begin
  Canvas.BeginScene;
  if FGenre = Horizontal then
  begin
    Canvas.DrawLine(TPointF.Create(0, Height / 2), TPointF.Create(Width, Height / 2), 1);
  end;
  Canvas.EndScene;
end;
 
 
procedure TSelecteur.setChoix(valeur: TStrings);
begin
  FChoix.Assign(valeur);
end;
 
end.

Mais dès que je pose mon composant sur une fiche et que je clique sur Choix, j'ai cette erreur


Si quelqu'un a une idée pour réaliser ça relativement simplement je suis preneur

[Gouyon]

A ma grande honte je n'ai pas bien cherché. En fait il ne faut pas utiliser TStrings directement car c'est une classe abstraite.
En remplaçant TStrings par TStringList ça va tout de suite beaucoup mieux.

[SergioMaster]

Bonjour,

pour ce qui est de ce composant je n'ai, pour l'instant, pas d'idée précise.
Pour ce qui est des Items par contre j'ai déjà réalisé ça pour mon composant radiogroupbox (non publié car le LiveBindings ne fonctionne toujours pas même si je sais quelle piste je dois suivre je n'ai pas eu le courage de m'y remettre).
Je peux donc te fournir mon code (impliquant groupbox, gridlayout etc...) par mp

[Gouyon]

Bonjour,
Je peux donc te fournir mon code (impliquant groupbox, gridlayout etc...) par mp

Je suis preneur ça peux me donner des idées

[ALWEBER]

Pour info il existe deux types de listes pour TListBox sous FMX. Ces deux types sont exclusifs et ne peuvent cohabiter.
Ci joint exemple avec sérialisation de l'objet TListBox et génération dans les deux modes

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
procedure TForm2.Button1Click(Sender: TObject);
var
  LItem: TListBoxItem;
  I: Integer;
begin
  ListBox1.Items.Clear ;
  for I := 1 to 10 do
  begin
    LItem := TListBoxItem.Create(ListBox1);
    LItem.Text := 'Item '+IntToStr(I);
    LItem.parent := ListBox1 ;
 end;
end;
 
procedure TForm2.Button3Click(Sender: TObject);
var
  I: Integer;
  sl1 : TStringList ;
begin
  sl1 := TStringList.Create ;
  for I := 1 to 10 do
    sl1.Add ('Item '+IntToStr(I)) ;
  ListBox1.Items.Clear ;
  ListBox1.Items.SetStrings(sl1);
  sl1.Free
end;