In etwa so:
Delphi-Quellcode:
unit uOrpheusImage ;
interface
uses SysUtils, Classes, graphics, ComCtrls ;
type
TOrpheusImage =
class (TImage)
published
property ausgewaehlt : boolean
read Fausgewaehlt
write Fausgewaehlt ;
end ;
procedure Register ;
implementation
procedure Register ;
begin
RegisterComponents(Orpheus, [TOrpheusImage ]);
end ;
end.
Danach erstellst du ein Delphi
Package (Datei->Neu->Weitere->
Package), speicherst dieses unter einem beliebigen Namen ab, und fügst die uOrpheusImage
unit hinzu. Das
Package compilieren und installieren, und du solltest eine Meldung kriegen, dass die Komponente TOrpheusImage installiert ist.
In der
VCL Palette ist jetzt eine Register Orpheus aufgetaucht mit deiner Image Komponente mit der zusätzlichen Eigenschaft.