Discussion :

[Revan012]

Bonjour,
j'ai crée une barre de style comme ce forum.
Et je veu que les styles (sur un click) s'appliques seulement au dbrichedit sur lequel j'ai séléctionné le text à mettre en forme.
Merci

[Xenon]

Salut

La section delphi serait plus aproprié que celle consernant les databases

Une solution consiste simplement a créer une forme dont les bordures sont cachés, et dont le contenu est une image en haut que tu change en fonction du focus et qui contient ton dbrichedit. Cette forme est colé dans ton application a la place de ton dbrichedit... bon j'espére que c'est bien expliqué j'ai des doutes ...

Le top est alors d'en faire un objet et de le mettre dans ta paletttes

@++

[Revan012]

Effectivement j'ai pas trop compris
Tu peu essayer d'etre plus clair s'il te plait :p
Je n'aurais pas du mette ce post ici en effet. Mais comme ca agi sur la base de donnée, j'ai pas fait gaffe et je l'ai mis ici :p
Cordialement

[Revan012]

Je vai essayer de moi aussi etre plus clair :
Voila mon code pour le moment:

Code :

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

1
2
3
4
5
6
 
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
DBRichEdit1.DataSource.Dataset.Edit;
dbrichedit1.SelText:='<u>'+dbrichedit1.SelText+'</u>';
end;

Et donc je me demander si je pouvai pas le transformer en un truc du genre:
selectedtext:='<u>'+selectedtext+'</u>'
Pour que ca s'applique a tous les champs editable au lieu d'un seul dbrichedit.
Merci.

PS: On peut faire passer le post dans un autre forum?

[Revan012]

J'ai résolu mon prob.
Pour ceux que ca interesse:
J'ai fait déclaré une variable en global (g) de type int.
ensuite j'ai fait ca:

Code :

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

1
2
3
4
5
6
7
8
9
10
 
procedure TForm1.DBRichEdit1Enter(Sender: TObject);
begin
g:=1;
end;
 
procedure TForm1.DBRichEdit2Enter(Sender: TObject);
begin
g:=2;
end;

ect.....

puis pour chaques composant qui met en forme:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure TForm1.Speedbutton2Click(Sender: TObject);
begin
TDbrichedit(findcomponent('dbrichedit'+inttostr(g))).DataSource.Dataset.Edit;
TDbrichedit(findcomponent('dbrichedit'+inttostr(g))).SelText:='<i>'+TDbrichedit(findcomponent('dbrichedit'+inttostr(g))).SelText+'</i>';
end;
 
procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
TDbrichedit(findcomponent('dbrichedit'+inttostr(g))).DataSource.Dataset.Edit;
TDbrichedit(findcomponent('dbrichedit'+inttostr(g))).SelText:='<u>'+TDbrichedit(findcomponent('dbrichedit'+inttostr(g))).SelText+'</u>';
end;

ect...

Ca marche, merci quand méme a ceux qui y ont réfléchi