Newsgroup: it.comp.appl.access
Titolo: creare linee rette in figure partendo da clic del mause

Salve.
Ho un piccolo problemino con un aplicativo da me creato.
Ho necessità di tracciare linee di vari colori su radiografie che visualizzo
in controlli immagine non associati (importanto col path le immagini da
percorsi specifici)
Una volta fissati i punti con il clic del mause e tracciate le linee (fin
qui tutto funziona bene) se ingrandisco l'immagine, non vengono spostate le
linee.
Io vorrei se è possibile (sicuramente lo è):
Quando ingramìndisco l'mmagine con le funzioni zoom da me create (aprono il
controllo immaginbe in un form più grande e impostano la propietà immagine
su zoom (dopo aver ingrandito l'immagine).
le linee dovrebbero ritrovare i punti e spostarsi.
es x:10 y=20
ingrandisco di 100
dovrei trovare la nuova X1,e Y1.
Ho già provato a calcolare matematicamente i nuovi punti ma non funziona.
Penso dipenda dal fatto che non so come viene gestita L'immagine nel
conrollo immagini non associato.

 ha scritto nel messaggio
news:SXOU9.35484$AA2.1...@news2.tin.it...

Un ottimo punto di partenza:
http://www.lebans.com/imageclass.htm
In alternativa ocx come LeadTools fanno tutto , ma proprio tutto, sulle
immagini.
Ciao, Carlo

 ha scritto nel
messaggio news:DDQU9.35965$AA2.1...@news2.tin.it...

Grazie il punto di partenza che mi hai dato è molto interessante e sto
approfondendo.
 Non sono molto pratico ma Si può aquistare e ridistribuire leadtools e se
si dove?
Stefano.

 ha scritto nel
messaggio news:DDQU9.35965$AA2.1...@news2.tin.it...

Grazie è un ottimo punto di partenza.
(scusa se per sbaglio ti ho risposto sulla mail)
Dovi si possono acquistare e trovare informazioni su ocx come LeatTools
Stefano


Si LeadTools č acquistabile e distribuibile. L'unico inconveniente č il
costo....
Dipende da quello che ti serve e per cosa lo userai.
Personalmente l'ho acquistato fino alla versione 9.0 che gestisce anche il
video (con il VideoModule) e mi trovo benissimo.
Basta fare una ricerca inserendo "LeadTools".
Ciao, Carlo

 ha scritto nel messaggio
news:SXOU9.35484$AA2.1...@news2.tin.it...

Io approccerei il problema in un'altra maniera.
Con il path dei file immagini, oltre ad impostarci la proprietà Picture di
un controllo Immagine per visualizzare l'immagine stessa, ci imposterei
anche la proprietà Indirizzo coll. ipertestuale di un pulsante di comando;
così facendo, quando pigi il pulsante di comando, verrà aperto il file
immagine tramite l'editor di immagine relativo; è con esso che disegnerei
sull'immagine le varie righe multicolore che ti interessano; finito di
disegnare le righe chiudi l'editor di immagini salvando l'immagine con tutte
le righe che hai disegnato. Così facendo non avrei problemi di zoom.
--
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------


ho provato questa soluzione ma da un piccolo problema, io vorrei che le
linee rette che traccio sull'immagine siano sempre dello stesso spessore,
anche quando ingrandisco l'immagine.
quindi il procedimento che dovrei fare è:
Aprire l'immagine creare i punti per le rette col clik del mause, tracciare
le linee e fin qui funziona.
A questo punto ingrandendo o rimpicciolendo l'immagine le rette si spostano
ma la loro dimensione (larghezza) rimane uguale.
Io associo in una tabella al nomeimm la linea le cordinate x y larghezza e
altezza inclinazione e colore  (imm5, linea1 02 ,05, 158, 29, true, 255)
Dopo quando apro l'immagine una function VBA mi traccia le linee associate.
Ora dovrei quando ingrandisco l'immagine con la seguente funz zoom
......
Select Case Zoom
 Case 1
 ctlImmagine.Height = ctlImmagine.ImageHeight * 50 / 100
 ctlImmagine.Width = ctlImmagine.ImageWidth * 50 / 100
....
....
 Case 4
 ctlImmagine.Height = ctlImmagine.ImageHeight * 150 / 100
 ctlImmagine.Width = ctlImmagine.ImageWidth * 150 / 100
End Select
.....
 ricalcolare i valori x y larghezza ad altezza, ma il risultato che ottengo
è diverso da quello che vorrei.
io ho fatto :
es case 4
x=x*150/100
y=y*150/100
ma non funziona correttamente.
Grazie Stefano