UPD: MacCloud/Options: Improve keyboard accessibility

This commit is contained in:
rich2014 2025-05-20 18:34:35 +08:00
commit 2fd63c6e40
3 changed files with 4 additions and 2 deletions

View file

@ -134,6 +134,7 @@ begin
_saveButton.setTitle( StringToNSString(rsSaveButtonTitle) );
_saveButton.setTarget( self );
_saveButton.setAction( ObjCSelector('TWFXOAuth2PropertyView_saveConnection:') );
_saveButton.setKeyEquivalent( NSSTR(#13) );
self.addSubView( _saveButton );
_saveButton.release;

View file

@ -297,7 +297,6 @@ begin
end;
procedure TWFXS3PropertyView.initPropertyView;
begin
_logoImageView:= NSImageView.alloc.initWithFrame( NSMakeRect(224,560,32,32) );
self.addSubview( _logoImageView );
@ -346,11 +345,12 @@ begin
addLabel( StringToNSString(rsBucketLabel), NSMakeRect(20,230,120,20) );
_bucketTextField:= addTextField( NSMakeRect(146,230,290,22) );
_saveButton:= NSButton.alloc.initWithFrame( NSMakeRect(190,190,100,22) );
_saveButton:= NSButton.alloc.initWithFrame( NSMakeRect(200,190,100,22) );
_saveButton.setBezelStyle( NSRoundedBezelStyle );
_saveButton.setTitle( StringToNSString(rsSaveButtonTitle) );
_saveButton.setTarget( self );
_saveButton.setAction( ObjCSelector('TWFXS3PropertyView_saveConnection:') );
_saveButton.setKeyEquivalent( NSSTR(#13) );
self.addSubView( _saveButton );
_saveButton.release;

View file

@ -531,6 +531,7 @@ begin
NSFullSizeContentViewWindowMask or NSTitledWindowMask or NSClosableWindowMask,
NSBackingStoreBuffered,
True );
win.setAutorecalculatesKeyViewLoop( True );
win.loadConnections;
win.setDelegate( win );
win.setTitlebarAppearsTransparent( True );