Re: Second time(this time plain text): How to make rectangle around the image when selected...
Shahab-o-ddin Mokhtari <[email protected]>
| Newsgroups | gmane.comp.lang.delphi.programming |
|---|---|
| Message-ID | <[email protected]> |
Hi Feba (and other members) I was wrote an application for you. I will attach this to mail but I'm not sure that yahoo attach this for all group members, so if you (or any one else !) want this, just mail me ! Thnx a lot Shahab Feba Februarcic <[email protected]> wrote: Hi to all members, I mailed this question once, but in Color&Graphic format with graphic in it. So this time only plain text. The questions are 1)How to make a rectangle around the image (It is not necesary, because in Delphi when working in Design time when the component is selected, Delphi puts dots around the component, without the lines, with posibiliti of changing width and height of the component, wich is exactly what I need to do too, but only at runtime) 2)with sensitive dots for the cursor ( this is OBLIGATORY) 3)with changing the cursor style standing over the dots, at runtime? Well, I thought that rectangle shows when the image is clicked, and it will represent that the image is selected. All that will be hapening on Event_Image_OnClick, but .... I found the property StartX:=Image.Left; StartY:=Image.Top; X:=Image.Left+Image.Width; Y:=Image.Top+Image.Height; Image1.Canvas.Rectangle(StartX,StartY, X, Y); // relative to a parent If the Image1.Loads the JPG image this is not working, and for the BMP formats, , as I have understood, this drows rectangle inside the picture, wich I don't need. So how can I perform this? And of course to erase this "frame" when the image loose focus. Maybe I am on the wrong track.... Thanks in advance, Milica Sincerely Yours Shahab-o-ddin Mokhtari [http://Ceramic81.150m.com] [[email protected]] [http://ShahabM.8m.com] --------------------------------- Do you Yahoo!? SBC Yahoo! DSL - Now only $29.95 per month! [Non-text portions of this message have been removed] ------------------------ Yahoo! Groups Sponsor ---------------------~--> Save up to 80% on top-quality inkjet cartridges and get your order fast! FREE shipping on orders $50 or more to the US & Canada. Shop at Myinks.com! http://www.c1tracking.com/l.asp?cid=5511 http://us.click.yahoo.com/v2G7ND/KfUGAA/ySSFAA/i7folB/TM ---------------------------------------------------------------------~-> Delphi Tips & Tutorials... http://www.delphicollection.com --------------------------------------------------------------- Unsubscribe:[email protected] List owner:[email protected] --------------------------------------------------------------- Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/