Changeset 349 for branches/highdpi/Packages/DpiControls/UDpiControls.pas

Timestamp:

Apr 6, 2021, 8:11:02 PM (3 years ago)

Author:

chronos

Message:

• Modified: Merged trunk branch version r348 into highdpi branch.

File:

• branches/highdpi/Packages/DpiControls/UDpiControls.pas (modified) (4 diffs)

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -445 +445 @@
     procedure ScreenChanged; override;
     function ControlCount: Integer;
+    procedure SetFocus; virtual;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -562 +563 @@
     property ModalResult: TModalResult read GetModalResult write SetModalResult;
     function ShowModal: Integer; virtual;
+    procedure SetFocus; override;
     procedure Close;
     function CloseQuery: boolean; virtual;
@@ -2960 +2962 @@
 end;
 
+procedure TDpiWinControl.SetFocus;
+begin
+  GetNativeWinControl.SetFocus;
+end;
+
 constructor TDpiWinControl.Create(TheOwner: TComponent);
 begin
@@ -3850 +3857 @@
 begin
   Result := GetNativeForm.ShowModal;
+end;
+
+procedure TDpiForm.SetFocus;
+begin
+  GetNativeForm.SetFocus;
 end;