VoyForums

[ Login ] [ Contact Forum Admin ] [ Main index ] [ Post a new message ] [ Search | Check update time | Archives: 1, 2, 3, 4, [5], 6, 7, 8, 9, 10 ]

[ Next Thread | Previous Thread | Next Message | Previous Message ]

Date Posted: 06:31:06 09/16/02 Mon
Author: Michel
Subject: Re: OnClick Problem
In reply to: Alfred 's message, "Re: OnClick Problem" on 11:17:39 09/15/02 Sun


Hi Alfred,

Yes, this is tricky. I looked at the code and this section
has previously been commented out in TImageScrollBox.Create:

{ MB Jun 16, 2000. These don't seem to be necessary. For the moment
they are commented out, to check for possible side effects
Self.OnMouseDown := Self.ImageMouseDown;
Self.OnMouseMove := Self.ImageMouseMove;
Self.OnMouseUp := Self.ImageMouseUp;
}

Currently the image scroll box only traps the mouse events on the image. Try uncommenting these lines and let me know if this works for you.

Best regards,

Michel
>Other problem: if the image doesn't completely cover
>the ImageScrollBox, when I click on the image, the
>click goes through; but when I click on the exposed
>areas of the ISB all I get is the bar sinister cursor.
>
>How do you insure the click goes through?
>
>This is the code for setting my MouseHandler:
>
> isb1.MouseMode := mmUser;
> isb1.MouseHandler :=
>TPhotonikaMouseHandler.Create(isb1);
>
>And this is the MouseHandler:
>
>procedure TPhotonikaMouseHandler.MouseDown(const
>Button: TMouseButton;
> const Shift: TShiftState; const X, Y: Integer);
>var
> ftn: TfrmThumbs;
>begin
> inherited;
> ftn := TfrmThumbs(FImageScrollBox.Parent.Parent);
> ftn.panel1Click(ftn);
>end;
>
>Thanks,
>- Alfred

[ Next Thread | Previous Thread | Next Message | Previous Message ]
[ Contact Forum Admin ]

Forum timezone: GMT-5
VF Version: 3.00b, ConfDB:
Before posting please read our privacy policy.
VoyForums(tm) is a Free Service from Voyager Info-Systems.
Copyright © 1998-2019 Voyager Info-Systems. All Rights Reserved.