paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-20 06:01:34 +01:00
Code Issues Packages Projects Releases Wiki Activity

Qt: fix win32 problems with new clipboard workaround.

Browse Source 
git-svn-id: trunk@14313 -
This commit is contained in:
zeljko 2008-02-29 14:03:39 +00:00
parent 8d36f6dd13
commit 8d4d35c742
2 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtobject.inc
View File

@ -126,8 +126,10 @@ begin
end;
QtDefaultPrinter;
{$IFNDEF MSWINDOWS}
// initialize clipboard
ClipBoard;
{$ENDIF}
end;

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

@ -404,9 +404,11 @@ type
TQtClipboard = class(TQtObject)
private
{$IFNDEF MSWINDOWS}
FClipChanged: Boolean;
FClipCounter: Integer;
FClipDataChangedHook: QClipboard_hookH;
{$ENDIF}
FClipBoardFormats: TStringList;
FOnClipBoardRequest: TClipboardRequestEvent;
public
@ -2512,8 +2514,10 @@ end;
constructor TQtClipboard.Create;
begin
inherited Create;
{$IFNDEF MSWINDOWS}
FClipChanged := True;
FClipCounter := 0;
{$ENDIF}
FOnClipBoardRequest := nil;
FClipBoardFormats := TStringList.Create;
FClipBoardFormats.Add('foo'); // 0 is reserved
@ -2533,19 +2537,22 @@ var
Method: TMethod;
begin
inherited AttachEvents;
{$IFNDEF MSWINDOWS}
FClipDataChangedHook := QClipboard_hook_create(TheObject);
QClipboard_dataChanged_Event(Method) := @signalDataChanged;
QClipboard_hook_hook_dataChanged(FClipDataChangedHook, Method);
{$ENDIF}
end;
procedure TQtClipboard.signalDataChanged; cdecl;
begin
{$IFNDEF MSWINDOWS}
{$IFDEF VERBOSE_QT_CLIPBOARD}
writeln('signalDataChanged()');
{$ENDIF}
FClipChanged := True;
inc(FClipCounter);
{$ENDIF}
end;
function TQtClipboard.EventFilter(Sender: QObjectH; Event: QEventH): Boolean; cdecl;
@ -2555,6 +2562,9 @@ begin
if QEvent_type(Event) = QEventClipboard then
begin
{$IFDEF MSWINDOWS}
Result := True;
{$ELSE}
Result := FClipChanged;
{$IFDEF VERBOSE_QT_CLIPBOARD}
writeln('TQtClipboard.EventFilter() RESULT=',Result);
@ -2564,6 +2574,7 @@ begin
dec(FClipCounter);
FClipChanged := FClipCounter > 0;
{$ENDIF}
QEvent_accept(Event);
// Clipboard is changed, but we have no ability at moment to pass that info
@ -2651,7 +2662,9 @@ begin
try
Count := QStringList_size(QtList);
{$IFNDEF MSWINDOWS}
if Count > 0 then
{$ENDIF}
GetMem(List, Count * SizeOf(TClipboardFormat));
for i := 0 to Count - 1 do
@ -2714,7 +2727,9 @@ begin
when emptying the clipboard}
FOnClipBoardRequest := nil;
{Clipboard is cleared each time when setMimeData is called !}
// Clear(ClipbBoardTypeToQtClipboard[ClipBoardType]);
{$IFNDEF MSWINDOWS}
Clear(ClipbBoardTypeToQtClipboard[ClipBoardType]);
{$ENDIF}
FOnClipBoardRequest := OnRequestProc;
PutOnClipBoard;
Result := True;