Hachurer une case d'un StringGrid
Bonjour, je souhaiterais hachurer les cellules sélectionnées d'un StringGrid le soucis c'est que j'ai esasyé en changeant le style du Brush et j'obtient un fond noir.
Je m'explique: le code suivant hachure les cellules sélectionnées de la colonne 1 mais le trait est blanc est le fond de remplissage est noir.
Code:
1
2
3
4
5
6
7
8
9
10
11
|
if( ACol == 1 && ARow <= StringGrid->Selection.Bottom && ARow >= StringGrid->Selection.Top)
{ // Concerne la(les) cellule(s) sélectionnée(s).
StringGrid->Canvas->Brush->Color = clWhite;
StringGrid->Canvas->Pen->Color = clWhite;
StringGrid->Canvas->Pen->Style = psClear;
StringGrid->Canvas->Brush->Style = bsFDiagonal;
StringGrid->Canvas->FillRect(Rect);
StringGrid->Canvas->Brush->Style = bsSolid;
StringGrid->Canvas->Pen->Style = psSolid;
} |
Pour ceux qui me diront d'aller regarder dans la FAQ, j'ai déjà vu ce liens où il est expliqué comment personnaliser une StringGrid dont je me suis très largement inspiré.
mais ce genre de remplissage n'est pas effectué.
Merci pour vos idées, vos pistes ou tout autre indice qui pourrait corriger ce léger bug.
Un p'tit quadrillage ... ?
Bonsoir,
Un piste peut être :
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
|
void __fastcall TForm2::StringGrid1DrawCell(TObject *Sender, int ACol, int ARow,
TRect &Rect, TGridDrawState State)
{
//
TRect nRect;
nRect.Top = Rect.Top;
nRect.Bottom = Rect.Bottom;
nRect.Left = Rect.Left;
//
TRect hRect;
hRect.Left = Rect.Left;
hRect.Right = Rect.Right;
hRect.Top = Rect.Top;
if (ACol == 2 && ARow == 2)
{
//
int i = 6;
while (i < (Rect.Right - Rect.Left))
{
nRect.Right = Rect.Left + i;
DrawEdge(StringGrid1->Canvas->Handle, &nRect,EDGE_BUMP , BF_RIGHT );
i = i + 6;
}
//
i = 6;
while (i < (Rect.Bottom - Rect.Top))
{
hRect.Bottom = Rect.Top + i;
DrawEdge(StringGrid1->Canvas->Handle, &hRect,EDGE_BUMP , BF_BOTTOM );
i = i + 6;
}
//
}
} |
:koi:
Bon, c'est pas forcement 'génial' mais bon ...ça doit s'améliorer.
En espérant t'aider,
@ + ;)
