mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-28 10:02:14 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: logs for debugging on macOS

Browse source
This commit is contained in:
rich2014 2025-12-31 18:47:11 +08:00
commit 5cac3685fd
1 changed files with 42 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

42
src/platform/unix/darwin/udarwinapplication.pas
View file

@ -7,6 +7,7 @@ interface
uses
Classes, SysUtils, Menus, uLng,
Controls, Forms, ExtCtrls, LazLoggerBase, uLog,
MacOSAll, CocoaAll,
CocoaInt, CocoaPrivate, CocoaThemes, Cocoa_Extra, CocoaMenus, CocoaUtils, CocoaConst,
uDarwinUtil, uDarwinFinder;
@ -303,5 +304,46 @@ begin
AttachEditMenu( menu, menu.numberOfItems, CocoaConst.NSSTR_EDIT_MENU );
end;
type
TDebugTimer = class( TTimer )
procedure log( Sender: TObject );
end;
procedure TDebugTimer.log(Sender: TObject);
var
form: TForm;
control: TControl;
DCApp: TDCCocoaApplication Absolute NSApp;
window: NSWindow;
responder: NSResponder;
begin
form:= Screen.ActiveForm;
control:= form.ActiveControl;
LogWrite( '>>> ' + TimeToStr(now) );
LogWrite( 'LCL:' );
LogWrite( ' ' + DbgsName(form) );
LogWrite( ' ' + DbgsName(control) );
window:= DCApp.keyWindow;
responder:= window.firstResponder;
LogWrite( 'COCOA:' );
LogWrite( ' ' + window.className.UTF8String + ': ' + DbgsName(window.lclGetTarget) );
LogWrite( ' ' + responder.className.UTF8String + ': ' + DbgsName(responder.lclGetTarget) );
LogWrite( '' );
end;
var
debugTimer: TDebugTimer;
initialization
debugTimer:= TDebugTimer.Create( nil );
debugTimer.Interval:= 10*1000;
debugTimer.OnTimer:= @debugTimer.log;
debugTimer.Enabled:= True;
end.