Bonjour,
Encore une drole de chose qui m'arrive.
Je fais un programme qui dessine un graphe qui represente des espace memoires sous la forme d'une grille.
Chaque carre est une adresse d'une fonction de Hashing et quand on click sur un des carres on devrait afficher le contenu.
Mes fonctions ci-dessous marchent, mais de maniere limitees au carre de 100 par 100 pixels en haut a gauche de mon
TPaintBox.
Comment est-ce que je pourrai faire pour surmonter cela.
Les declaration de fonction et proc,
Affectation des fonction dans le create
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 { Private-Deklarationen } procedure set_coordinates_choosed_point(cX, cY : integer); { Public-Deklarationen } procedure PaintBoxClick(Sender:TObject); procedure PaintBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
Les methodes:
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 FPaintBoxMain := TPaintBox.Create (Self); FPaintBoxMain. Parent := Self; FPaintBoxMain. OnPaint := paint_box_main; FPaintBoxMain.OnClick := PaintBoxClick; // FPaintBoxMain.OnMouseDown := PaintBoxMouseDown; FPaintBoxMain.OnMouseMove := PaintBoxMouseMove;
Merci de votre aide
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 TGraphic_Hashtable.PaintBoxClick(Sender:TObject); begin set_coordinates_choosed_point(tmp_xCoord, tmp_yCoord); end; procedure TGraphic_Hashtable.PaintBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin tmp_xCoord := X; tmp_yCoord := Y; end; procedure TGraphic_Hashtable. set_coordinates_choosed_point(cX, cY : integer); begin xCoord_pointer := cX; yCoord_pointer := cY; PRJ_HFMain.Memo_word_from_HKey_set.Lines.Add('Coordonnees X et Y : ' + IntToStr(xCoord_pointer) + ', : ' + IntToStr(yCoord_pointer)) end; // set_coordinates_choosed_point
marc_3
Partager