paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 03:35:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: Implements ColorDialog

Browse Source 
git-svn-id: trunk@49886 -
This commit is contained in:
sekelsenmat 2015-09-28 17:53:18 +00:00
parent 40e2ef952b
commit 0b6855c54f
2 changed files with 107 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

110
lcl/interfaces/cocoa/cocoawsdialogs.pp
View File

@ -85,14 +85,23 @@ type
class procedure ShowModal(const ACommonDialog: TCommonDialog); override;
end;
TColorPanelDelegate = objcclass(NSObject, NSWindowDelegateProtocol)
public
colorPanel: NSColorPanel;
ColorDialog: TColorDialog;
DontPickColorOnClose: Boolean;
// NSWindowDelegateProtocol
procedure windowWillClose(notification: NSNotification); message 'windowWillClose:';
//
procedure doPickColor; message 'doPickColor';
procedure pickColor; message 'pickColor'; // button action
procedure exit; message 'exit'; // button action
end;
implementation
{ TCocoaWSFileDialog }
{------------------------------------------------------------------------------
Method: TCocoaWSFileDialog.ShowModal
Params: ACommonDialog - LCL common dialog
@ -235,20 +244,75 @@ end; {TCocoaWSFileDialog.ShowModal}
------------------------------------------------------------------------------}
class procedure TCocoaWSColorDialog.ShowModal(const ACommonDialog: TCommonDialog);
var
ColorDialog: TColorDialog;
colorDelegate: TColorPanelDelegate;
ColorDialog: TColorDialog absolute ACommonDialog;
colorPanel: NSColorPanel;
session: NSModalSession;
inColor: RGBColor = (red: 128; green: 128; blue: 128);
outColor: RGBColor = (red: 0; green: 0; blue: 0);
//point: Point; = {0, 0};
// accessory view
accessoryView: NSView;
lRect: NSRect;
okButton, cancelButton: NSButton;
begin
{$IFDEF VerboseWSClass}
DebugLn('TCocoaWSColorDialog.ShowModal for ' + ACommonDialog.Name);
{$ENDIF}
ACommonDialog.UserChoice := mrCancel;
ColorDialog := ACommonDialog as TColorDialog;
colorPanel := NSColorPanel.sharedColorPanel();
colorPanel.setColor(ColorToNSColor(ColorDialog.Color));
colorDelegate := TColorPanelDelegate.alloc.init();
colorDelegate.colorPanel := colorPanel;
colorDelegate.ColorDialog := ColorDialog;
// setup panel and its accessory view
lRect := GetNSRect(0, 0, 220, 30);
accessoryView := NSView.alloc.initWithFrame(lRect);
lRect := GetNSRect(110, 4, 110-8, 24);
okButton := NSButton.alloc.initWithFrame(lRect);
okButton.setButtonType(NSMomentaryPushInButton);
okButton.setBezelStyle(NSRoundedBezelStyle);
okButton.setTitle(NSStringUtf8('Pick'));
okButton.setAction(objcselector('pickColor'));
okButton.setTarget(colorDelegate);
lRect := GetNSRect(8, 4, 110-8, 24);
cancelButton := NSButton.alloc.initWithFrame(lRect);
cancelButton.setButtonType(NSMomentaryPushInButton);
cancelButton.setBezelStyle(NSRoundedBezelStyle);
cancelButton.setTitle(NSStringUtf8('Cancel'));
cancelButton.SetAction(objcselector('exit'));
cancelButton.setTarget(colorDelegate);
accessoryView.addSubview(okButton.autorelease);
accessoryView.addSubview(cancelButton.autorelease);
colorPanel.setDelegate(colorDelegate);
colorPanel.setAccessoryView(accessoryView.autorelease);
colorPanel.setShowsAlpha(True);
colorPanel.setDefaultButtonCell(okButton.cell);
// load user settings
(*NSUserDefaults *defaults = [NSUserDefaults standardUserDefaults];
NSString *color = [defaults stringForKey:@"startColor"];
if (color != nil) {
[panel setColor:[NSColor colorFromHex:color]];
}
[panel setMode:[defaults integerForKey:@"mode"]]; // will be 0 if not set, wich is NSGrayModeColorPanel
*)
// show panel
colorPanel.makeKeyAndOrderFront(colorDelegate);
NSApp.runModalForWindow(colorPanel);
end;
{ TCocoaWSFontDialog }
{------------------------------------------------------------------------------
Method: TCocoaWSFontDialog.ShowModal
Params: ACommonDialog - LCL font dialog
@ -267,4 +331,36 @@ begin
AFontDialog.UserChoice := mrCancel;
end;
{ TColorPanelDelegate }
procedure TColorPanelDelegate.windowWillClose(notification: NSNotification);
begin
if not DontPickColorOnClose then
begin
ColorDialog.UserChoice := mrOk;
doPickColor();
end;
NSApp.stopModal();
end;
procedure TColorPanelDelegate.doPickColor();
begin
ColorDialog.Color := NSColorToRGB(colorPanel.color);
end;
procedure TColorPanelDelegate.pickColor();
begin
ColorDialog.UserChoice := mrCancel;
DontPickColorOnClose := True;
doPickColor();
exit();
end;
procedure TColorPanelDelegate.exit();
begin
ColorDialog.UserChoice := mrOk;
DontPickColorOnClose := True;
colorPanel.close();
end;
end.

7
lcl/interfaces/cocoa/cocoawsfactory.pas
View File

@ -222,8 +222,8 @@ end;
function RegisterFileDialog: Boolean; alias : 'WSRegisterFileDialog';
begin
RegisterWSComponent(TFileDialog, TCocoaWSFileDialog);
Result := True;
RegisterWSComponent(TFileDialog, TCocoaWSFileDialog);
Result := True;
end;
function RegisterOpenDialog: Boolean; alias : 'WSRegisterOpenDialog';
@ -243,7 +243,8 @@ end;
function RegisterColorDialog: Boolean; alias : 'WSRegisterColorDialog';
begin
Result := False;
RegisterWSComponent(TColorDialog, TCocoaWSColorDialog);
Result := True;
end;
function RegisterColorButton: Boolean; alias : 'WSRegisterColorButton';