Home  |  Delphi .net Home  |  System.Drawing.Graphics  |  DrawIcon Method
  
DrawIcon  
Method  
Draws an icon onto the graphics canvas
Graphics Class
System.Drawing NameSpace
CF1.  Procedure DrawIcon ( Icon : System.Drawing.Icon; X : Integer; Y : Integer ) ;
NotCF2.  Procedure DrawIcon ( Icon : System.Drawing.Icon; Rectangle : System.Drawing.Rectangle ) ;
CF : Methods with this mark are Compact Framework Compatible
Description
The DrawIcon method draws the specified Icon object at either the specified X,Y coordinates at 1:1 scaling, or stretched to fit exactly in the specified Rectangle.
Microsoft MSDN Links
System.Drawing
System.Drawing.Graphics
 Author links

 Buy Website Traffic at
 Buywebsitetrafficexperts.com

 Buy Proxies at
 Buyproxies.io
 
 
 
Drawing a small Icon at 1:1 scaling
// Full Unit code.
// -------------------------------------------------------------
// Create a new WinForm application, double click the form to
// create an OnLoad event, and then replace the WinForm unit
// with this text.
 
unit WinForm;
 
interface
 
uses
  System.Drawing, System.Collections, System.ComponentModel,
System.Windows.Forms, System.Data;
 
type
  TWinForm = class(System.Windows.Forms.Form)
  {$REGION 'Designer Managed Code'}
  strict private
    ///
    /// Required designer variable.
    ///

    Components: System.ComponentModel.Container;
    ///
    /// Required method for Designer support - do not modify
    /// the contents of this method with the code editor.
    ///

    procedure InitializeComponent;
    procedure TWinForm_Load(sender: System.Object; e: System.EventArgs);
  {$ENDREGION}
  strict protected
    ///
    /// Clean up any resources being used.
    ///

    procedure Dispose(Disposing: Boolean); override;
  private
    { Private Declarations }
  public
    constructor Create;
  end;
 
  [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))]
 
implementation
 
{$REGION 'Windows Form Designer generated code'}
///
/// Required method for Designer support -- do not modify
/// the contents of this method with the code editor.
///

 
 
procedure TWinForm.InitializeComponent;
begin
  //
  // TWinForm
  //
  Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13);
  Self.ClientSize := System.Drawing.Size.Create(292, 266);
  Self.Name := 'TWinForm';
  Self.Text := 'WinForm';
  Include(Self.Load, Self.TWinForm_Load);
end;
{$ENDREGION}
 
procedure TWinForm.Dispose(Disposing: Boolean);
begin
  if Disposing then
  begin
    if Components <> nil then
      Components.Dispose();
  end;
  inherited Dispose(Disposing);
end;
 
constructor TWinForm.Create;
begin
  inherited Create;
  //
  // Required for Windows Form Designer support
  //
  InitializeComponent;
  //
  // TODO: Add any constructor code after InitializeComponent call
  //
end;
 
procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs);
procedure TWinForm.TWinForm_Paint(sender: System.Object;
                                  e: System.Windows.Forms.PaintEventArgs);
var
  Icon : System.Drawing.Icon;
begin
  // This example uses a 16 by 16 Icon
  Icon := System.Drawing.Icon.Create('SmallLogo.ico');
  e.Graphics.DrawIcon(Icon, 2, 2);
end;
 
end.
Hide full unit code
   
Stretching this same icon to twice its width
procedure TWinForm.TWinForm_Paint(sender: System.Object;
                                  e: System.Windows.Forms.PaintEventArgs);
var
  Icon : System.Drawing.Icon;
begin
  // This example uses a 16 by 16 Icon
  Icon := System.Drawing.Icon.Create('SmallLogo.ico');
  e.Graphics.DrawIcon(Icon, Rectangle.Create(2, 2, 32, 16));
end;
   
 
 
Delphi Programming Neil Moffatt 2002 - 2017. All rights reserved.  |  Contact the author