Fixed line endings

pyscripter · pyscripter · commit 60d4dc617906 · 2021-11-24T21:23:58.000+02:00
diff --git a/Source/vcl/WrapVclComCtrls.pas b/Source/vcl/WrapVclComCtrls.pas
@@ -121,44 +121,44 @@   TPyDelphiTrackBar = class (TPyDelphiWinControl)
   end;
 
   TPyDelphiToolButton = class(TPyDelphiGraphicControl)
-  private
-    function GetDelphiObject: TToolButton;
-    procedure SetDelphiObject(const Value: TToolButton);
-  public
-    class function DelphiObjectClass: TClass; override;
-    property DelphiObject: TToolButton read GetDelphiObject
-      write SetDelphiObject;
-  end;
-
+  private
+    function GetDelphiObject: TToolButton;
+    procedure SetDelphiObject(const Value: TToolButton);
+  public
+    class function DelphiObjectClass: TClass; override;
+    property DelphiObject: TToolButton read GetDelphiObject
+      write SetDelphiObject;
+  end;
+
   TToolbarAccess = class(TContainerAccess)
-  private
-    function GetContainer: TToolbar;
-  public
-    function GetItem(AIndex: Integer): PPyObject; override;
-    function GetSize: Integer; override;
-    function IndexOf(AValue: PPyObject): Integer; override;
-    class function ExpectedContainerClass: TClass; override;
-    class function SupportsIndexOf: Boolean; override;
-    class function Name: string; override;
-    property Container: TToolbar read GetContainer;
-  end;
+  private
+    function GetContainer: TToolbar;
+  public
+    function GetItem(AIndex: Integer): PPyObject; override;
+    function GetSize: Integer; override;
+    function IndexOf(AValue: PPyObject): Integer; override;
+    class function ExpectedContainerClass: TClass; override;
+    class function SupportsIndexOf: Boolean; override;
+    class function Name: string; override;
+    property Container: TToolbar read GetContainer;
+  end;
 
   TPyDelphiToolbar = class(TPyDelphiWinControl)
-  private
-    function GetDelphiObject: TToolbar;
-    procedure SetDelphiObject(const Value: TToolbar);
-  protected
-    function Get_ButtonCount(AContext: Pointer): PPyObject; cdecl;
-    function Get_Buttons(AContext: Pointer): PPyObject; cdecl;
-  public
-    class function DelphiObjectClass: TClass; override;
-    class procedure RegisterGetSets(PythonType: TPythonType); override;
-    class function GetContainerAccessClass: TContainerAccessClass; override;
-
-    property DelphiObject: TToolbar read GetDelphiObject
-      write SetDelphiObject;
-  end;
-
+  private
+    function GetDelphiObject: TToolbar;
+    procedure SetDelphiObject(const Value: TToolbar);
+  protected
+    function Get_ButtonCount(AContext: Pointer): PPyObject; cdecl;
+    function Get_Buttons(AContext: Pointer): PPyObject; cdecl;
+  public
+    class function DelphiObjectClass: TClass; override;
+    class procedure RegisterGetSets(PythonType: TPythonType); override;
+    class function GetContainerAccessClass: TContainerAccessClass; override;
+
+    property DelphiObject: TToolbar read GetDelphiObject
+      write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -196,7 +196,7 @@ procedure TComCtrlsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrap
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTabSheet);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTrackBar);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiToolButton);
-  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiToolbar);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiToolbar);
 
   APyDelphiWrapper.EventHandlers.RegisterHandler(TTabChangingEventHandler);
 end;
@@ -375,7 +375,7 @@ class procedure TPyDelphiPageControl.RegisterGetSets(
         'Specifies the page currently displayed by the page control.', nil);
   {$IFNDEF FPC}
   PythonType.AddGetSet('Canvas', @TPyDelphiPageControl.Get_Canvas, nil,
-        'Gives access to the tab control&#65533;s canvas.', nil);
+        'Gives access to the tab control canvas.', nil);
   {$ENDIF FPC}
   PythonType.AddGetSet('PageCount', @TPyDelphiPageControl.Get_PageCount, nil,
         'Indicates the number of pages in the TPageControl object.', nil);
@@ -731,23 +731,23 @@ function TToolbarAccess.GetSize: Integer;
 
 function TToolbarAccess.IndexOf(AValue: PPyObject): Integer;
 var
-  _obj: TPyObject;
-  _item: TToolButton;
-begin
-  Result := -1;
-  with GetPythonEngine do
-  begin
-    if IsDelphiObject(AValue) then
-    begin
-      _obj := PythonToDelphi(AValue);
-      if (_obj is TPyDelphiObject) and
-        (TPyDelphiObject(_obj).DelphiObject is TToolButton) then
-      begin
-        _item := TToolButton(TPyDelphiObject(_obj).DelphiObject);
-        Result := _item.Index;
-      end;
-    end;
-  end;
+  _obj: TPyObject;
+  _item: TToolButton;
+begin
+  Result := -1;
+  with GetPythonEngine do
+  begin
+    if IsDelphiObject(AValue) then
+    begin
+      _obj := PythonToDelphi(AValue);
+      if (_obj is TPyDelphiObject) and
+        (TPyDelphiObject(_obj).DelphiObject is TToolButton) then
+      begin
+        _item := TToolButton(TPyDelphiObject(_obj).DelphiObject);
+        Result := _item.Index;
+      end;
+    end;
+  end;
 end;
 
 class function TToolbarAccess.Name: string;
@@ -780,28 +780,28 @@ function TPyDelphiToolbar.GetDelphiObject: TToolbar;
 function TPyDelphiToolbar.Get_Buttons(AContext: Pointer): PPyObject;
 begin
   Adjust(@Self);
-  Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
-  with PythonToDelphi(Result) as TPyDelphiContainer do
-    Setup(Self.PyDelphiWrapper, TToolbarAccess.Create(Self.PyDelphiWrapper,
-      Self.DelphiObject));
+  Result := PyDelphiWrapper.DefaultContainerType.CreateInstance;
+  with PythonToDelphi(Result) as TPyDelphiContainer do
+    Setup(Self.PyDelphiWrapper, TToolbarAccess.Create(Self.PyDelphiWrapper,
+      Self.DelphiObject));
 end;
 
 function TPyDelphiToolbar.Get_ButtonCount(AContext: Pointer): PPyObject;
 begin
   Adjust(@Self);
-  Result := GetPythonEngine.PyLong_FromLong(DelphiObject.ButtonCount);
+  Result := GetPythonEngine.PyLong_FromLong(DelphiObject.ButtonCount);
 end;
 
 class procedure TPyDelphiToolbar.RegisterGetSets(PythonType: TPythonType);
 begin
   inherited;
   with PythonType do
-  begin
-    AddGetSet('ButtonCount', @TPyDelphiToolbar.Get_ButtonCount, nil,
-      'Indicates the number of buttons in the toolbar.', nil);
-    AddGetSet('Actions', @TPyDelphiToolbar.Get_Buttons, nil,
-      'Lists the buttons of the toolbar.', nil);
-  end;
+  begin
+    AddGetSet('ButtonCount', @TPyDelphiToolbar.Get_ButtonCount, nil,
+      'Indicates the number of buttons in the toolbar.', nil);
+    AddGetSet('Actions', @TPyDelphiToolbar.Get_Buttons, nil,
+      'Lists the buttons of the toolbar.', nil);
+  end;
 end;
 
 procedure TPyDelphiToolbar.SetDelphiObject(const Value: TToolbar);
