Thanks zeljko
If I look at qtobjects.pas it already appears to be implemented:
procedure TQtClipboard.signalDataChanged; cdecl;
begin
{$IFDEF VERBOSE_QT_CLIPBOARD}
writeln('signalDataChanged()');
{$ENDIF}
FClipChanged := IsClipboardChanged;
end;
But if I look at /usr/lib64/lazarus/lcl/clipbrd.pp I don't see the equivalent function there. If I understand you and the Lazaurs documentation correctly I need to implement a general function here and specific functions in each of the other widget sets, or can I do for just the one widget set?
That's because LCL does not have implementation for such event. I've implemented that signal just for future use and stop event from Qt (see my comments about it):
if QEvent_type(Event) = QEventClipboard then
begin
Result := FClipChanged;
// Clipboard is changed, but we have no ability at moment to pass that info
// to LCL since LCL has no support for that event
// so we are using signalDataChanged() to pass changes to Clipbrd.Clipboard
if FClipChanged then
FClipChanged := False;
QEvent_accept(Event);
end;