r-zakarya
ab8186ef75
Decisive observation: the taskbar button is already up before FormCreate is entered. Everything I had tried lived inside the form, so all of it ran after the button was drawn — the watcher included, which is why moving it around never helped. StartTrayProxyHider is now exported from UMainForm and called from the .dpr right after Application.Initialize, before CreateForm. It polls every 5 ms and hides our TFMAppClass proxy unconditionally (the button can be up before WS_VISIBLE reads as set, which the previous IsWindowVisible check would have skipped), stopping as soon as the tray startup completes so a user restoring from the tray is never fought. Raw Win32 only — FindWindowEx + ShowWindow, no FMX object touched at that point, which is what made the earlier .dpr attempt crash. Co-Authored-By: Claude Opus 4.8 <noreply@anthropic.com>
137 lines
3.9 KiB
Plaintext
137 lines
3.9 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
|
|
object Timer1: TTimer
|
|
Interval = 1
|
|
OnTimer = Timer1Timer
|
|
Left = 568
|
|
Top = 184
|
|
end
|
|
end
|