Kako da kada pritisnem BUTTON1 ucitam sliku u IMAGE1?
Hvala unapred.
Hvala unapred.
Ucitavanje slike
Zaključano
Zakačeno
Stavis on Button click event ovo :
pozz
Code:
Image1.Picture.LoadFromFile('slika.jpg');
Image1.Picture.LoadFromFile('slika.jpg');
pozz
Potpis
SERVIA NOSTRUM REGNUM!
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
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
Code:
if OpenPictureDialog1.Execute then
Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
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. :-)
Hvala na pomoci. Kod funkcionise.
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
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
Evo ti jedan primer, mozda posluzi...
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
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:
Gde ti je Zoom integer (procenti).
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;
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).
Dopunite primer vi sa Zoom-om, OK?
Pa ga tako upload-ujte?!
Pa ga tako upload-ujte?!
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
A odakle da skinem GraphicEx?
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
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
Pa, trazio je nacin na koji da ucita .jpg slike...
Primer sam postavio samo da vidi kako .jpeg, .jpg da otvori...
Nista vise...
Pozzz....
Primer sam postavio samo da vidi kako .jpeg, .jpg da otvori...
Nista vise...
Pozzz....
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.
izmenjeno 1 put, poslednji put IvanBeograd 08.04.2006. u 18:37
Izmene poruke
- IvanBeograd08.04.2006. u 18:37zapis iz teksta poruke
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
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
Potpis
SERVIA NOSTRUM REGNUM!
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.
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.
Pa hajde postavi programcic,... 
Potpis
SERVIA NOSTRUM REGNUM!
Kako da ga postavim?
Evo ga, nasao sam.
izmenjeno 1 put, poslednji put ntojzan 09.04.2006. u 04:53
Izmene poruke
- ntojzan09.04.2006. u 04:53zapis iz teksta poruke
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.
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.
Nacinio sam neke promene i trebalo bi da bude bolje.
Kazite(Napisite) svoje misljenje.
Kazite(Napisite) svoje misljenje.
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
pozzz
Potpis
Someone's sitting in the shade today because someone planted a tree a long time ago.