[lazarus] Latest source is attached.

Shane Miller SMiller1 at stvgb.org
Fri Jul 2 16:51:58 EDT 1999


Again, I appologize for attaching source.  I don't want to update CVS with it quite yet though.  This version is a bit further in my Multi-Platform/tools theory.

If you look at this, look at Controls.pp and look at the resize, createcomponent, and SETTEXT methods.  
Here you will find examples of my theory on using INTSENDMESSAGE and INTSENDMESSAGE2 which are found in gtkint.pp.  The theory is whatever is defines (QT or GTK) interfaces.pp will create a class with procedures like INTSENDMESSAGE that can be used to create the components.

Eventually all the GTK code will be removed from TFORMS, TCONTROLS, etc and the only gtk stuff will be in gtkint.pp.

My current hold up is resizing.  If you specify a Left, Top, Width or Height TControls (in resize) calls InterfaceObject.IntSendMessage2(message,parent,child,record of 4 values);

In gtkint the size is set.  If it's a form I want to look through gtkfixed children list and see what controls are attached to that form and send a message to resize them.

I just can't come up with a good way to do that....

Please look at the source and give me your thoughts on the theory..

Shane



-------------- next part --------------
A non-text attachment was scrubbed...
Name: zip00007.zip
Type: application/octet-stream
Size: 50139 bytes
Desc: "PKZIP (compressed) files"
Url : http://localhost/pipermail/lazarus/attachments/19990702/7db78abb/zip00007.obj


More information about the Lazarus mailing list