Neue Komponente entwickeln

[josef-b]

Heute ist der Tag

Ich möchte erstmals eine neue Komponente entwickeln..

bis jetzt habe ich einige neue Properties hinzugefügt.

(Abgeleitet von TShape)

Delphi-Quellcode:

 private
    FKK_Rechts : boolean;
    FKK_Links : boolean;
    FRM_KK_Rechts : boolean;
    FRM_KK_Links : boolean;
    FQuittierung : boolean;
    FFreigabe : boolean;
    FStoerung : boolean;
    FRechts: boolean;


    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }

  published
    { Published-Deklarationen }
    property KK_Rechts: boolean read FKK_Rechts write FKK_Rechts;
    property KK_Links: boolean read FKK_Links write FKK_Links;
    property RM_KK_Rechts: boolean read FRM_KK_Rechts write FRM_KK_Rechts;
    property RM_KK_Links: boolean read FRM_KK_links write FRM_KK_Rechts;
    property Quittierung: boolean read FQuittierung write FQuittierung;
    property Freigabe: boolean read FFreigabe write FFreigabe;
    property Stoerung: boolean read FStoerung write FStoerung;
    property Rechts: boolean read FRechts write FRechts;

  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('SPS-Visualisierung', [TKlappkasten]);
end;

ich möchte jetzt, dass meine neue Eigenschaften im Objektinspektor unter einer gemeinsamen Kategorie,
nennt man das so ? stehen...

die Kategorie soll heissen "SPS"

also dann im Objektinspektor

SPS.KK_Rechts,
SPS.KK_Links,
usw...

so ähnlich halt wie

Pen.Color,
Pen.Width,
usw.

Danke schon mal im Voraus, ich habe da bestimmt demnächst noch vieeeele Fragen

[DeddyH]

Mach doch eine Menge draus.

Delphi-Quellcode:

type
  TSPS = set of (<Deine Werte>);

Was jetzt die einzelnen Booleans definieren ergibt sich dann dadurch, ob sie im Set enthalten sind.

[himitsu]

Jupp, der Enum wird einfacher sein.
Dafür gibt es einen Standard-PropertyEditor, der das wie einzelne Booleans (Checkboxen) im OI darstellt.

Und bei Kategorie dachte ich erst an Kategorie.
Objektinspektor > Kontextmenü > Anordnen > Nach Kategorie
OpenToolsAPI: RegisterPropertyInCategory RegisterPropertiesInCategory

Pen ist eine Klasse, also eine Unterkomponente in deiner Hauptklasse.
SetSubComponent

[Luckie]

Gibt es mehr Infos zu deine Komponente? Was soll sie machen? Usw.

[josef-b]

Danke erstmal für Eure Antworten.

Es geht darum, eine Visualisierung für eine Anlagensteuerung zu entwickeln.

Dazu habe ich mir überlegt, ich baue mir für die einzelnen Bestandteile, von jeder Art
gibt es auch mehrere einzelne visuelle Komponenten...

z.B.

Silo, Förderband, Siebmaschine, Elevator usw...

so ein Bildchen habe ich mir mal auf einer Form gebastelt...(Anhang)


Dieses grafische/technische Element soll dann ein paar Eigenschaften haben, wie
z.B. LeerMeldung, Vollmeldung (Die LEDS in dem Bildchen z.B. sollen dann verschiedene
Farben zur Laufzeit erhalten.

Ich möchte auch gerne die Größe des gesamten Bildchens zur Entwurfszeit verändern können,
z.B. ungefähr an die masstabsgetreue Länge eines Förderbandes anpassen, oder die Höhe eines
Elevators..

so ein Bildchen habe ich mir mal auf einer Form gebastelt...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var edit1 : tedit;
Silo: tshape;
VollMelder: tshape;
LeerMelder: tshape;
begin
Silo := tshape.create(self);
with silo do
  begin
  Parent := form1;
  width := 90;
  height := 200;
  brush.color := clmoneygreen;
  shape := strectangle;
  visible := true;
  end;

VollMelder := tshape.create(self);
with Vollmelder do
  begin
  Parent := form1;
  width := 20;
  height := 20;
  top := 20;
  left := 35;
  brush.color := clred;
  shape := stCircle;
  visible := true;
  end;

LeerMelder := tshape.create(self);
with LeerMelder do
  begin
  Parent := form1;
  width := 20;
  height := 20;
  top := 160;
  left := 35;
  brush.color := clyellow;
  shape := stCircle;
  visible := true;
  end;


with form1.canvas do
  begin
  moveto (0,200);
  lineto (45,270);
  lineto (90,200);
  lineto (0,200);
  brush.color := clmoneygreen;
  floodfill(50,210,clblack,fsborder);
  end;

end;

Kann ich das so ähnlich auf eine Komponente übertragen, so dass ich dann das ganze Bildchen
auf der Form habe, wenn ich die Komponente neu aus der Tool-Palette auf die Form schiebe?

Kann ich als Grundlage für die Vererbung ein Panel nehmen und dann die einzelnen Elemente auf
das Panel packen? Oder muss ich das bei der Komponentenentwicklung komplett mit Canvas einzeln
zeichnen? Dann auf eine Paintbox?

Wovon leite ich das ab? TPanel, TPaintbox, Nehme ich dann TPanel oder TPaintbox als Container?

Einfach gesagt, ich bräuchte mal ne grobe Anleitung wie man sowas am besten macht, ich sehe glaub
ich vor lauter Bäumen den Wald nicht mehr

[nahpets]

Als Container würd' ich ein TFrame nehmen.

Da kann man andere Komponenten nach Lust und Laune drauf plazieren und schon die Grundlogik drin implementieren.

Für jedes separate "Teil", das Du dann auf Deinem Form brauchst, nimmst Du ein Frame und kannst dann die einzelnen Komponenten darauf entsprechend ansprechen.

Zuerst machst Du Dir am Sinnvollsten für Silo, Förderband, Siebmaschine, Elevator usw ... jeweils ein Frame.

Davon kannst Du dann beliebig viele und beliebige Kombinationen auf dem Formular / den Formularen anordenen.