COMPO LED TRANSPARENTE AVEC OU SANS BITMAP ET 3 ETATS: ON/OFF/DISABLED!

Commentaire de Kenavo le 08/04/2005 16:44:04

Salut Mauricio,

Finalement, écrire des composants, c'est pas si mal ! non ? Tu  ne vas plus t'arrêter !
Quelques remarques sur celui-ci :
1 - J'aurais aimé que la propriété Caption y soit, pour avoir un texte en face de la led (avec la propriété Alignment comme pour un TRadioButton), plutôt que de coller un label à coté.
2 - Sans bitmap, c'est pas très zoli ! J'avais écrit ça (sans gestion de bitmap) et avec Caption pour faire des leds rondes :
---------------------------------------------
procedure TCustomLed.Paint;
var
  W, H, X, Y : integer;
begin
  W:=Width;
  H:=Height;
  if FAlignment = taRightJustify then
    x:=W-H
  else
    x:=0;
  y:=0;
  with canvas do
    begin
      pen.color:=clBlack;
      pen.style:=psSolid;
      case FState of
        ldOn : Brush.color:=OnColor;
        ldOff : Brush.Color:=OffColor;
        ldGrayed : Brush.Color:=clGray;
      end;
      pen.color:=Brush.Color;
      pie(X+1,Y+1,X+H-1,Y+H-1,X,Y,X,Y);
      pen.Color:=clgray;
      arc(X,Y,X+H,Y+H,X,Y,X,Y);
      pen.Color:=clWhite;
      arc(X+1,Y+1,X+H-1,Y+H-1,X,Y,X,Y);
      pen.Color:=clGray;
      arc(X+1,Y+1,X+H-1,Y+H-1,X,Y+H,X+H,Y);
      pen.color:=clWhite;
      arc(X+4,Y+4,X+H-4,Y+H-4,X+H,Y,X,Y+H);
      arc(X+5,Y+5,X+H-5,Y+H-5,X+H,Y,X,Y+H);
   end;
  if FAlignment = taLeftJustify then
    x:=H+8
  else
    x:=0;
  y:=(height+canvas.font.Height) div 2;
  Canvas.Font:=Font;
  with Canvas do
    begin
      Brush.Color := color;
      TextOut(x,y,Caption);
    end;
end;
---------------------------------------------
Pour des leds de 10 à 20 pixels, ça rend pas mal.

A +

Ken@vo

Commentaire de tartave le 13/06/2008 16:49:09

bonjour Mauricio,
ton composant est t'il compatible pour delphi 2005 ??

Commentaire de MAURICIO le 13/06/2008 17:10:14

Salut tartave,

Tu trouveras le pack de tous mes compos ici:
http://www.delphifr.com/code.aspx?ID=30296

En ce qui concerne le fichier manquant, celui-ci appartient à Borland. Ce que tu dois faire c' est savoir quelle est le nom de la nouvelle unité car celle-ci n' existe pas dans ta version de Delphi: enlève l' unité "Types" dans les "Uses" de mes unités. Ensuite, Delphi devrait te donner une erreur sur une fonction qu' il ne conait pas (elle était dans l' untié Types, tu suit?)! Tu fais F1 sur la fonction pour voir dans quelle unité elle est passée gràce au fichier d' aide. Tu la déclare dans les "Uses" de l' unité.

Voilà
A+

A+