Ok, I already found many things.
To start with, that SetSlot implementation I pointed you at, from
TButton was very wrong and old.
This is what all SetSlots events should look like:
class procedure TQtWSCustomListBox.SetSlots(const QtListWidget: TQtListWidget);
var
Method: TMethod;
Hook : QObject_hookH;
begin
// Various Events
Hook := QObject_hook_create(QtListWidget.Widget);
TEventFilterMethod(Method) := QtListWidget.EventFilter;
QObject_hook_hook_events(Hook, Method);
end;
This will ensure all events are connected, not only one.
I already fixed the events for both TButton and TListWidget.
Also, the way OnChangeEvent was implemented for TMemo is wrong. It
will override all other events, and only allow OnChangeEvent, and show
it for any event.
I will try to implement it correctly.
--
Felipe Monteiro de Carvalho
_________________________________________________________________
To unsubscribe: mail [EMAIL PROTECTED] with
"unsubscribe" as the Subject
archives at http://www.lazarus.freepascal.org/mailarchives
