Changeset 502 for trunk/Packages

Timestamp:

Dec 23, 2023, 1:50:31 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Non-DPI build.
• Modified: Code cleanup.

Location:

trunk/Packages

Files:

• CevoComponents/ScreenTools.pas (modified) (2 diffs)
• DpiControls/Dpi.StdCtrls.pas (modified) (2 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -100 +100 @@
 {$IFNDEF DPI}
 function ScaleToNative(Value: Integer): Integer;
+function ScaleToNativeDist(Base, Value: Integer): Integer;
 function ScaleFromNative(Value: Integer): Integer;
 {$ENDIF}
@@ -1652 +1653 @@
 end;
 
+function ScaleToNativeDist(Base, Value: Integer): Integer;
+begin
+  Result := Value;
+end;
+
 function ScaleFromNative(Value: Integer): Integer;
 begin

trunk/Packages/DpiControls/Dpi.StdCtrls.pas

@@ -171 +171 @@
   protected
     function GetNativeControl: Controls.TControl; override;
+    function GetNativeScrollBar: StdCtrls.TScrollBar; virtual;
   public
     NativeScrollBar: StdCtrls.TScrollBar;
@@ -392 +393 @@
 function TScrollBar.GetKind: TScrollBarKind;
 begin
-  Result := NativeScrollBar.Kind;
+  Result := GetNativeScrollBar.Kind;
 end;
 
 function TScrollBar.GetMax: Integer;
 begin
-  Result := NativeScrollBar.Max;
+  Result := GetNativeScrollBar.Max;
 end;
 
 function TScrollBar.GetMin: Integer;
 begin
-  Result := NativeScrollBar.Min;
+  Result := GetNativeScrollBar.Min;
 end;
 
 function TScrollBar.GetOnChange: TNotifyEvent;
 begin
-  Result := NativeScrollBar.OnChange;
+  Result := GetNativeScrollBar.OnChange;
 end;
 
 function TScrollBar.GetPageSize: Integer;
 begin
-  Result := NativeScrollBar.PageSize;
+  Result := GetNativeScrollBar.PageSize;
 end;
 
 function TScrollBar.GetPosition: Integer;
 begin
-  Result := NativeScrollBar.Position;
+  Result := GetNativeScrollBar.Position;
 end;
 
 procedure TScrollBar.SetKind(AValue: TScrollBarKind);
 begin
-  NativeScrollBar.Kind := AValue;
+  GetNativeScrollBar.Kind := AValue;
 end;
 
 procedure TScrollBar.SetMax(AValue: Integer);
 begin
-  NativeScrollBar.Max := AValue;
+  GetNativeScrollBar.Max := AValue;
 end;
 
 procedure TScrollBar.SetMin(AValue: Integer);
 begin
-  NativeScrollBar.Min := Avalue;
+  GetNativeScrollBar.Min := Avalue;
 end;
 
 procedure TScrollBar.SetOnChange(AValue: TNotifyEvent);
 begin
-  NativeScrollBar.OnChange := AValue;
+  GetNativeScrollBar.OnChange := AValue;
 end;
 
 procedure TScrollBar.SetPageSize(AValue: Integer);
 begin
-  NativeScrollBar.PageSize := AValue;
+  GetNativeScrollBar.PageSize := AValue;
 end;
 
 procedure TScrollBar.SetPosition(AValue: Integer);
 begin
-  NativeScrollBar.Position := AValue;
+  GetNativeScrollBar.Position := AValue;
 end;
 
 function TScrollBar.GetNativeControl: Controls.TControl;
+begin
+  Result := GetNativeScrollBar;
+end;
+
+function TScrollBar.GetNativeScrollBar: StdCtrls.TScrollBar;
 begin
   if not Assigned(NativeScrollBar) then NativeScrollBar := StdCtrls.TScrollBar.Create(nil);