Verschiedene Controls an Procedur übergeben

[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.