Changer le font d'un DataText

**zemeilleurofgreg** · 02/03/2009, 22h09

Bonjour à tous,

voici mon problème :

j'ai un état Rave contenant un DataView lié à une table de base de données et une série de DataText faisant référence au valeur des champs de ma DB.

Est-il possible de changer le font de ces DataText en fonction de la valeur ce ceux-çi ?

voici ma requête SQL ainsi que l'appel de l'état :

Code :

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

1
2
3
4
5
6
7
8
9
QJoueurs.Close;
  QJoueurs.SQL.Clear;
  QJoueurs.SQL.Add('SELECT * FROM Joueurs ORDER BY Nom');
  QJoueurs.Open;
  Rv1.ProjectFile:=ExtractFilePath(Application.ExeName)+'\DATA\Joueurs2.rav';
  Rv1.Open;
  Rv1.SelectReport('Joueurs', False);
  Rv1.Execute;
  Rv1.Close;

Merci d'avance

**SergioMaster** · 03/03/2009, 20h18

Changer la fonte en delphi oui, c'est possible , d'ailleurs je crois qu'n recherchant dans ce forum il y a déjà un post de la sorte .

Un seul préalable mettre un ou + FontMaster dans l'état Rave.

ensuite ..

Code :

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

1
2
3
4
5
6
7
 
var mypage : TRavePage;
      myText  : TRaveText;
begin
MyPage:=TRavePage(rvproject1.ProjMan.FindRaveComponent('MonEtat.Page1',nil));
MyText:=TRaveText(rvproject.projman.findravecomponent('Mazone'),mypage);
MyText.Font:=TRaveFontMaster(rvproject1.ProjMan.FindRaveComponent('FontMaster1',mypage)).Font;

en oubliant pas d'ajouter les unités necessaires dans la clause uses

RpBase, RpSystem, RpRave, RpDefine, RpCon, RpConDS,
rvClass, RvCsStd ,RvCsRpt, RvCsDraw , RvDefine

Là , il doit y en avoir un peu trop

**zemeilleurofgreg** · 03/03/2009, 21h07

Envoyé par SergioMaster

Changer la fonte en delphi oui, c'est possible , d'ailleurs je crois qu'n recherchant dans ce forum il y a déjà un post de la sorte .

Un seul préalable mettre un ou + FontMaster dans l'état Rave.

ensuite ..

Code :

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

1
2
3
4
5
6
7
 
var mypage : TRavePage;
      myText  : TRaveText;
begin
MyPage:=TRavePage(rvproject1.ProjMan.FindRaveComponent('MonEtat.Page1',nil));
MyText:=TRaveText(rvproject.projman.findravecomponent('Mazone'),mypage);
MyText.Font:=TRaveFontMaster(rvproject1.ProjMan.FindRaveComponent('FontMaster1',mypage)).Font;

SergioMaster,

I m sorry but i comprend rien

c'est la première fois que j'utilise les états Rave et je trouve l'aide archi mal faite.

Pourrais-tu m'aiguiller un peu plus en fonction du code que j'ai mis dans ma question ?

Ou mettre le code que tu m'as donné ?
Comment lui dire de changer le font de tel ou tel datatext en fonction de certains critères SQL ?

Merci beaucoup

**zemeilleurofgreg** · 03/03/2009, 22h23

Pour dégrossir un peu ...

je voudrais tester la valeur du : par exemple "dataview1num1"

et si cette valeur se trouve dans la table "table1" de ma DB alors je change le font en rouge.

ça parait hyper simple dit comme ça mais moi je patauge.

**SergioMaster** · 04/03/2009, 10h05

Ok, je ne croyais pas que c'était une première fois (j'ose pas mettre un autre terme

)

et effectivement je m'aperçois que je n'ai pas indiqué de quel évènement il s'agissait (méa culpa

) .

C'est sur le OnValidateRow de ton composant RvDataSetConnection sur ta Form contenant la query (du moins je le suppose) . "En effet chaque fois que Rave va venir chercher un enregistrement il va faire ce qui lui est indiqué ici" en simplifiant

Ensuite c'est là où cela se complique puisque il va falloir indiquer à delphi ce qu'il "faut" changer dans Rave et pour cela il faut avoir la main sur les composants de l'état . En simplifiant considère que l'état Rave est un formulaire et que l'on cherche le positionnement de certains éléments dans celui-ci .

pour ce faire , on a besoin d'abord de se référer à la page , ce que l'on obtient ainsi

Code :

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

MyPage:=TRavePage(rvproject1.ProjMan.FindRaveComponent('MonEtat.Page1',nil));

puis à l'élément dans cette page

Code :

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

MyText:=TRaveText(rvproject.projman.findravecomponent('Mazone'),mypage);

ici mytext se référe à l'élement texte statique (soit un Text component de l'etat MonEtat sur la page1.

pour un Data Text component c'est pratiquement la même chose sauf que c'est un TRaveDBText (<- la j'espere que j'écorche pas le type va falloir vérifier) donc on aurait :

Code :

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

MyDBText:=TRaveDBText(rvproject.projman.findravecomponent('MonChamp'),mypage);

ensuite et en dernier il faudra pouvoir connaitre les fontes à utiliser donc tu devras avoir 2 FontMaster pour ton état en fonction du cas nommons les 'un' et 'deux'

pour changer la fonte en fonction d'un test quelconque cela devrais donner ceci (toujours dans le OnValidateRow) :

Code :

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

1
2
if macondition   then   MyText.Font:=TRaveFontMaster(rvproject1.ProjMan.FindRaveComponent('Un',mypage)).Font
else MyText.Font:=TRaveFontMaster(rvproject1.ProjMan.FindRaveComponent('Deux',mypage)).Font;

Je tiens à préciser que dans ce cas on change bien de fonte , pour changer uniquement de couleur c'est quand même plus simple

Voilà j'espère avoir été plus clair , il y a juste ce TRaveDBtext où j'ai quelques doutes , je vérifie et edit mon message si besoin

@+

**zemeilleurofgreg** · 04/03/2009, 13h07

Super,
Merci SergioMaster

je vais tester tout ça !

Et si maintenant je ne désire plus changer le font mais plutôt encadrer le datatext concerné et colorier l'intérieur ? Comme quand on redessine une cellule d'un DBGrid via l'évenement OnDrawColumnCell !

Je dis ça parce que l'impression se fera en noir et blanc ! Donc, changer le font c'est pas la meilleur solution pour attirer l'attention ;-)

Au passage, tu n'aurais pas un lien vers un bon support Rave ?
Encore merci

@+ Greg

**SergioMaster** · 04/03/2009, 14h42

Au passage, tu n'aurais pas un lien vers un bon support Rave ?

Tu peux oublier , je crois que hélas cela n'existe pas . Les seuls supports reste et je crois resteront la doc , les quelques FAQ chez Nevrona . Il y a bien quelques autres tutoriels (Jhon Colibri et Borland) mais le tout reste basique.

Pour l'encadrement c'est encore autre chose

contrairement à quickreport ce n'est pas aussi simple .

Comme quand on redessine une cellule d'un DBGrid via l'évenement OnDrawColumnCell !

c'est exactement le même principe qui s'applique avec OnValidateRow
Le mieux et le plus simple

est de poser un Rectangle autour de la zone de données que tu veux mettre en évidence et de la cacher si la condition n'est pas remplie via la propriété Visible du dit composant

sinon le principe reste le même

Code :

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

Var MyRect : TRaveRect;  <- idem ici je ne suis pas sur que ce soit le type exact

puis :

Code :

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

1
2
3
MyRect:=TRaveRect(rvproject.projman.findravecomponent('MonRectangle'),mypage);
MyRect.Visible:=macondition;
myRect.FillColor:=unecouleur; // ça c'est pour la couleur

un exemple de couleurs ?

Code :

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

1
2
3
4
5
 
  {Constantes couleurs}
  PSeTitre : TColor = $00C98843;
  PSeMonnaie : TColor = ClMoneyGreen;
  PSeCreme : TColor = ClCream;

[Edit]
PS.à priori je me suis trompé ce n'est pas TRaveDBText mais TRaveDataText et pas TRaveRect mais TRaveRectangle le lecteur se feras une joie

de faire les ajustements nécessaires

pour la doc j'utilise le plus souvent Rave.pdf,rave5.pdf,ravedevguide.pdf,ravedevref.pdf,ravepublicclasses30g.pdf,Ravescripting.pdf
les deux dernières ayant été trouvées via google merci à lui les autres sont fournis avec Delphi du moins je pense (rave.pdf == rave5.pdf à peu de chose près)

**zemeilleurofgreg** · 06/03/2009, 10h52

Merci pour toutes ces explications SergioMaster.

Cependant il demeure un petit problème :

J'ai fait une capture d'écran de mon état afin que tu comprennes mon problème.

Chaque ligne de mon état est composée d'un nom, et de 10 numéros.
Je dois donc tester la présence dans une requête UNION la valeur de ces 10 numéros et changer la propriété visible du rectancle en fonction de sa présence ou non mais le résultat n'est pas celui attendu, il laisse des rectangles visible alors qu'il ne faut pas et vis et versa. J'ai testé ma fonction "ExistOnTable" et elle fonctionne.

voici mon code actuel :

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
procedure TfrmMain.RvDataSetConnection1ValidateRow(
  Connection: TRvCustomConnection; var ValidRow: Boolean);
var
Mypage : TRavePage;
MyRect1,MyRect2,MyRect3,MyRect4,MyRect5,MyRect6,MyRect7,MyRect8,MyRect9,MyRect10 : TRaveRectangle;
MyDBText1,MyDBText2,MyDBText3,MyDBText4,MyDBText5,MyDBText6,MyDBText7,MyDBText8,MyDBText9,MyDBText10 : TRaveDataText;
begin
  MyPage:=TRavePage(rv1.ProjMan.FindRaveComponent('Joueurs.MainPage',nil));
 
  MyDBText1:=TRaveDataText(rv1.projman.findravecomponent('DataText1',Mypage));
  MyRect1:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle1',Mypage));
  MyRect1.Visible:=ExistOnTable(MyDBText1.Text);
 
  MyDBText2:=TRaveDataText(rv1.projman.findravecomponent('DataText2',Mypage));
  MyRect2:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle2',Mypage));
  MyRect2.Visible:=ExistOnTable(MyDBText2.Text);
 
  MyDBText3:=TRaveDataText(rv1.projman.findravecomponent('DataText3',Mypage));
  MyRect3:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle3',Mypage));
  MyRect3.Visible:=ExistOnTable(MyDBText3.Text);
 
  MyDBText4:=TRaveDataText(rv1.projman.findravecomponent('DataText4',Mypage));
  MyRect4:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle4',Mypage));
  MyRect4.Visible:=ExistOnTable(MyDBText4.Text);
 
  MyDBText5:=TRaveDataText(rv1.projman.findravecomponent('DataText5',Mypage));
  MyRect5:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle5',Mypage));
  MyRect5.Visible:=ExistOnTable(MyDBText5.Text);
 
  MyDBText6:=TRaveDataText(rv1.projman.findravecomponent('DataText6',Mypage));
  MyRect6:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle6',Mypage));
  MyRect6.Visible:=ExistOnTable(MyDBText6.Text);
 
  MyDBText7:=TRaveDataText(rv1.projman.findravecomponent('DataText7',Mypage));
  MyRect7:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle7',Mypage));
  MyRect7.Visible:=ExistOnTable(MyDBText7.Text);
 
  MyDBText8:=TRaveDataText(rv1.projman.findravecomponent('DataText8',Mypage));
  MyRect8:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle8',Mypage));
  MyRect8.Visible:=ExistOnTable(MyDBText8.Text);
 
  MyDBText9:=TRaveDataText(rv1.projman.findravecomponent('DataText9',Mypage));
  MyRect9:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle9',Mypage));
  MyRect9.Visible:=ExistOnTable(MyDBText9.Text);
 
  MyDBText10:=TRaveDataText(rv1.projman.findravecomponent('DataText10',Mypage));
  MyRect10:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle10',Mypage));
  MyRect10.Visible:=ExistOnTable(MyDBText10.Text);
 
end;

D'ou peut venir le problème ?

Merci beaucoup

Greg

**SergioMaster** · 06/03/2009, 13h20

D'où peut venir le problème ?

de moi peut-être

je t'ai dit d'utiliser la propriété Visible j'aurais peut être plutôt du dire Enabled (ceci sans certitude)

sinon tu peux toujours jouer un peu plus sur les propriétés des rectangles
par exemple et sans tester

if ExistOnTable(MyDBText10.Text) then
begin
MyRect10.Borderstyle:=psClear;
MyRect10.FillStyle:=fsClear;
end
else begin
MyRect10.BorderStyle:=psLine;
MyRect10.FillStyle:=fsSolid;
end;

[edit] Quoique en te relisant

, il laisse des rectangles visible alors qu'il ne faut pas et vice et versa

il suffit peut être de mettre

Code :

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

MyRect10.Visible:=Not (ExistOnTable(MyDBText10.Text));

**zemeilleurofgreg** · 06/03/2009, 22h49

il laisse des rectangles visible alors qu'il ne faut pas et vice et versa

oui... mais non ... enfin je veux dire que ce n'est pas systématique.
Exemple : j'ai plusieurs fois le chiffre 1 qui devrait être encadrer avec le rectangle mais le rectangle est visible sur une ligne et pas forcément sur une autre ligne ou alors un chiffre qui devrait être encadrer ne l'est pas. En fait je sais pas du tout ce qui ce passe !

Il s'agit d'un jeux de lotto pour lequel j'imprime la liste des joueurs et leurs numéros. Et tous les numéros qui ont été tirés précédement doivent être encadrer.

voici l'attache pour une petite ilustration :

**SergioMaster** · 07/03/2009, 09h37

Bon , déjà , pourquoi faire les tests sur mydbtextn et pas directement sur la donnée (là d'ailleurs il y a source d'erreur)

en admettant que myDbText1 soit lié à table1NUM1.value

cela réduit le test à :

MyRect1:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle1',Mypage));
MyRect1.Visible:=ExistOnTable(Table1NUM1.asString);

ensuite améliorons un peu, pour y voir plus clair

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 TfrmMain.RvDataSetConnection1ValidateRow(
  Connection: TRvCustomConnection; var ValidRow: BOOLEAN);
var
i : word;
Mypage : TRavePage;
MyRect   : TRaveRectangle;
begin
  MyPage:=TRavePage(rv1.ProjMan.FindRaveComponent('Joueurs.MainPage',nil));
for i:= 1 to 10 do  
 begin        MyRect:=TRaveRectangle(rv1.projman.findravecomponent('Rectangle'+inttostr(i),Mypage));
  MyRect.Visible:=ExistOnTable(Table1.FieldbyName('NUM'+inttostr(i)).asString);  // encore améliorable en passant i à Existontable au lieu de la valeur
 end; 
end;

Quel sera le résultat ?

**zemeilleurofgreg** · 07/03/2009, 16h58

Mais c'est bien sur, comment est-ce possible de ne pas y avoir pensé ?

Je me fixais sur la valeur du DataText alors que je pouvais accéder directement à la valeur en cours

Un super grand merci SergioMaster

Je clôture le sujet.

@+
Greg

**zemeilleurofgreg** · 07/03/2009, 18h35

J'ai encore juste 2 petites questions :

comment faire pour agrandir le preview en pleine page ?
comment faire pour permettre à l'utilisateur d'imprimer plusieurs fois (car même si je modifie la valeur "copies" dans la boite de dialoque, ça ne change rien, il n'imprime qu'une fois).

Merci

**SergioMaster** · 08/03/2009, 10h04

A ces deux questions je n'ai point de réponse.

Qu'entends tu par

comment faire pour agrandir le preview en pleine page ?

Si tu parles de l'écran de prévisualisation auquel cas la propriété FormState de systempreview du composant RvSystem doit faire l'affaire.
Si tu parles du moyen d'obtenir la page entière dans l'écran de prévisualisation je pencherai plutôt pour un calcul de ZoomFactor (toujours de SystemPreview) mais je doit avouer n'avoir jamais essayé

comment faire pour permettre à l'utilisateur d'imprimer plusieurs fois

Là aussi réponse de normand

si ta demande du nombre de copies est faite avant impression directe (pas de prévisualisation) il te faut changer la valeur Copies de SystemPrinter du composant RvSytem
au cours de la prévisualisation ou lors du lancement de l'impression , si tu as permis via les options du rvSytem (encore lui mais cette fois SytemOptions) de pouvoir modifier le setup (ceci dit pour simplifier) alors normalement tu obtiens un écran de confirmation d'impression. C'est dans celui-ci que tu changes le nombre de copies etc.. (ceci bien sur si tu le permets)

en bref rvSystem permets ou empêche beaucoup de choses prends en bien soin

**zemeilleurofgreg** · 08/03/2009, 12h27

en bref rvSystem permets ou empêche beaucoup de choses prends en bien soin

effectivement "rvSystem" permet plus de chose mais le problème c'est que j'utilise "rvProject" qui lui est plutôt limité.

Mais c'est pas bien grave car le plus important est opérationel.

**SergioMaster** · 08/03/2009, 12h58

je mets toujours les 2 (mon adjudant) , ça mange pas de pain, c'est plus efficace et c'est une bonne habitude surtout s'il faut par la suite faire des PDF ou autres

**zemeilleurofgreg** · 08/03/2009, 21h08

Envoyé par SergioMaster

je mets toujours les 2 (mon adjudant) , ça mange pas de pain, c'est plus efficace et c'est une bonne habitude surtout s'il faut par la suite faire des PDF ou autres

Les 2 ? comment c'est possible ?

**SergioMaster** · 09/03/2009, 09h31

Bien sur et c'est même recommandé par ton serviteur , c'est un peu comme un TTable et un TDataset , la carrosserie et le moteur et qu'en plus tu peux ajouter les options PDF,HTML,TEXT,RTF,WRITER.

j'arrête les analogies

Bref tu remarqueras que RvProject a une propriété Engine (d'où l'analogie) cet engine c'est le RvSytem

**zemeilleurofgreg** · 09/03/2009, 15h44

Envoyé par SergioMaster

Bien sur et c'est même recommandé par ton serviteur , c'est un peu comme un TTable et un TDataset , la carrosserie et le moteur et qu'en plus tu peux ajouter les options PDF,HTML,TEXT,RTF,WRITER.

j'arrête les analogies

Bref tu remarqueras que RvProject a une propriété Engine (d'où l'analogie) cet engine c'est le RvSytem

j'en ai un peu marre de te dire merci SergioMaster

Heureusement que tu es là !

Changer le font d'un DataText

Rave

Discussions similaires

Partager

Partager