Initialiser un TImage

Version imprimable

Salut à tous,

Voilà mon problème c'est encore et toujours la POO...En fait je suis en train de faire un logiciel de simulation électrique, et tous les composants sont en faite un TImage avec des propriété propre (une image, un type, un identifiant, un point du réseau...)

Et en faite je voudrais faire une méthode qui me permette d'initialiser l'image (et d'autres variables) à la création de l'objet en passant seulement le type. Mais je bloque... Voici mon code, merci par avance pour l'aide apportée.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
type
  TObjet = class(TImage)
  private
    fbranche_id:integer;
    ftypeobjet:integer;
    objet_id:integer;
    objet_visible, objet_selectionner:boolean;
    .....
  public
    Property selection:boolean read objet_selectionner write objet_selectionner;
    Property Data:TDataSource read aData write aData;
    Property num_id:integer read objet_id write objet_id;
    Property Afficher:boolean read objet_visible write objet_visible;
    Property typeObjet:integer read ftypeobjet write ftypeobjet;
    Property branche_id:integer read fbranche_id write fbranche_id;
    procedure PositionnerDataset;
    Constructor Create(AOwner:TComponent;kindof : integer); overload;
end;
 
 
implementation
 
{{------------------------------------------------------------
--------------------------------------------------------------}
constructor TObjet.create(AOwner:TComponent;kindof:integer);
begin
  inherited Create(AOwner);
  objet_selectionner:=true;
  objet_id:=kindof;
 //Objet.Picture.LoadFromFile('C:\gare.bmp');  //plante puisque l'objet n'est pas encore créé...
end;
{{------------------------------------------------------------
--------------------------------------------------------------}
 
end.

A+.

Salut,
Ta poperty peut avoir une procedure à la place d'une simple variable, ce qui peut te permettre de réaliser ce que tu souhaite.
Il te suffit de transformer ton code comme ceci :
Code:

1 2 3 4 5 6 7 8 Property typeObjet:integer read ftypeobjet write ftypeobjet; // devient Property typeObjet:integer read ftypeobjet write SetTypeObjet; // Une fois tapé comme ca tu fait Ctrl+Shift+C et ca va // automatiquement te crée la procédure.
Dans ta procédure du fait un case pour définir l'image à charger.
Comme ca des que tu affecte un nouveau type, magie, l'image se modifie

15/02/2007, 17h05
jambonstar

Attends, je crois que j'ai pas bien lu ton post... :aie:

Tu souhaite charger l'image lors du premier affichage. Le Timage n'aurait pas un evenement OnShow ?
Si oui tu le dérive et hop...
Je me gourre peut-être encore..:boulet:
15/02/2007, 17h17
PadawanDuDelphi

Merci pour l'aide,

En faite mon problème c'est que je sais pas quoi mettre devant le

Code:

.Picture.LoadFromFile('C:\gare.bmp');

En effet puisque le TImage n'existe pas...Alors pour l'instant j'ai une classe "supérieur" qui gère la création des TImages et leurs affectent leurs propriétées initiales, mais j'ai peur qu'avec cette méthode je me retrouve vite avec des classes initialisant des classes intiliasisant des classes...

A+.
15/02/2007, 18h09
jambonstar

Self ?
15/02/2007, 18h10
Bruno@Chrysis

a priori, y a rien a mettre puisque tu hérites de TImage, la property Picture t'appartient aussi...

Code:

Picture.LoadFomFile('C:\gare.bmp')

Bruno
15/02/2007, 18h12
jambonstar

Ou Self :mouarf:
16/02/2007, 09h37
PadawanDuDelphi

:sm: :mur:

Merci pour tout...J'avais même pas fait gaffe que l'on pouvaitutiliser un truc aussi simple...

Merci pour votre patience et pour votre aide,

A+.