[Lazarus] new autosize - minmized ide window

Martin lazarus at mfriebe.de
Fri Apr 9 02:18:29 CEST 2010


On 09/04/2010 01:12, Mattias Gaertner wrote:
>> On Windows
>>
>> - open breakpoint window, and put on secondary monitor (away from
>> designed position)
>> - store the position as custom positon, in the enviroment/windows options
>> - minimize the breakpoint window
>>
>> - restart the IDE (that will close the window)
>> - now open the window (I tried with kbd shortcut)
>>
>> Result, =>  we need to put a warning on Lazarus for people who get
>> epileptic attacks.
>>
>> The window briefly shows (more a flicker) on it's designed pos
>> it minimizes
>> it shows on it's stored pos (other monitor) (flicker)
>> it minimizes
>>      
> Maybe it is this strange piece of code:
>
> procedure TCustomForm.SetRestoredBounds(ALeft, ATop, AWidth, AHeight: integer);
> var
>    prevWindowState: TWindowState;
> begin
>    // temporarily go to normal window state to store restored bounds
>    if (FRestoredLeft=ALeft) and (FRestoredTop=ATop)
>    and (FRestoredWidth=AWidth) and (FRestoredHeight=AHeight) then exit;
>    prevWindowState := WindowState;
>    WindowState := wsNormal;
>    SetBounds(ALeft, ATop, AWidth, AHeight);
>    WindowState := prevWindowState;
> end;
>    

In parts, it seems. I did set a breakpoint. Before this method is 
reached the breakpoint window was:
- shown on it's designed (as in the pos in the LFM) placed,
- and minimized from there.

Within this method, the Window, gets:
- restored to it's designed place
- moved to it's remembered place
- minimized from there

Martin








More information about the Lazarus mailing list