IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Composants VCL Delphi Discussion :

Image présente à la conception et absente à la compilation


Sujet :

Composants VCL Delphi

  1. #1
    Membre du Club
    Profil pro
    Inscrit en
    octobre 2005
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2005
    Messages : 52
    Points : 61
    Points
    61
    Par défaut Image présente à la conception et absente à la compilation
    Salut à tous,

    Je suis entrain de réaliser un composant dérivé de TSCrollBox. Dans le TCollectionItem j'utilise un TImage qui est censé afficher une image dans le TScrollBox.

    Quand je pose mon composant sur une fiche, lors de la conception l'image sélectionnée dans le TImage apparait bien mais lors de la compilation elle disparait.

    Je ne vois pas d'ou cela vient.

    Ps : En réalité j'utilise un composant FSpectrumImage dérivé du TImage. Mais le problème persiste avec un vrai TImage (J'ai testé ).

    unit SpectrumLine;

    interface

    uses
    Windows, Messages, SysUtils, Classes, Controls, Forms, SpectrumImage,Graphics;

    type

    TSpectrumLine = class;
    TSpectrumLineCnt = class;
    TSpectrumImageLine=class;

    {TSpectrumImageLine}
    TSpectrumImageLine=class(TCollectionItem)
    protected
    FSpectrumImage:TSpectrumImage; //Composant dérivé du TImage
    public
    constructor Create(ACollection: TCollection); override;
    destructor Destroy; override;
    published
    property SpectrumImage : TSpectrumImage Read FSpectrumImage Write FSpectrumImage nodefault;
    end;

    {TSpectrumLineCnt}
    TSpectrumLineCnt = class(TOwnedCollection)
    protected
    function GetItem(Index: integer): TSpectrumImageLine;
    procedure SetItem(Index: integer; Value: TSpectrumImageLine);
    public
    constructor Create(AOwner: TSpectrumLine);
    function Add: TSpectrumImageLine;
    property Items[Index: integer]: TSpectrumImageLine Read GetItem Write SetItem;
    end;

    {TSpectrumLine}
    TSpectrumLine = class(TScrollBox)
    private
    FSpectrumLineCnt:TSpectrumLineCnt;
    fCanvas: TControlCanvas;
    protected
    public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    published
    property SpectrumImages : TSpectrumLineCnt Read FSpectrumLineCnt Write FSpectrumLineCnt nodefault;
    end;

    Var
    FSpectrumLine:TSpectrumLine;

    procedure Register;

    implementation

    procedure Register;
    begin
    RegisterComponents('TestImageMusic', [TSpectrumLine]);
    end;

    {TSpectrumLine}
    constructor TSpectrumLine.Create(AOwner: TComponent);
    Begin
    Inherited;
    Parent := TWinControl(AOwner);
    fcanvas:=TControlCanvas.Create;
    fCanvas.Control:=Self;
    FSpectrumLine:=Self;
    FSpectrumLineCnt := TSpectrumLineCnt.Create(Self);
    End;

    Destructor TSpectrumLine.Destroy;
    Begin
    fcanvas.Free;
    FSpectrumLineCnt.Clear;
    FSpectrumLineCnt.Free;
    Inherited;
    End;

    {TSpectrumLineCnt}
    constructor TSpectrumLineCnt.Create(AOwner: TSpectrumLine);
    begin
    inherited Create(AOwner,TSpectrumImageLine);
    end;

    function TSpectrumLineCnt.Add:TSpectrumImageLine;
    begin
    Result := TSpectrumImageLine(inherited Add);
    end;

    function TSpectrumLineCnt.GetItem(Index: integer): TSpectrumImageLine;
    begin
    Result := TSpectrumImageLine(inherited Items[Index]);
    end;

    procedure TSpectrumLineCnt.SetItem(Index: integer; Value: TSpectrumImageLine);
    begin
    inherited SetItem(Index, Value);
    end;

    {TSpectrumImageLine}
    constructor TSpectrumImageLine.Create(ACollection: TCollection);
    begin
    inherited Create(ACollection);
    FSpectrumImage:=TSpectrumImage.Create(FSpectrumLine);
    With FSpectrumImage Do
    Begin
    Parent:=FSpectrumLine;
    Top:=Round(0.1*FSpectrumLine.Top);
    Height:=Round(0.9*FSpectrumLine.Height);
    End;
    end;

    destructor TSpectrumImageLine.Destroy;
    begin
    FSpectrumImage.Free;
    inherited Destroy;
    end;


    Please Help Me

    Merci

  2. #2
    Membre actif
    Profil pro
    DEV
    Inscrit en
    août 2006
    Messages
    182
    Détails du profil
    Informations personnelles :
    Âge : 39
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : DEV

    Informations forums :
    Inscription : août 2006
    Messages : 182
    Points : 211
    Points
    211
    Par défaut
    Je n'ai pas regarder dans le détail ton code mais avant toute chose si tu utilises des image JPEG pense a rajouté l'unité jpeg dans ton Uses ...

  3. #3
    Membre du Club
    Profil pro
    Inscrit en
    octobre 2005
    Messages
    52
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : octobre 2005
    Messages : 52
    Points : 61
    Points
    61
    Par défaut
    Salut

    Je ne mets pas de jpeg .

    Merci

    ++

Discussions similaires

  1. image absente après compilation
    Par nanar21 dans le forum VB.NET
    Réponses: 3
    Dernier message: 15/07/2010, 17h48
  2. Réponses: 4
    Dernier message: 10/06/2008, 16h28
  3. Image présente sur dreamweaver mais pas sur internet
    Par zabdaniel dans le forum Balisage (X)HTML et validation W3C
    Réponses: 3
    Dernier message: 19/12/2007, 14h09
  4. Réponses: 1
    Dernier message: 30/05/2007, 11h33
  5. Telecharger une image présente dans une BDD à partir de PHP
    Par guillaumeIOB dans le forum Bibliothèques et frameworks
    Réponses: 58
    Dernier message: 02/04/2006, 15h42

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo