r-zakarya
04f52851fc
Adopts the approach that actually works: ApplicationHWND (FMX.Platform.Win) IS the taskbar proxy, so there is nothing to hunt for and it is valid before the form exists. And hiding it was never enough — the taskbar had already drawn the button; clearing WS_EX_APPWINDOW and setting WS_EX_TOOLWINDOW is what removes it, since a tool window is never listed. That style is permanent, which is why the button never came back after a restore. TrayProxyShowInTaskbar puts it back, called from RestoreWindowFromTray — the single choke point every tray restore already goes through — so it lands before RestoreFromTray shows the windows and the style takes effect on that show. Removes the scaffolding this chase accumulated and that the real fix makes pointless: the EVENT_OBJECT_SHOW hook, the polling worker, FindOurFMXAppWindow, TrayHideNow with its four probes, the one-shot OnActivate hide, and the [tray] tracing. ~4.8 KB of dead code. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
131 lines
3.8 KiB
Plaintext
131 lines
3.8 KiB
Plaintext
object MainForm: TMainForm
|
|
Left = 0
|
|
Top = 0
|
|
Caption = 'Password Manager'
|
|
ClientHeight = 720
|
|
ClientWidth = 1100
|
|
WindowState = wsMaximized
|
|
FormFactor.Width = 320
|
|
FormFactor.Height = 480
|
|
FormFactor.Devices = [Desktop]
|
|
OnCreate = FormCreate
|
|
OnCloseQuery = FormCloseQuery
|
|
OnDestroy = FormDestroy
|
|
DesignerMasterStyle = 0
|
|
object PanelTop: TPanel
|
|
Align = Top
|
|
Size.Width = 1100.000000000000000000
|
|
Size.Height = 56.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 0
|
|
object lblPort: TLabel
|
|
Position.X = 16.000000000000000000
|
|
Position.Y = 18.000000000000000000
|
|
Size.Width = 40.000000000000000000
|
|
Size.Height = 20.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TextSettings.Trimming = None
|
|
Text = 'Port:'
|
|
TabOrder = 0
|
|
end
|
|
object edtPort: TEdit
|
|
Touch.InteractiveGestures = [LongTap, DoubleTap]
|
|
TabOrder = 1
|
|
Text = '8765'
|
|
Position.X = 56.000000000000000000
|
|
Position.Y = 14.000000000000000000
|
|
Size.Width = 80.000000000000000000
|
|
Size.Height = 24.000000000000000000
|
|
Size.PlatformDefault = False
|
|
end
|
|
object btnStart: TButton
|
|
Position.X = 152.000000000000000000
|
|
Position.Y = 14.000000000000000000
|
|
Size.Width = 80.000000000000000000
|
|
Size.Height = 24.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 2
|
|
Text = 'Start'
|
|
TextSettings.Trimming = None
|
|
OnClick = btnStartClick
|
|
end
|
|
object btnStop: TButton
|
|
Position.X = 240.000000000000000000
|
|
Position.Y = 14.000000000000000000
|
|
Size.Width = 80.000000000000000000
|
|
Size.Height = 24.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 3
|
|
Text = 'Stop'
|
|
TextSettings.Trimming = None
|
|
OnClick = btnStopClick
|
|
end
|
|
object btnReload: TButton
|
|
Position.X = 328.000000000000000000
|
|
Position.Y = 14.000000000000000000
|
|
Size.Width = 80.000000000000000000
|
|
Size.Height = 24.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 4
|
|
Text = 'Reload'
|
|
TextSettings.Trimming = None
|
|
OnClick = btnReloadClick
|
|
end
|
|
object btnToggleLog: TButton
|
|
Position.X = 416.000000000000000000
|
|
Position.Y = 14.000000000000000000
|
|
Size.Width = 90.000000000000000000
|
|
Size.Height = 24.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 5
|
|
Text = 'Hide log'
|
|
TextSettings.Trimming = None
|
|
OnClick = btnToggleLogClick
|
|
end
|
|
object lblStatus: TLabel
|
|
Position.X = 520.000000000000000000
|
|
Position.Y = 18.000000000000000000
|
|
Size.Width = 560.000000000000000000
|
|
Size.Height = 20.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TextSettings.Trimming = None
|
|
Text = 'Stopped'
|
|
TabOrder = 6
|
|
end
|
|
end
|
|
object PanelLog: TPanel
|
|
Align = Bottom
|
|
Position.Y = 564.000000000000000000
|
|
Size.Width = 1100.000000000000000000
|
|
Size.Height = 156.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 1
|
|
object Memo: TMemo
|
|
Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
|
|
DataDetectorTypes = []
|
|
ReadOnly = True
|
|
TextSettings.Font.Family = 'Consolas'
|
|
Align = Client
|
|
Size.Width = 1100.000000000000000000
|
|
Size.Height = 156.000000000000000000
|
|
Size.PlatformDefault = False
|
|
TabOrder = 0
|
|
Viewport.Width = 1096.000000000000000000
|
|
Viewport.Height = 152.000000000000000000
|
|
end
|
|
end
|
|
object Splitter: TSplitter
|
|
Align = Bottom
|
|
Cursor = crVSplit
|
|
MinSize = 20.000000000000000000
|
|
Position.Y = 558.000000000000000000
|
|
Size.Width = 1100.000000000000000000
|
|
Size.Height = 6.000000000000000000
|
|
Size.PlatformDefault = False
|
|
end
|
|
object PopupMenu1: TPopupMenu
|
|
Left = 424
|
|
Top = 240
|
|
end
|
|
end
|