Zaki
39406d712e
Ctrl+Shift+Q quick-search + autofill
- New global hotkey: capture the foreground HWND, restore the window
if hidden, pop the quick-search modal in "fill mode". On pick, the
password is SendInput'd into the saved HWND — no clipboard touch.
- hide_after flag added to cmd://autofill/execute: when set (tray-mode
hotkey), Delphi MinimizeToTray's *after* SendInput completes. Hiding
before SendInput would trip Win10/11 anti-focus-stealing rules and
block focus handoff to the target.
- Quick-search modal hint text adapts to fill vs copy mode.
- Esc / close in fill mode sends cmd://autofill/cancel so a stale
HWND doesn't get reused by an unrelated Ctrl+Shift+L later.
Compile-time browser engine switch
- {.$DEFINE USE_EDGE_BROWSER} in UMainForm.pas selects between
TTMSFNCWebBrowser (default, cross-platform abstraction) and
TTMSFNCEdgeWebBrowser (Windows-only WebView2 wrapper). Both
inherit from TTMSFNCCustomWebBrowser so the bridge cmd:// glue is
unchanged; the field type is a conditional alias TWebBrowserClass.
- WebBrowser is created dynamically in FormCreate so neither variant
needs a second .fmx. Events are wired BEFORE Parent assignment so
OnInitialized doesn't race the WebView2 async init on fast/pre-warmed
Edge installs (was silently missing the disable-context-menu /
disable-accelerator-keys calls).
- Native context menu disabled by assigning an empty PopupMenu1 (works
for both backends, unlike OnGetContextMenu which is publish-gated
via {$IFNDEF FNCLIB} on TTMSFNCWebBrowser).
Co-Authored-By: Claude Opus 4.7 <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
|