ImageMap mit zwei Spalten beim wechsel fehler

[mimi]

Hallo,
ich habe eine grafik wo ich gerne die grafik makieren möchte wo der mauszeige drunter ist d.h. die grafik ist 49 pixel breit und 198 pixel hoch.

jetzt möchte ich gerne das das Aktuelle Bild rot makiert wird(kein problem) und beim verlassen wider silber makiert wird(auch kein problem.

Jetzt kommt das eigentliche problem:
sobalt ich die Spalte wechsel ändert er die farbe von der vohrieren spalte nicht.

Ich habe im anhang die beispiel exe eingefigt.
und hier ist der code:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Image1.Picture.LoadFromFile('D:\Daten\eigene\delphi\grafik\Paint1\icons\werkzeuge.bmp');
  Image1.Width:=BW;
  Image1.Height:=BH;
  AX:=BW div 2;
  AY:=BH div 8;
  Label1.Caption:=IntToStr(AX) + ':' + IntToStr(ay);
end;

procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
var
  m:Integer;
begin

  Label8.Caption:=IntToStr(ox) + ':' + IntToStr(oy);
  Label2.Caption:=IntToStr(X) + ':' + IntToStr(y);

  IX:=(X div 24)+1;
  IY:=(y div 24)+1;
  Label3.Caption:=IntToStr(ix) + ':' + IntToStr(iy);
  Edit1.Text:=ColorToString(Image1.Canvas.Pixels[x,y]);


  if x < 24 then
    m:=0
  else
    m:=25;

  if Image1.canvas.Pixels[x,y] = clsilver then begin
    Image1.Canvas.Brush.Color:=clRed;
    Image1.canvas.FloodFill(m,(iy*24)-10,clSilver,fsSurface);
  end;

  if Image1.canvas.Pixels[x,y] = clRed then begin
    if ((iy*24)-10 <> oy) then begin

      Image1.Canvas.Brush.Color:=clSilver;
      Image1.canvas.FloodFill(m,oy,clRed,fsSurface);

      oy:=(iy*24)-10;
    end;
  end;
    ox:=m;
 
end;

Ich hoffe einer von euch kann mir bei MEINEM problem behilich sein. Das währe für mich sehr hilfreich wenn *G*.

Vielen dank schonmal im voraus.

[Die Muhkuh]

Hallo Michael,

du hast leider vergessen, die Datei werkzeuge.bmp mitzugeben. Kannst du diese noch nachreichen? ;)

[Sascha L]

wer schon sinnvoll, wenn du die BMP-Datei mit dabei packen würdest :D

[mimi]

selbstverstänlich.... hatte ganz vergessen das ich die datei dynamisch reinlade *G*
ich musste noch die pfad angaben im programm ändern jetzt müste es eigentlich gehen!

[mimi]

hat noch keiner eine kleine idee für dieses problem ?

[Die Muhkuh]

Hi Michael,

das Archiv ist irgendwie fehlerhaft. (Siehe Anhang)

[mimi]

also bei mir kann ich das archiv entpacken. ich nuzte 7 zip dran liegt es wohl das kann etwas mehr als winzip :-D und ist freeware. naja ich habe es nochmal gepackt und die einstellungen geändert. ich hoffe ihr könnt es jetzt entpacken !