example :
FImagePaint is a TBitmap create with
FImagePaint := TBitmap.Create;
with FImagePaint.Canvas do
begin
Brush.Color := BackColor;
Brush.Style := bsSolid;
Pen.Color := clGray;
Rectangle(0, 0, self.Width, self.Height);
end;
and paint a form with Canvas.Draw(0, 0, FImagePaint);
Thanks,
2007/8/28, Luiz Americo Pereira Camara <[EMAIL PROTECTED]>:
>
> Marc Weustink wrote:
> > wile64 wrote:
> >> Hello,
> >>
> >> I create an bitmap and draw with functions RoundRect, Rectangle,
> >> FillRect, TextRect, Ellipse, CopyRect.
> >>
> >> After install snapshot Lazarus-0.9.23-fpc-2.0.4-20070827 dont work in
> >> win32, work in gtk and gtk2.
> >> with Lazarus-0.9.23-fpc-2.0.4-20070809 work ok...
> >
> > :(
> > This might be caused by the fix for 9501. I knew the original code
> > fixed something, ANyway I'll have a look.
>
> I dont think the problem is with the fix, unless if he is calling
> CreateBitmap directly (probably he is using TBitmap). An example is
> welcome.
>
> WidgetSet.CreateBitmap, which was changed, is not used in LCL and
> TBitmap uses RawImage functions that in your time uses CreateDIBSection
>
> Probably related to bug 9512
>
> Luiz
>
> _________________________________________________________________
> To unsubscribe: mail [EMAIL PROTECTED] with
> "unsubscribe" as the Subject
> archives at http://www.lazarus.freepascal.org/mailarchives
>
--
Laurent.
--------------------------------------------------------------------------------------------
My Web : http://wile64.neuf.fr/
French Forum : http://lazforum-fr.tuxfamily.org/index.php
