A voir également:
- StringGrid - Cellule multi couleur
- Mettez automatiquement votre texte en multi couleur - Codes sources - IRC (AddOns)
- Visual Basic / VB.NET : Gdi+multidégradé (dégradé multi-couleurs sur du - Guide
- Delphi / Pascal : Mettre des cellules en couleurs dans un tlistview (style= vsreport) - CodeS Source - Guide
- Comment additionner les cellules de couleur bleu et contenant une valeur monétai ✓ - Forum - Visual Basic 6
- Excel Vb nombre de cellule en couleur ✓ - Forum - Visual Basic
2 réponses
florenth
- Messages postés
- 1023
- Date d'inscription
- dimanche 1 août 2004
- Statut
- Membre
- Dernière intervention
- 17 août 2008
En effet, tu vas devoir dessienr chaque caractère un par un.
Voila une procédure similaire à ce que tu veux faire, tu n'as qu'a modifier le code de choix de la couleur par celui qui convient pour ton code.
A mettre dans le OnDrawCell:
<hr size= "2" width="100%" /> procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
var
X, Y, I: Integer;
S: string;
begin
{>> Initialisation }
S : = SG.Cells[ACol, ARow];
Y := Rect.Top + 2;
X := Rect.Left + 2;
SG.Canvas.FillRect(Rect);
{>> Ecriture }
for I : = 1 to Length(S) do
begin
{>> Choix de la couleur: ici les caractères d'indice impair sont rouges,
les autres sont noirs }
if Odd(I) then
SG.Canvas.Font.Color := clRed
else
SG.Canvas.Font.Color : = clBlack;
{>> Dessin du caractère }
SG.Canvas.TextOut(X, Y, S[I]);
{>> Décalage du début }
Inc(X, SG.Canvas.TextWidth(S[I]));
end;
end;
<hr size="2" width="100%" />
A++
Flo
Voila une procédure similaire à ce que tu veux faire, tu n'as qu'a modifier le code de choix de la couleur par celui qui convient pour ton code.
A mettre dans le OnDrawCell:
<hr size= "2" width="100%" /> procedure TForm1.SGDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
var
X, Y, I: Integer;
S: string;
begin
{>> Initialisation }
S : = SG.Cells[ACol, ARow];
Y := Rect.Top + 2;
X := Rect.Left + 2;
SG.Canvas.FillRect(Rect);
{>> Ecriture }
for I : = 1 to Length(S) do
begin
{>> Choix de la couleur: ici les caractères d'indice impair sont rouges,
les autres sont noirs }
if Odd(I) then
SG.Canvas.Font.Color := clRed
else
SG.Canvas.Font.Color : = clBlack;
{>> Dessin du caractère }
SG.Canvas.TextOut(X, Y, S[I]);
{>> Décalage du début }
Inc(X, SG.Canvas.TextWidth(S[I]));
end;
end;
<hr size="2" width="100%" />
A++
Flo
sp40
- Messages postés
- 1284
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2015
Salut,
Je pense qu'il va falloir trouver autre chose... car ça va pas être
simple de gérer des couleurs différentes pour chacun des caractères.
Si tu y tiens vraiment, regardes du côté du Canvas.Pen.Color,
Canvas.TextOut, et le tout en récupérant les Rect des cellules dans
lesquelles tu veux écrire...
Attention, j'ai remarqué que les écritures ou dessins dans les grilles
sont gourmandes. Sur les machines lentes, ça risque de scintiller...
Simon
Je pense qu'il va falloir trouver autre chose... car ça va pas être
simple de gérer des couleurs différentes pour chacun des caractères.
Si tu y tiens vraiment, regardes du côté du Canvas.Pen.Color,
Canvas.TextOut, et le tout en récupérant les Rect des cellules dans
lesquelles tu veux écrire...
Attention, j'ai remarqué que les écritures ou dessins dans les grilles
sont gourmandes. Sur les machines lentes, ça risque de scintiller...
Simon