AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi ImageMap mit zwei Spalten beim wechsel fehler

ImageMap mit zwei Spalten beim wechsel fehler

Ein Thema von mimi · begonnen am 4. Apr 2006 · letzter Beitrag vom 6. Apr 2006
Antwort Antwort
mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#1

ImageMap mit zwei Spalten beim wechsel fehler

  Alt 4. Apr 2006, 16:19
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.
Angehängte Dateien
Dateityp: exe paint1_880.exe (388,0 KB, 14x aufgerufen)
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#2

Re: ImageMap mit zwei Spalten beim wechsel fehler

  Alt 4. Apr 2006, 16:35
Hallo Michael,

du hast leider vergessen, die Datei werkzeuge.bmp mitzugeben. Kannst du diese noch nachreichen?
  Mit Zitat antworten Zitat
Sascha L

Registriert seit: 4. Jun 2004
Ort: Hamm
390 Beiträge
 
Delphi 2006 Professional
 
#3

Re: ImageMap mit zwei Spalten beim wechsel fehler

  Alt 4. Apr 2006, 16:36
wer schon sinnvoll, wenn du die BMP-Datei mit dabei packen würdest
Sascha
  Mit Zitat antworten Zitat
mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#4

Re: ImageMap mit zwei Spalten beim wechsel fehler

  Alt 4. Apr 2006, 18:50
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!
Angehängte Dateien
Dateityp: zip paint_115.zip (241,2 KB, 11x aufgerufen)
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat
mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#5

Re: ImageMap mit zwei Spalten beim wechsel fehler

  Alt 6. Apr 2006, 16:07
hat noch keiner eine kleine idee für dieses problem ?
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat
Benutzerbild von Die Muhkuh
Die Muhkuh

Registriert seit: 21. Aug 2003
7.332 Beiträge
 
Delphi 2009 Professional
 
#6

Re: ImageMap mit zwei Spalten beim wechsel fehler

  Alt 6. Apr 2006, 16:12
Hi Michael,

das Archiv ist irgendwie fehlerhaft. (Siehe Anhang)
Miniaturansicht angehängter Grafiken
hmm_155.jpg  
  Mit Zitat antworten Zitat
mimi

Registriert seit: 1. Dez 2002
Ort: Oldenburg(Oldenburg)
2.008 Beiträge
 
FreePascal / Lazarus
 
#7

Re: ImageMap mit zwei Spalten beim wechsel fehler

  Alt 6. Apr 2006, 16:28
also bei mir kann ich das archiv entpacken. ich nuzte 7 zip dran liegt es wohl das kann etwas mehr als winzip und ist freeware. naja ich habe es nochmal gepackt und die einstellungen geändert. ich hoffe ihr könnt es jetzt entpacken !
Angehängte Dateien
Dateityp: zip system_186.zip (253,2 KB, 6x aufgerufen)
Michael Springwald
MFG
Michael Springwald,
Bitte nur Deutsche Links angeben Danke (benutzte überwiegend Lazarus)
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:47 Uhr.
Powered by vBulletin® Copyright ©2000 - 2022, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf