[Lazarus] Minimal C bindings for Lazarus

[Felipe Monteiro de Carvalho]

I want to remember this Patch, its good and as i see the correct Way.
Why it is not applied ?

best regards
Christian Ulrich

Lukas Gradl schrieb:
> Some time ago I reported a problem with sending WM_COPYDATA-Messages 
> under windows:
> http://bugs.freepascal.org/view.php?id=9210
>
> As far as I could find the function WindowProc in win32callback.inc 
> eats up the message so it never reaches the MessageHandler defined in 
> the app.
>
> So I changed LCL\interfaces\win32\win32callback.inc
>
> This is the diff-File:
>
>
> Index: win32callback.inc
> ===================================================================
> --- win32callback.inc    (revision 13779)
> +++ win32callback.inc    (working copy)
> @@ -1141,6 +1141,13 @@
>    Assert(False, Format('Trace:WindowProc - Window Value: $%S-%d; Msg 
> Value: %S; WParam: $%S; LParam: $%S', [IntToHex(Window, 4), Window, 
> WM_To_String(Msg), IntToHex(WParam, sizeof(WParam)*4), 
> IntToHex(LParam, sizeof(LParam)*4)]));
>
>    case Msg of
> +      WM_COPYDATA: // passthrough of WM_COPYDATA-Messages
> +      begin
> +      LMessage.Msg := Msg;
> +      LMessage.WParam := WParam;
> +      LMessage.LParam := LParam;
> +      WinProcess := false;
> +      end;
>      WM_ACTIVATE:
>      begin
>        case LOWORD(WParam) Of
>
>
> regards
> Lukas
>
>