Billeder og popup?

Må du aflevere en zip fil til din lærer, hvor der ligger en exe-fil og en mappe med billeder? (Det skal lige siges at image objectet ikke kan åbne jpg-filer, i hvert fald ikke hvad jeg ved af)

Hvis du må det, kan du lave en mappe, der hedder billeder og inde i den lave 9 undermapper med 2 billeder i hver.. billederne i undermapperne hedder så 1 og 2. og undermapperne hedder 1 , 2, 3, ... op til 9.

Med hensyn til de to billeder du postede, så kunne du gøre det at, når man har trykket på næste bliver næste knappens visible property sat til false, og forrige knappens visible property sat til true og omvendt.

Har bikset lidt kode sammen

hvertime-knappen gør det, som der skal gøres, hver gang der er gået en time.

Du skal lave 3 knapper med name-propertien til "forrige", "hvertime" og "naeste"
Og et image object med name image1

Kode 

VAR
    saetnr: integer;

procedure TForm1.hvertimeClick(Sender: TObject);
begin
    saetnr:=saetnr+1;     (*ligger en til saetnr så der vises et nyt sæt*)
    if saetnr = 10 then    (*når der er vist 9 saet sættes saetnr atter til 1*)
         saetnr:= 1;
    image1.picture.bitmap.loadfromfile('billeder\\'+inttostr(saetnr)+'\\1.bmp');
    forrige.visible:=false;
    naeste.visible:=true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
saetnr:=0;        (*sætter start værdien af saetnr og sørger for at forrige-knappen er usynlig*)
forrige.visible:=false;
end;

procedure TForm1.naesteClick(Sender: TObject);
begin
image1.picture.bitmap.loadfromfile('billeder\\'+inttostr(saetnr)+'\\2.bmp');
forrige.visible:=true;   (*gemmer naeste knappen og viser forrige kanppen*)
naeste.visible:=false;
end;

procedure TForm1.forrigeClick(Sender: TObject);
begin
image1.picture.bitmap.loadfromfile('billeder\\'+inttostr(saetnr)+'\\1.bmp');
forrige.visible:=false;   (*gemmer forrige knappen og viser naeste kanppen*)
naeste.visible:=true;
end;

Håber du kan gennemskue det, hvis ikke kan jeg uploade det til en side, så du kan se det.

Hvor skal denne mappe så befinde sig? Burde der ikke stå fx. C:\\Dukumenter\\Program\\Billeder ?

Ja, må gerne aflevere det som en .zip - men når min lærer så skal teste programmet, skal hun jo udpakke disse billedmapper de helt korrekte steder... Men ellers kan jeg godt se hvor du vil hen med din kode. Lige bortset fra det med knappet kaldet "hver time".

/end Laust @ #mulm

Hvordan gemmer du billederne i et array af tbitmaps eller ligger de i en mappe?

du kan loade et billede ind i et timage via
image.picture.bitmap.loadfromfile('sti til filnavn');

var
nuvaerende: integer; (*det aktuelle billed nr.*)

onclick forrige
nuvaerende := nuvaerende - 1;
image.picture.bitmap.loadfromfile('http://server2.uploadit.org/files/Lassien-Layout'+inttostr(nuvaerende)+'.JPG')

onclick næste
nuvaerende := nuvaerende + 1;
image.picture.bitmap.loadfromfile('http://server2.uploadit.org/files/Lassien-Layout'+inttostr(nuvaerende)+'.JPG')


Tror dog ikke du kan hente et billede fra en side helt på denne måde men er ikke sikker.


[Redigeret d. 17/04-05 16:02:09 af Jens Christian]

Så skriver jeg bare kommandovejen til det givne billede.. Og så bliver billedet gemt i programmet, eller hvordan foregår det?

Hvordan skal jeg så få et nyt sæt billeder, til at komme frem efter 1 time?

Så skriver jeg bare kommandovejen til det givne billede.. Og så bliver billedet gemt i programmet, eller hvordan foregår det?

På den måde bliver de ikke gemt i programmet, men programmet åbner dem i timage objectet når man så åbner et nyt billede tror jeg bare den smider informationerne om det gamle billede væk

Hvordan skal jeg så få et nyt sæt billeder, til at komme frem efter 1 time?

Hvis du har fx et array med for skellige sæt billeder kunne det være noget lignende

Saet: ARRAY [1..10] of string; (*her gemmes de forskellige mapper med billedsæt i*)

så kan du så åbne filerne i mappen med denne linie hvor variablen i bestemmer hvilken mappe i arrayet saet billederne ligger i image.picture.bitmap.loadfromfile('http://server2.uploadit.org/'+saet[ i ]+'/Lassien-Layout'+inttostr(nuvaerende)+'.JPG')

Håber det hjalp lidt.

[Redigeret d. 17/04-05 22:08:32 af Jens Christian]

Hvor mange billeder skal der ca. være?

I hver mappe kunne du ligger så mange billeder du vil have så kan du med forrige og næste klikke igennem dem der ligger i lige præcis den mappe, når der så er gået en time kan man kigge igennem de billeder der ligger i en nye mappe ( ved ikke helt om det er det du tænker på ellers sig til)

Du skal have billederne liggende et sted, det kan vist godt lade sig gøre at få dem ind i exe filen ved bare ikke lige hvordan, ellers vil jeg foreslå dig at du ligger dem i en mappe i samme mappe som exe filen.