Canvas als Komponenten-Eigenschaft

[sebi87]

Hallo Leute, ich weiß zwar nicht ob das hier an dem richtigen Platz ist aber ich weiß nicht wohin. Wenn es woanderst hingehört bitte verschieben.

Jetzt zu meinem Problem, ich habe eine Non-Visuelle-Komponente erstellt die auf eine Canvas einer anderen Komponente zeichnet.
Meine Problem ich will die Canvas als Property im OI auswählen können aber es funktioniert mit TCanvas nicht, wenn ich allerdings eine PaintBox nehme und als Property dann die TPaintBox nehmen kann ich, wenn eine PaintBox auf dem Formular ist diese auswählen. Das Funktioniert so ganz gut, nur bin ich auf die Canvas der PaintBox eingeschrängt, wenn ich jetzt die Canvas eines Images will geht das nicht.


Hat jemand eine Idee wie ich das allgemiener machen kann?



Danke



Sebastian

[mkinzler]

Könnte daran liegen, das TCanvas keine Komponente ist.

[sebi87]

Das hab ich mir auch schon überlegt, gibt es dennoch eine Möglichkeit das das funktioniert?

[mkinzler]

Man könnte versuchen einen eigene Property-Editor zu schreiben, der in den published-Eigenschaften der Komponenten nach Cnavas-Eigenschaften sucht.

[sebi87]

Kannst du hierzu mal ein Beispiel posten, hab gerade keine Ahnung wie das fuktioniert, bzw. funktionieren kann.

[mkinzler]

http://www.delphi3000.com/articles/article_2744.asp

[DeddyH]

Den Autor des Artikels kenn ich irgenwoher

[sebi87]

erst mal vielen dank für die Hilfe,

muss mal schauen wie ich das machen kann


Sebastian

[sebi87]

Das mit dem Property-Editor hab ich jetzt soweit verstanden, nur wie suche ich im Design-Modus in den published-Eigenschaften der Komponenten nach Cnavas-Eigenschaften?

Sebastian

[bitsetter]

Hi,

bist du dir sicher, dass du die published-Eigenschaften meinst?
Die Eigenschaft Canvas ist bei der TPaintbox nämlich unter public deklariert.

Bei published-Eigenschaften müsste es aber so gehen:

Delphi-Quellcode:

uses
  TypInfo;

...
var
  Info: PTypeInfo;
const
  PropName= 'Color';
begin
  Info := TypeInfo(TPaintbox);
  Showmessage(Format('Color ist published: %s', [BoolToStr(Assigned(GetPropInfo(Info, PropName)), True)]));