Discussion :

[thierrybo]

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 :

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

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.

[batyann811]

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 :

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

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 :

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
 
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 :

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

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 :

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

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

on peut ecrire

Code :

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

WriteStr(vss, vs);

et pas besoin de 'uses TypInfo;'

[thierrybo]

Ah,

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

Code :

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

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

j'ai

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 :

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

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

[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...

[thierrybo]

eh bien dans

Code :

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

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 :

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

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.

[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.