[lazarus] TCanvas

Payne Thomas E CNIN payne_t at crane.navy.mil
Wed Jul 21 12:07:38 EDT 1999


I have been sticking with the examples under GTK, and have found some
problems with scribble-simple (section 23) that I belive are with the GDK
port to FPC.

I have placed debugging writes in pascal and printfs in C, and am getting
very different numbers.  

I was specifically looking at (PGdkEventExpose)Event^.area.height in the
expose_event function
& (PGdkEventMotion)Event^.state in motion_notify_event

I need some help beyond this point!!!

Tom

> -----Original Message-----
> From:	Shane Miller [SMTP:SMiller1 at stvgb.org]
> Sent:	Wednesday, July 21, 1999 9:37 AM
> To:	Lazarus at miraclec.com
> Subject:	[lazarus] TCanvas
> 
> 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(d
> ata^).Right,TRect(data^).Bottom);
> 
> gtk_widget_draw(child,data);
> end;
> 
> 
> Any thoughts?
> Shane
> 
> 
> _________________________________________________________________
>      To unsubscribe: mail lazarus-request at miraclec.com with
>                 "unsubscribe" as the Subject
>     archives at http://www.miraclec.com/list_archives/lazarus






More information about the Lazarus mailing list