Evenement Onclick sur TPaintBox, comportement limiter
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,
Code:
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); |
Affectation des fonction dans le create
Code:
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; |
Les methodes:
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
|
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 |
Merci de votre aide
marc_3