[es] - Crtanje po slici?

Igiboy
Kula

Član broj: 48587
Poruke: 71
*.135.eunet.yu.

Profil

^{19.04.2005. u 09:48 - pre 231 meseci}

Za crtanje po formi moze da se koristi sledeci kod:

Code:

Dim PaintNow As Boolean
Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As
Single, Y As Single)
   PaintNow = True   ' Enable painting.
End Sub

Private Sub Form_MouseUp (Button As Integer, Shift As Integer, X As Single, Y As Single)
   PaintNow = False   ' Disable painting.
End Sub

Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If PaintNow Then
      PSet (X, Y)      ' Draw a point.
   End If
End Sub

Private Sub Form_Load ()
   DrawWidth = 10      ' Use wider brush.
   ForeColor = RGB(0, 0, 255)   ' Set drawing color.
End Sub

Ali koji kod da koristim kada zelim nesto da nacrtam na slici (Image)?
Potrebno mi je samo da vucem linije po slici (na slici rasporedim igrace i onda pomocu linija i
strelica crtam formacije i taktike tj. ko gde treba da trci i da se krece).
Probao sam da umesto Form stavim Image1 ali ne radi.
I jos jedno pitanje: kada povucem liniju na slici, i ako nisam dobro povukao kako onda to da obrisem pa da
krenem ispocetka (a da pri tome ne pokvarim sliku)?

_{[Shadowed: dodati [code] tagovi.]}

_{[Ovu poruku je menjao Shadowed dana 19.04.2005. u 16:20 GMT+1]}

Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz

Profil

Re: Crtanje po slici?

^{19.04.2005. u 09:57 - pre 231 meseci}

Po Image controli ne mzoes da crtas jer nema hDC. Koristi picture box kontrolu.

Blue Man Group

Odgovor na temu

Igiboy
Kula

Član broj: 48587
Poruke: 71
*.134.eunet.yu.

Profil

Re: Crtanje po slici?

^{19.04.2005. u 15:43 - pre 231 meseci}

Ali na koji nacin? Koji kod da koristim za Picture1?
Ako umesto Form u gornjem kodu napisem Picture1 nista se ne desava.
Nista se ne iscrtava na Picture1.

Odgovor na temu

Re: Crtanje po slici?

^{19.04.2005. u 15:55 - pre 231 meseci}

stavi AutoRedraw (za pic box) na True

Blue Man Group

Odgovor na temu

Igiboy
Kula

Član broj: 48587
Poruke: 71
*.171.EUnet.yu.

Profil

Re: Crtanje po slici?

^{19.04.2005. u 20:37 - pre 231 meseci}

To sam probao vec ranije ali ne pomaze.
Problem je sto kad drzim levi taster misa i pomeram ga po slici, umesto da crta po slici ono crta po formi.

Odgovor na temu

vujkev
Beograd

Član broj: 8072
Poruke: 1347
*.bg.wifi.vline.verat.net.

+104 Profil

Re: Crtanje po slici?

^{19.04.2005. u 20:58 - pre 231 meseci}

Jesi li promenio

ovo

Code:

Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If PaintNow Then
      PSet (X, Y)      ' Draw a point.
   End If
End Sub

Code:
Private Sub Picture1_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If PaintNow Then
      Picture1.PSet (X, Y)      ' Draw a point.
   End If
End Sub

naravno treba da promenis i MouseDown i sve ostalo da radi na Picture1 objekat

Naučio sam...
Da je važnije biti ljubazan nego biti u pravu

Odgovor na temu

Aleksandar Ružičić
Software Architect, Appricot d.o.o.
Beograd

Član broj: 26939
Poruke: 2881

Jabber: krckoorascic@gmail.com
Sajt: krcko.net

+44 Profil

Re: Crtanje po slici?

^{19.04.2005. u 22:11 - pre 231 meseci}

Zazr ti nije jednostavnije (krace) da u MouseMove proveravas da li je pritisnut neki taster nego da koristis PaintNow?
umesto MouseDown i MouseUp mozes sve da ubacis u MouseMove:

Code:

Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button=1 Then
      PSet (X, Y)      ' Draw a point.
   End If
End Sub

Button=1 znaci da je pritisnut levi taster misa
Button=2 znaci da je pritisnut desni taster misa
ako je button 0 onda ni jedan taster nije pritisnut...

poz

rafforum.rs - Forum Računarskog Fakulteta

Odgovor na temu

Igiboy
Kula

Član broj: 48587
Poruke: 71
*.30.eunet.yu.

Profil

Re: Crtanje po slici?

^{20.04.2005. u 13:19 - pre 231 meseci}

Hvala svima na odgovorima.
Jos jedno pitanje: kada povucem liniju na slici, i ako nisam dobro povukao kako onda to da obrisem pa da
krenem ispocetka (a da pri tome ne pokvarim sliku)?
Da li nesto treba podesiti u DrawMode, DrawStyle ili FillStyle?

Odgovor na temu

Shadowed
Vojvodina

Član broj: 649
Poruke: 12848

+4784 Profil

Re: Crtanje po slici?

^{20.04.2005. u 14:06 - pre 231 meseci}

Ako ti je .AutoRedraw postavljen na False mozes koristiti .Refresh metod. Tada vracas pocetnu sliku (pre bilo kakvih srtanja po njoj).
Ako ti je .AutoRedraw postavljen na True ili hoces da imas Undo kao u programima za obradu slika onda moras da cuvas sliku pre svakog crtanja. Od toga koliko slika cuvas toliko ces moci koraka da vracas. Najjednostavnija varijanta ti je da u MouseDown sacuvas trenutnu sliku u kolekciju.
Druga metoda bi bila manje zahtevna za RAM ali je komplikavanija za pravljanje a to je da pa mtis samo one pixel-e koje si menjao. Tu bi morao da pre promene pixela u MouseMove sacuvas koordinate i staru boju tog pixel-a.

Nebojsa Milanovic: Što se tiče Trumpa, smatram ga vrhunskim predsednikom i voleo bih da živim u državi na čijem je on čelu.
Nebojsa Milanovic: Rusija ne laže, ne vodi osvajačke ratove
Nebojsa Milanovic: Trump je svetla tačka u USA blatu.

Odgovor na temu

Igiboy
Kula

Član broj: 48587
Poruke: 71
*.25.eunet.yu.

Profil

Re: Crtanje po slici?

^{21.04.2005. u 10:04 - pre 231 meseci}

Na koji nacin da sacuvam trenutnu sliku?
Ako imam sliku (picture1) i na njoj povucem neku liniju, kako onda tu sliku da sacuvam?
Ako hocu da tu sliku privremeno dodelim nekoj drugoj slici(picture2) i ako napisem
picture2.picture=picture1.picture, tada picture2 je slika bez onih mojih linija.
Kako zapamtiti sliku ako je po njoj nesto nacrtano?

Odgovor na temu