Jump to content

FredS

Members
  • Content Count

    408
  • Joined

  • Last visited

  • Days Won

    4

Posts posted by FredS


  1. 15_0_45_2476  gives me an exception in Delphi 11 on Windows 7:

     

    • Attempting show 'Code Explorer' gave me an error and then this while clicking 'OK' to rebuild the index.
    • In Sydney the 'Code Explorer' is docked but same error rebuilding the index with the form open, rebuilding is fine using the refresh button.
    • Both required killing the process to get out of loop.
    • 15.0.37 works in Sydney
    • CodeSite Express, MadExcept and DevEx are installed
    [76C2C5AF]{KERNELBASE.dll} RaiseException + $58
    [50CCCF17]{vcl280.bpl  } Vcl.Controls.DoControlMsg (Line 10648, "Vcl.Controls.pas" + 12) + $11
    [50CCD9BB]{vcl280.bpl  } Vcl.Controls.TWinControl.WMCommand (Line 10925, "Vcl.Controls.pas" + 1) + $5
    [50E06D4D]{vcl280.bpl  } Vcl.Forms.TCustomForm.WMCommand (Line 6915, "Vcl.Forms.pas" + 6) + $4
    [50CC7CCA]{vcl280.bpl  } Vcl.Controls.TControl.WndProc (Line 7544, "Vcl.Controls.pas" + 91) + $6
    [5006076C]{rtl280.bpl  } System.TMonitor.Destroy (Line 19558, "System.pas" + 0) + $0
    [50064774]{rtl280.bpl  } System.@FinalizeRecord (Line 32815, "System.pas" + 76) + $2
    [50CC86E2]{vcl280.bpl  } Vcl.Controls.TControl.WMLButtonUp (Line 7801, "Vcl.Controls.pas" + 9) + $6
    [50CA814D]{vcl280.bpl  } Vcl.Graphics.FreeMemoryContexts (Line 7288, "Vcl.Graphics.pas" + 12) + $8
    [17351E55]{mmx_bds22.dll} SysInit.@_delayLoadHelper2 + $2A5
    [17352809]{mmx_bds22.dll} Winapi.Windows.user32.dll + $5
    [17371CFE]{mmx_bds22.dll} FormStates.TFormState.UpdateHighDPI (Line 491, "FormStates.pas" + 4) + $8
    [1737184E]{mmx_bds22.dll} FormStates.TFormState.SaveState (Line 404, "FormStates.pas" + 1) + $4
    [5005A388]{rtl280.bpl  } System.@FreeMem (Line 4976, "System.pas" + 20) + $0
    [5006206C]{rtl280.bpl  } System.@UStrClr (Line 25872, "System.pas" + 14) + $0
    [17371F62]{mmx_bds22.dll} FormStates.TFormStateStore.AssureFormState (Line 555, "FormStates.pas" + 8) + $10
    [1737245A]{mmx_bds22.dll} FormStates.TFormStateStore.SaveFormState (Line 669, "FormStates.pas" + 2) + $E
    [175C9388]{mmx_bds22.dll} SrcIndexerOptsFrm.TSourceIndexerOptionsForm.FormClose (Line 197, "SrcIndexerOptsFrm.pas" + 1) + $9
    [50E02967]{vcl280.bpl  } Vcl.Forms.TCustomForm.DoClose (Line 4523, "Vcl.Forms.pas" + 1) + $16
    [50E082AF]{vcl280.bpl  } Vcl.Forms.TCustomForm.CloseModal (Line 7711, "Vcl.Forms.pas" + 6) + $A
    [50E08A03]{vcl280.bpl  } Vcl.Forms.TCustomForm.ShowModal (Line 7974, "Vcl.Forms.pas" + 52) + $F
    [50E08B78]{vcl280.bpl  } Vcl.Forms.TCustomForm.ShowModal (Line 8004, "Vcl.Forms.pas" + 82) + $13
    [175C9243]{mmx_bds22.dll} SrcIndexerOptsFrm.TSourceIndexerOptionsForm.Execute (Line 173, "SrcIndexerOptsFrm.pas" + 8) + $5
    [17531253]{mmx_bds22.dll} SourceIndexerServices.IndexerServices (Line 139, "SourceIndexerServices.pas" + 3) + $8
    [175CBD4F]{mmx_bds22.dll} MMX.SourceIndexer.Frame.TSourceIndexerFrame.OptionsActionExecute (Line 550, "MMX.SourceIndexer.Frame.pas" + 8) + $23
    [501733CF]{rtl280.bpl  } System.Classes.TBasicAction.Execute (Line 17813, "System.Classes.pas" + 3) + $7
    [50CAF9B2]{vcl280.bpl  } Vcl.ActnList.TCustomAction.Execute (Line 284, "Vcl.ActnList.pas" + 19) + $35
    [50173223]{rtl280.bpl  } System.Classes.TBasicActionLink.Execute (Line 17724, "System.Classes.pas" + 2) + $7
    [50CC820C]{vcl280.bpl  } Vcl.Controls.TControl.Click (Line 7658, "Vcl.Controls.pas" + 7) + $7
    [50D50550]{vcl280.bpl  } Vcl.ComCtrls.TToolButton.Click (Line 22464, "Vcl.ComCtrls.pas" + 0) + $0
    [50CC86D7]{vcl280.bpl  } Vcl.Controls.TControl.WMLButtonUp (Line 7799, "Vcl.Controls.pas" + 7) + $6
    [50CC7CCA]{vcl280.bpl  } Vcl.Controls.TControl.WndProc (Line 7544, "Vcl.Controls.pas" + 91) + $6
    [50093C27]{rtl280.bpl  } System.SysUtils.AnsiCompareText (Line 7195, "System.SysUtils.pas" + 1) + $2F
    [5006076C]{rtl280.bpl  } System.TMonitor.Destroy (Line 19558, "System.pas" + 0) + $0
    [50064774]{rtl280.bpl  } System.@FinalizeRecord (Line 32815, "System.pas" + 76) + $2
    [50DCDE51]{vcl280.bpl  } Vcl.Themes.TStyleManager.GetStyle (Line 5789, "Vcl.Themes.pas" + 7) + $D
    [50061544]{rtl280.bpl  } System.@TryFinallyExit (Line 23404, "System.pas" + 8) + $0
    [50CC7900]{vcl280.bpl  } Vcl.Controls.TControl.Perform (Line 7322, "Vcl.Controls.pas" + 10) + $8
    [50CCC435]{vcl280.bpl  } Vcl.Controls.GetControlAtPos (Line 10291, "Vcl.Controls.pas" + 2) + $78
    [50CCC506]{vcl280.bpl  } Vcl.Controls.InternalControlAtPos (Line 10315, "Vcl.Controls.pas" + 15) + $E
    [50D658DE]{vcl280.bpl  } Vcl.ComCtrls.TToolBarStyleHook.WndProc (Line 34293, "Vcl.ComCtrls.pas" + 6) + $4
    [50DD15DE]{vcl280.bpl  } Vcl.Themes.TStyleHook.HandleMessage (Line 7389, "Vcl.Themes.pas" + 20) + $6
    [50CC7900]{vcl280.bpl  } Vcl.Controls.TControl.Perform (Line 7322, "Vcl.Controls.pas" + 10) + $8
    [50CCC5EC]{vcl280.bpl  } Vcl.Controls.TWinControl.IsControlMouseMsg (Line 10344, "Vcl.Controls.pas" + 15) + $29
    [50CCCC02]{vcl280.bpl  } Vcl.Controls.TWinControl.WndProc (Line 10521, "Vcl.Controls.pas" + 112) + $6
    [50D52A41]{vcl280.bpl  } Vcl.ComCtrls.TToolBar.UpdateButtonState (Line 23818, "Vcl.ComCtrls.pas" + 11) + $27
    [50D52A82]{vcl280.bpl  } Vcl.ComCtrls.TToolBar.UpdateButtonStates (Line 23829, "Vcl.ComCtrls.pas" + 3) + $4
    [50D556EE]{vcl280.bpl  } Vcl.ComCtrls.TToolBar.WndProc (Line 25450, "Vcl.ComCtrls.pas" + 104) + $6
    [50CCC338]{vcl280.bpl  } Vcl.Controls.TWinControl.MainWndProc (Line 10267, "Vcl.Controls.pas" + 3) + $6
    [50174200]{rtl280.bpl  } System.Classes.StdWndProc (Line 18318, "System.Classes.pas" + 8) + $0
    [50E0D68F]{vcl280.bpl  } Vcl.Forms.TApplication.ProcessMessage (Line 11317, "Vcl.Forms.pas" + 23) + $1
    [50E0D6D2]{vcl280.bpl  } Vcl.Forms.TApplication.HandleMessage (Line 11347, "Vcl.Forms.pas" + 1) + $4
    [50E0DA11]{vcl280.bpl  } Vcl.Forms.TApplication.Run (Line 11486, "Vcl.Forms.pas" + 27) + $3
    [004F6F82]{bds.exe     } bds.bds (Line 227, "" + 16) + $2
    

     


  2. Last time I had a similar issue I simply used a DX Adorner.. perhaps you can use a panel that changes parent, visibility and is re positioned and be done with it..
    This works because those would cover a disabled/dimmed tab but be accessible since they aren't parented by the tab..

     


  3. Last time I had a similar issue I simply used a DX Adorner.. perhaps you can use a panel that changes parent, visibility and is re positioned and be done with it..
    This works because those would cover a disabled/dimmed tab but be accessible since they aren't parented by the tab..

     


  4. 7 minutes ago, aehimself said:

    Any help is greatly appreciated

    I'm confused, what's the reason for wanting your controls to look Un-Dimmed?

     

    ..and if that is the case why not custom draw just your Tabsheet/Panel background dimmed?

    • Like 1

  5. 8 hours ago, Fr0sT.Brutal said:

    Usually there's a list of all running threads in process

    Where is that?

     

    As for GlobalStopEvent, I simply use a TThread Helper with a private class FShutdownEvent.

     

    Every thread uses TWait.For<whatnot> which allows multiple handles and always adds the ShutdownEvent, within the Thread's Execution one can call TWait.IsShutdown without waiting..


    Very close to:

     


  6. 29 minutes ago, John Kouraklis said:

    global var to indicate that the app is shutting down

    I use a global TEvent that is set at shutdown, all my wait functions check that and all threads check it either through wait or in their execute methods.

     

    • Like 1
×