Changeset 503 for trunk/Packages/DpiControls

Timestamp:

Dec 23, 2023, 8:59:07 PM (11 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/Packages/DpiControls/Dpi.StdCtrls.pas (modified) (7 diffs)

trunk/Packages/DpiControls/Dpi.StdCtrls.pas

@@ -93 +93 @@
   { TButton }
 
-  TButton = class(TControl)
+  TButton = class(TWinControl)
   private
   protected
-    function GetNativeControl: Controls.TControl; override;
+    function GetNativeWinControl: Controls.TWinControl; override;
   public
     NativeButton: StdCtrls.TButton;
@@ -155 +155 @@
   { TScrollBar }
 
-  TScrollBar = class(TControl)
+  TScrollBar = class(TWinControl)
   private
     function GetKind: TScrollBarKind;
@@ -170 +170 @@
     procedure SetPosition(AValue: Integer);
   protected
-    function GetNativeControl: Controls.TControl; override;
+    function GetNativeWinControl: Controls.TWinControl; override;
     function GetNativeScrollBar: StdCtrls.TScrollBar; virtual;
   public
@@ -178 +178 @@
   published
     property PageSize: Integer read GetPageSize write SetPageSize;
-    property Min: Integer read GetMin write SetMin;
-    property Max: Integer read GetMax write SetMax;
-    property Position: Integer read GetPosition write SetPosition;
-    property Kind: TScrollBarKind read GetKind write SetKind;
+    property Min: Integer read GetMin write SetMin default 0;
+    property Max: Integer read GetMax write SetMax default 100;
+    property Position: Integer read GetPosition write SetPosition default 0;
+    property Kind: TScrollBarKind read GetKind write SetKind default sbHorizontal;
     property OnChange: TNotifyEvent read GetOnChange write SetOnChange;
     property Visible;
@@ -197 +197 @@
 begin
   RegisterComponents(DpiControlsComponentPaletteName, [TEdit, TButton,
-    TScrollBar]);
+    TScrollBar, TListBox, TCheckBox, TComboBox]);
 end;
 
@@ -377 +377 @@
 { TButton }
 
-function TButton.GetNativeControl: Controls.TControl;
+function TButton.GetNativeWinControl: Controls.TWinControl;
 begin
   if not Assigned(NativeButton) then NativeButton := StdCtrls.TButton.Create(nil);
@@ -451 +451 @@
 end;
 
-function TScrollBar.GetNativeControl: Controls.TControl;
+function TScrollBar.GetNativeWinControl: Controls.TWinControl;
 begin
   Result := GetNativeScrollBar;