Discussion :

[Goundy]

Bonjour les gens ^^

J'ai un ptit souis bon je formule mon problème:

Enfait je fais un demineur, et donc j'dois permettre au user d'enumérer l'emplacement des mines grace au click droit de la souris.
Bon pour ce, j'exploite l'evenement: OnMouseDown, et donc je detecte si c'est un click droit ou gauche et je modifie la valeur d'un flag declaré en global. Alors le probleme c'est que j'utilise une stringGrid, et le click droit sur une cellule n'évoque pas l'evenement: OnDrawCell, et donc pour enumerer une mine le joueur est obliger de faire un click droit, ensuite un click Gauche pour marquer la mine.
Il n'y aurai pas une solution à ce problème?
Danke shon

[petitcoucou31]

Salut
Dans l'exemple si dessous , tu change la couleur de ta cellule soit avec un click droit ou gauche est ce cela que tu voulais faire !

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
 
procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var  ACol,ARow:Longint;
begin
    StringGrid1.MouseToCell(X,Y,ACol,ARow);
    if button=mbLeft then StringGrid1.cells[ACol,ARow]:='M';
    if button=mbright then StringGrid1.cells[ACol,ARow]:='V';
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
    with StringGrid1.Canvas do
    begin
        Brush.Color:=clwhite;
        if StringGrid1.cells[ACol,ARow]='M'then Brush.Color:=clred;
        if StringGrid1.cells[ACol,ARow]='V'then Brush.Color:=cllime;
        fillrect(rect);
    end;
end;

[Goundy]

Merci