Unit ClipIcon

*****************************************************} { } { Delphi VCL Extensions (RX) } { } { Copyright (c) 1995 AO ROSNO } { Copyright (c) 1997, 1998 Master-Bank } { } {

Classes

Functions

AssignClipboardIcon -
CopyIconToClipboard -
CreateIconFromClipboard -
CreateRealSizeIcon - Size in record is doubled
DrawRealSizeIcon -
GetIconSize - Real-size icons support routines (32-bit only)

the following code determines which image most closely matches the current device.

Types

Constants

Variables

CF_ICON


Functions


procedure AssignClipboardIcon(Icon: TIcon);


procedure CopyIconToClipboard(Icon: TIcon; BackColor: TColor);


function CreateIconFromClipboard: TIcon;


function CreateRealSizeIcon(Icon: TIcon): HIcon;

Size in record is doubled

procedure DrawRealSizeIcon(Canvas: TCanvas; Icon: TIcon; X, Y: Integer);


procedure GetIconSize(Icon: HIcon; var W, H: Integer);

Real-size icons support routines (32-bit only)

the following code determines which image most closely matches the current device. It is not meant to absolutely match Windows (known broken) algorithm


Types


Constants


Variables

CF_ICON : Word

Icon clipboard routines