hotspot som i ad-aware fra lavasoft

Laver man ikke bare nogle andre billeder med MouseOver.

Når musen bevæges (MouseOver) på image1, så skal billedet skiftes til det normale billede. Dette gøres med: image1.picture.loadfromfile('BilledeNR1.bmp')

Når musen bevæges (MouseOver) på form1, så skal billedet udskiftes med at andet, som er lysere (så det indikerer at det er "trykfølsomt"). Dette gøres med: image1.picture.loadfromfile('BilledeNR2.bmp')

Når der klikkes (MouseDown) på image1, så skal billedet udskiftes med at andet, som er mørkere (så det indikerer at knappen er nede. Lav evt lidt skygger). Dette gøres med: image1.picture.loadfromfile('BilledeNR3.bmp')

Det eneste problemt er at billedet kommer til at flimre når man bevæger musen.

Nogen der kan afhjælpe det??? evt med at loade billederne i hukommelsen, eller lave nogle "if-then"'er ;-)

Michael :-)

billederne kan loades fra imagelist, så flimre de ikke og en meget hurtigere respons
en loadfromfile..
/stone

OK... tak... det vil jeg også prøve!

Michael ;-D

Stone>> Helt nøjagtigt hvordan vil du få et billede [0] fra en imagelist ind i en image?

Image1.picture:= ???

Michael ;-)

Nu er jeg ikke helt klar over hvordan det er lavet i 'ad-aware' programmet, som jeg bruger som forbilled, men hvordan laver man en mouse-over event i Image eller button componenten???

Jeg kan ikke se de har disse events som standard ...

Du markerer image1 på formen, og kigger derovre hvor du plejer at ændre på caption, name mv, men øverst i det område er der et faneblad, der hedder Events, som du skal klikke på... dér er MouseOver

Michael

jeg var godt klar over at det skulle være under events i object inspectoren, men på min er der ingen event der hedder MouseOver....der er OnMouseDown, OnMouseMove, og OnMouseUp.

Hvilken version af delphi bruger du ?

oh... jeg erda dum... jeg fantaserer vist... ;-)

Den hedder selvfølgelig MouseMove... Sorry

Michael ;-)

Jeg har brugt både Delphi 6, Delphi 7. I øjeblikket bruger jeg Delphi 2005!

Forskellene er faktisk ikke så store i de forskellige versioner

her er et flimmerfri eksempel...

componenter:
toolbar
imagelist
xx antal button

i toolbar sætter du image til imagelist

click på button og gå til event OnMouseMove her skriver du:

toolbutton1.ImageIndex:= 1;

i din form event OnMouseMove skriver du:

toolbutton1.ImageIndex:= 0;

I imagelist har jeg 2 billeder som hedder bulboff(0) og bulbon(1)

så får du et flimmerfri mouseover effekt

Jeg kan også få det til at virke med OnMouseMove eventen, hvor bitmap på et TImage skifter, men hvordan få jeg det til at skifte tilbage når musen forlader Timage området ??

Har prøvet som 'stone' beskrev at bruge OnMouseMove på selve formen, men så vil Bitmap ikke skifte når jeg kører over TImage billedet....??

ved at vælge MouseMove på form1...

Michael ;-)

det var også det jeg gjorde men som sagt så vil TImage aldrig skifte, når jeg kører over den igen...den forbliver på det billede der er valgt ved form.

Læs i mit tidligere indlæg:

Når musen bevæges (MouseMove) på image1, så skal billedet skiftes til det normale billede. Dette gøres med: image1.picture.loadfromfile('BilledeNR1.bmp')

Når musen bevæges (MouseMove) på form1, så skal billedet udskiftes med at andet, som er lysere (så det indikerer at det er "trykfølsomt"). Dette gøres med: image1.picture.loadfromfile('BilledeNR2.bmp')

Når der klikkes (MouseDown) på image1, så skal billedet udskiftes med at andet, som er mørkere (så det indikerer at knappen er nede. Lav evt lidt skygger). Dette gøres med: image1.picture.loadfromfile('BilledeNR3.bmp')

Virker det så ikke???

Du kan prøve min flimrende måde først, så prøve den ikke flimrende ;-)

Michael :-)

så er der et eller andet du gør forkert det virker perfekt hos mig

hvis du har et panel eller andet som dækker for din form er det klar den ikke virker så skal du skrive det samme i den som i
eksemplet her.....
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
toolbutton1.ImageIndex:= 0;
end;

//stone

engang mere...

Det virker fint med en toolbar, her skifter billederne fint, men hvis jeg placeres et image på en form kan jeg ikke få den til at skifte med en imagelist..

til mtj111:
ja det virker med image1.picture.loadfromfile, men som det flimmer meget, det ser meger bedre ud med imagelisten på toolbaren.

ok kigger lige senere på det i aften...
//stone

Michdan>> Det kan jeg heller ikke... Stone... Help us ;-)
Vi er enige om at det virker bedst i toolbaren, men så vidt jeg husker kan man ikke have billeder størere end 16x16 px!?! eller husker jeg forkert?

Jeg sidder nemlig ikke hjemme på min "Delphi-computer" :-)

Michael :-)

jo størrelsen på bitmap height og width kan ændres i imagelisten's properties....jeg har brugt 64x64 px.

OK... ;-)

...Det er je ikke alle der husker som elefanter... ;-)

her er lidt ændringer i create som gør at det ikke flimre
selv om jeg ikke er meget for at loade extern men man kunne jo loade via en res fil
hmmm hmm


procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.Picture.LoadFromFile('c:\temp\m0_0.bmp');
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
image1.Picture.LoadFromFile('c:\temp\m0.bmp');
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.DoubleBuffered := true;

end;

Jeg plejer jo bare at ligge billederne i samme mappe som programmet og skrive: Image1.picture.loadformfile('Filnavn.bmp');

Stone>> Helt præcis, hvad gør DoubleBuffered?

Michael

stone:
det virker bedre, men jeg ville også foretrække imagelisten....

lig et spm. mere vedrørende tollbaren....hvis man har flere buttons i toolbaren og bevæger musen henover dem, så skifter billederne ikke i toolbaren før jeg kørere musen væk fra toolbaren, men findes der en en metode der kan resette de øvrige buttons mens man kører henover toolbaren ?

ps. husk lige at smide et svar begge 2 så i kan få nogle points..

hmm... det ved jeg ikke... Stone er vist eksperten...

Men mange tak...

så skriver du det samme som i form1.onmousemove

procedure TForm1.ToolBar1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
toolbutton1.ImageIndex:= 0;
end;

og det skal du gøre for alle toolbutton

f.eks
toolbutton1.ImageIndex:= 0;
toolbutton2.ImageIndex:= 1;
toolbutton3.ImageIndex:= 2;
osv

Jeg takker!

Michael :-D

håber point fordeling er ok....

til stone:
ja men hvis jeg f.eks. har 10 buttons virker det lidt 'upraktisk' at skulle nulstille alle buttons, hver gang jeg flytter musen til den ene side eller den anden side.
Hvis jeg hver gang flytter ned i formen først før jeg går til næste button vil det selvfølgelig virke med at nulstille alle buttons i form eventen, men hvis jeg bliver i toolbaren virker det ikke...

spørgsmål buffer...

mener at doublebuffer gør at du får mere hukommelse når image gentegnes på canvas

hmmm ja det er jo et problem når toolbutton ligger så tæt har du prøvet at lægge en seperator i mellem den vælges på samme måde som new button og så lægge koden fra form1.onmousemove

ved det er en hovsa løsning men så får din cursor fat i toolbaren før næste button

nej men det virker også at resette efter sig, selvom det virker lidt tåbeligt.....men takker for svarene..

Pointfordelig er OK... det er jo trodsalt Stone der er Eksperten ;-)