[lazarus] Bug Report Update

[Mattias Gaertner]

On Mon, 16 Jun 2003 20:38:50 +0200
Mattias Gaertner <nc-gaertnma at netcologne.de> wrote:

> On Mon, 16 Jun 2003 20:16:24 +0200
> domin <dominz at wp.pl> wrote:
> 
> > Dnia pon 16. czerwca 2003 19:42, Mattias Gaertner napisa__:
> > 
> > > TCanvas in cancas.inc uses the Get/SetPixel functions of the
> > > gtk-interface. Can you send me an example, where it does not work?
> > 
> > New Project, one button,  one TPaintBox (left,top<>0) + simple code:
> > 
> > procedure TForm1.Button1Click(Sender: TObject);
> > var i,j: integer;
> > begin
> >   for i := 10 to 20 do
> >     for j := 10 to 20 do
> >        PaintBox1.Canvas.Pixels[i, j] := clBlue;
> > end;
> 
> Still works for me. Blue square in the paintbox.


Sorry. Forget my nonsense. I didn't saw the

> > procedure TForm1.Button1Click(Sender: TObject);

You are right. This does not work. This is not yet implemented.
Please use always 'Invalidate' and draw in the 'OnPaint' event. It will make
your applications smoother. This has nothing to do with LCL, this is true
for all event based GUIs. Especially if you use the very slow Get/SetPixel
functions.


Mattias