Re: OpenPictureDialog Problems

"J French" <erewhon@xxxxxxxxxx> wrote in message
news:42e76916.12013113@xxxxxxxxxxxxxxxxxxxxxxx
> On 27 Jul 2005 01:25:28 -0700, "alanglloyd@xxxxxxx"
> <alanglloyd@xxxxxxx> wrote:
> >begin
> > if Sender is TManyShape then
> > begin
> > fCurrentShape :=TManyShape(Sender);
> > FCurrentShape.Invalidate;
> > if ssRight in Shift then
> > TManyShape(Sender).Tag := RIGHT_BUTTON_DOWN
> FCurrentShape.Tag := RIGHT_BUTTON_DOWN
>
> Surely that is more consistent <smirk>

Both of you are right, of course but I was trying to use as much of
the original code as possible so as not to cloud my main poinr; the
need to set a reference to the last shape object clicked on.

You should be now able to see from my later post that my recommended
version uses the hard typecast and reuses the fCurrentShape variable.

--
Henry Bartlett
Delphi Links Page:
( http://www.hotkey.net.au/~hambar/habit/delflink.htm )



.

Quantcast