Icon für Komponente

[Uwe_9988]

Hallo mal wieder,

ich habe nach dieser Anleitung versucht ein Icon für eine eigene Komponente zu erstellen.

http://www.lazarusforum.de/viewtopic.php?p=3221#p3221" onclick="window.open(this.href);return false;

Leider bisher erfolglos. Habe schon alles mögliche ausprobiert aber es erscheint immer nur das Standardicon mit den bunten Würfeln.

Die eigene Grafik ist als XPM-Datei im Verzeichnis der Source vorhanden. Habe ich aus der PNG der GroupBox-Komponente mit Gimp erstellt. Lazres habe ich kompiliert und damit eine .lrs erstellt, die ich in der PAS im Initialization-Teil einbinde.


Schaut so aus:

Code: Alles auswählen

unit GroupBoxTest;
 
  {$mode objfpc}{$H+}
 
interface
 
uses
  SysUtils, Classes, Controls, StdCtrls, Dialogs, TypInfo, LResources;
 
.
.
.
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterComponents('Test', [TGroupBoxTest]);
end;
 
constructor TGroupBoxTest.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  fEnabled := inherited Enabled;
end;
 
.
.
.
 
 
end.
 
initialization
  {$I GroupBoxTest.lrs}

In das Package habe ich die lrs auch mal mit aufgenommen aber das bringt auch nichts...

Das ganze mit Lazarus 0.9.31 Snapshot von heute unter Win32.

Ist jetzt nicht gerade lebenswichtig aber schee wär's scho.


Grüße,
Uwe

[theo]

Hast du auch die englische Version gesehen?
Dort ist es sehr gut erklärt:
http://wiki.lazarus.freepascal.org/Laza ... onent_icon" onclick="window.open(this.href);return false;

[Uwe_9988]

Hallo Theo,

vielen Dank. Hat damit auf Anhieb geklappt. Ist wirklich viel besser erklärt.

Der Compiler könnte ruhig mal einen Ton sagen, wenn man INITIALIZATION nach dem end. einfügt.


Grüße,
Uwe

[theo]

Der Compiler könnte ruhig mal einen Ton sagen, wenn man INITIALIZATION nach dem end. einfügt.

Nein, tut er nicht. Nach dem "end." interessiert ihn gar nichts mehr. Da kanst du auch Currywurst hinschreiben, das ist dem schnurz.