[Lazarus] IDE window positions

Ludo Brands ludo.brands at free.fr
Sat Feb 2 12:03:30 CET 2013


On 02/02/2013 10:14 AM, Juha Manninen wrote:
> I am thinking what can cause the randomness. There are no asynchronous
> messages, no threading, no complex widgetset interaction when setting
> the window positions.
> It is done in Lazarus code. Values are read from a config file and
> windows and given positions.
> Ok, there is widgetset interaction but this one is simple and well tested.
> 
> Uninitialized variable is my biggest suspect. Where it is, I have no idea.
> 

Made some progress. Lazarus build with dVerboseIDEDocking
-dCHECK_POSITION. The output for lazarus opening with the windows
positioned correctly and for lazarus messed up after reboot are below.

You'll notice when things go wrong that the forms are created at the
correct position but then a bunch of WMSize messages come in and change
everything. Ex: [TCustomForm.WMSize] MainIDE:TMainIDEBar
Message.SizeType=6 Message.Width=299 Message.Height=109
AutoSizeDelayed=True.

Any clue where these messages are coming from? Debugging messages is not
easy.

Lazarus with IDE windows OK:

SetPrimaryConfigPath
NewValue="/home/ludo/D1000/fpclaztrunk/config_lazarus" ->
"/home/ludo/D1000/fpclaztrunk/config_lazarus"
TMainIDE.ParseCmdLineOptions:
  PrimaryConfigPath="/home/ludo/D1000/fpclaztrunk/config_lazarus/"
  SecondaryConfigPath="/etc/lazarus"
[TCustomForm.UpdateShowing] STAR  :TSplashForm Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TSplashForm Pos=0,0
[TCustomForm.UpdateShowing] activating  :TSplashForm Pos=0,0
[TCustomForm.WMSize] SplashForm:TSplashForm Message.SizeType=6
Message.Width=450 Message.Height=300 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  SplashForm:TSplashForm Pos=615,375
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  SplashForm:TSplashForm
Pos=615,375
[TCustomForm.UpdateShowing] activating  SplashForm:TSplashForm Pos=615,375
[TCustomForm.UpdateShowing] STAR  :TMacroListView Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TMacroListView Pos=0,0
[TCustomForm.UpdateShowing] activating  :TMacroListView Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TMainIDEBar Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TMainIDEBar Pos=0,0
[TCustomForm.UpdateShowing] activating  :TMainIDEBar Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TLazFindInFilesDialog Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TLazFindInFilesDialog
Pos=0,0
[TCustomForm.UpdateShowing] activating  :TLazFindInFilesDialog Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TIdeLoggerForm Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TIdeLoggerForm Pos=0,0
[TCustomForm.UpdateShowing] activating  :TIdeLoggerForm Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TMessagesView Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TMessagesView Pos=0,0
[TCustomForm.UpdateShowing] activating  :TMessagesView Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TLazFindReplaceDialog Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TLazFindReplaceDialog
Pos=0,0
[TCustomForm.UpdateShowing] activating  :TLazFindReplaceDialog Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TPseudoConsoleDlg Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TPseudoConsoleDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TPseudoConsoleDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow
Form=PseudoTerminal:TPseudoConsoleDlg False  DesktopWidth=1680
DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore PseudoTerminal
CustomPosition 0,788,353,200
[TCustomForm.UpdateShowing] STAR  PseudoTerminal:TPseudoConsoleDlg
Pos=0,788 Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
PseudoTerminal:TPseudoConsoleDlg Pos=0,788
[TCustomForm.UpdateShowing] activating  PseudoTerminal:TPseudoConsoleDlg
Pos=0,788
[TCustomForm.UpdateShowing] STAR  :TWatchesDlg Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TWatchesDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TWatchesDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=Watches:TWatchesDlg False
DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore Watches
RestoreWindowGeometry 0,561,353,200
[TCustomForm.UpdateShowing] STAR  Watches:TWatchesDlg Pos=0,561
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  Watches:TWatchesDlg Pos=0,561
[TCustomForm.UpdateShowing] activating  Watches:TWatchesDlg Pos=0,561
[TCustomForm.UpdateShowing] STAR  :TCallStackDlg Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TCallStackDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TCallStackDlg Pos=0,0
[TCustomForm.UpdateShowing] STAR  CallStack:TCallStackDlg Pos=306,130
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  CallStack:TCallStackDlg
Pos=306,130
[TCustomForm.UpdateShowing] activating  CallStack:TCallStackDlg Pos=306,130
TSimpleWindowLayoutList.ApplyAndShow Form=CallStack:TCallStackDlg False
 DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore CallStack CustomPosition
0,288,353,246
[TCustomForm.WMSize] CallStack:TCallStackDlg Message.SizeType=6
Message.Width=353 Message.Height=246 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  :TEvaluateDlg Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TEvaluateDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TEvaluateDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=EvaluateModify:TEvaluateDlg
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore EvaluateModify
CustomPosition 0,561,353,200
[TCustomForm.UpdateShowing] STAR  EvaluateModify:TEvaluateDlg Pos=0,561
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
EvaluateModify:TEvaluateDlg Pos=0,561
[TCustomForm.UpdateShowing] activating  EvaluateModify:TEvaluateDlg
Pos=0,561
TSimpleWindowLayoutList.ApplyAndShow Form=MainIDE:TMainIDEBar False
DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore MainIDE CustomPosition
0,0,1503,88
[TCustomForm.WMSize] MainIDE:TMainIDEBar Message.SizeType=6
Message.Width=1503 Message.Height=88 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  MainIDE:TMainIDEBar Pos=0,0
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  MainIDE:TMainIDEBar Pos=0,0
[TCustomForm.WMSize] MainIDE:TMainIDEBar Message.SizeType=128
Message.Width=1503 Message.Height=88 AutoSizeDelayed=False
[TCustomForm.UpdateShowing] activating  MainIDE:TMainIDEBar Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=MessagesView:TMessagesView
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore MessagesView CustomPosition
357,888,1146,100
[TCustomForm.UpdateShowing] STAR  MessagesView:TMessagesView Pos=357,888
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
MessagesView:TMessagesView Pos=357,888
[TCustomForm.UpdateShowing] activating  MessagesView:TMessagesView
Pos=357,888
[TCustomForm.UpdateShowing] STAR  :TObjectInspectorDlg Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TObjectInspectorDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TObjectInspectorDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow
Form=ObjectInspectorDlg:TObjectInspectorDlg False  DesktopWidth=1680
DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore ObjectInspectorDlg
CustomPosition 0,115,299,625
[TCustomForm.UpdateShowing] STAR  ObjectInspectorDlg:TObjectInspectorDlg
Pos=0,115 Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
ObjectInspectorDlg:TObjectInspectorDlg Pos=0,115
[TCustomForm.UpdateShowing] activating
ObjectInspectorDlg:TObjectInspectorDlg Pos=0,115
TSimpleWindowLayoutList.ApplyAndShow Form=MainIDE:TMainIDEBar False
DesktopWidth=1680  DesktopHeight=1050
[TCustomForm.UpdateShowing] STAR  :TSourceNotebook Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TSourceNotebook Pos=0,0
[TCustomForm.UpdateShowing] activating  :TSourceNotebook Pos=0,0
[TCustomForm.UpdateShowing] STAR  :THintWindow Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :THintWindow Pos=0,0
[TCustomForm.UpdateShowing] activating  :THintWindow Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
True  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore SourceNotebook
CustomPosition 357,115,1146,746
[TCustomForm.UpdateShowing] STAR  SourceNotebook:TSourceNotebook
Pos=357,115 Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
SourceNotebook:TSourceNotebook Pos=357,115
[TCustomForm.UpdateShowing] activating  SourceNotebook:TSourceNotebook
Pos=357,115
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
True  DesktopWidth=1680  DesktopHeight=1050
[TCustomForm.UpdateShowing] STAR  :THintWindow Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :THintWindow Pos=0,0
[TCustomForm.UpdateShowing] activating  :THintWindow Pos=0,0
[TCustomForm.UpdateShowing] STAR  Form1:TForm1 Pos=250,250 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  Form1:TForm1 Pos=250,250
[TCustomForm.UpdateShowing] activating  Form1:TForm1 Pos=250,250
TSimpleWindowLayoutList.ApplyAndShow Form=MessagesView:TMessagesView
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
True  DesktopWidth=1680  DesktopHeight=1050
[TCustomForm.UpdateShowing] STAR  SplashForm:TSplashForm Pos=615,375
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  SplashForm:TSplashForm
Pos=615,375
[TCustomForm.UpdateShowing] activating  SplashForm:TSplashForm Pos=615,375
[TCustomForm.UpdateShowing] STAR  PseudoTerminal:TPseudoConsoleDlg
Pos=0,788 Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
PseudoTerminal:TPseudoConsoleDlg Pos=0,788
[TCustomForm.UpdateShowing] activating  PseudoTerminal:TPseudoConsoleDlg
Pos=0,788
[TCustomForm.UpdateShowing] STAR  Watches:TWatchesDlg Pos=0,561
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  Watches:TWatchesDlg Pos=0,561
[TCustomForm.UpdateShowing] activating  Watches:TWatchesDlg Pos=0,561
[TCustomForm.UpdateShowing] STAR  CallStack:TCallStackDlg Pos=0,288
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  CallStack:TCallStackDlg
Pos=0,288
[TCustomForm.UpdateShowing] activating  CallStack:TCallStackDlg Pos=0,288
[TCustomForm.UpdateShowing] STAR  EvaluateModify:TEvaluateDlg Pos=0,561
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
EvaluateModify:TEvaluateDlg Pos=0,561
[TCustomForm.UpdateShowing] activating  EvaluateModify:TEvaluateDlg
Pos=0,561
[TCustomForm.UpdateShowing] STAR  MessagesView:TMessagesView Pos=357,888
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
MessagesView:TMessagesView Pos=357,888
[TCustomForm.UpdateShowing] activating  MessagesView:TMessagesView
Pos=357,888
[TCustomForm.UpdateShowing] STAR  ObjectInspectorDlg:TObjectInspectorDlg
Pos=0,115 Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
ObjectInspectorDlg:TObjectInspectorDlg Pos=0,115
[TCustomForm.UpdateShowing] activating
ObjectInspectorDlg:TObjectInspectorDlg Pos=0,115
[TCustomForm.UpdateShowing] STAR  MainIDE:TMainIDEBar Pos=0,0
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  MainIDE:TMainIDEBar Pos=0,0
[TCustomForm.UpdateShowing] activating  MainIDE:TMainIDEBar Pos=0,0
[TCustomForm.UpdateShowing] STAR
SourceNotebook___140103934165904:TSourceNotebook Pos=357,115
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
SourceNotebook___140103934165904:TSourceNotebook Pos=357,115
[TCustomForm.UpdateShowing] activating
SourceNotebook___140103934165904:TSourceNotebook Pos=357,115
LAZARUS END - cleaning up ...
[TMainIDE.Destroy] A
[TMainIDE.Destroy] B  -> inherited Destroy... TMainIDE
[TMainIDE.Destroy] END



Broken lazarus after reboot:


TMainIDE.ParseCmdLineOptions:
  PrimaryConfigPath="/home/ludo/D1000/fpclaztrunk/config_lazarus/"
  SecondaryConfigPath="/etc/lazarus"
[TCustomForm.UpdateShowing] STAR  :TSplashForm Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TSplashForm Pos=0,0
[TCustomForm.UpdateShowing] activating  :TSplashForm Pos=0,0
[TCustomForm.WMSize] SplashForm:TSplashForm Message.SizeType=6
Message.Width=450 Message.Height=300 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  SplashForm:TSplashForm Pos=615,375
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  SplashForm:TSplashForm
Pos=615,375
[TCustomForm.UpdateShowing] activating  SplashForm:TSplashForm Pos=615,375
[TCustomForm.WMSize] SplashForm:TSplashForm Message.SizeType=128
Message.Width=309 Message.Height=240 AutoSizeDelayed=False
[TCustomForm.WMSize] SplashForm:TSplashForm Message.SizeType=6
Message.Width=309 Message.Height=240 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  :TMacroListView Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TMacroListView Pos=0,0
[TCustomForm.UpdateShowing] activating  :TMacroListView Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TMainIDEBar Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TMainIDEBar Pos=0,0
[TCustomForm.UpdateShowing] activating  :TMainIDEBar Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TLazFindInFilesDialog Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TLazFindInFilesDialog
Pos=0,0
[TCustomForm.UpdateShowing] activating  :TLazFindInFilesDialog Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TIdeLoggerForm Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TIdeLoggerForm Pos=0,0
[TCustomForm.UpdateShowing] activating  :TIdeLoggerForm Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TMessagesView Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TMessagesView Pos=0,0
[TCustomForm.UpdateShowing] activating  :TMessagesView Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TLazFindReplaceDialog Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TLazFindReplaceDialog
Pos=0,0
[TCustomForm.UpdateShowing] activating  :TLazFindReplaceDialog Pos=0,0
[TCustomForm.UpdateShowing] STAR  :TPseudoConsoleDlg Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TPseudoConsoleDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TPseudoConsoleDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow
Form=PseudoTerminal:TPseudoConsoleDlg False  DesktopWidth=1680
DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore PseudoTerminal
CustomPosition 0,788,353,200
[TCustomForm.UpdateShowing] STAR  PseudoTerminal:TPseudoConsoleDlg
Pos=0,788 Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
PseudoTerminal:TPseudoConsoleDlg Pos=0,788
[TCustomForm.UpdateShowing] activating  PseudoTerminal:TPseudoConsoleDlg
Pos=0,788
[TCustomForm.UpdateShowing] STAR  :TWatchesDlg Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TWatchesDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TWatchesDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=Watches:TWatchesDlg False
DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore Watches
RestoreWindowGeometry 371,285,309,240
[TCustomForm.UpdateShowing] STAR  Watches:TWatchesDlg Pos=371,285
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  Watches:TWatchesDlg
Pos=371,285
[TCustomForm.UpdateShowing] activating  Watches:TWatchesDlg Pos=371,285
[TCustomForm.UpdateShowing] STAR  :TCallStackDlg Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TCallStackDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TCallStackDlg Pos=0,0
[TCustomForm.UpdateShowing] STAR  CallStack:TCallStackDlg Pos=306,130
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  CallStack:TCallStackDlg
Pos=306,130
[TCustomForm.UpdateShowing] activating  CallStack:TCallStackDlg Pos=306,130
TSimpleWindowLayoutList.ApplyAndShow Form=CallStack:TCallStackDlg False
 DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore CallStack CustomPosition
0,288,353,246
[TCustomForm.WMSize] CallStack:TCallStackDlg Message.SizeType=6
Message.Width=353 Message.Height=246 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  :TEvaluateDlg Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TEvaluateDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TEvaluateDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=EvaluateModify:TEvaluateDlg
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore EvaluateModify
CustomPosition 0,561,353,200
[TCustomForm.UpdateShowing] STAR  EvaluateModify:TEvaluateDlg Pos=0,561
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
EvaluateModify:TEvaluateDlg Pos=0,561
[TCustomForm.UpdateShowing] activating  EvaluateModify:TEvaluateDlg
Pos=0,561
TSimpleWindowLayoutList.ApplyAndShow Form=MainIDE:TMainIDEBar False
DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore MainIDE CustomPosition
0,0,1503,88
[TCustomForm.WMSize] MainIDE:TMainIDEBar Message.SizeType=6
Message.Width=1503 Message.Height=88 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  MainIDE:TMainIDEBar Pos=0,0
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited  MainIDE:TMainIDEBar Pos=0,0
[TCustomForm.WMSize] MainIDE:TMainIDEBar Message.SizeType=128
Message.Width=1503 Message.Height=88 AutoSizeDelayed=False
[TCustomForm.UpdateShowing] activating  MainIDE:TMainIDEBar Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=MessagesView:TMessagesView
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore MessagesView CustomPosition
357,888,1146,100
[TCustomForm.UpdateShowing] STAR  MessagesView:TMessagesView Pos=357,888
Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
MessagesView:TMessagesView Pos=357,888
[TCustomForm.UpdateShowing] activating  MessagesView:TMessagesView
Pos=357,888
[TCustomForm.UpdateShowing] STAR  :TObjectInspectorDlg Pos=0,0
Visible=False Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TObjectInspectorDlg Pos=0,0
[TCustomForm.UpdateShowing] activating  :TObjectInspectorDlg Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow
Form=ObjectInspectorDlg:TObjectInspectorDlg False  DesktopWidth=1680
DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore ObjectInspectorDlg
CustomPosition 0,115,299,625
[TCustomForm.UpdateShowing] STAR  ObjectInspectorDlg:TObjectInspectorDlg
Pos=0,115 Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
ObjectInspectorDlg:TObjectInspectorDlg Pos=0,115
[TCustomForm.UpdateShowing] activating
ObjectInspectorDlg:TObjectInspectorDlg Pos=0,115
TSimpleWindowLayoutList.ApplyAndShow Form=MainIDE:TMainIDEBar False
DesktopWidth=1680  DesktopHeight=1050
[TCustomForm.UpdateShowing] STAR  :TSourceNotebook Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :TSourceNotebook Pos=0,0
[TCustomForm.UpdateShowing] activating  :TSourceNotebook Pos=0,0
[TCustomForm.UpdateShowing] STAR  :THintWindow Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :THintWindow Pos=0,0
[TCustomForm.UpdateShowing] activating  :THintWindow Pos=0,0
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
True  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow restore SourceNotebook
CustomPosition 357,115,1146,746
[TCustomForm.UpdateShowing] STAR  SourceNotebook:TSourceNotebook
Pos=357,115 Visible=True Showing=False
[TCustomForm.UpdateShowing] calling inherited
SourceNotebook:TSourceNotebook Pos=357,115
[TCustomForm.UpdateShowing] activating  SourceNotebook:TSourceNotebook
Pos=357,115
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
True  DesktopWidth=1680  DesktopHeight=1050
[TCustomForm.UpdateShowing] STAR  :THintWindow Pos=0,0 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  :THintWindow Pos=0,0
[TCustomForm.UpdateShowing] activating  :THintWindow Pos=0,0
[TCustomForm.UpdateShowing] STAR  Form1:TForm1 Pos=250,250 Visible=False
Showing=False
[TCustomForm.UpdateShowing] calling inherited  Form1:TForm1 Pos=250,250
[TCustomForm.UpdateShowing] activating  Form1:TForm1 Pos=250,250
TSimpleWindowLayoutList.ApplyAndShow Form=MessagesView:TMessagesView
False  DesktopWidth=1680  DesktopHeight=1050
TSimpleWindowLayoutList.ApplyAndShow Form=SourceNotebook:TSourceNotebook
True  DesktopWidth=1680  DesktopHeight=1050
[TCustomForm.WMSize] MessagesView:TMessagesView Message.SizeType=128
Message.Width=1146 Message.Height=746 AutoSizeDelayed=False
[TCustomForm.WMSize] MessagesView:TMessagesView Message.SizeType=6
Message.Width=1146 Message.Height=746 AutoSizeDelayed=True
[TCustomForm.WMSize] PseudoTerminal:TPseudoConsoleDlg
Message.SizeType=128 Message.Width=353 Message.Height=246
AutoSizeDelayed=False
[TCustomForm.WMSize] PseudoTerminal:TPseudoConsoleDlg Message.SizeType=6
Message.Width=353 Message.Height=246 AutoSizeDelayed=True
[TCustomForm.WMSize] ObjectInspectorDlg:TObjectInspectorDlg
Message.SizeType=128 Message.Width=320 Message.Height=240
AutoSizeDelayed=False
[TCustomForm.WMSize] ObjectInspectorDlg:TObjectInspectorDlg
Message.SizeType=6 Message.Width=320 Message.Height=240 AutoSizeDelayed=True
[TCustomForm.WMSize] EvaluateModify:TEvaluateDlg Message.SizeType=128
Message.Width=1146 Message.Height=200 AutoSizeDelayed=False
[TCustomForm.WMSize] EvaluateModify:TEvaluateDlg Message.SizeType=6
Message.Width=1146 Message.Height=200 AutoSizeDelayed=True
[TCustomForm.WMSize] MainIDE:TMainIDEBar Message.SizeType=128
Message.Width=299 Message.Height=109 AutoSizeDelayed=False
[TCustomForm.WMSize] MainIDE:TMainIDEBar Message.SizeType=6
Message.Width=299 Message.Height=109 AutoSizeDelayed=True
[TCustomForm.WMSize] Watches:TWatchesDlg Message.SizeType=128
Message.Width=353 Message.Height=200 AutoSizeDelayed=False
[TCustomForm.WMSize] Watches:TWatchesDlg Message.SizeType=6
Message.Width=353 Message.Height=200 AutoSizeDelayed=True
[TCustomForm.UpdateShowing] STAR  SplashForm:TSplashForm Pos=371,285
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  SplashForm:TSplashForm
Pos=371,285
[TCustomForm.UpdateShowing] activating  SplashForm:TSplashForm Pos=371,285
[TCustomForm.UpdateShowing] STAR  PseudoTerminal:TPseudoConsoleDlg
Pos=0,288 Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
PseudoTerminal:TPseudoConsoleDlg Pos=0,288
[TCustomForm.UpdateShowing] activating  PseudoTerminal:TPseudoConsoleDlg
Pos=0,288
[TCustomForm.UpdateShowing] STAR  Watches:TWatchesDlg Pos=0,561
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  Watches:TWatchesDlg Pos=0,561
[TCustomForm.UpdateShowing] activating  Watches:TWatchesDlg Pos=0,561
[TCustomForm.UpdateShowing] STAR  CallStack:TCallStackDlg Pos=0,288
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  CallStack:TCallStackDlg
Pos=0,288
[TCustomForm.UpdateShowing] activating  CallStack:TCallStackDlg Pos=0,288
[TCustomForm.UpdateShowing] STAR  EvaluateModify:TEvaluateDlg
Pos=357,888 Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
EvaluateModify:TEvaluateDlg Pos=357,888
[TCustomForm.UpdateShowing] activating  EvaluateModify:TEvaluateDlg
Pos=357,888
[TCustomForm.UpdateShowing] STAR  MessagesView:TMessagesView Pos=357,115
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
MessagesView:TMessagesView Pos=357,115
[TCustomForm.UpdateShowing] activating  MessagesView:TMessagesView
Pos=357,115
[TCustomForm.UpdateShowing] STAR  ObjectInspectorDlg:TObjectInspectorDlg
Pos=250,250 Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
ObjectInspectorDlg:TObjectInspectorDlg Pos=250,250
[TCustomForm.UpdateShowing] activating
ObjectInspectorDlg:TObjectInspectorDlg Pos=250,250
[TCustomForm.UpdateShowing] STAR  MainIDE:TMainIDEBar Pos=0,115
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited  MainIDE:TMainIDEBar Pos=0,115
[TCustomForm.UpdateShowing] activating  MainIDE:TMainIDEBar Pos=0,115
[TCustomForm.UpdateShowing] STAR
SourceNotebook___139783502768496:TSourceNotebook Pos=357,115
Visible=False Showing=True
[TCustomForm.UpdateShowing] calling inherited
SourceNotebook___139783502768496:TSourceNotebook Pos=357,115
[TCustomForm.UpdateShowing] activating
SourceNotebook___139783502768496:TSourceNotebook Pos=357,115
LAZARUS END - cleaning up ...
[TMainIDE.Destroy] A
[TMainIDE.Destroy] B  -> inherited Destroy... TMainIDE
[TMainIDE.Destroy] END


Ludo






More information about the Lazarus mailing list