Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi TBitmap property in eigener Komponente erzeugt bei Ausführung Fehlermeldung (https://www.delphipraxis.net/181387-tbitmap-property-eigener-komponente-erzeugt-bei-ausfuehrung-fehlermeldung.html)

Hirschmüller 11. Aug 2014 10:02

TBitmap property in eigener Komponente erzeugt bei Ausführung Fehlermeldung
 
Guten Morgen,
Nach einigen Stunden bin ich etwas frustriert:
Ich habe eine von TCustomButton abgeleitete Komponente mit einer published property Icon: TBitmap. Das Laden einer Bitmap in dieses property funktioniert mit dem Delphi-Dialog, wie er beim property Glyph in TBitBtn verwendet wird, einwandfrei. Auch das Kompilieren erfolgt fehlerfrei.

Beim Programmaufruf (aus der IDE, sowie Direktaufruf der Exe) tritt eine Exception auf:
"Exception EReadError in Modul ... bei ...
Fehler beim Lesen von UserButton1.Icon.Data: Ungültiger Pfad für Eigenschaft."

Um eventuellen Hinweisen zuvorzukommen: Ich kenne TBitBtn, ich habe auch die Source diesbezüglich angeschaut; das ist so nicht verwendbar, die Borländer haben eine private (lokale) Klasse verwendet.

Es muss doch möglich sein, eine TBitmap in einer eigenen Komponente zur Entwurfszeit mit einem Bild zu versehen!
Vielleicht hat sich schon jemand damit herumgeärgert.
Für Hinweise wäre ich sehr dankbar.
Ich verwende Windows 7 32bit, Delphi XE2.

Komponente:
Delphi-Quellcode:
unit UserButtonEx;

interface

uses
  System.SysUtils, System.Classes,
  Vcl.Controls, Vcl.StdCtrls, Vcl.Graphics;

type
  TUserButton = class(TCustomButton)
  private
     FIcon: TBitmap;
     procedure SetIcon(const Value: TBitmap);
  protected
  public
     constructor Create(Owner: TComponent);
     destructor Destroy; override;
  published
     property Icon: TBitmap read FIcon write SetIcon;
  end{TUserButton};

implementation

{ TUserButton }

constructor TUserButton.Create(Owner: TComponent);
begin
   inherited Create(Owner);
   FIcon := TBitmap.Create;
end{TUserButton.Create};

destructor TUserButton.Destroy;
begin
   FIcon.Free;
   inherited;
end{TUserButton.Destroy};

procedure TUserButton.SetIcon(const Value: TBitmap);
begin
   FreeAndNIL(FIcon);
   FIcon := TBitmap.Create;
   if Assigned(Value) then
      FIcon.Assign(Value);
   Invalidate;
end{TUserButton.SetIcon};
Registrierung:
Delphi-Quellcode:
unit Register_User_Components;

interface

uses
   System.Classes,
   UserButtonEx;

procedure Register;

implementation

procedure Register;
begin
   RegisterComponents('Eigenentwicklung', [TUserButton]);
end{Register};

Whookie 11. Aug 2014 10:21

AW: TBitmap property in eigener Komponente erzeugt bei Ausführung Fehlermeldung
 
Versuchs einfach mal mit sowas:

Code:
procedure TUserButton.SetIcon(const Value: TBitmap);
begin
  FIcon.Assign(Value);
  Invalidate;
end{TUserButton.SetIcon};

Hirschmüller 11. Aug 2014 10:31

AW: TBitmap property in eigener Komponente erzeugt bei Ausführung Fehlermeldung
 
Das Problem ist gelöst!
Es fehlt im Konstruktor der Komponente TUserButton das override!
Der Vorschlag zu SetIcon von Whookie behebt zwar nicht das Problem, ist aber eleganter als meins. Danke.

MfG

Hirschmüller

himitsu 11. Aug 2014 10:49

AW: TBitmap property in eigener Komponente erzeugt bei Ausführung Fehlermeldung
 
Zitat:

Zitat von Hirschmüller (Beitrag 1268297)
Es fehlt im Konstruktor der Komponente TUserButton das override!

Jupp, denn so wird dein Create nicht aufgerufen, das .Icon ist nil und da Delphi solche Subkomponenten nicht automatisch erstellt, knallt es dann beim Laden, da nur über den Getter auf die Instanz zugegriffen und diesem die Daten zugewiesen werden.


Aus diesem Grund finde ich es auch irgndwie krank, daß man einen Setter machen muß, wenn man will, daß sowas in der DFM gespeichert wird, obwohl die VCL den garnicht verwendet. :freak:


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:16 Uhr.

Powered by vBulletin® Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf