unit Carte_fond;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, jpeg, ExtCtrls, Menus;

type
  TMap_Khanerat = class(TForm)
    ImageFond: TImage;
    Conon1: TImage;
    Conon2: TImage;
    Conon3: TImage;
    Conon4: TImage;
    Alambic: TImage;
    CononBleu1: TImage;
    CononBleu2: TImage;
    CononBleu3: TImage;
    CononBleu4: TImage;
    CononRouge1: TImage;
    CononRouge2: TImage;
    CononRouge3: TImage;
    CononRouge4: TImage;
    AlambicBleu: TImage;
    AlambicRouge: TImage;
    Maison1: TImage;
    Maison2: TImage;
    Maison3: TImage;
    Maison4: TImage;
    Maison5: TImage;
    Maison6: TImage;
    Maison7: TImage;
    Maison8: TImage;
    Maison9: TImage;
    Maison10: TImage;
    MaisonBleu1: TImage;
    MaisonBleu2: TImage;
    MaisonBleu3: TImage;
    MaisonBleu4: TImage;
    MaisonBleu5: TImage;
    MaisonBleu6: TImage;
    MaisonBleu7: TImage;
    MaisonBleu8: TImage;
    MaisonBleu9: TImage;
    MaisonBleu10: TImage;
    MaisonRouge1: TImage;
    MaisonRouge2: TImage;
    MaisonRouge3: TImage;
    MaisonRouge4: TImage;
    MaisonRouge5: TImage;
    MaisonRouge6: TImage;
    MaisonRouge7: TImage;
    MaisonRouge8: TImage;
    MaisonRouge9: TImage;
    MaisonRouge10: TImage;
    Chateau: TImage;
    ChateauBleu: TImage;
    ChateauRouge: TImage;
    Mine1: TImage;
    Mine2: TImage;
    MineBleu1: TImage;
    MineBleu2: TImage;
    MineRouge1: TImage;
    MineRouge2: TImage;
    Chantier1: TImage;
    Chantier2: TImage;
    ChantierBleu1: TImage;
    ChantierBleu2: TImage;
    ChantierRouge1: TImage;
    ChantierRouge2: TImage;
    Eglise1: TImage;
    Eglise2: TImage;
    EgliseBleu2: TImage;
    EgliseBleu1: TImage;
    EgliseRouge2: TImage;
    EgliseRouge1: TImage;
    Taverne1: TImage;
    Taverne2: TImage;
    TaverneBleu1: TImage;
    TaverneBleu2: TImage;
    TaverneRouge1: TImage;
    TaverneRouge2: TImage;
    Caserne: TImage;
    CaserneBleu: TImage;
    CaserneRouge: TImage;
    Labo: TImage;
    LaboBleu: TImage;
    LaboRouge: TImage;
    Distillerie: TImage;
    DistillerieBleu: TImage;
    DistillerieRouge: TImage;
    MainMenu1: TMainMenu;
    Couleurs1: TMenuItem;
    Bleu1: TMenuItem;
    Rouge1: TMenuItem;
    procedure Conon1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ImageFondMouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Map_Khanerat: TMap_Khanerat;

implementation

{$R *.dfm}


procedure TMap_Khanerat.Conon1MouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  CononBleu1.Visible := True ;
end;


procedure TMap_Khanerat.ImageFondMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  CononBleu1.Visible := false;
end;

end.
