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

Timestamp:

Nov 3, 2021, 11:22:02 AM (2 years ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk r404.

File:

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

branches/highdpi/Packages/DpiControls/UDpiControls.pas

@@ -6 +6 @@
 
 uses
-  {$IFDEF WINDOWS}Windows, {$ENDIF}Classes, SysUtils, LCLProc, LResources, Forms, FormEditingIntf, ProjectIntf,
-  Controls, StdCtrls, fgl, Graphics, ComCtrls, ExtCtrls, LCLType, GraphType,
-  Types, CustApp, LMessages, LCLIntf, Menus, Math, UPixelPointer2;
+  {$IFDEF WINDOWS}Windows, {$ENDIF}Classes, SysUtils, LCLProc, LResources, Forms,
+  FormEditingIntf, ProjectIntf, Controls, StdCtrls, fgl, Graphics, ComCtrls,
+  ExtCtrls, LCLType, GraphType, Types, CustApp, LMessages, LCLIntf, Menus, Math,
+  UPixelPointer2, Grids, Spin;
 
 const
@@ -102 +103 @@
     destructor Destroy; override;
     procedure Assign(Source: TPersistent); override;
+    procedure GetTextSize(Text: string; var w, h: Integer);
+    function GetTextHeight(Text: string): Integer;
+    function GetTextWidth(Text: string): Integer;
   published
     property CharSet: TFontCharSet read GetCharSet write SetCharSet default DEFAULT_CHARSET;
@@ -158 +162 @@
     function GetAlign: TAlign;
     function GetAnchors: TAnchors;
+    function GetAutoSize: Boolean;
     function GetBoundsRect: TRect;
     function GetClientHeight: Integer;
@@ -173 +178 @@
     procedure SetAlign(AValue: TAlign);
     procedure SetAnchors(AValue: TAnchors);
+    procedure SetAutoSize(AValue: Boolean);
     procedure SetBorderSpacing(AValue: TDpiControlBorderSpacing);
     procedure SetBoundsRect(AValue: TRect);
@@ -239 +245 @@
     procedure Repaint;
     procedure Update;
+    procedure Refresh;
     function IsParentOf(AControl: TDpiControl): boolean; virtual;
+    function Scale96ToScreen(const ASize: Integer): Integer;
     constructor Create(TheOwner: TComponent); override;
     destructor Destroy; override;
@@ -248 +256 @@
     property BorderSpacing: TDpiControlBorderSpacing read FBorderSpacing write SetBorderSpacing;
   published
+    property AutoSize: Boolean read GetAutoSize write SetAutoSize default False;
     property ClientHeight: Integer read GetClientHeight write SetClientHeight;
     property ClientWidth: Integer read GetClientWidth write SetClientWidth;
@@ -341 +350 @@
     function GetNativeRasterImage: TRasterImage; virtual;
   public
+    procedure BeginUpdate(ACanvasOnly: Boolean = False);
+    procedure EndUpdate(AStreamIsValid: Boolean = False);
     property RawImage: TRawImage read GetRawImage;
   end;
@@ -403 +414 @@
     FNativeCanvasFree: Boolean;
     function GetHandle: HDC;
-    function GetHeight: Integer;
     function GetPixel(X, Y: Integer): TColor;
-    function GetWidth: Integer;
     procedure SetBrush(AValue: TDpiBrush);
     procedure SetFont(AValue: TDpiFont);
@@ -413 +422 @@
     procedure SetNativeCanvas(AValue: TCanvas);
   protected
+    procedure SetHeight(AValue: Integer); virtual;
+    procedure SetWidth(AValue: Integer); virtual;
+    function GetWidth: Integer; virtual;
+    function GetHeight: Integer; virtual;
     function GetNativeCanvas: TCanvas; virtual;
   public
@@ -423 +436 @@
     function TextHeight(Text: string): Integer;
     function TextExtent(Text: string): TSize;
-    procedure TextOut(X, Y: Integer; Text: string);
+    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 FillRect(ARect: TRect);
+    procedure FillRect(const ARect: TRect); virtual;
     procedure FillRect(X1, Y1, X2, Y2: Integer);
     procedure Draw(X, Y: Integer; Source: TDpiGraphic);
@@ -581 +594 @@
     function GetOnShow: TNotifyEvent;
     function GetPosition: TPosition;
+    function GetRestoredHeight: Integer;
+    function GetRestoredLeft: Integer;
+    function GetRestoredTop: Integer;
+    function GetRestoredWidth: Integer;
     function GetWindowState: TWindowState;
     procedure SetBorderIcons(AValue: TBorderIcons);
@@ -624 +641 @@
     destructor Destroy; override;
   published
+    property RestoredLeft: integer read GetRestoredLeft;
+    property RestoredTop: integer read GetRestoredTop;
+    property RestoredWidth: integer read GetRestoredWidth;
+    property RestoredHeight: integer read GetRestoredHeight;
     property DesignTimePPI: Integer read GetDesignTimePPI write SetDesignTimePPI; // Not used
     property FormState: TFormState read GetFormState;
@@ -698 +719 @@
     function GetItemIndex: Integer;
     function GetItems: TStrings;
+    function GetOnSelectionChange: TSelectionChangeEvent;
     function GetParentFont: Boolean;
     function GetScrollWidth: Integer;
@@ -707 +729 @@
     procedure SetItemIndex(AValue: Integer);
     procedure SetItems(AValue: TStrings);
+    procedure SetOnSelectionChange(AValue: TSelectionChangeEvent);
     procedure SetParentFont(AValue: Boolean);
     procedure SetScrollWidth(AValue: Integer);
@@ -729 +752 @@
     property Visible;
     property Anchors;
+    property OnSelectionChange: TSelectionChangeEvent read GetOnSelectionChange
+                                                      write SetOnSelectionChange;
   end;
 
@@ -773 +798 @@
     function GetPixelFormat: TPixelFormat;
     function GetScanLine(Row: Integer): Pointer;
+    function GetTransparent: Boolean;
+    function GetTransparentColor: TColor;
     procedure SetPixelFormat(AValue: TPixelFormat);
+    procedure SetTransparent(AValue: Boolean);
+    procedure SetTransparentColor(AValue: TColor);
   protected
     function GetHeight: Integer; override;
@@ -796 +825 @@
     property Width: Integer read GetWidth write SetWidth;
     property Canvas: TDpiCanvas read GetCanvas;
+    property TransparentColor: TColor read GetTransparentColor
+                                      write SetTransparentColor default clDefault;
+    property Transparent: Boolean read GetTransparent write SetTransparent default False;
   end;
 
@@ -841 +873 @@
   end;
 
+  { TDpiListView }
+
+  TDpiListView = class(TDpiWinControl)
+  private
+    NativeListView: TListView;
+    function GetColumns: TListColumns;
+    function GetItems: TListItems;
+    procedure SetColumns(AValue: TListColumns);
+    procedure SetItems(AValue: TListItems);
+  public
+    function GetNativeListView: TListView;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property Columns: TListColumns read GetColumns write SetColumns;
+    property Items: TListItems read GetItems write SetItems;
+  published
+  end;
+
+  { TDpiPanel }
+
+  TDpiPanel = class(TDpiWinControl)
+  private
+    NativePanel: TPanel;
+  public
+    function GetNativePanel: TPanel;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+  { TDpiCustomDrawGrid }
+
+  TDpiCustomDrawGrid = class(TDpiWinControl)
+  private
+    NativeCustomDrawGrid: TCustomDrawGrid;
+    function GetEditor: TDpiWinControl;
+    procedure SetEditor(AValue: TDpiWinControl);
+  public
+    function GetNativeCustomDrawGrid: TCustomDrawGrid;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property Editor: TDpiWinControl read GetEditor write SetEditor;
+  end;
+
+  { TDpiPageControl }
+
+  TDpiPageControl = class(TDpiWinControl)
+  private
+    NativePageControl: TPageControl;
+    function GetPageCount: Integer;
+    function GetTabSheet(Index: Integer): TTabSheet;
+  public
+    function GetNativePageControl: TPageControl;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property PageCount: Integer read GetPageCount;
+    property Pages[Index: Integer]: TTabSheet read GetTabSheet;
+  end;
+
+  { TDpiRadioButton }
+
+  TDpiRadioButton = class(TDpiWinControl)
+  private
+    NativeRadioButton: TRadioButton;
+  public
+    function GetNativeRadioButton: TRadioButton;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+  { TDpiSpinEdit }
+
+  TDpiSpinEdit = class(TDpiWinControl)
+  private
+    NativeSpinEdit: TSpinEdit;
+  public
+    function GetNativeSpinEdit: TSpinEdit;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+  { TDpiComboBox }
+
+  TDpiComboBox = class(TDpiWinControl)
+  private
+    NativeComboBox: TComboBox;
+  public
+    function GetNativeComboBox: TComboBox;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+  { TDpiCheckBox }
+
+  TDpiCheckBox = class(TDpiWinControl)
+  private
+    NativeCheckBox: TCheckBox;
+  public
+    function GetNativeCheckBox: TCheckBox;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+  end;
+
+  { TDpiMemo }
+
+  TDpiMemo = class(TDpiWinControl)
+  private
+    NativeMemo: TMemo;
+    function GetLines: TStrings;
+    procedure SetLines(AValue: TStrings);
+  public
+    procedure Clear;
+    function GetNativeMemo: TMemo;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property Lines: TStrings read GetLines write SetLines;
+  end;
+
+  { TDpiToolBar }
+
+  TDpiToolBar = class(TDpiCustomControl)
+  private
+    NativeToolBar: TToolBar;
+    function ButtonHeightIsStored: Boolean;
+    function ButtonWidthIsStored: Boolean;
+    function GetButtonHeight: Integer;
+    function GetButtonWidth: Integer;
+    procedure SetButtonHeight(AValue: Integer);
+    procedure SetButtonWidth(AValue: Integer);
+  public
+    function GetNativeToolBar: TToolBar;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property ButtonHeight: Integer read GetButtonHeight write SetButtonHeight stored ButtonHeightIsStored;
+    property ButtonWidth: Integer read GetButtonWidth write SetButtonWidth stored ButtonWidthIsStored;
+  end;
+
+  { TDpiCoolBand }
+
+  TDpiCoolBand = class(TDpiCustomControl)
+  private
+    NativeCoolBand: TCoolBand;
+    function GetMinHeight: Integer;
+    function GetMinWidth: Integer;
+    procedure SetMinHeight(AValue: Integer);
+    procedure SetMinWidth(AValue: Integer);
+  protected const
+    cDefMinHeight = 25;
+    cDefMinWidth = 100;
+  public
+    function GetNativeCoolBand: TCoolBand;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property MinHeight: Integer read GetMinHeight write SetMinHeight default cDefMinHeight;
+    property MinWidth: Integer read GetMinWidth write SetMinWidth default cDefMinWidth;
+  end;
+
+  { TDpiCoolBands }
+
+  TDpiCoolBands = class(TCollection)
+  private
+    procedure SetItem(Index: Integer; AValue: TDpiCoolBand);
+    function GetItem(Index: Integer): TDpiCoolBand;
+  public
+    property Items[Index: Integer]: TDpiCoolBand read GetItem write SetItem; default;
+  end;
+
+  { TDpiCoolBar }
+
+  TDpiCoolBar = class(TDpiCustomControl)
+  private
+    NativeCoolBar: TCoolBar;
+    function GetBands: TDpiCoolBands;
+    function GetThemed: Boolean;
+    procedure SetBands(AValue: TDpiCoolBands);
+    procedure SetThemed(AValue: Boolean);
+  public
+    procedure BeginUpdate;
+    procedure EndUpdate;
+    function GetNativeCoolBar: TCoolBar;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property Bands: TDpiCoolBands read GetBands write SetBands;
+    property Themed: Boolean read GetThemed write SetThemed default True;
+  end;
+
+  { TDpiImageList }
+
+  TDpiImageList = class(TComponent)
+  private
+    NativeImageList: TImageList;
+    function GetCount: Integer;
+    function GetHeight: Integer;
+    function GetWidth: Integer;
+    procedure SetHeight(AValue: Integer);
+    procedure SetWidth(AValue: Integer);
+  public
+    function GetNativeImageList: TImageList;
+    procedure GetBitmap(Index: Integer; Image: TDpiBitmap);
+    procedure BeginUpdate;
+    procedure EndUpdate;
+    procedure Clear;
+    function Add(Image, Mask: TDpiBitmap): Integer;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+    property Width: Integer read GetWidth write SetWidth default 16;
+    property Height: Integer read GetHeight write SetHeight default 16;
+    property Count: Integer read GetCount;
+  end;
+
+  { TDpiStringGrid }
+
+  TDpiStringGrid = class(TDpiWinControl)
+  private
+    NativeStringGrid: TStringGrid;
+    function DefaultRowHeightIsStored: Boolean;
+    function GetDefRowHeight: Integer;
+    procedure SetDefRowHeight(AValue: Integer);
+  public
+    function GetNativeStringGrid: TStringGrid;
+    constructor Create(TheOwner: TComponent); override;
+    destructor Destroy; override;
+  published
+    property DefaultRowHeight: Integer read GetDefRowHeight write SetDefRowHeight stored DefaultRowHeightIsStored;
+  end;
+
   { TDpiScreen }
 
@@ -851 +1108 @@
     FForms: TDpiForms;
     procedure AddForm(AForm: TDpiForm);
+    function GetDesktopHeight: Integer;
+    function GetDesktopLeft: Integer;
+    function GetDesktopTop: Integer;
+    function GetDesktopWidth: Integer;
     procedure RemoveForm(AForm: TDpiForm);
     function GetActiveForm: TDpiForm;
@@ -868 +1129 @@
     procedure UpdateScreen;
     procedure UpdateActiveFormFromNativeScreen;
+    function DisableForms(SkipForm: TDpiForm; DisabledList: TList = nil): TList;
+    procedure EnableForms(var AFormList: TList);
     property FormCount: Integer read GetFormCount;
     property Forms[Index: Integer]: TDpiForm read GetForms;
@@ -878 +1141 @@
     property Width: Integer read GetWidth;
     property Height: Integer read GetHeight;
+    property DesktopLeft: Integer read GetDesktopLeft;
+    property DesktopTop: Integer read GetDesktopTop;
+    property DesktopWidth: Integer read GetDesktopWidth;
+    property DesktopHeight: Integer read GetDesktopHeight;
   end;
 
@@ -912 +1179 @@
     FOldExitProc: Pointer;
     function GetActive: Boolean;
+    function GetExeName: string;
     function GetShowMainForm: Boolean;
     function GetTitle: string;
@@ -935 +1203 @@
     property Title: string read GetTitle write SetTitle;
     property Active: Boolean read GetActive;
+    property ExeName: string read GetExeName;
   end;
 
@@ -994 +1263 @@
     property Items[Index: Integer]: TDpiMenuItem read GetItem; default;
     property Count: Integer read GetCount;
+    procedure Clear;
   published
     property RadioItem: Boolean read GetRadioItem write SetRadioItem default False;
@@ -1231 +1501 @@
       ScaleToNative(XSrc), ScaleToNative(YSrc), Rop);
   end else begin
-    Result := StretchBlt(DestDC, ScaleToNative(X), ScaleToNative(Y),
+    Result := BitBlt(DestDC, ScaleToNative(X), ScaleToNative(Y),
+      DstWidth, DstHeight, SrcDC,
+      ScaleToNative(XSrc), ScaleToNative(YSrc), Rop);
+{    Result := StretchBlt(DestDC, ScaleToNative(X), ScaleToNative(Y),
       DstWidth, DstHeight, SrcDC,
       ScaleToNative(XSrc), ScaleToNative(YSrc),
       SrcWidth, SrcHeight, Rop);
-  end;
+}  end;
 
 {  Result := BitBlt(DestDC, ScaleToNative(X), ScaleToNative(Y),
@@ -1242 +1515 @@
  }
   {$ENDIF}
+end;
+
+{ TDpiRadioButton }
+
+function TDpiRadioButton.GetNativeRadioButton: TRadioButton;
+begin
+  if not Assigned(NativeRadioButton) then NativeRadioButton := TRadioButton.Create(nil);
+    Result := NativeRadioButton;
+end;
+
+constructor TDpiRadioButton.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiRadioButton.Destroy;
+begin
+  FreeAndNil(NativeRadioButton);
+  inherited;
+end;
+
+{ TDpiPageControl }
+
+function TDpiPageControl.GetPageCount: Integer;
+begin
+  Result := GetNativePageControl.PageCount;
+end;
+
+function TDpiPageControl.GetTabSheet(Index: Integer): TTabSheet;
+begin
+  Result := GetNativePageControl.Pages[Index];
+end;
+
+function TDpiPageControl.GetNativePageControl: TPageControl;
+begin
+  if not Assigned(NativePageControl) then NativePageControl := TPageControl.Create(nil);
+    Result := NativePageControl;
+end;
+
+constructor TDpiPageControl.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiPageControl.Destroy;
+begin
+  FreeAndNil(NativePageControl);
+  inherited;
+end;
+
+{ TDpiCustomDrawGrid }
+
+function TDpiCustomDrawGrid.GetEditor: TDpiWinControl;
+begin
+  //Result := GetNativeCustomDrawGrid.Editor;
+end;
+
+procedure TDpiCustomDrawGrid.SetEditor(AValue: TDpiWinControl);
+begin
+  //GetNativeCustomDrawGrid.Editor := AValue
+end;
+
+function TDpiCustomDrawGrid.GetNativeCustomDrawGrid: TCustomDrawGrid;
+begin
+  if not Assigned(NativeCustomDrawGrid) then NativeCustomDrawGrid := TCustomDrawGrid.Create(nil);
+    Result := NativeCustomDrawGrid;
+end;
+
+constructor TDpiCustomDrawGrid.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiCustomDrawGrid.Destroy;
+begin
+  FreeAndNil(NativeCustomDrawGrid);
+  inherited;
+end;
+
+{ TDpiCheckBox }
+
+function TDpiCheckBox.GetNativeCheckBox: TCheckBox;
+begin
+  if not Assigned(NativeCheckBox) then NativeCheckBox := TCheckBox.Create(nil);
+    Result := NativeCheckBox;
+end;
+
+constructor TDpiCheckBox.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiCheckBox.Destroy;
+begin
+  FreeAndNil(NativeCheckBox);
+  inherited;
+end;
+
+{ TDpiComboBox }
+
+function TDpiComboBox.GetNativeComboBox: TComboBox;
+begin
+  if not Assigned(NativeComboBox) then NativeComboBox := TComboBox.Create(nil);
+    Result := NativeComboBox;
+end;
+
+constructor TDpiComboBox.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiComboBox.Destroy;
+begin
+  FreeAndNil(NativeComboBox);
+  inherited;
+end;
+
+{ TDpiSpinEdit }
+
+function TDpiSpinEdit.GetNativeSpinEdit: TSpinEdit;
+begin
+  if not Assigned(NativeSpinEdit) then NativeSpinEdit := TSpinEdit.Create(nil);
+    Result := NativeSpinEdit;
+end;
+
+constructor TDpiSpinEdit.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiSpinEdit.Destroy;
+begin
+  FreeAndNil(NativeSpinEdit);
+  inherited;
+end;
+
+{ TDpiMemo }
+
+function TDpiMemo.GetLines: TStrings;
+begin
+  Result := GetNativeMemo.Lines;
+end;
+
+procedure TDpiMemo.SetLines(AValue: TStrings);
+begin
+  GetNativeMemo.Lines := AValue;
+end;
+
+procedure TDpiMemo.Clear;
+begin
+  GetNativeMemo.Clear;
+end;
+
+function TDpiMemo.GetNativeMemo: TMemo;
+begin
+  if not Assigned(NativeMemo) then NativeMemo := TMemo.Create(nil);
+    Result := NativeMemo;
+end;
+
+constructor TDpiMemo.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiMemo.Destroy;
+begin
+  FreeAndNil(NativeMemo);
+  inherited;
+end;
+
+{ TDpiImageList }
+
+function TDpiImageList.GetHeight: Integer;
+begin
+
+end;
+
+function TDpiImageList.GetCount: Integer;
+begin
+
+end;
+
+function TDpiImageList.GetWidth: Integer;
+begin
+
+end;
+
+procedure TDpiImageList.SetHeight(AValue: Integer);
+begin
+
+end;
+
+procedure TDpiImageList.SetWidth(AValue: Integer);
+begin
+
+end;
+
+function TDpiImageList.GetNativeImageList: TImageList;
+begin
+  if not Assigned(NativeImageList) then NativeImageList := TImageList.Create(nil);
+    Result := NativeImageList;
+end;
+
+procedure TDpiImageList.GetBitmap(Index: Integer; Image: TDpiBitmap);
+begin
+
+end;
+
+procedure TDpiImageList.BeginUpdate;
+begin
+
+end;
+
+procedure TDpiImageList.EndUpdate;
+begin
+
+end;
+
+procedure TDpiImageList.Clear;
+begin
+
+end;
+
+function TDpiImageList.Add(Image, Mask: TDpiBitmap): Integer;
+begin
+
+end;
+
+constructor TDpiImageList.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiImageList.Destroy;
+begin
+  FreeAndNil(NativeImageList);
+  inherited Destroy;
+end;
+
+{ TDpiCoolBands }
+
+procedure TDpiCoolBands.SetItem(Index: Integer; AValue: TDpiCoolBand);
+begin
+
+end;
+
+function TDpiCoolBands.GetItem(Index: Integer): TDpiCoolBand;
+begin
+
+end;
+
+{ TDpiCoolBand }
+
+function TDpiCoolBand.GetMinWidth: Integer;
+begin
+
+end;
+
+function TDpiCoolBand.GetMinHeight: Integer;
+begin
+
+end;
+
+procedure TDpiCoolBand.SetMinHeight(AValue: Integer);
+begin
+
+end;
+
+procedure TDpiCoolBand.SetMinWidth(AValue: Integer);
+begin
+
+end;
+
+function TDpiCoolBand.GetNativeCoolBand: TCoolBand;
+begin
+
+end;
+
+constructor TDpiCoolBand.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiCoolBand.Destroy;
+begin
+  inherited Destroy;
+end;
+
+{ TDpiCoolBar }
+
+function TDpiCoolBar.GetBands: TDpiCoolBands;
+begin
+
+end;
+
+function TDpiCoolBar.GetThemed: Boolean;
+begin
+  Result := GetNativeCoolBar.Themed;
+end;
+
+procedure TDpiCoolBar.SetBands(AValue: TDpiCoolBands);
+begin
+
+end;
+
+procedure TDpiCoolBar.SetThemed(AValue: Boolean);
+begin
+  GetNativeCoolBar.Themed := AValue
+end;
+
+procedure TDpiCoolBar.BeginUpdate;
+begin
+  GetNativeCoolBar.BeginUpdate;
+end;
+
+procedure TDpiCoolBar.EndUpdate;
+begin
+  GetNativeCoolBar.EndUpdate;
+end;
+
+function TDpiCoolBar.GetNativeCoolBar: TCoolBar;
+begin
+  if not Assigned(NativeCoolBar) then NativeCoolBar := TCoolBar.Create(nil);
+    Result := NativeCoolBar;
+end;
+
+constructor TDpiCoolBar.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiCoolBar.Destroy;
+begin
+  FreeAndNil(NativeCoolBar);
+  inherited Destroy;
+end;
+
+{ TDpiToolBar }
+
+function TDpiToolBar.ButtonHeightIsStored: Boolean;
+begin
+
+end;
+
+function TDpiToolBar.ButtonWidthIsStored: Boolean;
+begin
+
+end;
+
+function TDpiToolBar.GetButtonHeight: Integer;
+begin
+  Result := ScaleFromNative(GetNativeToolBar.ButtonHeight);
+end;
+
+function TDpiToolBar.GetButtonWidth: Integer;
+begin
+  Result := ScaleFromNative(GetNativeToolBar.ButtonWidth);
+end;
+
+procedure TDpiToolBar.SetButtonHeight(AValue: Integer);
+begin
+  GetNativeToolBar.ButtonHeight := ScaleToNative(AValue);
+end;
+
+procedure TDpiToolBar.SetButtonWidth(AValue: Integer);
+begin
+  GetNativeToolBar.ButtonWidth := ScaleToNative(AValue);
+end;
+
+function TDpiToolBar.GetNativeToolBar: TToolBar;
+begin
+  if not Assigned(NativeToolBar) then NativeToolBar := TToolBar.Create(nil);
+    Result := NativeToolBar;
+end;
+
+constructor TDpiToolBar.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiToolBar.Destroy;
+begin
+  FreeAndNil(NativeToolBar);
+  inherited;
+end;
+
+{ TDpiPanel }
+
+function TDpiPanel.GetNativePanel: TPanel;
+begin
+  if not Assigned(NativePanel) then NativePanel := TPanel.Create(nil);
+    Result := NativePanel;
+end;
+
+constructor TDpiPanel.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiPanel.Destroy;
+begin
+  FreeAndNil(NativePanel);
+  inherited;
+end;
+
+{ TDpiStringGrid }
+
+function TDpiStringGrid.DefaultRowHeightIsStored: Boolean;
+begin
+  Result := GetDefRowHeight>=0;
+end;
+
+function TDpiStringGrid.GetDefRowHeight: Integer;
+begin
+  Result := GetNativeStringGrid.DefaultRowHeight;
+end;
+
+procedure TDpiStringGrid.SetDefRowHeight(AValue: Integer);
+begin
+  GetNativeStringGrid.DefaultRowHeight := AValue;
+end;
+
+function TDpiStringGrid.GetNativeStringGrid: TStringGrid;
+begin
+  if not Assigned(NativeStringGrid) then NativeStringGrid := TStringGrid.Create(nil);
+    Result := NativeStringGrid;
+end;
+
+constructor TDpiStringGrid.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiStringGrid.Destroy;
+begin
+  FreeAndNil(NativeStringGrid);
+  inherited;
+end;
+
+{ TDpiListView }
+
+function TDpiListView.GetItems: TListItems;
+begin
+  Result := GetNativeListView.Items;
+end;
+
+function TDpiListView.GetColumns: TListColumns;
+begin
+  Result := NativeListView.Columns;
+end;
+
+procedure TDpiListView.SetColumns(AValue: TListColumns);
+begin
+  NativeListView.Columns := AValue;
+end;
+
+procedure TDpiListView.SetItems(AValue: TListItems);
+begin
+  GetNativeListView.Items := AValue;
+end;
+
+function TDpiListView.GetNativeListView: TListView;
+begin
+  if not Assigned(NativeListView) then NativeListView := TListView.Create(nil);
+    Result := NativeListView;
+end;
+
+constructor TDpiListView.Create(TheOwner: TComponent);
+begin
+  inherited Create(TheOwner);
+end;
+
+destructor TDpiListView.Destroy;
+begin
+  FreeAndNil(NativeListView);
+  inherited;
 end;
 
@@ -1671 +2420 @@
     raise EMenuError.Create(SMenuNotFound);
   Delete(I);
+end;
+
+procedure TDpiMenuItem.Clear;
+begin
+  GetNativeMenuItem.Clear;
 end;
 
@@ -1881 +2635 @@
 begin
   Result := Application.Active;
+end;
+
+function TDpiApplication.GetExeName: string;
+begin
+  Result := GetNativeApplication.ExeName;
 end;
 
@@ -2210 +2969 @@
 begin
   Result := nil;
+end;
+
+procedure TDpiRasterImage.BeginUpdate(ACanvasOnly: Boolean);
+begin
+  GetNativeRasterImage.BeginUpdate(ACanvasOnly);
+end;
+
+procedure TDpiRasterImage.EndUpdate(AStreamIsValid: Boolean);
+begin
+  GetNativeRasterImage.EndUpdate(AStreamIsValid);
 end;
 
@@ -2349 +3118 @@
 end;
 
+function TDpiBitmap.GetTransparent: Boolean;
+begin
+  Result := GetNativeBitmap.Transparent;
+end;
+
+function TDpiBitmap.GetTransparentColor: TColor;
+begin
+  Result := GetNativeBitmap.TransparentColor;
+end;
+
 function TDpiBitmap.GetWidth: Integer;
 begin
@@ -2363 +3142 @@
 begin
   GetNativeBitmap.PixelFormat := AValue;
+end;
+
+procedure TDpiBitmap.SetTransparent(AValue: Boolean);
+begin
+  GetNativeBitmap.Transparent := AValue;
+end;
+
+procedure TDpiBitmap.SetTransparentColor(AValue: TColor);
+begin
+  GetNativeBitmap.TransparentColor := AValue;
 end;
 
@@ -2478 +3267 @@
 end;
 
+function TDpiListBox.GetOnSelectionChange: TSelectionChangeEvent;
+begin
+  Result := GetNativeListBox.OnSelectionChange;
+end;
+
 function TDpiListBox.GetParentFont: Boolean;
 begin
@@ -2521 +3315 @@
 begin
   GetNativeListBox.Items := AValue;
+end;
+
+procedure TDpiListBox.SetOnSelectionChange(AValue: TSelectionChangeEvent);
+begin
+  GetNativeListBox.OnSelectionChange := AValue;
 end;
 
@@ -2631 +3430 @@
 begin
   GetNativeCanvas.Handle := AValue;
+end;
+
+procedure TDpiCanvas.SetHeight(AValue: Integer);
+begin
+  GetNativeCanvas.Height;
+end;
+
+procedure TDpiCanvas.SetWidth(AValue: Integer);
+begin
+
 end;
 
@@ -2711 +3520 @@
 end;
 
-procedure TDpiCanvas.TextOut(X, Y: Integer; Text: string);
+procedure TDpiCanvas.TextOut(X, Y: Integer; const Text: string);
 begin
   GetNativeCanvas.TextOut(ScaleToNative(X), ScaleToNative(Y), Text);
@@ -2731 +3540 @@
 end;
 
-procedure TDpiCanvas.FillRect(ARect: TRect);
+procedure TDpiCanvas.FillRect(const ARect: TRect);
 begin
   GetNativeCanvas.FillRect(ScaleRectToNative(ARect));
@@ -3012 +3821 @@
 end;
 
+procedure TDpiFont.GetTextSize(Text: string; var w, h: Integer);
+begin
+  W := GetTextWidth(Text);
+  H := GetTextHeight(Text);
+end;
+
+function TDpiFont.GetTextHeight(Text: string): Integer;
+begin
+  Result := ScaleFromNative(GetNativeFont.GetTextHeight(Text));
+end;
+
+function TDpiFont.GetTextWidth(Text: string): Integer;
+begin
+  Result := ScaleFromNative(GetNativeFont.GetTextWidth(Text));
+end;
+
 { TDpiWinControl }
 
@@ -3188 +4013 @@
     //DpiApplication.UpdateVisible;
   end;
+end;
+
+function TDpiScreen.GetDesktopHeight: Integer;
+begin
+  Result := ScaleFromNative(Screen.DesktopHeight);
+end;
+
+function TDpiScreen.GetDesktopLeft: Integer;
+begin
+  Result := ScaleFromNative(Screen.DesktopLeft);
+end;
+
+function TDpiScreen.GetDesktopTop: Integer;
+begin
+  Result := ScaleFromNative(Screen.DesktopTop);
+end;
+
+function TDpiScreen.GetDesktopWidth: Integer;
+begin
+  Result := ScaleFromNative(Screen.DesktopWidth);
 end;
 
@@ -3220 +4065 @@
   for I := 0 to FForms.Count - 1 do
     FForms[I].ScreenChanged;
+end;
+
+function TDpiScreen.DisableForms(SkipForm: TDpiForm; DisabledList: TList
+  ): TList;
+begin
+  Result := Screen.DisableForms(SkipForm.GetNativeForm, DisabledList);
+end;
+
+procedure TDpiScreen.EnableForms(var AFormList: TList);
+begin
+  Screen.EnableForms(AFormList);
 end;
 
@@ -3454 +4310 @@
 end;
 
+procedure TDpiControl.Refresh;
+begin
+  GetNativeControl.Refresh;
+end;
+
 function TDpiControl.IsParentOf(AControl: TDpiControl): boolean;
 begin
@@ -3463 +4324 @@
       Exit(True);
   end;
+end;
+
+function TDpiControl.Scale96ToScreen(const ASize: Integer): Integer;
+begin
+  Result := MulDiv(ASize, Screen.PixelsPerInch, 96);
 end;
 
@@ -3544 +4410 @@
 end;
 
+function TDpiControl.GetAutoSize: Boolean;
+begin
+  Result := GetNativeControl.AutoSize;
+end;
+
 function TDpiControl.GetClientHeight: Integer;
 begin
@@ -3617 +4488 @@
 begin
   GetNativeControl.Anchors := AValue;
+end;
+
+procedure TDpiControl.SetAutoSize(AValue: Boolean);
+begin
+  GetNativeControl.AutoSize := AValue;
 end;
 
@@ -3846 +4722 @@
 begin
   Result := GetNativeForm.Position;
+end;
+
+function TDpiForm.GetRestoredHeight: Integer;
+begin
+  Result := ScaleFromNative(GetNativeForm.RestoredHeight);
+end;
+
+function TDpiForm.GetRestoredLeft: Integer;
+begin
+  Result := ScaleFromNative(GetNativeForm.RestoredLeft);
+end;
+
+function TDpiForm.GetRestoredTop: Integer;
+begin
+  Result := ScaleFromNative(GetNativeForm.RestoredTop);
+end;
+
+function TDpiForm.GetRestoredWidth: Integer;
+begin
+  Result := ScaleFromNative(GetNativeForm.RestoredWidth);
 end;