Verschiedene Controls an Procedur übergeben

[Guido Eisenbeis]

Ich benutze Lazarus im {$mode delphi} für Win 32.

Es geht um eine Routine, der ein Control übergeben wird und dann einige Eigenschaften benutzt und geändert werden. Die wichtigsten Eigenschaften sind "Canvas", "(Show)Hint" und "Caption".

Der Routine sollen bei verschiedenen Aufrufen auch verschiedene Controls übergeben werden. Beispiel:

Delphi-Quellcode:

  // Prozedur-Kopf
  procedure TForm1.SetShortenedText(ACtrlWithCanvas: T-???; AText: string);


  // Aufruf-Beispiel
  SetShortenedText(Label1, 'Mein Text');
  SetShortenedText(Panel1, 'Mein Text');

Allerdings kriege ich den Typ für "ACtrlWithCanvas" nicht hin. Benutze ich TControl meckert der Compiler über "dies", nehme ich TGraphicsControl meckert er über "das". Wie kann man das lösen, so dass ich ein beliebiges Control (mit Canvas) übergeben kann, ohne die Routine mit zusätzlichen Übergabe-Parametern aufzublähen? :gruebel:

Guido.

Edit: Das Problem konnte nicht auf direktem Weg gelöst werden. Ein Workaround wird in diesem Thread behandelt.

[Bernhard Geyer]

TControl und dann per RTTI schauen ob es die Properties gibt um auf diese Zuzugreifen.
Die nötigen Funktion finden sich hierbei in der Unit Types.
Ob du auf Canvas damit kommst könnte evtl. nicht möglich sein da die RTTI nur für published-Properties den Zugriff ermöglicht.
Aber falls Lazarus auch die erweiterte RTTI schon kann könntest du schauen ob du darüber den Zugriff hin bekommst.

[himitsu]

Mn kann auch schauen wo diese Eigenschafften eingeführt wurden und nimmt dieses als Basistyp für den Parameter.

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.


Die neue RTTI würde ja auf nahezu alles zugreifen können, aber die vom 2006/TDE ist noch etwas "älter".

[Bernhard Geyer]

Zitat:

Zitat von himitsu (Beitrag 1132750)

... aber die vom 2006/TDE ist noch etwas "älter".

Er nimmt für dieses Anwendungsfall Lazarus:

Zitat:

Ich benutze Lazarus im {$mode delphi} für Win 32.

[ConnorMcLeod]

Im Falle der Caption:

Delphi-Quellcode:

if AControl is TWinControl then TWinControl(AControl).Perform(WM_SETTEXT, ...

[DeddyH]

Ein Label hat auch eine Caption und ist garantiert kein TWinControl.

[ConnorMcLeod]

Dann musst Du's eben im else-Zweig etwas langwieriger über RTTI behandeln.

[Guido Eisenbeis]

Zitat:

Zitat von DeddyH (Beitrag 1132761)

Ein Label hat auch eine Caption und ist garantiert kein TWinControl.

Richtig. :mrgreen: (Hab ich gerade hierbei erfahren müssen.)

Zitat:

Zitat von Bernhard Geyer (Beitrag 1132748)

TControl und dann per RTTI schauen ob es die Properties gibt um auf diese Zuzugreifen.

So, jetzt isses passiert: Ich gehör zum alten Eisen und bin eingerostet! :oops: Die RTTI kenne ich nicht (hab's aber gerade auf Wikipedia nachgescehen) und stehe auf dem Schlauch. :gruebel: Kannst du das mal anders erklären? Meinst du, ich soll nachsehen, ob das übergebene TControl die Eigenschaften Canvas, Hint, Caption, ... hat? Und dann?

Und vielleicht noch eine kleine Erklärung zu der RTTI in Umgangssprache (also für Doofe wie mich :? )? Wie benutzt man die? "If AControl is ..." oder so?

Guido.

[DeddyH]

Für die Caption findest Du hier ein Delphi-Beispiel (Unit TypInfo muss eingebunden werden). Inwiefern das mit Lazarus funktioniert weiß ich allerdings nicht.

[Guido Eisenbeis]

Zitat:

Zitat von DeddyH (Beitrag 1132772)

Für die Caption findest Du hier ein Delphi-Beispiel (Unit TypInfo muss eingebunden werden).

Prima, funktioniert gut. Danke für die Funktion! Ich denke, die kann ich noch öffter gebrauchen. :thumb:

Zitat:

Zitat von DeddyH (Beitrag 1132772)

Inwiefern das mit Lazarus funktioniert weiß ich allerdings nicht.

Funktioniert! :)

Aaaaber, ... wie gesagt steh ich auf dem Schlauch, wie's weitergehen soll. Ich kann prüfen, ob die Funktionen vorhanden sind, aber wie kann ich drauf zugreifen? Und welcher Kassentyp soll an meine Routine übergeben werden? TObject?

Guido.

[JamesTKirk]

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

Zitat:

Zitat von himitsu (Beitrag 1132750)

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

Delphi-Quellcode:

Caption

bereits in

Delphi-Quellcode:

TControl

Delphi-Quellcode:

public

. Also kann dieses schonmal mit Hilfe von

Delphi-Quellcode:

TControl

verarbeitet werden.

Delphi-Quellcode:

ShowHint

und

Delphi-Quellcode:

Hint

sind ebenfalls bereits in

Delphi-Quellcode:

TControl

zugreifbar, also bleibt nur noch

Delphi-Quellcode:

Canvas

.

@Guido: Ich empfehle dir also das folgende: Nimm als Parametertyp

Delphi-Quellcode:

TControl

, dann solltest du schonmal auf

Delphi-Quellcode:

Caption

,

Delphi-Quellcode:

Hint

und

Delphi-Quellcode:

ShowHint

zugreifen können.
Für das Canvas empfehle ich dir das folgende:

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;

Delphi-Quellcode:

is

dient übrigens dazu, um herauszufinden ob eine Objektinstanz von einer bestimmten Klasse abgeleitet ist. Zum Beispiel ist

Delphi-Quellcode:

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:

Zitat von JamesTKirk (Beitrag 1132787)

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:

Zitat von miLeRiAm (Beitrag 841753)

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:

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:

Zitat von DeddyH (Beitrag 1132815)

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.

Delphi-Quellcode:

procedure TForm1.SetShortenedText(ACtrlWithCanvas: TControl; AText: string);

Im weiteren Code wird dann auf Canvas zugegriffen:

Delphi-Quellcode:

  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:

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:

Zitat von DeddyH (Beitrag 1132844)

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:

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" :wink: 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. :-D

Guido.

[JamesTKirk]

Zitat:

Zitat von DeddyH (Beitrag 1132790)

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

Delphi-Quellcode:

Canvas

aber nicht als

Delphi-Quellcode:

public

gekennzeichnet...

Zitat:

Zitat von Guido Eisenbeis (Beitrag 1132798)

Zitat:

Zitat von JamesTKirk (Beitrag 1132787)

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:

Zitat von Guido Eisenbeis (Beitrag 1132798)

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

Delphi-Quellcode:

TControl

, dann kannst du auf

Delphi-Quellcode:

Caption

,

Delphi-Quellcode:

Hint

und

Delphi-Quellcode:

ShowHint

zugreifen. Die

Delphi-Quellcode:

Canvas

-Property musst du dann anders ermitteln und darauf hoffen, dass du keinem Control begegnest, dass nicht von

Delphi-Quellcode:

TCustomControl

oder

Delphi-Quellcode:

TGraphicControl

abgeleitest ist, aber trotzdem eine

Delphi-Quellcode:

Canvas

-Property besitzt (ansonsten musst du halt des

Delphi-Quellcode:

if

anpassen...).

Zitat:

Zitat von Guido Eisenbeis (Beitrag 1132838)

@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

[DeddyH]

Zitat:

Zitat von JamesTKirk (Beitrag 1132885)

Normalerweise wird

Delphi-Quellcode:

Canvas

aber nicht als

Delphi-Quellcode:

public

gekennzeichnet...

Dann kommst Du ja gar nicht ran, auch nicht mit 10.000 "is"-Abfragen.

[JamesTKirk]

Zitat:

Zitat von DeddyH (Beitrag 1132886)

Zitat:

Zitat von JamesTKirk (Beitrag 1132885)

Normalerweise wird

Delphi-Quellcode:

Canvas

aber nicht als

Delphi-Quellcode:

public

gekennzeichnet...

Dann kommst Du ja gar nicht ran, auch nicht mit 10.000 "is"-Abfragen.

Ups. :oops: Ich meine natürlich, dass Canvas normalerweise nicht als

Delphi-Quellcode:

published

, sondern nur als

Delphi-Quellcode:

public

gekennzeichnet wird.

Gruß,
Sven

[DeddyH]

Deshalb ja meine Ableitungen, da die "alte" RTTI eben nur mit published Properties kann. Doof, aber ich kann es auch nicht ändern.

[Guido Eisenbeis]

Zitat:

Zitat von JamesTKirk (Beitrag 1132885)

Zitat:

Zitat von Guido Eisenbeis (Beitrag 1132798)

Zitat:

Zitat von JamesTKirk (Beitrag 1132787)

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.

Workaround ist nicht negativ gemeint. In Online-Übersetzer dict.cc wird Workaround zwar unter anderem als "Notlösung" bezeichnet (was an sich ja auch schon nicht negativ ist), aber überwiegend als "Zwischenlösung", "Übergangslösung" und, was mir eigentlich im Sinn war, als "Problemumgehung".

Ich unterscheide sehr wohl zwischen "unsauber" und "Workaround". Über "unsauber" muss man nichts sagen, das geht einfach nicht (für mich). Ein Workaround ist für mich wirklich eine Problemumgehung, das heißt ein Problem wird nicht direkt angegangen, sonder umgangen. (Dazu gleich mehr!)
Das war also nicht bös gemeint. (Ich hab ja auch geschrieben "Nägel mit Köpfen" und dass das auch mein Ansatz wäre. *Alles wieder gut?* :cheers:

Zurück zum Thema. Ich fasse zusammen:

- Einer Procedur wird unter anderem ein Object als Parameter übergeben.
- Es sollen Eigenschaften und Methoden dieses Objects in der Procedure verwendet werden.
- Der Typ des Object ist je nach Aufruf verschieden.
- Es soll sichergestellt werden, die gewünschten Eigenschaften / Methoden nutzen zu können.
- Die Nutzung soll durch einen gezielten TypCast erfolgen (also ohne 1000 if-Abfragen).

-> Problem: Welcher Klassen-Typ kann zu diesem Zweck im Object-Übergabeparameter verwendet werden?

Fazit:

Ich bin der Ansicht, dass eine direkte Lösung mit o. g. Vorgaben und den derzeitegen Mitteln nicht machbar ist. Mein weiteres Vorgehen wird eine Umgehung des Problems sein, also ein Workaround. Es wurden hier vielversprechende Ansätze gezeigt, die ich aufgreifen werde. Das Problem sehe ich nicht als gelöst, aber als beendet an. Für den Workaround werde ich einen eigenen Thread erstellen und hier verlinken.

Ich danke allen, die mitgeholfen haben! :-D :thumb:

Vielen Dank,
Guido.

Edit: Der Workaround zu diesem Problem wird in diesem Thread behandelt.