[lazarus] TCanvas

[Shane Miller]

OK, I changed my fillrect procedure to do the following, but it still doesn't show up!....

Procedure TgtkObject.DrawFillrect(Child,Data : Pointer);
var
fWindoew : pgdkWindow;
gc: pgdkGC;
R : TRect;
begin
fWindow := pgtkEidget(Child)^.Window;

gc := gdk_gc_new(pgdkWindow(fWindow));
gdk_draw_rectangle(fWindow,gc,1,TRect(data^).Left,TRect(data^).Top,TRect(data^).Right,TRect(data^).Bottom);

gtk_widget_draw(child,data);
end;


Any thoughts?
Shane