wile64 wrote:
2007/8/29, Luiz Americo Pereira Camara <[EMAIL PROTECTED]
<mailto:[EMAIL PROTECTED]>>:
wile64 wrote:
> example :
>
> FImagePaint is a TBitmap create with
> FImagePaint := TBitmap.Create;
Try to define the height and width of the bitmap
I repeat that all worked before the 27/08/2007, the size is well defined!
I'm just trying to help.
I isolated the problem.
The problem is that StretchMaskBlt is calling AlphaBlend and somehow
this is not working.
Below is an excerpt of a LCL program with a TPaintBox, if BitBlt is
called then works fine, StretchMaskBlt shows nothing:
var
FImagePaint: TBitmap;
begin
FImagePaint := TBitmap.Create;
FImagePaint.Width := PaintBox1.Width;
FImagePaint.Height := PaintBox1.Height;
with FImagePaint.Canvas do
begin
Brush.Color := clWhite;
Brush.Style := bsSolid;
Pen.Color := clBlack;
Rectangle(0, 0, FImagePaint.Width, FImagePaint.Height);
end;
with FImagePaint do
//BitBlt(PaintBox1.Canvas.Handle, 0 ,0, Width, Height,
Canvas.Handle, 0,0, SRCCOPY);
StretchMaskBlt(PaintBox1.Canvas.Handle, 0 ,0, Width, Height,
Canvas.Handle, 0,0,Width, Height,0,0,0,0);
FImagePaint.Free;
end;
Luiz
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
