From 51d50e3074b9ca665d601d0d6e1d84caa671f7b9 Mon Sep 17 00:00:00 2001
From: andrew <andrew@lazarus-ide.org>
Date: Sat, 4 Feb 2006 17:51:53 +0000
Subject: [PATCH] basic implementation of TCheckBox for carbon

git-svn-id: trunk@8704 -
---
 lcl/interfaces/carbon/carbonprivate.pp    | 11 ++-
 lcl/interfaces/carbon/carbonwsstdctrls.pp | 82 ++++++++++++++++++++++-
 2 files changed, 91 insertions(+), 2 deletions(-)

diff --git a/lcl/interfaces/carbon/carbonprivate.pp b/lcl/interfaces/carbon/carbonprivate.pp
index d37f046708..3f78657d5c 100644
--- a/lcl/interfaces/carbon/carbonprivate.pp
+++ b/lcl/interfaces/carbon/carbonprivate.pp
@@ -95,6 +95,15 @@ type
     class procedure UnregisterEvents; override;
   end;
   TCarbonPrivateWindowClass = class of TCarbonPrivateWindow;
+  
+  TCarbonPrivateCheckBox = class(TCarbonPrivateHiView)
+  private
+  protected
+  public
+    class procedure RegisterEvents(AInfo: PWidgetInfo); override;
+    class procedure UnregisterEvents; override;
+  end;
+  TCarbonPrivateCheckBoxClass = class of TCarbonPrivateCheckBox;
 
   
 
@@ -102,7 +111,7 @@ implementation
 
 {$I carbonprivatehiview.inc}
 {$I carbonprivatewindow.inc}
-
+{$I carbonprivatecheckbox.inc}
 
 // move to inc
 procedure TCarbonPrivateHandle.RegisterEvents(AInfo: PWidgetInfo); 
diff --git a/lcl/interfaces/carbon/carbonwsstdctrls.pp b/lcl/interfaces/carbon/carbonwsstdctrls.pp
index 6d7e47734f..83b8f67ded 100644
--- a/lcl/interfaces/carbon/carbonwsstdctrls.pp
+++ b/lcl/interfaces/carbon/carbonwsstdctrls.pp
@@ -175,6 +175,11 @@ type
   private
   protected
   public
+    class function  CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLIntfHandle; override;
+    class function  RetrieveState(const ACustomCheckBox: TCustomCheckBox): TCheckBoxState; override;
+    class procedure SetShortCut(const ACustomCheckBox: TCustomCheckBox;
+      const OldShortCut, NewShortCut: TShortCut); override;
+    class procedure SetState(const ACustomCheckBox: TCustomCheckBox; const NewState: TCheckBoxState); override;
   end;
 
   { TCarbonWSCheckBox }
@@ -445,6 +450,81 @@ begin
   //TODO
 end;
 
+{ TCarbonWSCustomCheckBox }
+
+function TCarbonWSCustomCheckBox.CreateHandle(const AWinControl: TWinControl;
+  const AParams: TCreateParams): TLCLIntfHandle;
+var
+  CheckBox:TCheckBox;
+  Control: ControlRef;
+  CFString: CFStringRef;
+  R: Rect;
+  Info: PWidgetInfo;
+begin
+  Result := 0;
+  CheckBox := AWinControl as TCheckBox;
+
+  R.Left := AParams.X;
+  R.Top := AParams.Y;
+  R.Right := AParams.X + AParams.Width;
+  R.Bottom := AParams.Y + AParams.Height;
+
+  CFString := CFStringCreateWithCString(nil, Pointer(AParams.Caption), DEFAULT_CFSTRING_ENCODING);
+  if CreateCheckBoxControl(WindowRef(AParams.WndParent), R, CFString, Ord(CheckBox.Checked), True, Control) = noErr
+  then Result := TLCLIntfHandle(Control);
+  CFRelease(Pointer(CFString));
+  if Result = 0 then Exit;
+
+  Info := CreateWidgetInfo(Control, AWinControl);
+
+  TCarbonPrivateHandleClass(WSPrivate).RegisterEvents(Info);
+end;
+
+class function TCarbonWSCustomCheckBox.RetrieveState(
+  const ACustomCheckBox: TCustomCheckBox): TCheckBoxState;
+var
+  Control: ControlRef;
+begin
+  if not WSCheckHandleAllocated(ACustomCheckBox, 'RetrieveState')
+  then Exit;
+
+  Control := ControlRef(ACustomCheckBox.Handle);
+
+  case GetControl32BitValue(Control) of
+    kControlCheckBoxCheckedValue   : Result := cbChecked;
+    kControlCheckBoxUncheckedValue : Result := cbUnchecked;
+    kControlCheckBoxMixedValue     : ; // what the heck does this do?
+  end;
+end;
+
+class procedure TCarbonWSCustomCheckBox.SetShortCut(
+  const ACustomCheckBox: TCustomCheckBox; const OldShortCut,
+  NewShortCut: TShortCut);
+begin
+  // TODO
+end;
+
+class procedure TCarbonWSCustomCheckBox.SetState(
+  const ACustomCheckBox: TCustomCheckBox; const NewState: TCheckBoxState);
+var
+  Control: ControlRef;
+  Value: UInt32;
+begin
+  if not WSCheckHandleAllocated(ACustomCheckBox, 'SetState')
+  then Exit;
+
+  Control := ControlRef(ACustomCheckBox.Handle);
+
+  Value := kControlCheckBoxMixedValue; // give it a default value
+  
+  case NewState of
+    cbChecked  :  Value := kControlCheckBoxCheckedValue;
+    cbUnChecked: Value := kControlCheckBoxUncheckedValue;
+    //cbGrayed   : kControlCheckBoxMixedValue; // what the heck does this do?
+  end;
+  SetControl32BitValue(Control, Value);
+end;
+
 initialization
 
 ////////////////////////////////////////////////////
@@ -468,7 +548,7 @@ initialization
 //  RegisterWSComponent(TLabel, TCarbonWSLabel);
 //  RegisterWSComponent(TButtonControl, TCarbonWSButtonControl);
 //  RegisterWSComponent(TCustomCheckBox, TCarbonWSCustomCheckBox);
-//  RegisterWSComponent(TCheckBox, TCarbonWSCheckBox);
+  RegisterWSComponent(TCheckBox, TCarbonWSCustomCheckBox, TCarbonPrivateCheckBox);
 //  RegisterWSComponent(TCheckBox, TCarbonWSCheckBox);
 //  RegisterWSComponent(TToggleBox, TCarbonWSToggleBox);
 //  RegisterWSComponent(TRadioButton, TCarbonWSRadioButton);