Re: [lazarus] Found serious bug in win32 interface #2

[Andrey Gusev]

* Luiz Americo Pereira Camara <[EMAIL PROTECTED]> [Thu, 31 Jan 2008 01:16:58 -0300]:

Andrey Gusev wrote:
> * Mattias G&#228;rtner <[EMAIL PROTECTED]> [Wed, 30 Jan 2008
> 18:45:57 +0100]:
>> Zitat von Andrey Gusev <[EMAIL PROTECTED]>:
>>
>> > --- interfaces/win32/win32callback.inc (revision 13905)
>> > +++ interfaces/win32/win32callback.inc (working copy)
>> >  @@ -504,7 +504,7 @@
>> > if (ControlDC = 0) or not needParentPaint then
>> >  begin
>> >  DCIndex := Windows.SaveDC(PaintMsg.DC);
>> >  - MoveWindowOrgEx(PaintMsg.DC, ORect.Left, ORect.Top);
>> > + MoveWindowOrgEx(PaintMsg.DC, -ORect.Left, -ORect.Top);
>> >  {$ifdef DEBUG_DOUBLEBUFFER}
>> >  Windows.GetClipBox(PaintMsg.DC, ClipBox);
>> > DebugLn('LCL Drawing in DC ', IntToHex(PaintMsg.DC, 8), '
>> > with
>> > clipping rect (',
>> >
>> > I can provide application that's confirm my rightfulness.

>> > But i don't wish to do it, until all child-control negative

effects

>> will
>> > debugged (by me), it need to LazReport designer functionality.
>> > If wished, try to place oversized TPaintBox on TScrollBox and try
it
>> to
>> > scroll (with above patch applied).
>>

>> It might improve the situation, but I guess it will not fix the

whole

>> problem.
>> See here:
>> http://wiki.lazarus.freepascal.org/Win32/64_Interface
>
> It was said, about intermeditate layer, earlier (by You).
> Also, it implementation started in win32wsfrorms, rudimentary state.

> But observed, with above correction, child controls scrolls

correctly,

> except
> page and line messages processing, which brings some negative shift,
> for childs.
> Undoubtedly, we can force to work existing variant, a few various
> methods can be invented
> (twice MoveWindowOrg for example).
> But pointed bug is nice explaination (and chance to eliminate) the
> strange opposite scrolling behaviour.
> see http://bugs.freepascal.org/view.php?id=10400,
> also observation, described in my #16900 reply,
> http://bugs.freepascal.org/view.php?id=10471,
> correspond to pointed bug presence.

Hi, do you have one or two small proof of concept LCL application that
shows the problem? (works in gtk fails in win32).
If you have please send me or post in the bugtracker/here.
I will take a look.

See attachement.

it implementations must be corrected, as i mean.

Form2 & Form3 demonstrates problems with tabbed controls, that brings by above patch,

ttt.TGZ
Description: GNU Unix tar archive