Verschiedene Controls an Procedur übergeben

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

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:

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.