Adding TTrackBar wrapper

lmbelo · lmbelo · commit 5494e2220df8 · 2021-09-29T14:09:37.000-07:00
diff --git a/Source/vcl/WrapVclComCtrls.pas b/Source/vcl/WrapVclComCtrls.pas
@@ -103,6 +103,16 @@   TPyDelphiPageControl = class (TPyDelphiWinControl)
     property DelphiObject: TPageControl read GetDelphiObject write SetDelphiObject;
   end;
 
+  TPyDelphiTrackBar = class (TPyDelphiWinControl)
+  private
+    function GetDelphiObject: TTrackBar;
+    procedure SetDelphiObject(const Value: TTrackBar);
+  public
+    class function DelphiObjectClass : TClass; override;
+    // Properties
+    property DelphiObject: TTrackBar read GetDelphiObject write SetDelphiObject;
+  end;
+
 implementation
 
 uses
@@ -137,6 +147,7 @@ procedure TComCtrlsRegistration.RegisterWrappers(APyDelphiWrapper: TPyDelphiWrap
   {$ENDIF FPC}
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiPageControl);
   APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTabSheet);
+  APyDelphiWrapper.RegisterDelphiWrapper(TPyDelphiTrackBar);
 
   APyDelphiWrapper.EventHandlers.RegisterHandler(TTabChangingEventHandler);
 end;
@@ -613,6 +624,23 @@ class function TTabChangingEventHandler.GetTypeInfo: PTypeInfo;
   Result := System.TypeInfo(TTabChangingEvent);
 end;
 
+{ TPyDelphiTrackBar }
+
+class function TPyDelphiTrackBar.DelphiObjectClass: TClass;
+begin
+  Result := TTrackBar;
+end;
+
+function TPyDelphiTrackBar.GetDelphiObject: TTrackBar;
+begin
+  Result := TTrackBar(inherited DelphiObject);
+end;
+
+procedure TPyDelphiTrackBar.SetDelphiObject(const Value: TTrackBar);
+begin
+  DelphiObject := Value;
+end;
+
 initialization
   RegisteredUnits.Add( TComCtrlsRegistration.Create );
   {$IFNDEF FPC}
