[lazarus] Lazarus CVS update

Nicolas Aragon nico at clubdelphi.com
Thu Apr 29 02:27:04 EDT 1999


Hello,

>Should we remove the tables from our forms or is this the only way to throw a button on a form and be able to move it around freely?  What is the NEED for the table?  I don't remember why we required it.

I suppose you walked the same road as me. 
There's a solution, though. The only problem is that this widget is
undocummented. At least in my gtk manual copy. Anyway it's not very
difficult to figure out what it does from the interface (gtkfixed.pp).

I do it this way:

procedure TGtkControl.InsertChildControl( Child: TGtkControl );
begin
  if Box = nil then begin
    Box := gtk_fixed_new();
    gtk_widget_show( Box );
    gtk_container_add( pGtkContainer( PWidget ), Box );
  end;
  gtk_fixed_put( pGtkFixed( Box ), 
                 Child.PWidget, 
                 Child.FLeft, 
                 Child.FTop );
end;

Obviously my TGtkControl has:

    PWidget: PGtkWidget;
    Box: PGtkWidget;
    FTop: Integer;
    FLeft: Integer;

Hope it helps :)

A question: is CVS public? I suppose I have a pretty old copy of your
sources. 

greetings

    Nico






More information about the Lazarus mailing list