[lazarus] Bug Report Update

[domin]

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;

//  And I can see funny little blue square begining at (10,10) of the _Form_
//  BTW I'll try to download CVS again

-- 
Dominik Zablotny
,+°´°+,¸¸,+°´°+,¸¸,+°´°+,¸¸,+°´°+,¸¸,+°´°+,¸¸,+°´°+,¸,+°´°+,¸¸,+°´°+
...nigdy wolny, nigdy ja - wi&eogon;c nie b&eogon;d&eogon; pot&eogon;piony (c)metallica