Atteindre une proriété depuis Delphi. Ma galère

[l0pez]

Bonjour à tous,

Débutant, je viens de réaliser mon tout premier état Rave. Je n'utilise aucune B.D. mais juste des SetParam depuis Delphi et, sur cet état, j'ai utilisé des 'circle component' comme pastilles qui prendront la couleur, soit rouge soit verte (Fillcolor) en fonction d'une condition boolean dans mon appli Delphi.

Comment atteindre la propriété 'Fillcolor' de mes composants Circle et ainsi leur donner la valeur red ou green depuis delphi ?

Merci à tous.

[SergioMaster]

Apres avoir 'ouvert' le report

Code :

rvproject1.Open

récupérer la page

Code :

1
2
3
4
5
 
var MaPage : TRavePage;
begin
// recherche de la page du rapport 
MaPage := RvProject1.ProjMan.FindRaveComponent('Report1.MainPage',nil) AS

il faut récupérer la fameuse pastille

Code :

1
2
3
4
5
var
  MonCircle : TRaveCircle; // ou TRaveEllipse , à vérifier
begin
// recherche du composant bitmap contenu dans la page
 monCircle := RvProject1.ProjMan.FindRaveComponent('Pastille',MyPage) AS TRaveCircle;

et changer selon condition (attention de mémoire)

Code :

IF <condition> then monCircle.Fillcolor:=clGreen else myCircle.Fillcolor:=clred;

ne pas oublier d'inclure dans les uses RvcsStd, RVCsDraw
pas besoin de paramètre Rave . Le tout est de trouver le bon évènement pour ça (on afteropen du rvproject ?)

[l0pez]

Merci pour cette info SergioMaster

[l0pez]

J'ai vu que tu as précisé de faire attention à la mémoire. Que voulais-tu dire par là ? Puisque je rencontre une erreur d'exception (EAccessViolation) à la condition justement.

[SergioMaster]

Envoyé par l0pez

J'ai vu que tu as précisé de faire attention à la mémoire. Que voulais-tu dire par là ?

à la mienne , ma réponse était faite de mémoire sans tester

Puisque je rencontre une erreur d'exception (EAccessViolation) à la condition justement.

erreur "classsique" . Normalement il faut vérifier que les variables Mypage , myCircle sont bien Assigned (ont une valeur) . et c'est là que je remarque que dans les bout de code j'ai déclaré en Mapage, MonCircle et que j'ai mis myPage , myCircle dans le code je corrige

Code :

1
2
3
4
5
6
 
IF moncircle.assigned then 
   begin
      .....
   end
else showmessage('j''ai foiré quelque part');

Vérifies bien le nom du cercle dans l'état .
Plus préoccupant c'est que Rave utilise white, red etc.. pour les couleurs j'espère que clRed clGreen sont compatibles . (je serais content de le savoir , je pense que oui au vu des plannings graphiques que j'ai pu faire pour @Buzzleclair)