TSPEEDBUTTON TYPE VA-ET-VIENT vaetvient, doublespeed, tag, speedbutton, Source N°43738

Information sur la source

Catégorie :Composants Classé sous : vaetvient, doublespeed, tag, speedbutton Niveau : Débutant Date de création : 11/08/2007 Vu / téléchargé: 1 813 / 282

Auteur : Paounet

Ecrire un message privé

Note :
Aucune note

Commentaire sur cette source (1)

Ajouter un commentaire et/ou une note

Description

Le Composant TDoubleSpeed est TSpeedButton type va-et-vient..
En cliquant dessus le Caption du bouton passe de Caption à caption2.
Sa propriété Glyph doit être constituée d'une image composée de 4 images
16*16 (=64*16). Seules la 1ère et dernière (4ème) image sont prises en
considération. On passe donc au Click de la 1ère image(Caption) à la 4ème
image(Caption2).

Source

unit DoubleSpeed; // Composant créé par Guy ® 2007 - paounet@free.fr
interface
uses SysUtils,Classes,Controls,Buttons,Graphics,ExtCtrls;
type
TCaption=String; // Propriété Caption2 rajoutée au Composant
TAbout=String; // Propriété About rajoutée au composant
THint=String; // Propriété Hint2 rajoutée au composant
TDoubleSpeed = class(TSpeedButton)
private { Déclarations privées }
FCaption:TCaption;FAbout:TAbout;FHint:THint; // Variables utilisées
//Surcharge de la méthode OnClick du composant DoubleSpeed
protected { Déclarations protégées }
public { Déclarations publiques }
Constructor Create (Aowner:Tcomponent);Override;
Destructor Destroy;override;
published { Déclarations publiées }
// Propriété ABout rajoutée en lecture seule
Property Hint;
Property Tag;
Property Font;
Property About:TAbout read FAbout;
Property Caption2:TCaption read FCaption write FCaption;
Property Hint2:THint read FHint write FHint;
Procedure Click;override; //Surchage du OnClick
end;
procedure Register;
implementation
// Création Composant TDoubleSpeed
constructor TDoubleSpeed.Create(Aowner:TComponent);
begin
inherited Create(Aowner);FAbout:='@ Guy Bidi 2007';
AllowAllUp:=True;GroupIndex:=4;ShowHint:=True;
end;
Procedure TDoubleSpeed.Click; // Surchage du OnClick de DoubleSpeed
Var T1,T2:String;
Begin
Tag:=Not(Tag); // Changement du Tag(0,-1) au Click du composant
T1:=Caption;Caption:=Caption2;Caption2:=T1;
T2:=Hint;Hint:=Hint2;Hint2:=T2;
If Assigned(OnClick) then OnClick(Self); //Réactive le Click Normal
End;
destructor TDoubleSpeed.Destroy; // Destruction du Composant
begin
inherited Destroy;
end;
procedure Register; // Enregistrement du composant dans la Palette Guy
begin
RegisterComponents('Guy',[TDoubleSpeed]);
end;
end.

unit DoubleSpeed;   // Composant créé par Guy ® 2007 - paounet@free.fr
interface
uses SysUtils,Classes,Controls,Buttons,Graphics,ExtCtrls;
type
  TCaption=String; // Propriété Caption2 rajoutée au Composant
  TAbout=String; // Propriété About rajoutée au composant
  THint=String; // Propriété Hint2 rajoutée au composant
  TDoubleSpeed = class(TSpeedButton)
  private { Déclarations privées }
    FCaption:TCaption;FAbout:TAbout;FHint:THint; // Variables utilisées
  //Surcharge de la méthode OnClick du composant DoubleSpeed
  protected { Déclarations protégées }
  public { Déclarations publiques }
    Constructor Create (Aowner:Tcomponent);Override;
    Destructor Destroy;override;
  published { Déclarations publiées }
      // Propriété ABout rajoutée en lecture seule
    Property Hint;
    Property Tag;
    Property Font;
    Property About:TAbout read FAbout;
    Property Caption2:TCaption read FCaption write FCaption;
    Property Hint2:THint read FHint write FHint;
    Procedure Click;override; //Surchage du OnClick
end;
procedure Register;
implementation
// Création Composant TDoubleSpeed
constructor TDoubleSpeed.Create(Aowner:TComponent);
begin
  inherited Create(Aowner);FAbout:='@ Guy Bidi 2007';
  AllowAllUp:=True;GroupIndex:=4;ShowHint:=True;
end;
Procedure TDoubleSpeed.Click; // Surchage du OnClick de DoubleSpeed
Var T1,T2:String;
Begin
  Tag:=Not(Tag); // Changement du Tag(0,-1) au Click du composant
  T1:=Caption;Caption:=Caption2;Caption2:=T1;
  T2:=Hint;Hint:=Hint2;Hint2:=T2;
  If Assigned(OnClick) then OnClick(Self); //Réactive le Click Normal
End;
destructor TDoubleSpeed.Destroy; // Destruction du Composant
begin
  inherited Destroy;
end;
procedure Register; // Enregistrement du composant dans la Palette Guy
begin
  RegisterComponents('Guy',[TDoubleSpeed]);
end;
end.

Conclusion

Le passage de l'un à l'autre se fait par le tag du Bouton ( Tag=0 et Not(Tag)=-1)
Dans le DoubleSpeed.OnClick(Sender:TObject) il ne vous reste quà
incorporer le reste de code pour chaque état... dans votre feuille
--------------------------------------------------------------
if Tag=0 then Begin { Ici le code pour le Click Marche } End
Else Begin { { Ici le code pour le Click Arrêt } End;
-------------------------------------------------------------
Un exemple vous est donnée dans le Zip (Exemple.exe)

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Doublespeed.bmp 3 126 octets
Doublespeed.dcr1 728 octets
Doublespeed.dcu4 356 octets
DoubleSpeed.pas 1 862 octets
Exemple.exe490 496 octets

Télécharger le zip

Sources du même auteur

Toutes les sources de Paounet

Sources de la même categorie

Toutes les sources de la catégorie Composants

Sources en rapport avec celle ci

Commentaires

Commentaire de f0xi le 13/08/2007 02:23:33 administrateur CS

un peu leger ...
pas trés interressant ... (s'obtient aussi facilement en mode conception)

ne merite pas le niveau initié.

la propriété Hint2 doit etre de type String directement tout comme Hint.

tu n'indente toujours pas ton code.

tu ne devrais pas utiliser la propriété Tag pour le changement d'etat mais une variable privée de type boolean.

le gestionnaire OnClick ne doit pas etre appeler par la procedure Click surchargée ! il faut appeler la procedure Click de l'ancetre (TControl) qui elle se charge d'appeler le gestionnaire d'evenement de façon adequate. de plus les procedures et fonctions ne sont pas declarable en zone publiées ...

ce qui fait que ton composant devrait plus ressembler a cela :

(en version ameliorée sans limite de Caption et de Hint)...

type
  TMultiCapSpdBtn = class(TSpeedButton)
  private
    fCaptionsAndHints : TStrings;
    fStIndex          : integer;
    procedure SetStrings(Value : TStrings);
  protected
    procedure ChangeCaption; virtual;
    procedure DoCaptionsChange(Sender : TObject);
  public
    Constructor Create (AOwner:Tcomponent); Override;
    Destructor Destroy; Override;
    Procedure Click; override;
  published
    Property CaptionsAndHints : TStrings read fCaptionsAndHints write SetStrings;
  end;

constructor TMultiCapSpdBtn.Create(Aowner:TComponent);
begin
  inherited Create(Aowner);
  AllowAllUp := True;
  ShowHint   := True;
  fStIndex   := 0;
  fCaptionsAndHints := TStringList.Create;
  (fCaptionsAndHints as TStringList).OnChange := DoCaptionsChange;
end;

destructor TMultiCapSpdBtn.Destroy;
begin
  fCaptionsAndHints.Free;
  inherited Destroy;
end;

procedure TMultiCapSpdBtn.Click;
begin
  if fCaptionsAndHints.Count > 0 then
  begin
    fStIndex := (fStIndex + 1) mod fCaptionsAndHints.Count;
    ChangeCaption;
  end;
  Inherited Click;
end;

procedure TMultiCapSpdBtn.DoCaptionsChange(Sender: TObject);
begin
  ChangeCaption;
end;

procedure TMultiCapSpdBtn.SetStrings(Value: TStrings);
begin
  fCaptionsAndHints.Assign(Value);
end;

procedure TMultiCapSpdBtn.ChangeCaption;
var SeparatorPos : integer;
begin
  SeparatorPos := Pos('|',fCaptionsAndHints[fStIndex]);
  Caption := copy(fCaptionsAndHints[fStIndex], 1, SeparatorPos-1);
  if SeparatorPos <> 0 then
    Hint := copy(fCaptionsAndHints[fStIndex], SeparatorPos+1, Length(fCaptionsAndHints[fStIndex]) - SeparatorPos)
  else
    Hint := '';
end;

Ajouter un commentaire

Discussions en rapport avec ce code source

Tag HTML avec edit ou richedit par sebrs1

blevel-like sur un graphisme en 3 couleurs par damanix

extraction meta tag par kinyo

Enlever le relief dans les SpeedButton par darkduck

SpeedButton par aaleex

Pb de glyph disabled invisible dans un speedbutton par gillig

probleme speedbutton sous xp par dk

ID3 Tag V2 >> impossible d'ecrire ! par BabeDelphi

Composant SpeedButton par doco

probleme canvas par damomospike