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 1253 korisnika na forumu :: 45 registrovanih, 8 sakrivenih i 1200 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: 357magnum, _Petar, AC-DC, ajo baba, Atomski čoban, Bobrock1, dekan.m, Dimitrise93, Djokislav, Djokkinen, doktor123, doktor1964, DonRumataEstorski, Dorcolac, FileFinder, flash12, frenki1986, Insan, Istman, kjkszpj, krkalon, Kubovac, kunktator, Lieutenant, ljubacv, Mercury, Mi lao shu, Milometer, nemkea71, novator, opt1, panzerwaffe, pein, pristinski korpus, procesor, savaskytec, ser.hill, slonic_tonic, Srle993, suton, Trpe Grozni, Tvrtko I, virked, VJ, voja64