Dessiner un composant TjvLed

**mlepretre** · 20/10/2008, 10h17

Bonjour,

je souhaiterais dessiner un composant TjvLed sur une de mes fiches mais cela me parait moins simple que de dessiner un simple TBitmap

J'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
procedure CreerLED;
var
  LED : TjvLED;
begin
  //dessiner_jvled
  LED := TjvLed.Create(Form1);
  LED.Name := 'JvLED1';
  LED.Height := 12;
  LED.Width := 12;
  LED.Left := 10;
  LED.Top := 10;
  LED.ColorOff := clRed;
  LED.ColorOn := clLime;
  LED.Visible := True;
  LED.Status := False;
end;

Ce code semble fonctionner, à un détail près : le composant ne s'affiche pas !

Je pensais à utiliser la procédure suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Canvas.Draw(10, 10, LED[i]);

mais apparement cette méthode ne fonctionne que sur des composants de type TBitmap...

Quelqu'un pourrait-il m'aider ?

Merci

**Droïde Système7** · 20/10/2008, 10h34

Bonjour,

Pourquoi tenter de réinventer la roue ?

Pas plus facile de poser ce compo sur ta fiche ?

Dans quel but chercher ce détour ?

@+

**mlepretre** · 20/10/2008, 10h44

Bonjour droide systeme7,

pour une raison toute simple : je dois créer les composants de facon dynamique.

En fait j'ai simplifié le code mais au final je dois créer n composants et les placer sur la fiche à la position X,Y en fonction de mes variables CoordX et CoordY...

Sinon évidemment je l'aurais simplement placé sur la fiche, cela m'aurais éviter autant de sueur ! lol