Discussion :

[Souraya19]

Bonjour, j'espère que vous allez bien

Je suis en train de coder un Puissance 4 sous Lazarus à l'aide d'un StringGrid. J'ai déjà mon jeu, tout marche. Mais pour le design c'est bof. Je voulais savoir s'il est possible d'afficher une couleur lorsqu'on survole une cellulle de mon StringGrid, ou bien de rendre la case un peu différente des autres cases pour permettre à l'utilisateur de voir où il est ? Si oui comment ?
Aussi pour l'exécution d'un bouton est il possible d'y mettre un temps d'exécution (par exemple je veux que le code de mon bouton s'exécute après 3 sec). Si oui comment ?

Merci

[wheel]

Je suis entrain de coder un puissance 4 sous lazarus à l'aide d'un stringgrid. J'ai déjà mon jeu tout marche. Mais pour le design c'est bof. Je voulait savoir s'il est possible d'afficher une couleur lorsuqu'on survole une cellulle de mon stringgrid ou bien de rendre la case un peu different des autre cases pour permettre à l'utilisateur de voir où il est?.

L'évènement OnDrawCell dans StringGrid permet de personnaliser le dessin de la cellule selon le besoin .. l'exemple suivant montre comment changer la couleur de la cellule lorsque le curseur passe au-dessus ... j'ai ajouté StringGrid1.Invalidate dans OnMouseMouve pour déclencher l’opération de dessin et mettre à jour le StringGrid .

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
22
23
24
procedure TForm1.StringGrid1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  StringGrid1.Invalidate;
end;
 
procedure TForm1.StringGrid1DrawCell(Sender: TObject; aCol, aRow: Integer;
  aRect: TRect; aState: TGridDrawState);
var
   Pt:TPoint;
begin
    if aState*[gdFixed,gdSelected]=[] then
    begin
      Pt:=StringGrid1.ScreenToClient(Mouse.CursorPos);
      if PtInRect(aRect,Pt) then
      begin
         StringGrid1.Canvas.Brush.Color:=clYellow;
         StringGrid1.DefaultDrawCell( aCol, aRow, aRect,aState);
         StringGrid1.Canvas.Brush.Color:=StringGrid1.Color;
         Exit;
      end;
    end;
    StringGrid1.DefaultDrawCell( aCol, aRow, aRect,aState);
end;

Aussi pour l'execution d'un bouton est il possible d'y mettre un temps d'execution( par exemple je veux que le code de mon bouton s'execute après 3sec). Si oui comment?.

A l'aide d'un Timer vous pouvez réaliser cette opération ..
Placer un Timer sur la fiche mettez Enabled à False
Mettez le code de l'opération dans OnTimer (le code devrait commencer pas Timer1.Enabled=false pour désactiver le Timer)

Pour lancer l’opération il suffit de mettre Timer1.Enabled:=True