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

UPD: apply ColorWell in PenColor Modern Tool Bar Item in ViewerForm on macOS

Browse source
This commit is contained in:
rich2014 2026-05-14 21:40:55 +08:00
commit 043cb97b90
1 changed files with 10 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -311,10 +311,11 @@ end;
procedure viewerPenColorAction( const Sender: id );
var
form: TfrmViewer;
item: TCocoaToolBarItemColorWell absolute Sender;
begin
form:= getCurrentViewerForm;
if Assigned(form) then
form.btnPenColor.Click;
form.btnPenColor.ButtonColor:= item.lclGetColor;
end;
procedure viewerSlideAction( const Sender: id );
@ -673,16 +674,20 @@ const
onGetMenu: @onViewerGetPenWidthMenu;
);
viewerPenColorItemConfig: TCocoaConfigToolBarItem = (
viewerPenColorItemConfig: TCocoaConfigToolBarItemColorWell = (
identifier: 'ViewerForm.PenColor';
priority: NSToolbarItemVisibilityPriorityStandard;
navigational: False;
appValidates: True;
iconName: 'eyedropper';
iconName: '';
title: 'Color';
tips: '';
tips: 'Color';
bordered: True;
onAction: @viewerPenColorAction;
wellStyle: NSColorWellStyleMinimal;
sizeWithStyle: ( width: 20; height: 14 );
sizeWithoutStyle: ( width: 16; height: 16 );
);
viewerFormConfig: TCocoaConfigForm = (
@ -894,6 +899,7 @@ var
item.setEnabled( paintButton.Down );
item:= TCocoaToolBarUtils.findItemByIdentifier( toolBar , 'ViewerForm.PenColor');
item.setEnabled( paintButton.Down );
TCocoaToolBarItemColorWell(item).lclSetColor( viewer.btnPenColor.ButtonColor );
end;
begin