So, da ich nicht beratungsresistent bin, habe ich den Beitrag aus
Funktion: Graphic anhand des Namens aus Res erstellen an D2009 angepasst
Delphi-Quellcode:
...
procedure TForm1.FormCreate(Sender: TObject);
begin
cboResources.Items.Clear;
cboResources.Items.Add('IDR_LOADING');
cboResources.Items.Add('IDB_0E00A');
cboResources.Items.Add('IDB_0E00B');
cboResources.Items.Add('IDB_0E00C');
FResources := Resources.Create;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
FResources.Free;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
case cboResources.ItemIndex of
0 : Image1.Picture.Assign(Resources.BildA);
1 : Image1.Picture.Assign(Resources.BildB);
2 : Image1.Picture.Assign(Resources.BildC);
3 : Image1.Picture.Assign(Resources.BildD);
end;
end;
...
sowie
Delphi-Quellcode:
type
Resources = class abstract
private
class var FBildA: TGraphicResource;
class var FBildB: TGraphicResource;
class var FBildC: TGraphicResource;
class var FBildD: TGraphicResource;
public
constructor Create;
destructor Destroy; override;
public
class property BildA: TGraphicResource read FBildA;
class property BildB: TGraphicResource read FBildB;
class property BildC: TGraphicResource read FBildC;
class property BildD: TGraphicResource read FBildD;
end;
implementation
{$R 'Resources.res' '..\Rescource\Resources.rc'}
{ Resources }
constructor Resources.Create;
begin
FBildA := TGifResource.Create( 'IDR_LOADING' );
FBildB := TPngResource.Create( 'IDB_0E00A' );
FBildC := TPngResource.Create( 'IDB_0E00B' );
FBildD := TBitmapResource.Create( 'IDB_0E00C' );
end;
und laufen lassen.
Das Ergebnis habe ich angehängt.
Das Problem mus also wo anders liegen
Die *.rc Datei sieht so aus:
Code:
LANGUAGE 0, SUBLANG_NEUTRAL
IDR_LOADING GIF "Loading.gif"
LANGUAGE 0, SUBLANG_NEUTRAL
IDB_0E00A PNG "smileys\\0E00A.PNG"
LANGUAGE 0, SUBLANG_NEUTRAL
IDB_0E00B PNG "smileys\\0E00B.PNG"
LANGUAGE 0, SUBLANG_NEUTRAL
IDB_0E00C BMP "smileys\\ACHTUNG.BMP"
Kann es an der Typ-Zuweisung liegen?