Board index » delphi » Canvas Rectangle not working

Chris Glavin

Delphi Developer
Mon, 27 Sep 2004 21:44:55 GMT

Canvas Rectangle not working

Hello,

This is how I draw a border around an image:
Image1.canvas.Brush.Style:=bsClear;
Image1.canvas.rectangle(0,0,image1.width,image1.height);

which works fine until the image1.picture has a picture, then it
only draws the top and left lines of the border and fails to draw
the bottom and right side. Is this a known bug? Thanks.

 
Jon Lennart Ber

Delphi Developer
Tue, 28 Sep 2004 02:11:48 GMT

Re:Canvas Rectangle not working


:) You have to take the picture width & height into account...

Example:

(After picture is inserted)

MyRect:=Rect(0,0,picture.graphic.width,picture.graphic.height);

Jon Lennart Berg

Chris Glavin <cavema...@hotmail.com> skrev i
meldingsnyheter:3cb59357_2@dnews...

Quote

> Hello,

> This is how I draw a border around an image:
> Image1.canvas.Brush.Style:=bsClear;
> Image1.canvas.rectangle(0,0,image1.width,image1.height);

> which works fine until the image1.picture has a picture, then it
> only draws the top and left lines of the border and fails to draw
> the bottom and right side. Is this a known bug? Thanks.

Chris Glavi

Delphi Developer
Tue, 28 Sep 2004 02:31:00 GMT

Re:Canvas Rectangle not working


That was it! Thank you!!!

"Jon Lennart Berg" <jon...@c2i.net> wrote:

Quote
>:) You have to take the picture width & height into account...

>Example:

>(After picture is inserted)

>MyRect:=Rect(0,0,picture.graphic.width,picture.graphic.height);

>Jon Lennart Berg

Andrew Rybenko

Delphi Developer
Tue, 28 Sep 2004 03:05:38 GMT

Re:Canvas Rectangle not working


Quote
> Image1.canvas.rectangle(0,0,image1.width,image1.height);

try
Image1.canvas.rectangle(0,0,image1.width-1,image1.height-1);

--
Andrew Rybenkov.

  ImageList utility
  "Imagizer: Click and Get It" available as
  beta-version at
  http://www.geocities.com/arybenkov/imagizer/

John of Ai

Delphi Developer
Tue, 28 Sep 2004 02:16:45 GMT

Re:Canvas Rectangle not working


"Chris Glavin" <cavema...@hotmail.com> a crit dans le message news:
3cb59357_2@dnews...

Quote

> Hello,

> This is how I draw a border around an image:
> Image1.canvas.Brush.Style:=bsClear;
> Image1.canvas.rectangle(0,0,image1.width,image1.height);

> which works fine until the image1.picture has a picture, then it
> only draws the top and left lines of the border and fails to draw
> the bottom and right side. Is this a known bug? Thanks.

Works for me in Delphi 4 if I draw the border either with a picture present
at designtime or if I load it at later.
Chris Glavi

Delphi Developer
Tue, 28 Sep 2004 07:31:54 GMT

Re:Canvas Rectangle not working


Of course, you would think that would work, but it doesn't.

Quote
"Andrew Rybenkov" <aryben...@hotmail.com> wrote:
>> Image1.canvas.rectangle(0,0,image1.width,image1.height);

>try
>Image1.canvas.rectangle(0,0,image1.width-1,image1.height-1);

Other Threads

1. printer.canvas.rectangle not working on NT

2. Laser Printer will not work with printer.canvas

3. FloodFill does not work with TPrinter.Canvas!

4. Printer.Canvas.FloodFill does not work.

5. hot to set printer.canvas rectangle ??

6. Canvas.Rectangle

7. Rectangle Canvas problem

8. canvas.rectangle

9. TextOut on printer canvas creates black rectangles

10. PaintBox.Canvas.Rectangle