mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

ADD: actions to the Zoom/Rotate Modern ToolBar Items in ViewerForm on macOS 11+

Browse source
This commit is contained in:
rich2014 2026-05-06 16:42:06 +08:00
commit c753d6f3cc
1 changed files with 50 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

55
src/platform/unix/darwin/ucocoamodernformconfig_viewer.inc
View file

@ -135,6 +135,51 @@ begin
form.cm_DeleteFile( [] );
end;
procedure viewerZoomInAction( const Sender: id );
var
form: TfrmViewer;
begin
form:= getCurrentViewerForm;
if Assigned(form) then
form.cm_ZoomIn( [] );
end;
procedure viewerZoomOutAction( const Sender: id );
var
form: TfrmViewer;
begin
form:= getCurrentViewerForm;
if Assigned(form) then
form.cm_ZoomOut( [] );
end;
procedure viewerRotate270Action( const Sender: id );
var
form: TfrmViewer;
begin
form:= getCurrentViewerForm;
if Assigned(form) then
form.cm_Rotate270( [] );
end;
procedure viewerRotate90Action( const Sender: id );
var
form: TfrmViewer;
begin
form:= getCurrentViewerForm;
if Assigned(form) then
form.cm_Rotate90( [] );
end;
procedure viewerMirrorAction( const Sender: id );
var
form: TfrmViewer;
begin
form:= getCurrentViewerForm;
if Assigned(form) then
form.cm_MirrorHorz( [] );
end;
procedure onViewerGetPenWidthMenu( const menu: TMenu );
var
i: Integer;
@ -223,7 +268,7 @@ const
title: 'Zoom In';
tips: 'Zoom In';
bordered: True;
onAction: nil;
onAction: @viewerZoomInAction;
);
viewerZoomOutItemConfig: TCocoaConfigToolBarItem = (
@ -234,7 +279,7 @@ const
title: 'Zoom Out';
tips: 'Zoom Out';
bordered: True;
onAction: nil;
onAction: @viewerZoomOutAction;
);
viewerRotate270ItemConfig: TCocoaConfigToolBarItem = (
@ -245,7 +290,7 @@ const
title: 'Rotate -90 degree';
tips: 'Rotate -90 degree';
bordered: True;
onAction: nil;
onAction: @viewerRotate270Action;
);
viewerRotate90ItemConfig: TCocoaConfigToolBarItem = (
@ -256,7 +301,7 @@ const
title: 'Rotate +90 degree';
tips: 'Rotate +90 degree';
bordered: True;
onAction: nil;
onAction: @viewerRotate90Action;
);
viewerMirrorItemConfig: TCocoaConfigToolBarItem = (
@ -267,7 +312,7 @@ const
title: 'Mirror';
tips: 'Mirror';
bordered: True;
onAction: nil;
onAction: @viewerMirrorAction;
);
viewerGifMoveItemConfig: TCocoaConfigToolBarItem = (