paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-23 11:39:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

applied clipbrd patch from Vincent

Browse Source 
git-svn-id: trunk@3666 -
This commit is contained in:
mattias 2002-11-26 20:51:05 +00:00
parent 162fcd3364
commit b1d507eccf
2 changed files with 7 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lcl/interfaces/win32/win32callback.inc
View File

@ -111,13 +111,6 @@ Begin
UserData := Pointer(GetWindowLong(Window, GWL_USERDATA));
End;
End;
WM_CHANGECBCHAIN:
Begin
If OldClipboardViewer <> WParam Then
SendMessage(OldClipboardViewer, Msg, WParam, LParam)
Else
OldClipboardViewer := LParam;
End;
WM_CLOSE:
Begin
LMessage.Msg := LM_CLOSEQUERY;
@ -161,16 +154,11 @@ Begin
WM_DESTROY:
Begin
Assert(False, 'Trace:WindowProc - Got WM_DESTROY');
ChangeClipboardChain(Window, OldClipboardViewer);
For C := 0 To WndList.Count - 1 Do
EnumProps(HWND(WndList[C]), @PropEnumProc);
LMessage.Msg := LM_DESTROY;
PostQuitMessage(0);
End;
WM_DRAWCLIPBOARD:
Begin
SendMessage(OldClipboardViewer, Msg, 0, 0);
End;
WM_ENABLE:
Begin
If WParam <> 0 Then
@ -487,6 +475,9 @@ end;
{
$Log$
Revision 1.18 2002/11/26 20:51:05 mattias
applied clipbrd patch from Vincent
Revision 1.17 2002/11/23 13:48:48 mattias
added Timer patch from Vincent Snijders

5
lcl/interfaces/win32/win32winapi.inc
View File

@ -353,7 +353,7 @@ End;
------------------------------------------------------------------------------}
Function TWin32Object.CreateCaret(Handle: HWND; Bitmap: HBITMAP; Width, Height: Integer): Boolean;
Begin
Result := CreateCaret(Handle, Bitmap, Width, Height);
Result := Windows.CreateCaret(Handle, Bitmap, Width, Height);
Assert(False, 'Trace:TODO: [TWin32Object.CreateCaret] Finish');
End;
@ -2275,6 +2275,9 @@ end;
{ =============================================================================
$Log$
Revision 1.24 2002/11/26 20:51:05 mattias
applied clipbrd patch from Vincent
Revision 1.23 2002/11/26 17:48:18 mattias
patch from Martin Smat for uninitialised DCs