[es] - Ucitavanje slike

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
213.137.127.*

Sajt: www.rasadniksavic.freeoda..

Profil

Ucitavanje slike

^{08.04.2006. u 10:42 - pre 219 meseci}

Kako da kada pritisnem BUTTON1 ucitam sliku u IMAGE1?
Hvala unapred.

www.rasadniksavic.freeoda.com

Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.adsl.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com

Profil

Re: Ucitavanje slike

^{08.04.2006. u 12:07 - pre 219 meseci}

Stavis on Button click event ovo :

Code:
Image1.Picture.LoadFromFile('slika.jpg');

pozz

SERVIA NOSTRUM REGNUM!

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
*.ptt.yu.

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{08.04.2006. u 13:23 - pre 219 meseci}

Nisam lepo objasnio.
Treba da bude u upotrebi OpenPictureDialog1.
kada pritisnem dugme (Button1) da se otvori dialog za otvaranje slike i
da se slika koju odaberem ucita u IMAGE1.
Ja sam pre napravio Meni (MainMenu1):Datoteka>Otvori sliku...,
ali kako to nisam upotrebljavao zaboravio sam.
POZDRAv

www.rasadniksavic.freeoda.com

Odgovor na temu

ntojzan
Sandor II Tojzan
Becej

Član broj: 36657
Poruke: 168
*.bbtec.net.

Profil

Re: Ucitavanje slike

^{08.04.2006. u 13:46 - pre 219 meseci}

Code:

if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);

Inace, bilo bi pametno da skines GraphicEx, i da ga stavis u uses listu, posto onda mozes da otvoris 50+ formata. :-)

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
*.ptt.yu.

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{08.04.2006. u 13:48 - pre 219 meseci}

Hvala na pomoci. Kod funkcionise.

www.rasadniksavic.freeoda.com

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
213.137.127.*

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{08.04.2006. u 14:09 - pre 219 meseci}

Samo jos neko pitanje.
1.
Zasto nece da se ucitavaju *.jpg slike?
U OpenPictureDialog u Filtere pise i *.jpg ali ne radi.
2.
Da li slike kada se otvore mogu da se podasevaju Zoom in i Zoom out?

Ako mozete, pomognite mi.

Hvala

www.rasadniksavic.freeoda.com

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Ucitavanje slike

^{08.04.2006. u 14:30 - pre 219 meseci}

Evo ti jedan primer, mozda posluzi...

Someone's sitting in the shade today because someone planted a tree a long time ago.

Prikačeni fajlovi

Slike.rar - 183.45k

Odgovor na temu

ntojzan
Sandor II Tojzan
Becej

Član broj: 36657
Poruke: 168
*.bbtec.net.

Profil

Re: Ucitavanje slike

^{08.04.2006. u 15:03 - pre 219 meseci}

Pa lepo sam ti rekao da koristis GraphicEx. Osim JPG, imaces jos i TGA, TIFF, PSD, i gomilu drugih formata. A mask ne pipaj u openpicturedialogu!!!

Inace zoom je prosto uraditi:

Code:

Image1.Stretch := True;
Image1.Width := (Image1.Picture.Width * Zoom) div 100;
Image1.Height := (Image1.Picture.Height * Zoom) div 100;

Gde ti je Zoom integer (procenti).

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Ucitavanje slike

^{08.04.2006. u 15:45 - pre 219 meseci}

Dopunite primer vi sa Zoom-om, OK?
Pa ga tako upload-ujte?!

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
*.ptt.yu.

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{08.04.2006. u 15:55 - pre 219 meseci}

A odakle da skinem GraphicEx?

www.rasadniksavic.freeoda.com

Odgovor na temu

ntojzan
Sandor II Tojzan
Becej

Član broj: 36657
Poruke: 168
*.bbtec.net.

Profil

Re: Ucitavanje slike

^{08.04.2006. u 17:04 - pre 219 meseci}

loshmiscg:

Al' ga zakomplikova... Napisao sam ga from scratch, i mnogo je manji kod, sve sa zumom. :-)

sladjan23:

http://www.google.com/search?h...aphicex&btnG=Google+Search

Prikačeni fajlovi

Slike_2.rar - 2.9k

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.dialup.neobee.net.

Profil

Re: Ucitavanje slike

^{08.04.2006. u 17:16 - pre 219 meseci}

Pa, trazio je nacin na koji da ucita .jpg slike...
Primer sam postavio samo da vidi kako .jpeg, .jpg da otvori...
Nista vise...
Pozzz....

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.smin.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com

Profil

Re: Ucitavanje slike

^{08.04.2006. u 17:35 - pre 219 meseci}

Selektuj OpenDialog i u object inspectoru klikni na
OpenDialog -> Filter,otvorice ti se prozorce Filter Editor,zatim
FilterName -> uneses ime formata,bilo sta zelis,npr JPG Slike,
zatim polje
Filter -> *.jpg,
ovo ti je vazno,upises *.jpg ili neki dr naziv extenzije sto zelis da otvoris,ili vise extenzija,...
Kliknes ok i to ti je to!
E sad kad kliknes na dugme da ti se otvori dialog za ucitavanje slike,dole gde pise Files of type pisace ti JPG Slike(FilterName),a mocices da izabere samo format sa extenzijom jpg,ili neki dr koji si stavio ,...
Pozzz

_{[Ovu poruku je menjao IvanBeograd dana 08.04.2006. u 18:37 GMT+1]}

SERVIA NOSTRUM REGNUM!

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
*.ptt.yu.

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{08.04.2006. u 18:12 - pre 219 meseci}

Hvala vam svima na pomoci. Napravio sam lep program za slike, ali kada uvecam sliku
ne mogu da vidim sta je dole. Ako me razumete kad uvecam sliku jedan deo ode dole a drugi ostane,
pa mi treba nekakav scrollbar.

www.rasadniksavic.freeoda.com

Odgovor na temu

IvanBeograd
Kladza
Beograd

Član broj: 83376
Poruke: 379
*.ppp-bg.sezampro.yu.

Sajt: www.dza-bu-drz-ne-daj.com

Profil

Re: Ucitavanje slike

^{08.04.2006. u 18:38 - pre 219 meseci}

Pa hajde postavi programcic,...

SERVIA NOSTRUM REGNUM!

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
*.ptt.yu.

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{08.04.2006. u 20:22 - pre 219 meseci}

Kako da ga postavim?

www.rasadniksavic.freeoda.com

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
*.ptt.yu.

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{08.04.2006. u 20:24 - pre 219 meseci}

Evo ga, nasao sam.

www.rasadniksavic.freeoda.com

Prikačeni fajlovi

Picture viwer.rar - 194.16k

Odgovor na temu

ntojzan
Sandor II Tojzan
Becej

Član broj: 36657
Poruke: 168
*.bbtec.net.

Profil

Re: Ucitavanje slike

^{09.04.2006. u 03:48 - pre 219 meseci}

loshmicg:
Opet je komplikovano, dovoljno je da ubaci "jpeg" u uses listu. Pogledaj primer koji sam postovao juce. (ili ovaj uz ovu poruku)

sladjan23:
Ubaci Image1 u ScrollBox. (pogledaj primer koji je attachovan uz ovu poruku)

Inace Zoom ne racunas dobro. -100% je zapravo 0%, sto znaci da ti slika ne bi ni smela da se vidi.

IvanBeograd:
To sto si napisao je upravo ono sto nikako ne bi smelo da radi. Ako to uradi, a ne ubaci "jpeg" u uses listu (ili "GraphicEx" npr) program ce mu puci ako klikne na jpg sliku. A ako ubaci "jpeg" u uses listu, onda ce se OpenDialog prilagoditi.

_{[Ovu poruku je menjao ntojzan dana 09.04.2006. u 04:53 GMT+1]}

Prikačeni fajlovi

Slike_2.rar - 2.94k

Odgovor na temu

sladjan23
Sladjan Savic
Krusevac

Član broj: 63712
Poruke: 43
*.ptt.yu.

Sajt: www.rasadniksavic.freeoda..

Profil

Re: Ucitavanje slike

^{09.04.2006. u 11:09 - pre 219 meseci}

Nacinio sam neke promene i trebalo bi da bude bolje.
Kazite(Napisite) svoje misljenje.

www.rasadniksavic.freeoda.com

Prikačeni fajlovi

Project1.rar - 215.42k

Odgovor na temu

Miloš Baić
Miloš Baić
ERP (Dynamics NAV) programer
Beograd

Član broj: 72468
Poruke: 1155
*.neobee.net.

Profil

Re: Ucitavanje slike

^{09.04.2006. u 11:40 - pre 219 meseci}

Simpaticno..., ali treba malo da optimizujes.... Npr. postavi jedan ComboBox i odradi OnChange zumiranje, dobices na prostoru a izgledace lepse... Ili napravi na TButton-u (jednom) ZoomIn a na drugom ZoomOut... Ili sve to napravi na TMainMenu...
pozzz

Someone's sitting in the shade today because someone planted a tree a long time ago.

Odgovor na temu