comment avoir differentes couleurs de caractere dans une cellule d'un StringGrid

A la suite de recherches sur le Net j'ai trouve une source Delphi qui permet d'avoir differentes couleurs sur la chaine de caractere qui s'affiche dans une cellule, ce n'est juste qu'un essai qui demande a etre complete

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { if (State.Contains(gdFocused)) { // decalage qui evite le chevauchement des caracteres const CharOffset = 8; // 1er lettre de couleur bleu StringGrid1->Canvas->Font->Color = clBlue; StringGrid1->Canvas->TextOutA(Rect.left + CharOffset, Rect.top + CharOffset, "C"); // 2em lettre de couleur rouge StringGrid1->Canvas->Font->Color = clRed; StringGrid1->Canvas->TextOutA(Rect.left + CharOffset + StringGrid1->Canvas->TextWidth("L"), Rect.top + CharOffset, "D"); // reste du texte de couleur verte StringGrid1->Canvas->Font->Color = clGreen; StringGrid1->Canvas->TextOutA(Rect.left + CharOffset + CharOffset + StringGrid1->Canvas->TextWidth("L"), Rect.top + CharOffset, "Essai"); } }

---

Salut !

On pourrait éventuellement aussi le penser comme ceci (chaque lettre a une couleur différente de ses voisines immédiates):

Code:

---

1 2	TColor Colors[MaxColors]= {...};

---

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

int j, x, y; AnsiString A = " "; Ansistring N = ...Strings[..]   y = (R.Top + R.Bottom - Canvas->TextHeight("W")) / 2;   x = ;// selon que...   for(j=1; j <= N->Length(); j++) { Canvas->Font->Color = Colors[(j-1) % MaxColors]; A[1] = N[j]; Canvas->TextOut(x,y, A); x = x + Canvas->TextWidth(A); }

---

En ce qui concerne le calcul de l'index de la couleur dans le tableau ou le calcul de la couleur elle-meme (via la macro RGB par exemple), il n'y a bien que l'imagination qui soit une limite à ce que l'on peut faire !

A plus !

Salut henderson
Merci pour ta reponse, voici comment j'ai teste ton code

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect, TGridDrawState State) { if (State.Contains(gdFocused)) { int MaxColors = 255; TColor Colors[5] = {RGB(50,50,50),RGB(100,100,100),RGB(150,150,150),RGB(200,200,200),RGB(250,250,250)}; int j; int x; int y; AnsiString A = " "; AnsiString N = "Chaine d'essai"; y = (Rect.top + Rect.bottom - StringGrid1->Canvas->TextHeight("W")) / 2; x = (Rect.left + StringGrid1->Canvas->TextWidth("W")); for(j = 1; j <= N.Length(); j++) { StringGrid1->Canvas->Font->Color = Colors[(j-1) % MaxColors]; A[1] = N[j]; StringGrid1->Canvas->TextOut(x,y, A); x = x + StringGrid1->Canvas->TextWidth(A); } } }

---

Je ne sais pas si l'ecriture de ces deux lignes est comme tu l'avais pense

Citation:

---

int MaxColors = 255;
TColor Colors[5] = {RGB(50,50,50),RGB(100,100,100),RGB(150,150,150),RGB(200,200,200),RGB(250,250,250)};

---

Salut !

Code:

---

1 2 3 4 5

//Pour fixer la dimension du tableau #define MaxColors 5   TColor Colors[MaxColors]= {...initialisation...};

---

On est donc dans un contexte où l'on impose (pour une compilation donnée) une règle : MaxColors ni plus ni moins !
Le modulo qui est appliqué dans la formule [ (j-1) % MaxColors ] sert à ne pas déborder du tableau.
Il est clair que si j > MaxColors alors on obtient un cycle dû à l'accès circulaire dans le tableau.

On peut envisager tout plein de solutions (entends par là plein d'effets).
Par exemple, on peut calculer les teintes sous forme d'une progression, du premier au dernier caractère sans utiliser de tableau et uniquement en travaillant avec RGB, en partant d'une teinte connue pour arriver à une autre teinte connue.
Ca fonctionne très bien (et facilement) dans un contexte à niveaux de Rouge, Vert, Bleu ou Gris...

MaxColors pourrait aussi valoir 26 ou 16 !

Et pour cette dernière valeur (donc un tableau de 16 teintes) :

Code:

---

1 2	Canvas->Font->Color = Colors[ A[1] & 0xF ];

---

A plus !

Salut !

Voici un modèle pour faire des dégradés :
Comme c'est un simple test, j'utilise une TPaintBox (256 * 17) pour faire écho.
Ici je fais un dégradé de couleur d'arrière plan avec un dégradé de couleur différent pour le texte.

Code:

---

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

class jRgb { public : Byte b; Byte g; Byte r; };   void __fastcall TForm1::PaintBox1Paint(TObject *Sender) { AnsiString N = "Hello...bla bla bla . That's all folks!"; int we = PaintBox1->Width; int he = PaintBox1->Height; Graphics::TBitmap *A = new Graphics::TBitmap; A->PixelFormat = pf24bit; A->Width = we; A->Height = he;   A->Canvas->Brush->Style = bsSolid; A->Canvas->Brush->Color = clBlack; A->Canvas->FillRect(Rect(0,0,we, he));   A->Canvas->Font->Style = A->Canvas->Font->Style << fsBold; int y = (he - A->Canvas->TextHeight(N)) / 2; int x = (we - A->Canvas->TextWidth(N)) / 2;   A->Canvas->Font->Color = (TColor)0xC0C040; A->Canvas->TextOut(x, y, N);   jRgb *P; for(y = 0; y < he; y++) { P = (jRgb*)A->ScanLine[y]; for(x = 0; x < we; x++) { P[x].b = (Byte)(P[x].b | x); P[x].g = (Byte)(P[x].g ^ x); P[x].r = (Byte)(P[x].r & x); } }   PaintBox1->Canvas->Draw(0, 0, A); delete A; }

---

La partie ...

Citation:

---

P[x].b = (Byte)(P[x].b | x);
P[x].g = (Byte)(P[x].g ^ x);
P[x].r = (Byte)(P[x].r & x);

---

... montre qu'il ne faut pas avoir peur de tester tout et n'importe quoi !


Si on veut seulement un dégradé de couleur dans le texte (sur fond blanc) :
- au niveau du bitmap on remplit avec du blanc et on écrit le texte en noir.
- on traite chaque pixel du texte en prenant, la encore, la précaution d'utiliser ScanLine pour une question de rapidité d'exécution :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14

for(y = 0; y < he; y++) { P = (jRgb*)A->ScanLine[y]; for(x = 0; x < we; x++) { if( (P[x].b + P[x].g + (P[x].r) == 0) // << si noir donc texte { P[x].b = (Byte)(P[x].b | x); P[x].g = (Byte)(P[x].g ^ x); P[x].r = (Byte)(P[x].r & x); } } }

---

Puis pour imiter un problème d'imprimante :

Code:

---

1 2 3 4

P[x].b = (Byte)(P[x].b | x); P[x].g = (Byte)((P[x].g ^ x) * y); P[x].r = (Byte)(P[x].r & x);

---

Sans oublier tous les algos de traitement d'image...
Bref !


Sinon pour le sujet qui était initialement proposé, à savoir :
- dessiner le premier caractère d'une chaîne avec une couleur
- puis le deuxième avec une deuxième couleur
- et le reste de la chaîne avec une troisième couleur
Il faudrait ajouter des tests, pour l'appliquer sur le contenu renvoyé par Cells :

Code:

---

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

int x ... int Y ... AnsiString A = " "; AnsiString N = ...->Cells[ACol][ARow]; int le = N.Length(); if(le >= 1) { A[1] = N[1]; Canvas->Font->Color = ...; Canvas->TextOut(x,y, A); x = x + Canvas->TextWidth(A); if(le >= 2) { A[1] = N[2]; Canvas->Font->Color = ...; Canvas->TextOut(x,y, A); x = x + Canvas->TextWidth(A); if(le >= 3) { Canvas->Font->Color = ...; Canvas->TextOut( x,y, N.SubString(3, le) ); } } }

---

A plus !