wile64 wrote:
example :
FImagePaint is a TBitmap create with
FImagePaint := TBitmap.Create;
Try to define the height and width of the bitmap
Luiz
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]
<mailto:[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]
<mailto:[EMAIL PROTECTED]> with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
<http://www.lazarus.freepascal.org/mailarchives>
--
Laurent.
--------------------------------------------------------------------------------------------
My Web : http://wile64.neuf.fr/ <http://wile64.neuf.fr/>
French Forum : http://lazforum-fr.tuxfamily.org/index.php
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
