Coloration Syntaxique

Télécharger le script ! - mod phpBB

//
// Gestion de raccourcis généralisés par composant
//
// Par Nono40     bruno_g40@hotmail.com
//
//  08/05/2002 :  Publication sur www.DelpfiFR.com
//

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, URaccourci, Buttons, ExtCtrls;

type
  TForm1 = class(TForm)
    Raccourci1: TRaccourci;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    Label11: TLabel;
    lDetecte1: TLabel;
    lDetecte2: TLabel;
    lDetecte3: TLabel;
    lDetecte4: TLabel;
    Raccourci2: TRaccourci;
    Raccourci3: TRaccourci;
    Raccourci4: TRaccourci;
    Timer1: TTimer;
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure Raccourci1Raccourci(Sender: TObject);
    procedure Raccourci2Raccourci(Sender: TObject);
    procedure Raccourci3Raccourci(Sender: TObject);
    procedure Raccourci4Raccourci(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
  Raccourci1.Detecte:=False;
end;

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  Raccourci2.Detecte:=False;
end;

procedure TForm1.BitBtn3Click(Sender: TObject);
begin
  Raccourci3.Detecte:=False;
end;

procedure TForm1.BitBtn4Click(Sender: TObject);
begin
  Raccourci4.Detecte:=False;
end;

procedure TForm1.Raccourci1Raccourci(Sender: TObject);
begin
  ShowMessage('A B : Style srJamais');
end;

procedure TForm1.Raccourci2Raccourci(Sender: TObject);
begin
  ShowMessage('C D : Style srNonDetecte');
end;

procedure TForm1.Raccourci3Raccourci(Sender: TObject);
begin
  ShowMessage('E F : Style srUneFois');
end;

procedure TForm1.Raccourci4Raccourci(Sender: TObject);
begin
  ShowMessage('G H : Style srToujours');
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  If Raccourci1.Detecte Then lDetecte1.Caption:='OUI' Else lDetecte1.Caption:='NON';
  If Raccourci2.Detecte Then lDetecte2.Caption:='OUI' Else lDetecte2.Caption:='NON';
  If Raccourci3.Detecte Then lDetecte3.Caption:='OUI' Else lDetecte3.Caption:='NON';
  If Raccourci4.Detecte Then lDetecte4.Caption:='OUI' Else lDetecte4.Caption:='NON';
end;
                  
end.