[Rave 5.0-Delphi 7] Griser une ligne sur deux

[Frank]

Bonjour,

est il possible de griser une ligne sur deux dans un état ?

[chtiot]

à mon avis tu dois pouvoir le faire comme suit :

- dans ton état rave, tu mets un TRaveRectangle sur toute la partie qui doit être grisée de ta bande (ou sur toute ta bande qi tu veux tout griser)
- tu poses sur ce rectangle tous les composants rave dont tu as besoin
- tu code l'événement OnGetRow de ton TrvDataSetConnection comme suit :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
procedure TForm1.RvDsDiEtqGetRow(Connection: TRvCustomConnection);
var rvRect : TraveRectangle;
    rvPage : TRavePage; 
    rvBand : TRaveDataBand; 
    i : integer; 
begin 
  RvPage := rvProject1.ProjMan.FindRaveComponent('Report1.Page1', nil) AS TravePage; 
  RvBand := rvproject1.ProjMan.FindRaveComponent('DataBand1', RvPage) AS TRaveDataBand; 
  RvRect := rvproject1.ProjMan.FindRaveComponent('Rectangle1', RvBand) AS TRaveRectangle; 
  IF RvRect.FillColor = White then RvRect.FillColor := Silver
     else RvRect.FillColor := White;
end;

il y a peut -etre plus simple mais je sais pas

[Frank]

Merci, je vais tester.

[Frank]

Humm, j'ai un petit souci, car les déclarations ne sont pas reconnues.

je n'arrive pas à trouver quelle unité doit être rajoutée.

[chtiot]

moi celles que j'ai dans mes uses, mais à mon avis elles ne sont pas toutes nécessaires :

rpRave
rpDefine
rpCon
rpConDs
rvClass
rvProj
rvCsStd
rvCsData
rvCsRpt
rvData
rvDirectDataView
rvCsBars
rpSystem
rvCsDraw
rvDefine
rpFiler

[jimmy-sept]

Salut,

Il me semble qu'il existe un add-on pour faire ça qui se nomme GreenBar et que tu peut trouver sur le site de Nevrona sur le lien suivant :
http://www.nevrona.com/Default.aspx?...enBarRectangle