TImage zur Laufzeit mit weiteren Properties ausstatten

[torud]

Hallo Wissende,

ich erzeuge zur Laufzeit in einem Tool TImage und lade darin PNG´s. Alles kein Problem und easy. Da ich die sich darin befindlichen Bilder nun auch noch drehe und skaliere und sonstwie bearbeite, benötige ich in der TImage weitere Eigenschaften, in die ich z.B. die diversen Zustände schreiben und später speichern kann. Ich benötige zum Beispiel die Properties

Angle, Scaling:integer;
Invers:boolean;

usw.

Ist es möglich die TImage einfach zu überschreiben und ihr noch diese weiteren Eigenschaften zu geben?

Wenn ja, wie? Ich habe natürlich die Suche hier benutzt, aber nichts finden können, wohl weil ich nicht die richtigen Stichwörter hatte!?

Sollte es nicht gehen, wäre ich für andere Vorschläge dankbar...

[SirThornberry]

überschreiben ist was anderes. Das was du machen müsstest wäre von TImage eine ableiten und deine neue Komponente eben mit den neuen Sachen zu erweitern.

[sirius]

Verebung von Klassen wäre da das richtige Stichwort

Delphi-Quellcode:

type TMyImage=class(TImage)
       private
         FEigenschaft:integer;
end;

So, und jetzt nimmst du statt TIamge, TmyImage und schon hast du auch die Eigenschaft FEigenschaft.

[torud]

Klingt plausibel. Dies wird aber nun mein erster Versuch. Wie und wo muss ich Deinen Beispiel-Code nun einsetzen?

Bisher ist es bei mir so:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    img_src: TImage;
    img_bg: TImage;
    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;

var
  Form1: TForm1;

implementation

{$R *.dfm}

[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;

[torud]

Also ich habe es nun so eingebunden, aber ich erhalte leider nicht die Möglichkeit die

Delphi-Quellcode:

type
  TMyImage=class(TImage)
  private
    new_width:integer;
    angle:integer;
    //Methoden fehlen hier auch noch
  end;

    TForm1 = class(TForm)

so anzusprechen nachdem ich im OnCreate des Formulares das TmyImage erzeugt habe.

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  TMyImage.Create(form1);
    img_src.Picture.LoadFromFile('0.png');
    img_dest.Picture.LoadFromFile('0.png');
end;

Auch kann ich kein Bild reinladen usw...War das der hinweis mit den Methoden? Ich brauche einfach die komplette Funktionalität einer TImage PLUS der 2-5 Eigenschaften...Also was fehlt mir denn da nun noch?

Vielleicht steckt ja hier schon der richtige und wichtige Hinweis drin?

Zitat:

Zitat von SirThornberry

überschreiben ist was anderes. Das was du machen müsstest wäre von TImage eine ableiten und deine neue Komponente eben mit den neuen Sachen zu erweitern.

Nur wie?

[sirius]

Delphi-Quellcode:

img_src:=tmyimage.create(self);

Edit: Methoden fehlen dir nicht unbedingt, es sei denn du willst noch weitere hinzufügen.
Du musst auch nicht unbedingt alles unter "private" legen. Ist nur für Variablen der übliche Platz.

[torud]

Stimmt, habe es inzwischen auch gefunden. War mal wieder zu schnell mit meiner Meldung. Ist nur doof, dass mein Komponententool, welches automatisch alle sich auf dem Form befindlichen Controls in einer DFM-Datei abspeichern kann, die neuen Eigenschaften NICHT mitspeichert...Werde ich wohl mal die Erzeuger des Produktes anschreiben, ob die da was tun können...

[sirius]

Da kannst du auch selber was tun :mrgreen:

"published properties" dürften die Lösung sein.

[guidobrose]

Zitat:

Du musst auch nicht unbedingt alles unter "private" legen. Ist nur für Variablen der übliche Platz.

Stimmt, "private" ist hier doch auch etwas unglücklich, weil er dann "von außen" nicht auf seine Eigenschaften zugreifen kann. "public" wäre hier die bessere Wahl.