BorlandTalk.com

Joe · Guest

Hello everybody
I have derived a custom paintobx from TPaintbox.
now i wish to paint a background bitmap so i have added a Background
(TPicture) property (linked with a fBackground private member) and put the
paint stuff into the Paint procedure (see below) and trying 2 solutions.

It seemed to works but in the test application i put a MyPaintbox object
inside a scrollbox and although the background is correctly displayed at
first, as soon as i scroll down or upwards the scrollbox's scrollbars the
background gets temporarily messed up until i call again the paint routine
(for example with Invalidate).

How could I solve in order to keep the bitmap, say, always perfecty
stretched inside the whole paintbox boundsrect even when scrolling down/up
the scrollbox's scrollbars?

thanks in advance for any help/tip about the above

Joe

---
procedure TMyPaintBox.Paint;
var Graphic: TGraphic;
R: TRect;

begin
Canvas.Lock;
try

{ draw background image }

if Background.Graphic <> nil then
begin
Graphic := Background.Graphic;
R := Canvas.ClipRect;
// solution 1
// Canvas.StretchDraw(R, Graphic);
// solution 2
Canvas.StretchDraw(BoundsRect, Graphic);
end;

{ do other paint stuff }

.....

finally
Canvas.UnLock;
end;

inherited;

end;

Peter Below (TeamB) · Guest

In article <43e0ef77 (AT) newsgroups (DOT) borland.com>, Joe wrote:

Joe · Guest

Thank you Peter
yes i agree, solution 1 was just a test
using your suggestion, ClientRect in place of BoundsRect works fine
yes the Align property is alNone
thanks again
Joe

"Peter Below (TeamB)" <100113.1101 (AT) compuXXserve (DOT) com> wrote: