Added access to the RowHeights property

ReinierNL · ReinierNL · commit cf2d86cfef15 · 2020-11-01T15:05:24.000+01:00
diff --git a/Source/WrapDelphiGrids.pas b/Source/WrapDelphiGrids.pas
@@ -43,6 +43,21 @@   TGridColWidthsAccess = class(TContainerAccess)
     property Container : TCustomDrawGrid read GetContainer;
   end;
 
+  TGridRowHeightsAccess = class(TContainerAccess)
+  private
+    function GetContainer: TCustomDrawGrid;
+  public
+    function GetItem(AIndex : Integer) : PPyObject; override;
+    function GetSize : Integer; override;
+    function SetItem(AIndex : Integer; AValue : PPyObject) : Boolean; override;
+
+    class function ExpectedContainerClass : TClass; override;
+    class function SupportsWrite : Boolean; override;
+    class function Name : string; override;
+
+    property Container : TCustomDrawGrid read GetContainer;
+  end;
+
   TPyDelphiCustomGrid = class (TPyDelphiWinControl)
   private
     function  GetDelphiObject: TCustomGrid;
@@ -73,7 +88,7 @@   TPyDelphiCustomDrawGrid = class (TPyDelphiCustomGrid)
     function Get_LeftCol(AContext : Pointer): PPyObject; cdecl;
     function Get_Selection(AContext : Pointer): PPyObject; cdecl;
     function Get_Row(AContext : Pointer): PPyObject; cdecl;
-    //function Get_RowHeights(AContext : Pointer): PPyObject; cdecl;
+    function Get_RowHeights(AContext : Pointer): PPyObject; cdecl;
     //function Get_TabStops(AContext : Pointer): PPyObject; cdecl;
     function Get_TopRow(AContext : Pointer): PPyObject; cdecl;
 
@@ -307,6 +322,9 @@ class function TSelectCellEventHandler.GetTypeInfo: PTypeInfo;
 
 { TGridColWidthsAccess }
 
+type
+  TCustomDrawGridAccess = class(TCustomDrawGrid);
+
 class function TGridColWidthsAccess.ExpectedContainerClass: TClass;
 begin
   result:=TCustomGrid;
@@ -323,9 +341,6 @@ function TGridColWidthsAccess.GetItem(AIndex: Integer): PPyObject;
     Result:=PyLong_FromLong(Container.ColWidths[AIndex]);
 end;
 
-type
-  TCustomDrawGridAccess = class(TCustomDrawGrid);
-
 function TGridColWidthsAccess.GetSize: Integer;
 begin
   result:=TCustomDrawGridAccess(Container).ColCount;
@@ -349,6 +364,47 @@ class function TGridColWidthsAccess.SupportsWrite: Boolean;
   result:=True;
 end;
 
+{ TGridRowHeightsAccess }
+
+class function TGridRowHeightsAccess.ExpectedContainerClass: TClass;
+begin
+  result:=TCustomGrid;
+end;
+
+function TGridRowHeightsAccess.GetContainer: TCustomDrawGrid;
+begin
+  result:=TCustomDrawGrid(inherited Container);
+end;
+
+function TGridRowHeightsAccess.GetItem(AIndex: Integer): PPyObject;
+begin
+  with GetPythonEngine do
+    Result:=PyLong_FromLong(Container.RowHeights[AIndex]);
+end;
+
+function TGridRowHeightsAccess.GetSize: Integer;
+begin
+  result:=TCustomDrawGridAccess(Container).RowCount;
+end;
+
+class function TGridRowHeightsAccess.Name: string;
+begin
+  result:='TCustomGrid.RowHeights';
+end;
+
+function TGridRowHeightsAccess.SetItem(AIndex: Integer;
+  AValue: PPyObject): Boolean;
+begin
+  result:=True;
+  with GetPythonEngine do
+    Container.RowHeights[AIndex]:=PyLong_AsLong(AValue);
+end;
+
+class function TGridRowHeightsAccess.SupportsWrite: Boolean;
+begin
+  result:=True;
+end;
+
 { TPyDelphiCustomGrid }
 
 class function TPyDelphiCustomGrid.DelphiObjectClass: TClass;
@@ -432,6 +488,15 @@ function TPyDelphiCustomDrawGrid.Get_Row(AContext: Pointer): PPyObject;
   Result := GetPythonEngine.PyLong_FromLong(DelphiObject.Row);
 end;
 
+function TPyDelphiCustomDrawGrid.Get_RowHeights(
+  AContext: Pointer): PPyObject;
+begin
+  Adjust(@Self);
+  Result := Self.PyDelphiWrapper.DefaultContainerType.CreateInstance;
+  with PythonToDelphi(Result) as TPyDelphiContainer do
+    Setup(Self.PyDelphiWrapper, TGridRowHeightsAccess.Create(Self.PyDelphiWrapper, Self.DelphiObject));
+end;
+
 function TPyDelphiCustomDrawGrid.Get_Selection(
   AContext: Pointer): PPyObject;
 begin
@@ -474,6 +539,8 @@ class procedure TPyDelphiCustomDrawGrid.RegisterGetSets(
         'Indicates the boundaries of the current selection.', nil);
       AddGetSet('Row', @TPyDelphiCustomDrawGrid.Get_Row, @TPyDelphiCustomDrawGrid.Set_Row,
         'Specifies the index of the row that contains the selected cell.', nil);
+      AddGetSet('RowHeights', @TPyDelphiCustomDrawGrid.Get_RowHeights, nil,
+        'Specifies row heights of the grid', nil);
       AddGetSet('TopRow', @TPyDelphiCustomDrawGrid.Get_TopRow, @TPyDelphiCustomDrawGrid.Set_TopRow,
         'Specifies the index of the first visible scrollable row in the grid.', nil);
     end;
