Hi, ive got an image box in which ive drawn various shapes free hand using elipse and square, is there any way in which i can give each of them a floating hint or isnt this possible since they cant be referenced? Thanks...

: Hi, ive got an image box in which ive drawn various shapes free hand using elipse and square, is there any way in which i can give each of them a floating hint or isnt this possible since they cant be referenced? Thanks...
:
:
You need to set the image box's Hint property in the OnMouseMove() event, as the mouse moves over one of the shapes. This should give you hints based on the shape the mouse is over.

Thanks, ive attempted to do that but i get the same hint wherever i go on the image.. Heres the code im using:

procedure TfrmTarget.Image2MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
begin
image2.ShowHint := true;
image2.Hint := 'Square';
end;

: : Hi, ive got an image box in which ive drawn various shapes free hand using elipse and square, is there any way in which i can give each of them a floating hint or isnt this possible since they cant be referenced? Thanks...
: :
: :
: You need to set the image box's Hint property in the OnMouseMove() event, as the mouse moves over one of the shapes. This should give you hints based on the shape the mouse is over.
:

This message was edited by zibadian at 2003-9-3 4:9:17

---

This code will always give you a 'square' as hint. Here is a sample which should give you two different hints:

procedure TfrmTarget.Image2MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  if X > Image2.Width div 2 then
    image2.Hint := 'Square'
  else
    image2.Hint := 'Circle'
end;

: Thanks, ive attempted to do that but i get the same hint wherever i go on the image.. Heres the code im using:
:
: procedure TfrmTarget.Image2MouseMove(Sender: TObject; Shift: TShiftState;
: X, Y: Integer);
: begin
: image2.ShowHint := true;
: image2.Hint := 'Square';
: end;
:
: : : Hi, ive got an image box in which ive drawn various shapes free hand using elipse and square, is there any way in which i can give each of them a floating hint or isnt this possible since they cant be referenced? Thanks...
: : :
: : :
: : You need to set the image box's Hint property in the OnMouseMove() event, as the mouse moves over one of the shapes. This should give you hints based on the shape the mouse is over.
: :
:
:

Thanks, that helps a lot.

: This message was edited by zibadian at 2003-9-3 4:9:17

---

: This code will always give you a 'square' as hint. Here is a sample which should give you two different hints:
:

: procedure TfrmTarget.Image2MouseMove(Sender: TObject; Shift: TShiftState;
:   X, Y: Integer);
: begin
:   if X > Image2.Width div 2 then
:     image2.Hint := 'Square'
:   else
:     image2.Hint := 'Circle'
: end;
: 
: 

: : Thanks, ive attempted to do that but i get the same hint wherever i go on the image.. Heres the code im using:
: :
: : procedure TfrmTarget.Image2MouseMove(Sender: TObject; Shift: TShiftState;
: : X, Y: Integer);
: : begin
: : image2.ShowHint := true;
: : image2.Hint := 'Square';
: : end;
: :
: : : : Hi, ive got an image box in which ive drawn various shapes free hand using elipse and square, is there any way in which i can give each of them a floating hint or isnt this possible since they cant be referenced? Thanks...
: : : :
: : : :
: : : You need to set the image box's Hint property in the OnMouseMove() event, as the mouse moves over one of the shapes. This should give you hints based on the shape the mouse is over.
: : :
: :
: :
:
:
:
: