ich habe mir BGRA Button >controls installiert.
Im (entpackten Downloadordner gibt es einen Ordner Test, mit einem einfachen Beispiel.
Da klappt alles wunderbar.
Nun habe ich den Code in ein eigenes Testprojekt importiert. Aber beim Start kommt die Exception
Resource "boton3d" not found.
Hier zum Vergleich die beiden codes.
Testbeispiel
Code: Alles auswählen
unit umain;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
BCImageButton;
type
{ TfrmMain }
TfrmMain = class(TForm)
BCImageButton1: TBCImageButton;
BCImageButton2: TBCImageButton;
procedure FormCreate(Sender: TObject);
private
public
end;
var
frmMain: TfrmMain;
implementation
{$R *.lfm}
{ TfrmMain }
procedure TfrmMain.FormCreate(Sender: TObject);
begin
BCImageButton1.LoadFromBitmapResource('boton3d');
BCImageButton2.LoadFromBitmapResource('boton3d');
end;
Code: Alles auswählen
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs,
BCImageButton;
type
{ TTestformular_haderlump }
TTestformular_haderlump = class(TForm)
BCImageButton1: TBCImageButton;
procedure FormCreate(Sender: TObject);
private
public
end;
var
Testformular_haderlump: TTestformular_haderlump;
implementation
{$R *.lfm}
{ TTestformular_haderlump }
procedure TTestformular_haderlump.FormCreate(Sender: TObject);
begin
BCImageButton1.LoadFromBitmapResource('boton3d');
end;
end.
Was mich auch wundert: Der Resourcenname' buton3d' taucht nirgens als Datei auf. Das zu ladende Bild heißt "buton3d.png".
gibt es vielleicht noch irgend einen im "Universum" versteckten Ordner. Oder sollte es den geben.
Der Buutton funktionirt auch, nur das zugrhörige Bild wird nicht geladen.