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

Timestamp:

Nov 29, 2023, 2:35:44 PM (6 months ago)

Author:

chronos

Message:

• Modified: HighDpi branch updated to trunk version.

File:

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

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -175 +175 @@
     function GetShowHint: Boolean;
     function GetVisible: Boolean;
+    function GetWindowProc: TWndMethod;
     function IsAnchorsStored: Boolean;
     procedure SetAlign(AValue: TAlign);
@@ -207 +208 @@
     procedure MouseLeaveHandler(Sender: TObject); virtual;
     procedure MouseEnterHandler(Sender: TObject); virtual;
+    procedure SetWindowProc(AValue: TWndMethod);
   protected
     procedure DoBorderSpacingChange(Sender: TObject; InnerSpaceChanged: Boolean); virtual;
@@ -255 +257 @@
     property Anchors: TAnchors read GetAnchors write SetAnchors stored IsAnchorsStored default [akLeft, akTop];
     property BorderSpacing: TDpiControlBorderSpacing read FBorderSpacing write SetBorderSpacing;
+    property WindowProc: TWndMethod read GetWindowProc write SetWindowProc;
   published
     property AutoSize: Boolean read GetAutoSize write SetAutoSize default False;
@@ -373 +376 @@
     destructor Destroy; override;
     function GetNativePen: TPen;
+    procedure Assign(Source: TDpiPen);
     property NativePen: TPen read FNativePen write SetNativePen;
   published
@@ -395 +399 @@
     constructor Create;
     destructor Destroy; override;
+    procedure Assign(Source: TDpiBrush);
     property NativeBrush: TBrush read FNativeBrush write SetNativeBrush;
   published
@@ -422 +427 @@
     procedure SetNativeCanvas(AValue: TCanvas);
   protected
+    procedure DoLine(X1, Y1, X2, Y2: Integer); virtual;
+    procedure DoTextOut(X, Y: Integer; Text: string); virtual;
+    procedure DoRectangle(const Bounds: TRect); virtual;
+    procedure DoRectangleFill(const Bounds: TRect); virtual;
+    procedure DoPolygon(const Points: array of TPoint); virtual;
+    procedure CreateHandle; virtual;
+    procedure DoEllipse(const Bounds: TRect); virtual;
+    procedure DoMoveTo(X, Y: Integer); virtual;
+    procedure DoLineTo(X, Y: Integer); virtual;
+    procedure DoPolyline(const Points: array of TPoint); virtual;
+    procedure DoPolyBezier(Points: PPoint; NumPts: Integer;
+      Filled: Boolean = False; Continuous: Boolean = False); virtual;
     procedure SetHeight(AValue: Integer); virtual;
     procedure SetWidth(AValue: Integer); virtual;
@@ -429 +446 @@
   public
     property NativeCanvas: TCanvas read FNativeCanvas write SetNativeCanvas;
+    procedure RoundRect(const Rect: TRect; RX, RY: Integer);
+    procedure RoundRect(X1, Y1, X2, Y2: Integer; RX,RY: Integer); overload; virtual;
+    procedure Polygon(const Points: array of TPoint; Winding: Boolean;
+      StartIndex: Integer = 0; NumPts: Integer = -1);
+    procedure Polygon(Points: PPoint; NumPts: Integer; Winding: Boolean = False); virtual;
+    procedure Polygon(const Points: array of TPoint);
+    procedure PolyBezier(const Points: array of TPoint;
+      Filled: Boolean = False; Continuous: boolean = True);
+    procedure PolyBezier(Points: PPoint; NumPts: Integer;
+      Filled: Boolean = False; Continuous: Boolean = True); virtual;
+    procedure Polyline(const Points: array of TPoint);
+    procedure Polyline(Points: PPoint; NumPts: Integer); virtual;
+    procedure Ellipse(x1, y1, x2, y2: Integer); virtual;
+    procedure Ellipse(const ARect: TRect); virtual;
+    procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); virtual;
+    procedure Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2,
+      StartX, StartY, EndX, EndY: Integer); virtual;
     procedure StretchDraw(const DestRect: TRect; SrcGraphic: TDpiGraphic); virtual;
     procedure FrameRect(Rect: TRect);
     procedure Rectangle(X1, Y1, X2, Y2: Integer); overload;
     procedure Rectangle(const ARect: TRect); overload;
-    function TextWidth(Text: string): Integer;
-    function TextHeight(Text: string): Integer;
-    function TextExtent(Text: string): TSize;
+    function TextWidth(const Text: string): Integer;
+    function TextHeight(const Text: string): Integer;
+    function TextExtent(const Text: string): TSize; virtual;
     procedure TextOut(X, Y: Integer; const Text: string); virtual;
     procedure TextRect(ARect: TRect; X, Y: Integer; Text: string);
     procedure MoveTo(X, Y: Integer);
     procedure LineTo(X, Y: Integer);
+    procedure Line(const p1, p2: TPoint);
     procedure FillRect(const ARect: TRect); virtual;
     procedure FillRect(X1, Y1, X2, Y2: Integer);
@@ -598 +633 @@
     function GetRestoredTop: Integer;
     function GetRestoredWidth: Integer;
+    function GetShowInTaskbar: TShowInTaskbar;
     function GetWindowState: TWindowState;
     procedure SetBorderIcons(AValue: TBorderIcons);
@@ -615 +651 @@
     procedure FormMessageHandler(var TheMessage: TLMessage);
     procedure SetPosition(AValue: TPosition);
+    procedure SetShowInTaskBar(AValue: TShowInTaskbar);
     procedure SetWindowState(AValue: TWindowState);
     procedure ActivateHandler(Sender: TObject);
@@ -667 +704 @@
     property OnMouseDown;
     property OnMouseMove;
+    property ShowInTaskBar: TShowInTaskbar read GetShowInTaskbar write SetShowInTaskBar
+                                        default stDefault;
   end;
 
@@ -873 +912 @@
   end;
 
+  TDpiCustomListView = class(TDpiWinControl)
+
+  end;
+
+  TDpiLVCustomDrawItemEvent = procedure(Sender: TDpiCustomListView; Item: TListItem;
+    State: TCustomDrawState; var DefaultDraw: Boolean) of object;
+
   { TDpiListView }
 
-  TDpiListView = class(TDpiWinControl)
+  TDpiListView = class(TDpiCustomListView)
   private
+    FOnCustomDrawItem: TDpiLVCustomDrawItemEvent;
     NativeListView: TListView;
+    function GetCanvas: TCanvas;
     function GetColumns: TListColumns;
     function GetItems: TListItems;
+    function GetOnChange: TLVChangeEvent;
+    function GetOnColumnClick: TLVColumnClickEvent;
+    function GetOnCustomDrawItem: TDpiLVCustomDrawItemEvent;
+    function GetProperty(AIndex: Integer): Boolean;
+    function GetViewStyle: TViewStyle;
     procedure SetColumns(AValue: TListColumns);
     procedure SetItems(AValue: TListItems);
+    procedure SetOnChange(AValue: TLVChangeEvent);
+    procedure SetOnColumnClick(AValue: TLVColumnClickEvent);
+    procedure SetOnCustomDrawItem(AValue: TDpiLVCustomDrawItemEvent);
+    procedure SetProperty(AIndex: Integer; AValue: Boolean);
+    procedure SetViewStyle(AValue: TViewStyle);
+    procedure DoCustomDrawItem(Sender: TCustomListView; Item: TListItem;
+      State: TCustomDrawState; var DefaultDraw: Boolean);
   public
+    function GetItemAt(x,y: integer): TListItem;
     function GetNativeListView: TListView;
     constructor Create(TheOwner: TComponent); override;
@@ -888 +949 @@
     property Columns: TListColumns read GetColumns write SetColumns;
     property Items: TListItems read GetItems write SetItems;
+    property Canvas: TCanvas read GetCanvas;
+    property Checkboxes: Boolean index Ord(lvpCheckboxes) read GetProperty write SetProperty default False;
   published
+    property OnColumnClick: TLVColumnClickEvent read GetOnColumnClick
+      write SetOnColumnClick;
+    property OnCustomDrawItem: TDpiLVCustomDrawItemEvent read GetOnCustomDrawItem
+      write SetOnCustomDrawItem;
+    property ViewStyle: TViewStyle read GetViewStyle write SetViewStyle default vsList;
+    property OnChange: TLVChangeEvent read GetOnChange write SetOnChange;
   end;
 
@@ -1100 +1169 @@
     NativeStringGrid: TStringGrid;
     function DefaultRowHeightIsStored: Boolean;
+    function GetCells(ACol, ARow: Integer): string;
+    function GetColCount: Integer;
+    function GetColumns: TGridColumns;
     function GetDefRowHeight: Integer;
+    function GetEditor: TWinControl;
+    function GetFixedCols: Integer;
+    function GetFixedRows: Integer;
+    function GetOptions: TGridOptions;
+    function GetRowCount: Integer;
+    function GetScrollBars: TScrollStyle;
+    function GetSelection: TGridRect;
+    function IsColumnsStored: Boolean;
+    procedure SetCells(ACol, ARow: Integer; AValue: string);
+    procedure SetColCount(AValue: Integer);
+    procedure SetColumns(AValue: TGridColumns);
     procedure SetDefRowHeight(AValue: Integer);
+    procedure SetEditor(AValue: TWinControl);
+    procedure SetFixedCols(AValue: Integer);
+    procedure SetFixedRows(AValue: Integer);
+    procedure SetOptions(AValue: TGridOptions);
+    procedure SetRowCount(AValue: Integer);
+    procedure SetScrollBars(AValue: TScrollStyle);
+    procedure SetSelection(AValue: TGridRect);
   public
     function GetNativeStringGrid: TStringGrid;
+    function CellRect(ACol, ARow: Integer): TRect;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
+    property Selection: TGridRect read GetSelection write SetSelection;
+    property Cells[ACol, ARow: Integer]: string read GetCells write SetCells;
   published
     property DefaultRowHeight: Integer read GetDefRowHeight write SetDefRowHeight stored DefaultRowHeightIsStored;
+    property ScrollBars: TScrollStyle read GetScrollBars write SetScrollBars default ssAutoBoth;
+    property FixedCols: Integer read GetFixedCols write SetFixedCols default 1;
+    property FixedRows: Integer read GetFixedRows write SetFixedRows default 1;
+    property RowCount: Integer read GetRowCount write SetRowCount default 5;
+    property ColCount: Integer read GetColCount write SetColCount default 5;
+    property Options: TGridOptions read GetOptions write SetOptions default DefaultGridOptions;
+    property Columns: TGridColumns read GetColumns write SetColumns stored IsColumnsStored;
+    property Editor: TWinControl read GetEditor write SetEditor;
   end;
 
@@ -1193 +1294 @@
     function GetExeName: string;
     function GetShowMainForm: Boolean;
+    function GetTaskBarBehavior: TTaskBarBehavior;
     function GetTitle: string;
     procedure SetMainForm(AValue: TDpiForm);
     function GetMainForm: TDpiForm;
     procedure SetShowMainForm(AValue: Boolean);
+    procedure SetTaskBarBehavior(AValue: TTaskBarBehavior);
     procedure SetTitle(AValue: string);
   protected
@@ -1216 +1319 @@
     property Active: Boolean read GetActive;
     property ExeName: string read GetExeName;
+    property TaskBarBehavior: TTaskBarBehavior read GetTaskBarBehavior write SetTaskBarBehavior;
   end;
 
@@ -1276 +1380 @@
     property Count: Integer read GetCount;
     procedure Clear;
+    procedure Click; virtual;
   published
     property RadioItem: Boolean read GetRadioItem write SetRadioItem default False;
@@ -1356 +1461 @@
   SDpiFormTitle = 'DpiForm form';
   SDpiFormDescription = 'DPI aware form';
+  SNotImplemented = 'Not implemented';
 
 procedure Register;
@@ -1971 +2077 @@
 function TDpiStringGrid.DefaultRowHeightIsStored: Boolean;
 begin
-  Result := GetDefRowHeight>=0;
+  Result := GetDefRowHeight >= 0;
+end;
+
+function TDpiStringGrid.GetCells(ACol, ARow: Integer): string;
+begin
+  Result := GetNativeStringGrid.Cells[ACol, ARow];
+end;
+
+function TDpiStringGrid.GetColCount: Integer;
+begin
+  Result := GetNativeStringGrid.ColCount;
+end;
+
+function TDpiStringGrid.GetColumns: TGridColumns;
+begin
+  Result := GetNativeStringGrid.Columns;
 end;
 
@@ -1979 +2100 @@
 end;
 
+function TDpiStringGrid.GetEditor: TWinControl;
+begin
+  Result := GetNativeStringGrid.Editor;
+end;
+
+function TDpiStringGrid.GetFixedCols: Integer;
+begin
+  Result := GetNativeStringGrid.FixedCols;
+end;
+
+function TDpiStringGrid.GetFixedRows: Integer;
+begin
+  Result := GetNativeStringGrid.FixedRows;
+end;
+
+function TDpiStringGrid.GetOptions: TGridOptions;
+begin
+  Result := GetNativeStringGrid.Options;
+end;
+
+function TDpiStringGrid.GetRowCount: Integer;
+begin
+  Result := GetNativeStringGrid.RowCount;
+end;
+
+function TDpiStringGrid.GetScrollBars: TScrollStyle;
+begin
+  Result := GetNativeStringGrid.ScrollBars;
+end;
+
+function TDpiStringGrid.GetSelection: TGridRect;
+begin
+  Result := GetNativeStringGrid.Selection;
+end;
+
+function TDpiStringGrid.IsColumnsStored: Boolean;
+begin
+  Result := GetNativeStringGrid.Columns.Enabled;
+end;
+
+procedure TDpiStringGrid.SetCells(ACol, ARow: Integer; AValue: string);
+begin
+  GetNativeStringGrid.Cells[ACol, ARow] := AValue;
+end;
+
+procedure TDpiStringGrid.SetColCount(AValue: Integer);
+begin
+  GetNativeStringGrid.ColCount := AValue;
+end;
+
+procedure TDpiStringGrid.SetColumns(AValue: TGridColumns);
+begin
+  GetNativeStringGrid.Columns := AValue;
+end;
+
 procedure TDpiStringGrid.SetDefRowHeight(AValue: Integer);
 begin
   GetNativeStringGrid.DefaultRowHeight := AValue;
+end;
+
+procedure TDpiStringGrid.SetEditor(AValue: TWinControl);
+begin
+  GetNativeStringGrid.Editor := AValue;
+end;
+
+procedure TDpiStringGrid.SetFixedCols(AValue: Integer);
+begin
+  GetNativeStringGrid.FixedCols := AValue;
+end;
+
+procedure TDpiStringGrid.SetFixedRows(AValue: Integer);
+begin
+  GetNativeStringGrid.FixedRows := AValue;
+end;
+
+procedure TDpiStringGrid.SetOptions(AValue: TGridOptions);
+begin
+  GetNativeStringGrid.Options := AValue;
+end;
+
+procedure TDpiStringGrid.SetRowCount(AValue: Integer);
+begin
+  GetNativeStringGrid.RowCount := AValue;
+end;
+
+procedure TDpiStringGrid.SetScrollBars(AValue: TScrollStyle);
+begin
+  GetNativeStringGrid.ScrollBars := AValue;
+end;
+
+procedure TDpiStringGrid.SetSelection(AValue: TGridRect);
+begin
+  GetNativeStringGrid.Selection := AValue;
 end;
 
@@ -1990 +2201 @@
 end;
 
+function TDpiStringGrid.CellRect(ACol, ARow: Integer): TRect;
+begin
+  Result := GetNativeStringGrid.CellRect(ACol, ARow);
+end;
+
 constructor TDpiStringGrid.Create(TheOwner: TComponent);
 begin
@@ -2008 +2224 @@
 end;
 
+function TDpiListView.GetOnChange: TLVChangeEvent;
+begin
+  Result := GetNativeListView.OnChange;
+end;
+
+function TDpiListView.GetOnColumnClick: TLVColumnClickEvent;
+begin
+  Result := GetNativeListView.OnColumnClick;
+end;
+
+function TDpiListView.GetOnCustomDrawItem: TDpiLVCustomDrawItemEvent;
+begin
+  Result := FOnCustomDrawItem;
+end;
+
+function TDpiListView.GetProperty(AIndex: Integer): Boolean;
+begin
+  Result := GetNativeListView.Checkboxes;
+end;
+
+function TDpiListView.GetViewStyle: TViewStyle;
+begin
+  Result := GetNativeListView.ViewStyle;
+end;
+
 function TDpiListView.GetColumns: TListColumns;
 begin
-  Result := NativeListView.Columns;
+  Result := GetNativeListView.Columns;
+end;
+
+function TDpiListView.GetCanvas: TCanvas;
+begin
+  Result := GetNativeListView.Canvas;
 end;
 
 procedure TDpiListView.SetColumns(AValue: TListColumns);
 begin
-  NativeListView.Columns := AValue;
+  GetNativeListView.Columns := AValue;
 end;
 
@@ -2023 +2269 @@
 end;
 
+procedure TDpiListView.SetOnChange(AValue: TLVChangeEvent);
+begin
+  GetNativeListView.OnChange := AValue;
+end;
+
+procedure TDpiListView.SetOnColumnClick(AValue: TLVColumnClickEvent);
+begin
+  GetNativeListView.OnColumnClick := AValue;
+end;
+
+procedure TDpiListView.SetOnCustomDrawItem(AValue: TDpiLVCustomDrawItemEvent);
+begin
+  FOnCustomDrawItem := AValue;
+end;
+
+procedure TDpiListView.SetProperty(AIndex: Integer; AValue: Boolean);
+begin
+  GetNativeListView.Checkboxes := AValue;
+end;
+
+procedure TDpiListView.SetViewStyle(AValue: TViewStyle);
+begin
+  GetNativeListView.ViewStyle := AValue;
+end;
+
+procedure TDpiListView.DoCustomDrawItem(Sender: TCustomListView; Item: TListItem;
+  State: TCustomDrawState; var DefaultDraw: Boolean);
+begin
+  if Assigned(FOnCustomDrawItem) then
+    FOnCustomDrawItem(Self, Item, State, DefaultDraw);
+end;
+
+function TDpiListView.GetItemAt(x, y: integer): TListItem;
+begin
+  Result := GetNativeListView.GetItemAt(X, Y);
+end;
+
 function TDpiListView.GetNativeListView: TListView;
 begin
-  if not Assigned(NativeListView) then NativeListView := TListView.Create(nil);
-    Result := NativeListView;
+  if not Assigned(NativeListView) then begin
+    NativeListView := TListView.Create(nil);
+    NativeListView.OnCustomDrawItem := @DoCustomDrawItem;
+  end;
+  Result := NativeListView;
 end;
 
@@ -2101 +2387 @@
 end;
 
+procedure TDpiPen.Assign(Source: TDpiPen);
+begin
+  FWidth := Source.FWidth;
+  GetNativePen.Assign(Source.GetNativePen);
+end;
+
 { TDpiBrush }
 
@@ -2146 +2438 @@
   if FNativeBrushFree then FreeAndNil(FNativeBrush);
   inherited;
+end;
+
+procedure TDpiBrush.Assign(Source: TDpiBrush);
+begin
+  GetNativeBrush.Assign(Source.GetNativeBrush);
 end;
 
@@ -2472 +2769 @@
 begin
   GetNativeMenuItem.Clear;
+end;
+
+procedure TDpiMenuItem.Click;
+begin
+  GetNativeMenuItem.Click;
 end;
 
@@ -2679 +2981 @@
 end;
 
+function TDpiApplication.GetTaskBarBehavior: TTaskBarBehavior;
+begin
+  Result := GetNativeApplication.TaskBarBehavior;
+end;
+
 function TDpiApplication.GetActive: Boolean;
 begin
-  Result := Application.Active;
+  Result := GetNativeApplication.Active;
 end;
 
@@ -2697 +3004 @@
 begin
   GetNativeApplication.ShowMainForm := AValue;
+end;
+
+procedure TDpiApplication.SetTaskBarBehavior(AValue: TTaskBarBehavior);
+begin
+  GetNativeApplication.TaskBarBehavior := AValue;
 end;
 
@@ -3526 +3838 @@
 end;
 
+procedure TDpiCanvas.DoLine(X1, Y1, X2, Y2: Integer);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoTextOut(X, Y: Integer; Text: string);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoRectangle(const Bounds: TRect);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoRectangleFill(const Bounds: TRect);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoPolygon(const Points: array of TPoint);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.CreateHandle;
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoEllipse(const Bounds: TRect);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoMoveTo(X, Y: Integer);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoLineTo(X, Y: Integer);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoPolyline(const Points: array of TPoint);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
+procedure TDpiCanvas.DoPolyBezier(Points: PPoint; NumPts: Integer;
+  Filled: Boolean; Continuous: Boolean);
+begin
+  raise ENotImplemented.Create(SNotImplemented);
+end;
+
 function TDpiCanvas.GetNativeCanvas: TCanvas;
 begin
   Result := NativeCanvas;
+end;
+
+procedure TDpiCanvas.RoundRect(const Rect: TRect; RX, RY: Integer);
+begin
+  GetNativeCanvas.RoundRect(Rect, RX, RY);
+end;
+
+procedure TDpiCanvas.RoundRect(X1, Y1, X2, Y2: Integer; RX, RY: Integer);
+begin
+  GetNativeCanvas.RoundRect(X1, Y1, X2, Y2, RX, RY);
+end;
+
+procedure TDpiCanvas.Polygon(const Points: array of TPoint; Winding: Boolean;
+  StartIndex: Integer; NumPts: Integer);
+begin
+  GetNativeCanvas.Polygon(Points, Winding, StartIndex, NumPts);
+end;
+
+procedure TDpiCanvas.Polygon(Points: PPoint; NumPts: Integer; Winding: Boolean);
+begin
+  GetNativeCanvas.Polygon(Points, NumPts, Winding);
+end;
+
+procedure TDpiCanvas.Polygon(const Points: array of TPoint);
+begin
+  GetNativeCanvas.Polygon(Points);
+end;
+
+procedure TDpiCanvas.PolyBezier(const Points: array of TPoint; Filled: Boolean;
+  Continuous: boolean);
+begin
+  GetNativeCanvas.Polyline(Points);
+end;
+
+procedure TDpiCanvas.PolyBezier(Points: PPoint; NumPts: Integer;
+  Filled: Boolean; Continuous: Boolean);
+begin
+  GetNativeCanvas.PolyBezier(Points, NumPts, Filled, Continuous);
+end;
+
+procedure TDpiCanvas.Polyline(const Points: array of TPoint);
+begin
+  GetNativeCanvas.Polyline(Points);
+end;
+
+procedure TDpiCanvas.Polyline(Points: PPoint; NumPts: Integer);
+begin
+  GetNativeCanvas.Polyline(Points, NumPts);
+end;
+
+procedure TDpiCanvas.Ellipse(x1, y1, x2, y2: Integer);
+begin
+  GetNativeCanvas.Ellipse(X1, Y1, X2, Y2);
+end;
+
+procedure TDpiCanvas.Ellipse(const ARect: TRect);
+begin
+  Ellipse(ARect.Left, ARect.Top, ARect.Right, ARect.Bottom);
+end;
+
+procedure TDpiCanvas.StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic);
+begin
+  GetNativeCanvas.StretchDraw(DestRect, SrcGraphic);
+end;
+
+procedure TDpiCanvas.Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2, StartX,
+  StartY, EndX, EndY: Integer);
+begin
+  GetNativeCanvas.Pie(EllipseX1, EllipseY1, EllipseX2, EllipseY2, StartX, StartY,
+    EndX, EndY);
 end;
 
@@ -3552 +3990 @@
 end;
 
-function TDpiCanvas.TextWidth(Text: string): Integer;
+function TDpiCanvas.TextWidth(const Text: string): Integer;
 begin
   Result := ScaleFromNative(GetNativeCanvas.TextWidth(Text));
 end;
 
-function TDpiCanvas.TextHeight(Text: string): Integer;
+function TDpiCanvas.TextHeight(const Text: string): Integer;
 begin
   Result := ScaleFromNative(GetNativeCanvas.TextHeight(Text));
 end;
 
-function TDpiCanvas.TextExtent(Text: string): TSize;
+function TDpiCanvas.TextExtent(const Text: string): TSize;
 begin
   Result := ScaleSizeFromNative(GetNativeCanvas.TextExtent(Text));
@@ -3585 +4023 @@
 begin
   GetNativeCanvas.LineTo(ScaleToNative(X), ScaleToNative(Y));
+end;
+
+procedure TDpiCanvas.Line(const p1, p2: TPoint);
+begin
+  GetNativeCanvas.Line(P1, P2);
 end;
 
@@ -4139 +4582 @@
   FreeAndNil(FForms);
   FreeAndNil(FPrevActiveForms);
-  inherited Destroy;
+  inherited;
 end;
 
@@ -4256 +4699 @@
   MouseEnter;
   if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
+end;
+
+procedure TDpiControl.SetWindowProc(AValue: TWndMethod);
+begin
+  GetNativeControl.WindowProc := AValue;
 end;
 
@@ -4522 +4970 @@
 end;
 
+function TDpiControl.GetWindowProc: TWndMethod;
+begin
+  Result := GetNativeControl.WindowProc;
+end;
+
 function TDpiControl.IsAnchorsStored: Boolean;
 begin
@@ -4791 +5244 @@
 end;
 
+function TDpiForm.GetShowInTaskbar: TShowInTaskbar;
+begin
+  Result := GetNativeForm.ShowInTaskBar;
+end;
+
 function TDpiForm.GetWindowState: TWindowState;
 begin
@@ -4875 +5333 @@
 begin
   GetNativeForm.Position := AValue;
+end;
+
+procedure TDpiForm.SetShowInTaskBar(AValue: TShowInTaskbar);
+begin
+  GetNativeForm.ShowInTaskBar := AValue;
 end;