58 lines
1.4 KiB
Plaintext
58 lines
1.4 KiB
Plaintext
//------------------------------------------------------------------------------
|
|
// ImageEn Painter : Version 1.0
|
|
// Copyright (c) 2007 : Adirondack Software & Graphics
|
|
// Created : 05-25-2007
|
|
// Last Modification : 05-25-2007
|
|
// Description : Paste Unit
|
|
//------------------------------------------------------------------------------
|
|
|
|
unit uPaste;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, {$IfNDef VER130} Variants, {$EndIf} Classes, Graphics, Controls, Forms,
|
|
Dialogs, StdCtrls, ExtCtrls, ImgList;
|
|
|
|
type
|
|
TfrmPaste = class(TForm)
|
|
Label1: TLabel;
|
|
PasteTypeRadioGroup1: TRadioGroup;
|
|
Image1: TImage;
|
|
Panel1: TPanel;
|
|
Button1: TButton;
|
|
Button2: TButton;
|
|
Label2: TLabel;
|
|
ImageList1: TImageList;
|
|
procedure PasteTypeRadioGroup1Click(Sender: TObject);
|
|
procedure FormCreate(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
var
|
|
frmPaste: TfrmPaste;
|
|
|
|
implementation
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrmPaste.FormCreate(Sender: TObject);
|
|
begin
|
|
ImageList1.GetBitmap( 0, Image1.Picture.Bitmap);
|
|
Image1.Invalidate;
|
|
end;
|
|
|
|
procedure TfrmPaste.PasteTypeRadioGroup1Click(Sender: TObject);
|
|
begin
|
|
case PasteTypeRadioGroup1.ItemIndex of
|
|
0: ImageList1.GetBitmap( 0, Image1.Picture.Bitmap);
|
|
1: ImageList1.GetBitmap( 1, Image1.Picture.Bitmap);
|
|
end; // case
|
|
Image1.Invalidate;
|
|
end;
|
|
|
|
end.
|