Discussion :

[klair]

Bonjour à tous !

J'ai un petit problème...

Je suis en train de réaliser une interface graphique. Mais pour cela, j'ai besoin d'utiliser un tableau dynamique créé en mode console.
Je veux utiliser ce tableau dans un évenement d'une drawgrid (lorsque je clique dessus). Mais à chaque fois que je rappelle cette procédure (c'est à dire à chaque fois que je clique sur ma grid), tout ce que j'ai fait précédemment sur mon tableau dynamique n'est pas enregistré.

J'ai essayé de passer cette grille en paramètre dans la procédure d'évènement, mais cela ne fonctionne pas...

Si qqn à une solution...
Merci beaucoup d'avance.

[Rayek]

Si tu pouvais montrer ton code, il nous serait plus simple pour te répondre, car c'est un peu vague comme explication.

De plus je suis en rupture de stock de boule de crystal

[Clorish]

JE vois mal le principe de la combinaison appliaction Console/Graphque En genera lon opte soit pour l'un .. soit pour l'autre

[klair]

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
procedure TF_jeu.DG_jeuClick(Sender: TObject);
var
rect:trect;
code_console : T_code;



begin
    rect:=DG_jeu.CellRect(dg_jeu.col,Dg_jeu.row);
      // init de la grille console
   INIT_GRILLE_DEB(U_type.grille,strToInt(F_options.E_nombre.Text));

   gagnant := false;
   bloquee := false;


if nbre_joueur = 2
then // on joue à deux humains
 begin
   
  if ((U_type.gagnant = false) and (not U_type.bloquee) )
  then
  BEGIN
     // regarder si on a les deux paires ou les deux impaires
   if ( ((dg_jeu.col mod 2 = 0) and (DG_jeu.Row mod 2 =0 )) or ((dg_jeu.col mod 2 = 1) and (DG_jeu.Row mod 2 =1 )))
   then
     begin
     //  showmessage ('Case interdite');
     end
   else
     begin  // on trace et on change de joueur
       DG_jeu.Canvas.Brush.Color:=couleur_joueur;
       DG_jeu.Canvas.FillRect(rect);
       // ajout dans la matrice console
         CONV_GRAPH_TO_CONS(DG_jeu.row,DG_jeu.col,code_console.un,code_console.deux,code_console.trois,code_console.quatre);
         TRAIT_CONSOLE(joueur,code_console,U_type.grille);
         // verif si fin de partie
         FIN_PARTIE_A_DEUX(U_type.grille,code_console.un,code_console.deux,strToint(F_options.E_nombre.text),joueur,gagnant,F_options.E_joueur1.Text,F_options.E_joueur2.Text);
         // verif si grille bloquee
         GRILLE_BLOQUEE(U_type.grille,strtoInt(F_options.E_nombre.Text),joueur,U_type.bloquee);
       // on change de joueur
        if  L_joueur.Caption = F_options.E_joueur1.Text
        then // on passe au joueur 2
           begin
             // change le nom
             L_joueur.Caption:= F_options.E_joueur2.Text;
             //change couleur de jeu
             couleur_joueur := F_options.ColorBox_joueur2.Selected;
             //change couleur nom
             L_joueur.Font.Color := F_options.ColorBox_joueur2.Selected;
           end;

je ne sais pas trop comment poster mon code...
Dans les appels de procédures en rouge, je fais des modifications sur mon composant grille (qui est un tableau dynamique).

Et lorsque je rappelle la procedure TF_jeu.DG_jeuClick, c'est à dire lorsque je reclique sur ma DRAWGRID qui est mon plateau de jeu, les modifications réalisées sur la grille (tab dynamique) ne sont pas enregistrées...

Jsp que c'est un petit peu plus clair maintenant.

Merci beaucoup !!!

[Clorish]

Humm ... quand tu parle de console tu parles bien de la petite fenetre noire a bordure bleu ressemblant a du DOS ?

Dans ce cas, je comprends ma l'interet de melanger application console et interface graphique.
Je ne saurais trop te conseiller de basculer en tout graphique

[klair]

Euhmmm...
Il est vrai que je me suis peut être mal exprimée...

J'ai créé cet objet en console, mais en réalité je voulais juste dire que ce n'était pas un composant graphique... C'est un tableau dynamique déclaré "par moi-même"...

[Clorish]

ha oki

Donc si j'ai bien compris, tu n'as pas d'evenements lié aux actions sur ta grille cree dynamiquement ?
Tu as bie npensé a affecter l'evenement a sa variable ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
SG : TStringGrid.Create(Self);
[...]
Sg.OnClick := Self.SGClick;

avec bien sur dans ta classe :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Procedure SGClick(Sender : TObject);

de meme que pour tout autres evenements (attention les parametres changent !)

sinon pour poster le code :