field TDecoB16 (TWall)
name 'Pierre praticable';
image 'Fields/ImpraticalStone';
category SCategoryDecoB;
end;
Il me met dans l'inspecteur d'objets /painter qu'il superpose ImpraticalStone avec Wall
field TDecoB16 (TWall)
name 'Pierre praticable';
image 'Fields/ImpraticalStone';
category SCategoryDecoB;
end;
field TDecoB16 (TWall)
name 'Pierre praticable';
category SCategoryDecoB;
on AfterConstruction do
begin
Painter.Clear;
Painter.AddImage('Fields/ImpraticalStone');
inherited;
end;
end;