DelphiX und TPictureCollectionItem

**matze.glatze**

Wie kann man in ein TPictureCollectionItem ein Bild direkt von der Platte laden?
Meine Ursprüngliche Lösung lädt das Logo aus einer TDXImageList. Um flexibel zu sein, wollte ich meinen Kunden die Möglichkeit geben ein eigenes Logoo einzubinden. Leider ignoriert DelphiX die Zuweisung des neuen Logos, so dass das Standardlogo immer noch sichtbar ist.

markieren

Code:

			  TLogo = class(TImageSpriteEx)

  private

  protected

  public

    constructor Create(AParent: TSprite); override;

  end;

markieren

Code:

			constructor TLogo.Create(AParent: TSprite);

begin

  inherited Create(AParent);

  Z := 4;

  //Standardlogo immer laden

  Image := MainForm.ImageList.Items.Find('standardlogo');

  //wenn userlogo vorhanden ist dann das laden

  if FileExists(ExtractFilePath(Application.ExeName)+'userlogo.bmp') then

  begin

   Image.Picture.Bitmap.LoadFromFile(ExtractFilePath(Application.ExeName)+'userlogo.bmp');

   Image.Picture.Bitmap.Dormant;

  end;

  Width := Image.Width;

  Height := Image.Height;

  Alpha := 128;

  X := (Mainform.DXDraw1.Display.Width-Width-10);

  Y := (Mainform.DXDraw1.Display.Height-Height-10);

  AnimCount := Image.PatternCount;

  AnimLooped := False;

end;

Weiss jemand Rat? Der Knackpunkt sollte im Find liegen - dieses liefert ja ein PictureCollectionItem zurück - allerdings waren meine Versuche einem lokal angelegtem PictureCollectionItem ein Bild zuzuweisen ebenfalls erfolglos.

DelphiX und TPictureCollectionItem

DelphiX und TPictureCollectionItem

Forumregeln