TImage zur Laufzeit mit weiteren Properties ausstatten

[guidobrose]

Delphi-Quellcode:

unit Unit1; 

interface 

uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ComCtrls, pngimage, ExtCtrls,Math, StdCtrls, jpeg ; 

type

  TMyImage=class(TImage) 
  private 
    FEigenschaft:integer;
    //Methoden fehlen hier auch noch
  end;
 
  TForm1 = class(TForm) 
    img_src: TMyImage; 
    img_bg: TMyImage; 
    ScrollBar1: TScrollBar; 
    img_dest: TImage; 
    ScrollBar2: TScrollBar; 
    lbl_size: TLabel; 
    lbl_angle: TLabel; 
    procedure FormCreate(Sender: TObject); 
    procedure ScrollBar1Change(Sender: TObject); 
    procedure ScrollBar2Change(Sender: TObject); 
  private 
    { Private-Deklarationen } 
  public 
    { Public-Deklarationen } 
  end;