Grafik in eigene Komponente einbinden

[Ares]

Hallo!

Ich will eine Klasse von TSpeedButton ableiten, bei der die Glyph-Proptery schon meine gesetzt ist. Hierbei gelingt es mir nicht, dass zugehörige Bild direkt in die Komponente einzubinden:

Delphi-Quellcode:

unit TestButton;

{$R 'Icon.res'}

interface

uses StdCtrls, Buttons, Messages, Classes, Controls, SysUtils, Types;

type
  TTestButton = class(TSpeedButton)
  public
    constructor Create(AOwner: TComponent); override;
  end;


procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('MyComponents', [TTestButton]);
end;

{ TTestButton }

constructor TTestButton.Create(AOwner: TComponent);
begin
  inherited;
  Glyph.LoadFromResourceName(HInstance, 'Icon');
end;

end.

Die RES-Datei habe ich folgendem Code erstellt:

Icon RCDATA DISCARDABLE "Folder.bmp" Die Komponente und das Package in die ich diese eingefügt haben lassen sich problemlos compilieren. Wenn ich dann aber einen TTestButton auf einem Form platzieren will erhalte ich die Meldung "Ressource Icon wurde nicht gefunden.". Was mache ich hier falsch?

Gruß
Ares

[Jelly]

Zitat von Ares:

Die RES-Datei habe ich folgendem Code erstellt:

Icon RCDATA DISCARDABLE "Folder.bmp"

Ist das deine .res oder .rc Datei ?

Du musst jedenfalls die .rc Datei mit dem Inhalt erstellen, und diese dann mit brc32.exe kompilieren.

[Muetze1]

Zitat von Jelly:

..., und diese dann mit brc32.exe kompilieren.

brcc32 - da fehlte ein c..

[Ares]

Zitat von Jelly:

Zitat von Ares:

Die RES-Datei habe ich folgendem Code erstellt:

Icon RCDATA DISCARDABLE "Folder.bmp"

Ist das deine .res oder .rc Datei ?

Du musst jedenfalls die .rc Datei mit dem Inhalt erstellen, und diese dann mit brc32.exe kompilieren.

Ja, genau das habe ich gemacht. Ich habe eine die Datei Icon.rc mit obigen Inhalt erstellt und diese mit brcc32 compiliert. Dies hat dann die Icon.res ausgespuckt, die ich in die Komponente eingebunden habe.

[Muetze1]

Glyph lädt als Resourcentyp BITMAP und nicht RC_DATA. Somit findet er die Resource nicht.

[Ares]

Genau das war der Fehler, besten Dank!!!