Rubber band program problem
Posted on 2003-03-05
I am trying to rubberband a scanned document. I have problem trying to rubberband it while on mouseMove event.
This is the code I wrote:
Image.Canvas.Pen.Style := PsDash;
Image.Canvas.Brush.Style := bsClear;
Image.Canvas.Rectangle(StartX, StartY, X, Y);
When I run this program, there is alot of rectangles forming on the image. However, if i use
Image.Canvas.Brush.Color := ClNone;
I could not see the text that is being rubberbanded. So can any body help me?
The rubberbanded area will be used for other function. The main aim is the select the required portion of the document. However, If I zoom in the document (to make it look bigger) I could not successfully crop out the required portion. So can anybody help me in this?