[lazarus] Put Pixel

[Luis R. Hilario B.]

Shane Miller wrote:
> 
> Try
> 
> Canvas.Pixels[500,475] := clRed;
> 
> Shane

It does not work.  :(
FPC 1.0.x Windows

with Form1 do
begin
 Canvas.pen.style := psSolid;
 Canvas.pen.color := $FF0000; //clRed;
 Canvas.Line(0,0,150,150);
 Canvas.Pixels[151,151] := clRed; // Error
 end;

LM_SCREENINIT called --> should go to GTKObject.Init
TODO: check this

Gtk-CRITICAL **: file gtkobject.c: line 1080 (gtk_object_get_data):
assertion `GTK_IS_OBJECT (object)' failed.

Gdk-CRITICAL **: file gdkimage-win32.c: line 326 (gdk_image_get):
assertion `window != NULL' failed.

Gdk-CRITICAL **: file gdkimage-win32.c: line 594 (gdk_image_put_pixel):
assertion `image != NULL' failed.

Gtk-CRITICAL **: file gtkobject.c: line 1034 (gtk_object_set_data):
assertion `GTK_IS_OBJECT (object)' failed.

Gtk-CRITICAL **: file gtkobject.c: line 1080 (gtk_object_get_data):
assertion `GTK_IS_OBJECT (object)' failed.
An unhandled exception occurred at 0x00409E7F :
Access violation
  0x00409E7F
  0x0274FA0C

[TgtkObject.Destroy] WARNING: There are 12 unreleased DCs and 44
unreleased GDIObjects
[TgtkObject.Destroy] WARNING: There are 1 messages left in the queue!
I'll free them

-- 
 |--------------------------|
| Luis R. Hilario            |
| http://luisdigital.2y.net  |
 |--------------------------|