Utilisation de RadioGroup.Items.AddObject

Version imprimable

Bonjour,

j'essaie de reproduire l'exemple pour Delphi situé ici qui consiste à remplir automatiquement un RadioGroup avec les valeurs possibles de la propriété ViewStyle du contrôle ListView.

Dans cette partie,
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Procedure TForm1.FormShow(Sender: TObject); //List ListView VievStyle's in a Radio Button List var vs : TViewStyle; vss : string; begin for vs in [Low(TViewStyle) .. High(TViewStyle)] do begin //get enum name as string vss := GetEnumName(TypeInfo(TViewStyle), integer(vs)) ; //add enum to a radio button list RadioGroup1.Items.AddObject(vss, TObject(vs)); end; end;
la ligne RadioGroup1.Items.AddObject(vss, TObject(vs)); est en erreur :

unit1.pas(47,39) Error: Illegal type conversion: "<enumeration type>" to "TObject"

Je ne vois pas comment passer cette erreur.

A priori delphi doit avoir un mecanisme qui permet la conversion d'un enum en un objet par TObject(vs) et la conversion inverse. Ce mecanisme qui ressemble à l'autoboxing de java n'existe pas en FreePascal. Tu vas donc devoir creer toi même une classe pour contenir un TViewStyle. Par exemple :
Code:

1 2 3 4 5 6 7 8 9 10 type TViewStyleClass = class private FValue: TViewStyle; public constructor Create(Value: TViewStyle); function GetValue: TViewStyle; end;
Je ne detaille pas l'implémentation elle doit être assez evidente. Avec cette classe ton exemple devient donc quelque chose comme ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 Procedure TForm1.FormShow(Sender: TObject); //List ListView VievStyle's in a Radio Button List var vs : TViewStyle; vss : string; vsobject : TViewStyleClass; begin for vs in [Low(TViewStyle) .. High(TViewStyle)] do begin //get enum name as string vss := GetEnumName(TypeInfo(TViewStyle), integer(vs)) ; vsobject:=TViewStyle.Create(vs); //add enum to a radio button list RadioGroup1.Items.AddObject(vss, vsobject); end; end;
La récupération de la valeur devrait ressembler à ça :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 procedure TForm.RadioGroupClick(Sender: TObject) ; var vs : TViewStyle; vsobject : TViewStyleClass; begin vsobject:=RadioGroup.Items.Objects[RadioGroup.ItemIndex]; //get the enum value vs := vsobject.GetValue; //change the enumerated property of a control ListView1.ViewStyle := vs; end;
J'ai fais ça un peu à l'arrache et sans tester donc c'est pas certain que ça marche...

Enfin, en complement, à partir de FreePascal 2.4.0, on peu convertir un enum en chaîne de façon beaucoup plus elegante. A la place de :

Code:

vss := GetEnumName(TypeInfo(TViewStyle), integer(vs)) ;

on peut ecrire

Code:

WriteStr(vss, vs);

et pas besoin de 'uses TypInfo;'

12/06/2010, 17h54
thierrybo
Ah,

merci pour les infos, j'avance mais j'ai un problème sur la ligne

Code:

vsobject:=RadioGroup.Items.Objects[RadioGroup.ItemIndex];

j'ai

Citation:

unit1.pas(59,25) Error: Incompatible types: got "TObject" expected "TViewStyleClass"

j'ai essayé de transtyper par
vsobject := RadioGroup.Items.Objects[RadioGroup.ItemIndex] as TViewStyleClass;

mais j'ai un SIGSEGV sur la même ligne en sortie de /lcl/include/radiogroup.inc/TCustomRadioGroup.GetItemIndex (FItemIndex a bien la valeur 1 2 etc selon le cas):
Code:

1 2 3 4 5 function TCustomRadioGroup.GetItemIndex : integer; begin //debugln('TCustomRadioGroup.GetItemIndex ',dbgsName(Self),' FItemIndex=',dbgs(FItemIndex)); Result := FItemIndex; end;
13/06/2010, 02h30
batyann811

Effectivement il faut un transtypage.

J'ai testé sur un petit projet exemple et tout semble fonctionner (lazarus 9.28.2 + fpc 2.4.0 + linux).

Peut être que si tu postais ton projet ici...

eh bien dans

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TForm1.RadioGroupClick(Sender: TObject);
var
  vs : TViewStyle;
  vsobject : TViewStyleClass;
begin
  --->> vsobject := RadioGroup.Items.Objects[RadioGroup.ItemIndex] as TViewStyleClass;
 
  //get the enum value
  vs := vsobject.GetValue;
 
  //change the enumerated property of a control
  ListView1.ViewStyle := vs;
end;

Dès qu'il rentre sur la ligne incriminée, en debug détaillé il rentre dans

Code:

1
2
3
4
5
6
 
function TCustomRadioGroup.GetItemIndex : integer;
begin
  //debugln('TCustomRadioGroup.GetItemIndex ',dbgsName(Self),' FItemIndex=',dbgs(FItemIndex));
  Result := FItemIndex;
end;

dès qu'il passe sur le end de cette fonction j'ai l'erreur.

13/06/2010, 19h01
batyann811

J'ai bien compris ton problème mais, avec le même code, chez moi, avec les versions de lazarus et fpc que je t'ai indiqué, ça marche. Tu peux essayer de poster ton projet ici et je regarderai si j'ai le même problème que toi.
14/06/2010, 21h41
thierrybo

1 pièce(s) jointe(s)

OK,

ci-joint :)

J'ai corrigé 2 méthodes dans ton projet :

Code:

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
 
constructor TViewStyleClass.Create(Value: TViewStyle);
begin
  FValue:=Value;   { <=== }
  inherited Create;
end;   
 
procedure TForm1.RadioGroupClick(Sender: TObject);
var
  vs : TViewStyle;
  vsobject : TViewStyleClass;
begin
  vsobject := RadioGroup.Items.Objects[RadioGroup.ItemIndex] as TViewStyleClass;
 
 
  //get the enum value
  vs := vsobject.GetValue;
 
  //change the enumerated property of a control
  ListView1.ViewStyle := vs;
 
  // debug fpc >= 2.4.0
  WriteLn('RadioGroup.ItemIndex=', RadioGroup.ItemIndex);
  WriteLn('Style=', vs);
end;

Avec ça ça marche.

PS: J'allais oublié j'ai aussi du changer le

Code:

1
2
 
for vs in [Low(TViewStyle)..High(TViewStyle)] do

Code:

1
2
 
for vs:=Low(TViewStyle) to High(TViewStyle) do

15/06/2010, 23h31
thierrybo

Merci,

mais j'ai toujours la même erreur :? Tu as juste fais les deux modifs rien d'autre ? J'ai essayé avec la dernière version de Lazarus et FPC 2.4,1, et Lazarus 0.9.28.3 et FPC 2.4.0.

Pour le champ FValue, mea culpa, pour la syntaxe de la boucle, qu'est-ce qui ne va pas avec l'ancienne ?
16/06/2010, 09h23
batyann811

Oui j'ai juste fait les modifications indiquées. Mais j'utilise Lazarus 9.28.2 et fpc 2.4.0.

Pour la syntaxe de la boucle mon fpc 2.4.0 n'en voulait pas. Peut être que la boucle 'for X in [ .. ]' est une nouveauté de la version 2.4.1.

1 pièce(s) jointe(s)

Je viens de vérifier et je me suis effectivement trompé dans les modifications que je t'ai donné.

Les bonnes modifications sont :

Code:

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
 
constructor TViewStyleClass.Create(Value: TViewStyle);
begin
  inherited Create;
  FValue:=Value; { <== }
end;   
 
procedure TForm1.FormShow(Sender: TObject);
 //List ListView VievStyle's in a Radio Button List
 var
   vs : TViewStyle;
   vss : string;
   vsobject : TViewStyleClass;
begin
for vs:=Low(TViewStyle) to High(TViewStyle) do
  begin
    //get enum name as string
    vss := GetEnumName(TypeInfo(TViewStyle), integer(vs)) ;
 
    vsobject:=TViewStyleClass.Create(vs); { <== }
 
    //add enum to a radio button list
    //RadioGroup.Items.AddObject(vss, TObject(vs));
    RadioGroup.Items.AddObject(vss, vsobject);
  end;
end;

Pour éviter une nouvelle erreur je joins une version modifiée de ton projet.

J'ai testé sous Lazarus 9.28.2 + FPC 2.24 sous windows et ça marche aussi.

16/06/2010, 13h50
thierrybo

Oui çà marche, super.

Se lance sans erreur avec le même code et en plus à la fois en 2.2.5 et 2.4, à la différence pres que les clics sur les radiobox n'ont aucun effet en 2.2.5.