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

Martin

Yes, I one see a ghosted white spot on it's designed pos. No flicker (screen updates arent that fast remote)

it minimizes

Nope (usually my wm minimizes a lot (unnecessary) but not now)

it shows on it's stored pos (other monitor) (flicker)

No flicker

it minimizes

No it stays visible

Marc

My fault: it should be "restore window geometry" => so it remembers the window was minimized

see above note....

Martin

Maybe the win32 interface creates visible handles? It should not. It should show the handles when the LCL tells it to show them.

Mattias

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;

Mattias

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

Mattias Gaertner wrote

Maybe the win32 interface creates visible handles? It should not. It should show the handles when the LCL tells it to show them.

No. Handles must be created visible if this is requested by passed CreateParams structure.

Best regards,
Paul Ishenin.

Ah. The win32 intf is probably the only one that parses this thing completely.
Where is the Visible flag?

Mattias

Mattias Gaertner wrote

Ah. The win32 intf is probably the only one that parses this thing completely. Where is the Visible flag?

I fixed the problem in r24351. No that flickering now.

Best regards,
Paul Ishenin.

A blast from the past. :)

24531

No that flickering now.

Great. Thanks.

But the SetRestoreBounds code will probably still create flicker.

Mattias

Mattias Gaertner wrote

But the SetRestoreBounds code will probably still create flicker.

It is used in IDE only to save bounds of IDE forms listed in Environment->Windows. I personally don't know why we need this method at all.

Best regards,
Paul Ishenin.

I am on 24581
and it still flickers...

Martin

Paul, you indicated that was fixed => I still get the flicker. However unrelated to the minimize.

I just get to see the window(s) on it's design position, before it moves to the correct position

Martin

Please compile LCL with -dVerboseBug16184 and check the output.

Mattias

Actually, I also still get the full minimize/restore/minimize circle...

I usually run the output on a console, so I just copied the relevant lines:

Id did NOT show at x/y = 0/0,
but it did show at x1=344,y1=153,x2=904,y2=358 (which it should not)

It also is of no relevance that the final location is on a different screen. It still happens, if I have the final location on the same screen.

-----
with final window in normal pos (not minimized)
x1=2661,y1=-14,x2=3240,y2=130 => correct final bounds (the negative y, is pure accidental, and has no relevance, it happens with all positive coordinates too)

[TWinControl.DoSendBoundsToInterface] A lvBreakPoints:TListView OldRelBounds= x1=0,y1=0,x2=0,y2=0 -> NewBounds= x1=0,y1= 0,x2=560,y2=205
[TWinControl.DoSendBoundsToInterface] A BreakPointsDlg:TBreakPointsDlg OldRelBounds= x1=0,y1=0,x2=0,y2=0 -> NewBounds= x
1=344,y1=153,x2=904,y2=358
TWinControl.DoSendShowHideToInterface lvBreakPoints:TListView FBoundsRealized= x1=0,y1=0,x2=560,y2=205 New=True
TWinControl.DoSendShowHideToInterface BreakPointsDlg:TBreakPointsDlg FBoundsRealized= x1=344,y1=153,x2=904,y2=358 New=Tr ue
TWinControl.WMSize A BreakPointsDlg:TBreakPointsDlg Message=560,205 BoundsRealized= x1=344,y1=153,x2=904,y2=358 FromIntf =True
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=579,144 BoundsRealized= x1=344,y1=153,x2=904,y2=358 FromIntf=Fa lse
TWinControl.WMMove A BreakPoints:TBreakPointsDlg Message=2661,-14 BoundsRealized=344,153 FromIntf=False,560x205
TWinControl.WMSize A lvBreakPoints:TListView Message=579,144 BoundsRealized= x1=0,y1=0,x2=560,y2=205 FromIntf=False [TWinControl.DoSendBoundsToInterface] A lvBreakPoints:TListView OldRelBounds= x1=0,y1=0,x2=560,y2=205 -> NewBounds= x1=0 ,y1=0,x2=579,y2=144
TWinControl.WMSize A lvBreakPoints:TListView Message=579,144 BoundsRealized= x1=0,y1=0,x2=579,y2=144 FromIntf=True [TWinControl.DoSendBoundsToInterface] A BreakPoints:TBreakPointsDlg OldRelBounds= x1=344,y1=153,x2=904,y2=358 -> NewBoun ds= x1=2661,y1=-14,x2=3240,y2=130
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=579,144 BoundsRealized= x1=2661,y1=-14,x2=3240,y2=130 FromIntf= True

=============================
== with final brkpoint window minimized

[TWinControl.DoSendBoundsToInterface] A lvBreakPoints:TListView OldRelBounds= x1=0,y1=0,x2=0,y2=0 -> NewBounds= x1=0,y1= 0,x2=560,y2=205
[TWinControl.DoSendBoundsToInterface] A BreakPointsDlg:TBreakPointsDlg OldRelBounds= x1=0,y1=0,x2=0,y2=0 -> NewBounds= x
1=344,y1=153,x2=904,y2=358
TWinControl.DoSendShowHideToInterface lvBreakPoints:TListView FBoundsRealized= x1=0,y1=0,x2=560,y2=205 New=True
TWinControl.DoSendShowHideToInterface BreakPointsDlg:TBreakPointsDlg FBoundsRealized= x1=344,y1=153,x2=904,y2=358 New=Tr ue
TWinControl.WMSize A BreakPointsDlg:TBreakPointsDlg Message=560,205 BoundsRealized= x1=344,y1=153,x2=904,y2=358 FromIntf =True
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=576,241 BoundsRealized= x1=344,y1=153,x2=904,y2=358 FromIntf=Tr ue
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=576,241 BoundsRealized= x1=344,y1=153,x2=920,y2=394 FromIntf=Fa lse
TWinControl.WMSize A lvBreakPoints:TListView Message=576,241 BoundsRealized= x1=0,y1=0,x2=560,y2=205 FromIntf=False [TWinControl.DoSendBoundsToInterface] A lvBreakPoints:TListView OldRelBounds= x1=0,y1=0,x2=560,y2=205 -> NewBounds= x1=0 ,y1=0,x2=576,y2=241
TWinControl.WMSize A lvBreakPoints:TListView Message=576,241 BoundsRealized= x1=0,y1=0,x2=576,y2=241 FromIntf=True TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=560,205 BoundsRealized= x1=344,y1=153,x2=920,y2=394 FromIntf=Tr ue
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=560,205 BoundsRealized= x1=344,y1=153,x2=904,y2=358 FromIntf=Fa lse
TWinControl.WMSize A lvBreakPoints:TListView Message=560,205 BoundsRealized= x1=0,y1=0,x2=576,y2=241 FromIntf=False [TWinControl.DoSendBoundsToInterface] A lvBreakPoints:TListView OldRelBounds= x1=0,y1=0,x2=576,y2=241 -> NewBounds= x1=0 ,y1=0,x2=560,y2=205
TWinControl.WMSize A lvBreakPoints:TListView Message=560,205 BoundsRealized= x1=0,y1=0,x2=560,y2=205 FromIntf=True TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=579,144 BoundsRealized= x1=344,y1=153,x2=904,y2=358 FromIntf=Fa lse
TWinControl.WMMove A BreakPoints:TBreakPointsDlg Message=2575,-3 BoundsRealized=344,153 FromIntf=False,560x205
TWinControl.WMSize A lvBreakPoints:TListView Message=579,144 BoundsRealized= x1=0,y1=0,x2=560,y2=205 FromIntf=False [TWinControl.DoSendBoundsToInterface] A lvBreakPoints:TListView OldRelBounds= x1=0,y1=0,x2=560,y2=205 -> NewBounds= x1=0 ,y1=0,x2=579,y2=144
TWinControl.WMSize A lvBreakPoints:TListView Message=579,144 BoundsRealized= x1=0,y1=0,x2=579,y2=144 FromIntf=True [TWinControl.DoSendBoundsToInterface] A BreakPoints:TBreakPointsDlg OldRelBounds= x1=344,y1=153,x2=904,y2=358 -> NewBoun ds= x1=2575,y1=-3,x2=3154,y2=141
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=579,144 BoundsRealized= x1=2575,y1=-3,x2=3154,y2=141 FromIntf=T rue
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=595,180 BoundsRealized= x1=2575,y1=-3,x2=3154,y2=141 FromIntf=T rue
TWinControl.WMSize A BreakPoints:TBreakPointsDlg Message=595,180 BoundsRealized= x1=2575,y1=-3,x2=3170,y2=177 FromIntf=F alse
TWinControl.WMSize A lvBreakPoints:TListView Message=595,180 BoundsRealized= x1=0,y1=0,x2=579,y2=144 FromIntf=False [TWinControl.DoSendBoundsToInterface] A lvBreakPoints:TListView OldRelBounds= x1=0,y1=0,x2=579,y2=144 -> NewBounds= x1=0 ,y1=0,x2=595,y2=180
TWinControl.WMSize A lvBreakPoints:TListView Message=595,180 BoundsRealized= x1=0,y1=0,x2=595,y2=180 FromIntf=True