Verschiedene Controls an Procedur übergeben

**JamesTKirk**

Du hast zwar zwischenzeitlich bereits geantwortet, aber vielleicht hilft dir das trotzdem weiter:

Da Caption aber z.B. schon recht früh vorhanden war, allerdings protected und man demnach eigentlich nicht ran kommt,
kann man diesen Typen dennoch nehmen und macht sich das Property sichtbar, über eine eigene Zugriffsklasse oder man castet einfach in "irgendwas", wo es endlich sichtbar ist.

In der LCL ist Caption bereits in TControl public . Also kann dieses schonmal mit Hilfe von TControl verarbeitet werden.

ShowHint und Hint sind ebenfalls bereits in TControl zugreifbar, also bleibt nur noch Canvas .

@Guido: Ich empfehle dir also das folgende: Nimm als Parametertyp TControl , dann solltest du schonmal auf Caption , Hint und ShowHint zugreifen können.
Für das Canvas empfehle ich dir das folgende:

zusammenfalten · markieren

Delphi-Quellcode:

			var

  thecanvas: TCanvas;

begin

  // Sachen mit Caption und (Show)Hint machen

  ...

  // jetzt den Canvas ermitteln, falls möglich

  if ACtrlWithCanvas is TCustomControl then

    thecanvas := TCustomControl(ACtrlWithCanvas).Canvas

  else

  if ACtrlWithCanvas is TGraphicControl then

    thecanvas := TGraphicControl(ACtrlWithCanvas).Canvas

  else

    (* wir wissen nicht, ob das Control einen Canvas hat 

     * (das könnte man jetzt mit RTTI austesten, aber ich 

     * brech hier einfac mal ab)

     *)

    Exit;

  // verwende "thecanvas" um auf den Canvas zuzugreifen

end;

is dient übrigens dazu, um herauszufinden ob eine Objektinstanz von einer bestimmten Klasse abgeleitet ist. Zum Beispiel ist someobj is TObject für jede Objektinstanz wahr.

Gruß,
Sven

**DeddyH**

Ich hatte blöderweise nicht auf den Thread, sondern auf einen einzelnen Beitrag verlinkt. Das Gegenstück findet man am Ende des

Threads. Das erspart dann die ganzen "is"-Abfragen.

**Guido Eisenbeis**

Zitat von JamesTKirk:

Du hast zwar zwischenzeitlich bereits geantwortet, aber vielleicht hilft dir das trotzdem weiter:

Ja, auf jeden Fall. Deine Idee ist sehr "praktisch-orientiert", sprich: macht Nägel mit Köpfen, und stellt das dar, was ich als "Workaround" ansehen würde. Das wäre auch mein Ansatz, wenn uns nichts "besseres" einfällt (und ein guter!).

Aber noch gebe ich die Hoffnung nicht auf. Was ich will ist möglichst kein Workaround, sondern eine Möglichkeit ein geziehltes TypCast durchzuführen. Das was himitsu geschrieben hat, zielt in die richtige Richtung. Das hatte ich allerdings schon probiert, bevor ich hier gepostet habe (siehe auch meinen ersten Beitrag). Leider habe ich keinen Klassentyp gefunden, mit dem auf alle benötigten Eigenschaften zugegriffen werden kann.

Aber mit eurer Hilfe bin ich nun auf die Idee gekommen, die Klasse von ACrtlWithCanvas auszulesen. Genauer gesagt, brint das Auslesen der Klasse noch nicht ganz eine Lösung. Am besten sollte (vielleicht mit dem von Detlef vorgeschlagenen "GetPropInfo") eine Instanz zurück gegeben werden, mit der ein gezielter TypCast durchgeführt werden kann.

Wie kann ich denn Zumindest die Klasse (also den Namen) von ACtrl... auslesen? Hab's mit der Funktion von Detlef probiert und 'Class', 'ClassType' und 'CassName' eingegeben, doch ohne Erfolg.

Und noch mal kurz auf die RTTI: Ist das mit "GetPropInfo" usw. die RTTI? Falls nicht, wo finde ich denn Infos darüber (wenn's geht nicht so hochtrabende, sondern welche, die ich auch verstehe)?

Guido.

Nachtrag: Detlef hat gerade einen weiteren Beitrag gepostet und ich lese mich nun durch den Thread durch. Kann noch ein wenig dauern, sieht interessant aus, aber ich schicke nun diesen Beitrag erst mal ab, und lese dann dort in Ruhe.

**Guido Eisenbeis**

Ok, hab den

Thread durchgelesen und zitiere mal was auch bei mir als Problem bleibt:

Zitat von miLeRiAm:

Das Problem bleibt bestehen, dass ich in Delphi (bisher) keine Möglichkeit gefunden habe, Klassen dynamisch zuzuweisen, z.B. so:

TClass('TLabel').Caption
oder
TClass(comp.ClassName).Caption

Ideen?

Der dortige Thread-Ersteller konnte zwar sein Problem "lösen", aber nur weil er Glück hatte, dass er keine anderen Klassenmember benötigte. In meinem Fall kann ich nicht einfach ein "CompSetCaption" machen. Der Knackpunkt ist "Canvas" und noch genauer "Canvas.TextWidth".

Das heißt, außer auf die Eigenschaften von ACtrl... muss ich auch noch auf die Methode "Canvas.TextWidth" zugreifen können. Weitere Ideen?

Guido.

**DeddyH**

Du kannst doch die "CompHasCaption"-Funktion dynamischer gestalten, indem Du den Namen der gesuchten Property als Parameter übergibst. Anschließend prüfst Du, ob das übergebene Control alle benötigten Properties besitzt, und setzt sie erst in dem Fall.

[edit] Beispiel:

zusammenfalten · markieren

Delphi-Quellcode:

			function CompHasProp(AClass : TObject; PropName: string): Boolean;

var

  MyPropInfo: PPropInfo;

begin

  MyPropInfo := GetPropInfo(AClass.ClassInfo, PropName);

  Result := Assigned(MyPropInfo);

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

  if CompHasProp(Label1, 'Caption') and CompHasProp(Label1, 'Font') then

    ShowMessage('Jau, beides vorhanden');

end;

Wie man das dann mit Klassenproperties(TCanvas, TFont, usw.) hinbekommt, weiß ich leider auch nicht aus dem Hut. [/edit]

**Guido Eisenbeis**

Zitat von DeddyH:

Du kannst doch die "CompHasCaption"-Funktion dynamischer gestalten, indem Du den Namen der gesuchten Property als Parameter übergibst. Anschließend prüfst Du, ob das übergebene Control alle benötigten Properties besitzt, und setzt sie erst in dem Fall.

Funktioniert leider nicht mit Canvas (zumindest nicht in meinen Tests).

Und Canvas bzw. dann Canvas.TextWidth ist ein echtes Problem. Ich habe, wie schon geschrieben, verschiedene Klassen probiert, um ACtrl... zu übergeben, z. B. als TControl.

procedure TForm1.SetShortenedText(ACtrlWithCanvas: TControl; AText: string); Im weiteren Code wird dann auf Canvas zugegriffen:

while (ACtrlWithCanvas.Width < (ACtrlWithCanvas.Canvas.TextWidth(TmpTxt) + 50)) do Aber da wird schon nicht kompiliert. Nehme ich TGraphicControl oder TWinControl, gibts Exeptions einmal wenn ein Label, und das andere Mal wenn ein Panel übergeben wird. Das heißt, selbst das Wissen, ob ein Control eine bestimmte Eigenschaft oder Methode besitzt, lässt mich leider immer noch nicht darauf zugreifen.

Guido.

@Sven (JamesTKirk)

In deinem Posting #11 hat sich ein Schreibfehler in den Code eingeschlichen: In der zweiten If-Abfrage fehlt beim zweiten "TGraphicControl" das "h". Das haben wohl die Klingonen geklaut!?

**DeddyH**

Du musst wohl dafür sorgen, dass die gesuchte Property published ist, das ist der Nachteil (zumindest in Delphi < 2010) dabei. Ein Test mit Delphi 2007:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TLabel = class(StdCtrls.TLabel)

  published

    property Canvas;

  end;

  TPanel = class(ExtCtrls.TPanel)

  published

    property Canvas;

  end;

  TForm8 = class(TForm)

    Label1: TLabel;

    Button1: TButton;

    Panel1: TPanel;

    Button2: TButton;

...

uses TypInfo;

function CompHasProp(AClass : TObject; PropName: string): Boolean;

var

  MyPropInfo: PPropInfo;

begin

  MyPropInfo := GetPropInfo(AClass.ClassInfo, PropName);

  Result := Assigned(MyPropInfo);

end;

procedure DrawOnCanvas(Control: TControl);

var

  aCanvas: TCanvas;

begin

  if CompHasProp(Control, 'Canvas') then

    begin

      aCanvas := GetObjectProp(Control, 'Canvas') as TCanvas;

      if Assigned(aCanvas) then

        begin

          aCanvas.Brush.Color := clRed;

          aCanvas.FillRect(Rect(0, 0, Control.Width, Control.Height));

        end;

    end;

end;

procedure TForm8.Button1Click(Sender: TObject);

begin

  DrawOnCanvas(Label1);

end;

procedure TForm8.Button2Click(Sender: TObject);

begin

  DrawOnCanvas(Panel1);

end;

**Guido Eisenbeis**

Zitat von DeddyH:

Du musst wohl dafür sorgen, dass die gesuchte Property published ist, das ist der Nachteil (zumindest in Delphi < 2010) dabei. Ein Test mit Delphi 2007:

zusammenfalten · markieren

Delphi-Quellcode:

			type

  TLabel = class(StdCtrls.TLabel)

  published

    property Canvas;

  end;

  TPanel = class(ExtCtrls.TPanel)

  published

    property Canvas;

  end;

...

Wow, da hast du dir aber viel Mühe gemacht! Danke!

Ich hab's probiert (in abgespeckter Form) und es funktioiert auch in Lazarus 0.9.30.2RC1, aber ich fürchte, dass es mir mit dem Setzen der "Canvase"

auf published für jedes Control dann so ergeht, wie dem User im von dir genannten Thread im

Posting #13 mit seinen tausend "if comp is ..."-Abfragen.

Ist eine echt interessante Sache, leider ein bisschen aufwendig. Trotzdem danke.

Guido.

**JamesTKirk**

Zitat von DeddyH:

Ich hatte blöderweise nicht auf den Thread, sondern auf einen einzelnen Beitrag verlinkt. Das Gegenstück findet man am Ende des

Threads. Das erspart dann die ganzen "is"-Abfragen.

Normalerweise wird Canvas aber nicht als public gekennzeichnet...

Zitat von Guido Eisenbeis:

Zitat von JamesTKirk:

Du hast zwar zwischenzeitlich bereits geantwortet, aber vielleicht hilft dir das trotzdem weiter:

Ja, auf jeden Fall. Deine Idee ist sehr "praktisch-orientiert", sprich: macht Nägel mit Köpfen, und stellt das dar, was ich als "Workaround" ansehen würde. Das wäre auch mein Ansatz, wenn uns nichts "besseres" einfällt (und ein guter!).

Ich sehe meinen Ansatz nicht als Workaround, sondern als (eine) korrekte Lösung an, die ohne irgendwelche "wir-leiten-die-Klasse-ab-und-machen-Canvas-public"-Aktionen (wie DeddyH es in seinem Code gemacht hat) auskommt. Letzteres sehe ich(!) nämlich als Workaround und "unsauber" an.
Eine wirklich saubere Lösung mit der RTTI wird erst möglich sein, wenn Free Pascal auch die erweiterte RTTI von Delphi 2009+ unterstützt (was noch etwas dauern kann...).

Zitat von Guido Eisenbeis:

Aber noch gebe ich die Hoffnung nicht auf. Was ich will ist möglichst kein Workaround, sondern eine Möglichkeit ein geziehltes TypCast durchzuführen. Das was himitsu geschrieben hat, zielt in die richtige Richtung. Das hatte ich allerdings schon probiert, bevor ich hier gepostet habe (siehe auch meinen ersten Beitrag). Leider habe ich keinen Klassentyp gefunden, mit dem auf alle benötigten Eigenschaften zugegriffen werden kann.

Wie gesagt: Nimm TControl , dann kannst du auf Caption , Hint und ShowHint zugreifen. Die Canvas -Property musst du dann anders ermitteln und darauf hoffen, dass du keinem Control begegnest, dass nicht von TCustomControl oder TGraphicControl abgeleitest ist, aber trotzdem eine Canvas -Property besitzt (ansonsten musst du halt des if anpassen...).

Zitat von Guido Eisenbeis:

@Sven (JamesTKirk)

In deinem Posting #11 hat sich ein Schreibfehler in den Code eingeschlichen: In der zweiten If-Abfrage fehlt beim zweiten "TGraphicControl" das "h". Das haben wohl die Klingonen geklaut!?

Dies pöhsen Klingonen aber auch... man kann ihnen nicht trauen!
Danke, werd's korrigieren.

Gruß,
Sven