paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-03 10:38:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

(Qt): process Clipboard change event

Browse Source 
git-svn-id: trunk@11643 -
This commit is contained in:
paul 2007-07-27 07:56:08 +00:00
parent af0cbd09af
commit 02fbc366d2
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/interfaces/qt/qtobjects.pas
View File

@ -335,6 +335,8 @@ type
public
constructor Create;
destructor Destroy; override;
function EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl; override;
function Clipboard: QClipboardH; inline;
function getMimeData(AMode: QClipboardMode): QMimeDataH;
@ -1846,14 +1848,31 @@ begin
FClipBoardFormats := TStringList.Create;
FClipBoardFormats.Add('foo'); // 0 is reserved
TheObject := QApplication_clipBoard;
AttachEvents;
end;
destructor TQtClipboard.Destroy;
begin
DetachEvents;
FClipBoardFormats.Free;
inherited Destroy;
end;
function TQtClipboard.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
begin
Result := False;
if QEvent_type(Event) = QEventClipboard then
begin
Result := True;
QEvent_accept(Event);
// Clipboard is changed, but we have no ability at moment to pass that info
// to LCL since LCL has no support for that event
end;
end;
function TQtClipboard.Clipboard: QClipboardH;
begin
Result := QClipboardH(TheObject);