1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:
96:
97:
98:
99:
100:
101:
102:
103:
104:
105:
106:
107:
108:
109:
110:
111:
112:
113:
114:
115:
116:
117:
118:
119:
120:
121:
122:
123:
124:
125:
126:
127:
128:
129:
130:
131:
132:
133:
134:
135:
136:
137:
138:
139:
140:
141:
142:
143:
144:
145:
146:
147:
148:
149:
150:

unit UArtikel;
//beispiel um images als button zu "missbrauchen"
//man kann sich dann seine button einfach in photoshop bauen
//das einzige was noch fehlt ist ein topstop, sonst hat man ja alles
//was der button auch hat

//man kann beliebig viele images verwenden.
//WICHTIG jedes Image muss im Tag-Property im objectinspector durchnummertiert sein
//beginnend mit 1. die gesamtanzahl bei der constanten "AnzahlBilder" eintragen.
//dann braucht man noch ein image wo der name "Dummy" lauten muss Tag auf 1 setzen
//im OnFormCreate müssen dann die images entsprechend initialisiert werden.
//in diesem beispiel sind 2 Image plus den Dummy

//Tim Hansen 6.10.2004 tim@junk-food.de

interface

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

type
  TFArtikel = class(TForm)
    Image1: TImage;
    Image2: TImage;
    Dummy: TImage;
    procedure FormCreate(Sender: TObject);
    procedure MyMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MyMouseUp(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure MyMouseMoveInnerhalb(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure MyMouseMoveAusserhalb(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FArtikel: TFArtikel;

implementation

{$R *.dfm}

const
  AnzahlBilder= 2;

type
 TPicRec = record
    Norm, Over, Press: TPicture;
   end;
  TPicRecArray = array[1..AnzahlBilder] of TPicRec;

  TPicPathArray= array[1..(AnzahlBilder*3)] of String;

const
  //sämtliche bilder dateien
  PicPathArray: TPicPathArray = ('Button1Norm.bmp',
                                  'Button1Over.bmp',
                                  'Button1Press.bmp',
                                  'Button2Norm.bmp',
                                  'Button2Over.bmp',
                                  'Button2Press.bmp');
var
  OldFormCords, OldImageCords: Integer;
  HightlightImage: TImage;
  Pics: TPicRecArray;

procedure TFArtikel.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  i:= 1;
  //das Pics Array mit mit allen werten gefüllt.
  while i <= AnzahlBilder do begin
    Pics[i].Norm:=TPicture.Create;
    Pics[i].Norm.LoadFromFile(PicPathArray[((i-1)*3)+1]);
    Pics[i].Over:=TPicture.Create;
    Pics[i].Over.LoadFromFile(PicPathArray[((i-1)*3)+2]);
    Pics[i].Press:=TPicture.Create;
    Pics[i].Press.LoadFromFile(PicPathArray[((i-1)*3)+3]);
    inc(i);
  end;

  //Image Initialisieren und grösse anpassen
  Image1.Picture:= Pics[1].Norm;
  Image1.Width:= Pics[1].Norm.Width;
  Image1.Height:= Pics[1].Norm.Height;
  
  Image2.Picture:= Pics[2].Norm;
  Image2.Width:= Pics[2].Norm.Width;
  Image2.Height:= Pics[2].Norm.Height;

  //die beiden werte zur überprüfung der mausbewegungen
  OldFormCords:= 0;
  OldImageCords:= 0;

  //wird nur als dummy zum rücksetzen benötigt
  HightlightImage:= Dummy;
end;

procedure TFArtikel.MyMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TImage(Sender).Picture:= Pics[TImage(Sender).Tag].Press;
end;

procedure TFArtikel.MyMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  TImage(Sender).Picture:= Pics[TImage(Sender).Tag].Over;
end;

//alle images, die bilbwechsel machen sollen müssen diese funktion im
//OnMouseMove haben, einfach im objectinspector auswählen
procedure TFArtikel.MyMouseMoveInnerhalb(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  //zunächst prüfen, ob bild schon gesetzt wurde
  //dann schauen ob muas koordinaten sich geändert haben
  if (HightlightImage.Name <> TImage(Sender).Name) AND (X+Y <> OldImageCords) then begin
    //rücksetzen des alten images
    HightlightImage.Picture:= Pics[HightlightImage.Tag].Norm;
    //over image für aktuelles bild
    TImage(Sender).Picture:= Pics[TImage(Sender).Tag].Over;
    //aktuelles image auf highlight setzen
    HightlightImage:= TImage(Sender);
  end;
end;

//das formular und alle sachen, die direkt an die images angrenzen müssen diese funktion im
//OnMouseMove haben, einfach im objectinspector auswählen
procedure TFArtikel.MyMouseMoveAusserhalb(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  i: Integer;
begin
  //ist schon rückgesetzt?
  //maus bewegt sich ausserhalb der images
  if (HightlightImage.Name <> Dummy.Name) AND (X+Y <> OldFormCords) then begin
    HightlightImage.Picture:= Pics[HightlightImage.Tag].Norm;
    HightlightImage:= Dummy;
  end;
end;

end.