In neuer Komponente Shapes einfügen

Reply to In neuer Komponente Shapes einfügen on Sat, 12 Feb 2005 14:16:39 GMT

GoTschA — Sat, 12 Feb 2005 14:16:39 GMT

Hallo zusammen,
ich habe eine Neue Komponente aus TShape erstellt, und möchte darin gerne ein weiteres TShape zeichnen (Komponente soll ein Quadrat und darin ein Kreis zeichnen).
Theoretisch sollte es auch funktionieren, tut es aber nicht. Ich vermute es liegt daran, das ich den Shapes nicht sagen kann, wer das parent ist. Habt ihr ne Idee wie ich das Problemchen lösen kann??
Danke im vorraus

__fastcall TEinbauten::TEinbauten(TComponent* Owner)
        : TShape(Owner)
{
 Shape1 = new TShape(this);
 Shape2 = new TShape(this);

 Shape1->Shape = stRectangle;
 Shape1->Brush->Style = bsSolid;
 Shape1->Pen->Style = psSolid;
 Shape1->Left   = 30;  // nur testwerte
 Shape1->Top    = 30; // nur testwerte
 Shape1->Height = 40; // nur testwerte
 Shape1->Width = 40; // nur testwerte

}

Reply to In neuer Komponente Shapes einfügen on Sat, 12 Feb 2005 14:48:51 GMT

TGGC — Sat, 12 Feb 2005 14:48:51 GMT

Shape zwei wird nix zugewiesen?

Bye, TGGC (Pipe my World.)

Reply to In neuer Komponente Shapes einfügen on Sat, 12 Feb 2005 14:49:37 GMT

GoTschA — Sat, 12 Feb 2005 14:49:37 GMT

ich weiss, diesen Code hatte ich zwecks übersichtlichkeit entfernt

Reply to In neuer Komponente Shapes einfügen on Sat, 12 Feb 2005 14:56:49 GMT

akari — Sat, 12 Feb 2005 14:56:49 GMT

Hallo

da du ein Shape nicht als Parent zuweisen kannst, kannst du eigentlich nur die Shapes auf den selben Parent (das Form) stellen und das innere Shape von den Werten her festlegen

TShape *NewShape;

  NewShape = new TShape(this);
  NewShape->Parent = Shape1->Parent;
  NewShape->Left = Shape1->Left + 20;
  NewShape->Top = Shape1->Top + 20;
  NewShape->Width = Shape1->Width - 40;
  NewShape->Height = Shape1->Height - 40;

bis bald
akari

Reply to In neuer Komponente Shapes einfügen on Sat, 12 Feb 2005 15:01:16 GMT

GoTschA — Sat, 12 Feb 2005 15:01:16 GMT

NewShape->Parent = Shape1->Parent;

Aber genau das ist das Problem, Shape1->Parent kenne ich ja nicht. Da ich nicht weiss wie das parent heisst.

Reply to In neuer Komponente Shapes einfügen on Sat, 12 Feb 2005 15:04:03 GMT

akari — Sat, 12 Feb 2005 15:04:03 GMT

Hallo

es spielt doch keine Rolle, wie der Parent heißt oder was das genau ist. Solange du die Referenz des Parents von äußeren Shape hast, kannst du diesen für andere Controls als Parent benutzen.

bis bald
akari