1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250
|
{
*****************************************************************************
* CocoaWSCheckLst.pp *
* --------------- *
* *
* *
*****************************************************************************
*****************************************************************************
This file is part of the Lazarus Component Library (LCL)
See the file COPYING.modifiedLGPL.txt, included in this distribution,
for details about the license.
*****************************************************************************
}
unit CocoaWSCheckLst;
{$mode objfpc}{$H+}
{$modeswitch objectivec1}
{$modeswitch objectivec2}
interface
uses
// Libs
MacOSAll, CocoaAll, Classes, sysutils,
// LCL
Controls, StdCtrls, CheckLst, LCLType, LCLMessageGlue,
// Widgetset
WSCheckLst, WSLCLClasses,
// LCL Cocoa
CocoaWSCommon, CocoaPrivate, CocoaConfig, CocoaGDIObjects,
CocoaWSStdCtrls, CocoaListControl, CocoaTables, CocoaScrollers, CocoaWSScrollers;
type
{ TLCLCheckboxListCallback }
TLCLCheckboxListCallback = class(TLCLListBoxCallback)
protected
function AllocStrings(ATable: NSTableView): TCocoaListControlStringList; override;
public
checklist: TCustomCheckListBox;
constructor Create(AOwner: NSObject; ATarget: TWinControl; AHandleView: NSView); override;
procedure SetItemCheckedAt( row: Integer; CheckState: Integer); override;
function drawItem(row: Integer; ctx: TCocoaContext; const r: TRect;
state: TOwnerDrawState): Boolean; override;
end;
{ TCocoaTableCheckListBoxProcessor }
TCocoaTableCheckListBoxProcessor = class( TCocoaTableListBoxProcessor )
procedure onOwnerDrawItem(rowView: NSView); override;
end;
{ TCocoaWSCustomCheckListBox }
TCocoaWSCustomCheckListBox = class(TWSCustomCheckListBox)
published
class function CreateHandle(const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle; override;
class function GetState(const ACheckListBox: TCustomCheckListBox; const AIndex: integer): TCheckBoxState; override;
class procedure SetState(const ACheckListBox: TCustomCheckListBox; const AIndex: integer; const AState: TCheckBoxState); override;
class function GetCheckWidth(const ACheckListBox: TCustomCheckListBox): integer; override;
class procedure SetStyle(const ACustomListBox: TCustomListBox); override;
end;
implementation
{ TLCLCheckboxListCallback }
function TLCLCheckboxListCallback.AllocStrings(ATable: NSTableView): TCocoaListControlStringList;
begin
Result:=TCocoaListBoxStringList.Create(ATable);
end;
constructor TLCLCheckboxListCallback.Create(AOwner: NSObject; ATarget: TWinControl; AHandleView: NSView);
begin
inherited Create(AOwner, ATarget, AHandleView);
if ATarget is TCustomCheckListBox then
checklist := TCustomCheckListBox(ATarget);
end;
procedure TLCLCheckboxListCallback.SetItemCheckedAt( row: Integer;
CheckState: Integer);
begin
Inherited;
LCLSendChangedMsg( self.Target, row );
end;
function TLCLCheckboxListCallback.drawItem(row: Integer; ctx: TCocoaContext;
const r: TRect; state: TOwnerDrawState): Boolean;
var
rectReducedLeftSpacing: TRect;
lv: TCocoaTableListView;
itemView: NSView;
begin
rectReducedLeftSpacing:= r;
lv:= TCocoaTableListView( self.Owner );
if Assigned(lv) then begin
itemView:= lv.viewAtColumn_row_makeIfNecessary( 0, row, false );
if Assigned(itemView) then
rectReducedLeftSpacing.Left:= Round( itemView.frame.origin.x );
end;
Result:= inherited drawItem(row, ctx, rectReducedLeftSpacing, state);
end;
{ TCocoaTableCheckListBoxProcessor }
procedure TCocoaTableCheckListBoxProcessor.onOwnerDrawItem(rowView: NSView);
var
itemView: TCocoaTableListItem;
begin
itemView:= TCocoaTableListItem( rowView.subviews.objectAtIndex(0) );
if NOT Assigned(itemView) then
Exit;
if Assigned(itemView.imageView) then
itemView.imageView.setHidden( True );
if Assigned(itemView.textField) then
itemView.textField.setHidden( True );
end;
{ TCocoaWSCustomCheckListBox }
{------------------------------------------------------------------------------
Method: TCocoaWSCustomCheckListBox.CreateHandle
Params: AWinControl - LCL control
AParams - Creation parameters
Returns: Handle to the control in Cocoa interface
Creates new check list box in Cocoa interface with the specified parameters
------------------------------------------------------------------------------}
class function TCocoaWSCustomCheckListBox.CreateHandle(
const AWinControl: TWinControl; const AParams: TCreateParams): TLCLHandle;
var
list: TCocoaTableListView;
scroll: TCocoaScrollView;
processor: TCocoaTableViewProcessor;
lclCheckListBox: TCustomCheckListBox absolute AWinControl;
begin
list := AllocCocoaTableListView.lclInitWithCreateParams(AParams);
if not Assigned(list) then
begin
Result := 0;
Exit;
end;
processor:= TCocoaTableCheckListBoxProcessor.Create;
list.lclSetProcessor( processor );
list.callback := TLCLCheckboxListCallback.CreateWithView(list, AWinControl);
list.lclSetCheckboxes(true);
list.lclSetCheckBoxAllowsMixed( lclCheckListBox.AllowGrayed );
//list.list := TCocoaStringList.Create(list);
list.addTableColumn(NSTableColumn.alloc.init.autorelease);
list.setHeaderView(nil);
list.setDataSource(list);
list.setDelegate(list);
list.setAllowsMultipleSelection(lclCheckListBox.MultiSelect);
list.CustomRowHeight:= lclCheckListBox.ItemHeight;
list.readOnly := true;
//todo:
//list.AllowMixedState := TCustomCheckListBox(AWinControl).AllowGrayed;
list.isOwnerDraw := lclCheckListBox.Style in [lbOwnerDrawFixed, lbOwnerDrawVariable];
ListBoxSetStyle(list, TCustomListBox(AWinControl).Style);
scroll := EmbedInScrollView(list);
if not Assigned(scroll) then
begin
Result := 0;
Exit;
end;
scroll.callback := list.callback;
scroll.setHasVerticalScroller(true);
scroll.setAutohidesScrollers(true);
ScrollViewSetBorderStyle(scroll, lclCheckListBox.BorderStyle);
UpdateControlFocusRing(list, AWinControl);
Result := TLCLHandle(scroll);
end;
{------------------------------------------------------------------------------
Method: TCocoaWSCustomCheckListBox.GetState
Params: ACustomCheckListBox - LCL custom check list box
AIndex - Item index
Returns: If the specified item in check list box in Cocoa interface is
checked, grayed or unchecked
------------------------------------------------------------------------------}
class function TCocoaWSCustomCheckListBox.GetState(
const ACheckListBox: TCustomCheckListBox; const AIndex: integer): TCheckBoxState;
const
checkStateArray: Array [NSMixedState..NSOnState] of TCheckBoxState =
( cbGrayed, cbUnchecked, cbChecked );
var
lclcb : TLCLCheckboxListCallback;
checkState: Integer;
begin
Result:= cbUnchecked;
lclcb:= TLCLCheckboxListCallback( getCallbackFromLCLListBox(ACheckListBox) );
if NOT Assigned(lclcb) then
Exit;
if lclcb.GetItemCheckedAt(AIndex, checkState) then
Result:= checkStateArray[checkState];
end;
{------------------------------------------------------------------------------
Method: TCocoaWSCustomCheckListBox.SetState
Params: ACustomCheckListBox - LCL custom check list box
AIndex - Item index to change checked value
AChecked - New checked value
Changes checked value of item with the specified index of check list box in
Cocoa interface
------------------------------------------------------------------------------}
class procedure TCocoaWSCustomCheckListBox.SetState(
const ACheckListBox: TCustomCheckListBox; const AIndex: integer;
const AState: TCheckBoxState);
const
checkStateArray: Array [TCheckBoxState] of Integer =
( NSOffState, NSOnState, NSMixedState );
var
cocoaTLV: TCocoaTableListView;
lclcb : TLCLCheckboxListCallback;
checkState: Integer;
begin
lclcb:= TLCLCheckboxListCallback( getCallbackFromLCLListBox(ACheckListBox) );
if NOT Assigned(lclcb) then
Exit;
checkState:= checkStateArray[AState];
lclcb.SetItemCheckedAt( AIndex, checkState );
cocoaTLV:= getTableViewFromLCLListBox( ACheckListBox );
cocoaTLV.reloadDataForRow_column( AIndex, 0 );
end;
class function TCocoaWSCustomCheckListBox.GetCheckWidth(
const ACheckListBox: TCustomCheckListBox): integer;
begin
Result:= Round( CocoaConfigListView.vsList.item.checkBoxOccupiedWidth );
end;
class procedure TCocoaWSCustomCheckListBox.SetStyle(
const ACustomListBox: TCustomListBox);
begin
TCocoaWSCustomListBox.SetStyle( ACustomListBox );
end;
end.
|