MyCity » Pascal -> Delphi » Crtanje po Canvasu TImag-a(TJVImage-a).

Crtanje po Canvasu TImag-a(TJVImage-a).

Napisano na dan: 30.6.2010

Crtanje po Canvasu TImag-a(TJVImage-a).
Sledeća strana Pagination

Idi na vrh

Poslao: 30 Jun 2010 12:03
Idi na vrh
offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

Kada ucitam sliku koja nije *.bmp, nijedan uobicajen metod crtanja najobicnije bitmape ne pomaze(od Image1.Canvas.Draw do npr.
if Krug.Canvas.Pixels[I, I1] = clRed then
Image1.Canvas.Pixels[X1 + I, Y1 + I1] := clRed;) javlja gresku
"Can only modify an image if it contains a bitmap."
Da li postoji nacin da se nacrta nesto na jpeg-u ili nekom drugom ucitanom formatu koji nije bitmap?
Pada mi na pamet manipulacija pixelima u memoriji ali za to nemam potrebno znanje.



Registruj se da bi učestvovao u diskusiji. Registrovanim korisnicima se NE prikazuju reklame unutar poruka.
Poslao: 30 Jun 2010 17:17
Idi na vrh
offline
  • Pridružio: 04 Sep 2003
  • Poruke: 24135
  • Gde živiš: Wien

Ako vec imas instaliran JEDI (pretpostavljam da imas JCL i JVCL), onda u JclGraphics (JCL) unitu imas funkciju JPegToBitmap.

Ne mozes da crtas direktno po kompresovanim slikama.
Mora prvo da se kovertuje u bitmap.
Problem je sto ces da imas gubitke u kvalitetu kada je posle opet konvertujes u JPG.



Poslao: 30 Jun 2010 18:25
Idi na vrh
offline
  • Srđan Tot
  • Am I evil? I am man, yes I am.
  • Pridružio: 12 Jul 2005
  • Poruke: 2483
  • Gde živiš: Ljubljana

Fora je u tome da kreiras prazan bitmap za image komponentu, zatim u neki drugi graphic objekat (recimo drugi image) ucitas svoju jpeg sliku (ili neki drugi format) i onda taj drugi image preko canvas-a nacrtas na prvi.

Poslao: 30 Jun 2010 23:22
Idi na vrh
offline
  • Pridružio: 26 Feb 2004
  • Poruke: 55
  • Gde živiš: Banja Luka

Napisano: 30 Jun 2010 21:34

(razmisljanja) Zar nije cudno da ne mogu crtati po canvasu (JV)Image-a, jer on pixel by pixel interpretira(valjda) sliku(platno). Meni i ne treba da crtam po samoj slici vec da se na zadatim koordinatama za svaku sliku posebno iscrtam taj krug.

Bobby ovo tvoje nisam probavao jer su glomazni jpezi oko 5 MB, kada ga Irfanom pretvorim u bitmapu dobijem 120 megi. Hvala, a ako kojim slucajem uspijem da nacrtam nesto na kompresovanu sliku javljam.
Srkijevo sam probao i na probnom fazonu ide.
Image1.Canvas.Draw(0, 0, Image2.Picture.Graphic);
I onda se moze crtati po Imiage1 ladno.
Kasnije cu postaviti i pitanje za antialiasing posto vidim da posjedujete znanje.

Dopuna: 30 Jun 2010 23:22

A normalno javlja se i prvi problem.
Ako Image2 nije visible onda crta sliku samo na vidljivom dijelu canvasa Imagea1.
Cudno rjesenje je da Image2 mora biti Visible.

MyCity » Pascal -> Delphi » Crtanje po Canvasu TImag-a(TJVImage-a).

Ko je trenutno na forumu
 

Ukupno su 1021 korisnika na forumu :: 63 registrovanih, 5 sakrivenih i 953 gosta   ::   [ Administrator ] [ Supermoderator ] [ Moderator ] :: Detaljnije

Najviše korisnika na forumu ikad bilo je 3466 - dana 01 Jun 2021 17:07

Korisnici koji su trenutno na forumu:
Korisnici trenutno na forumu: aramis s, Ba4e, babaroga, bigfoot, bojank, bojankrstc, bokisha253, boro975, branko7, brufen, Cigi, colji, cvrle312, Dare, dejno, Electron, ElGenius, famoso, frenki1986, Frunze, gregorxix, hLAND, HrcAk47, jalos, jarovitt, Jaz, Jeremiah, Jomini, K-1A, Kobrim, komsija1, Krusarac, Kubovac, lacko, ladro, ljuba.b, lucko1, Mercury, Michellefromrezistance, mikidragi, nebidrag, nemkea71, nenad81, neutrino, nnovakis, novator, pein, Povratak1912, proka89, samojednoimeznam, Sančo, Sky diver 29, takini, tamno.nebo, Tas011, tomigun, Toper, Tvrtko I, vathra, Vladovbl, vukan0799, x011, šumar bk2