TSimpleGraph Paint problem

[rebusfrase]

First: Sorry for my English. I hope you undertand me!

This is my problem.
I've extended the TSimpleGraph, overridding the DrawBackground and painting on the canvas a picture... a simple calendar. It seems work well, but when i'm using my new component, on the mouseup event paint blank all background. I saw the proble is on the WMPaint procedure, but I cannot resolve it.
You can see the attachment

[rebusfrase]

See attachment for a simple code example.
Tanks.

[Kambiz]

I think if you add the following lines to your code, everything will work fine.

Code: Select all

Canvas.Pen.Width := 1;
Canvas.Pen.Mode := pmCopy;

[rebusfrase]

Great it works fine!
Thanks.