Usare la ScrollArea - Cronologia

Vuott il 16:30, 20 giu 2024

2024-06-20T16:30:38Z

← Versione meno recente		Versione delle 10:30, 20 giu 2024
Riga 40:		Riga 40:
	Public Sub Form_Open()		Public Sub Form_Open()

	im = Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>")		im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	ScrollArea1.ResizeContents(im.W, im.H)		ScrollArea1.ResizeContents(im.W, im.H)
Riga 79:		Riga 79:
	Public Sub Form_Open()		Public Sub Form_Open()

	im = Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>")		im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	ScrollArea1.ResizeContents(im.W, im.H)		ScrollArea1.ResizeContents(im.W, im.H)
Riga 127:		Riga 127:
	Public Sub Form_Open()		Public Sub Form_Open()

	im = Image.Load("<FONT Color=~~gray~~>''/percorso/del/file/immagine''</font>")		im = Image.Load("<FONT Color=darkgreen>''/percorso/del/file/immagine''</font>")

	ScrollArea1.ResizeContents(im.W, im.H)		ScrollArea1.ResizeContents(im.W, im.H)

Vuott il 16:29, 20 giu 2024

2024-06-20T16:29:45Z

← Versione meno recente		Versione delle 10:29, 20 giu 2024
Riga 5:		Riga 5:
	2) considerare i valori delle Proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'Evento "_Draw()" (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la "ScrollArea" disegna, questo Oggetto deve usare le Proprietà ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'Evento "_Draw()". Insomma, mediante le Proprietà ".ScrollX" e ".ScrollY" si definiscono le coordinate in cui si inizia a disegnare nella ''ScrollArea'';		2) considerare i valori delle Proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'Evento "_Draw()" (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la "ScrollArea" disegna, questo Oggetto deve usare le Proprietà ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'Evento "_Draw()". Insomma, mediante le Proprietà ".ScrollX" e ".ScrollY" si definiscono le coordinate in cui si inizia a disegnare nella ''ScrollArea'';

	3) <U>non inserire il Metodo ".End()" della Classe ''Paint'', altrimenti verrà sollevato l'errore "''No current device'' ".		3) <U>non</u> inserire il Metodo ".End()" della Classe ''Paint'', altrimenti verrà sollevato l'errore "''No current device'' ".

Vuott il 16:29, 20 giu 2024

2024-06-20T16:29:31Z

← Versione meno recente		Versione delle 10:29, 20 giu 2024
Riga 3:		Riga 3:
	1) definire con il Metodo ".ResizeContents()" l'area del contenuto che sarà disegnato nella ''ScrollArea''.		1) definire con il Metodo ".ResizeContents()" l'area del contenuto che sarà disegnato nella ''ScrollArea''.

	2) considerare i valori delle Proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'Evento "_Draw()" (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la "ScrollArea" disegna, questo Oggetto deve usare le Proprietà ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'Evento "_Draw()". Insomma, mediante le Proprietà ".ScrollX" e ".ScrollY" si definiscono le coordinate in cui si inizia a disegnare nella ''ScrollArea''.		2) considerare i valori delle Proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'Evento "_Draw()" (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la "ScrollArea" disegna, questo Oggetto deve usare le Proprietà ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'Evento "_Draw()". Insomma, mediante le Proprietà ".ScrollX" e ".ScrollY" si definiscono le coordinate in cui si inizia a disegnare nella ''ScrollArea'';

			3) <U>non inserire il Metodo ".End()" della Classe ''Paint'', altrimenti verrà sollevato l'errore "''No current device'' ".


Riga 25:		Riga 27:
	.Ellipse(50, ScrollArea1.<FONT Color=#B22222>ScrollY</font>, 200, 200) <FONT Color=gray>' ''oppure con il valore negativo: (...,</font> '''-''' <FONT Color=gray>ScrollArea1.ScrollY, ...)</font>		.Ellipse(50, ScrollArea1.<FONT Color=#B22222>ScrollY</font>, 200, 200) <FONT Color=gray>' ''oppure con il valore negativo: (...,</font> '''-''' <FONT Color=gray>ScrollArea1.ScrollY, ...)</font>
	.Stroke		.Stroke
	~~.End~~
	End With		End With

Riga 55:		Riga 56:
	.Ellipse(x - 5, y - 5, 9, 9)		.Ellipse(x - 5, y - 5, 9, 9)
	.Stroke		.Stroke
	~~.End~~
	End With		End With

Riga 101:		Riga 101:
	Next		Next
	Endif		Endif
	~~.End~~
	End With		End With

Riga 165:		Riga 164:
	Endif		Endif
	Endif		Endif
	~~.End~~
	End With		End With

Vuott il 11:53, 20 giu 2024

2024-06-20T11:53:55Z

← Versione meno recente		Versione delle 05:53, 20 giu 2024
Riga 3:		Riga 3:
	1) definire con il Metodo ".ResizeContents()" l'area del contenuto che sarà disegnato nella ''ScrollArea''.		1) definire con il Metodo ".ResizeContents()" l'area del contenuto che sarà disegnato nella ''ScrollArea''.

	2) considerare i valori delle Proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'Evento "_Draw()" (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la "ScrollArea" disegna, questo Oggetto deve usare le ~~proprietà~~ ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'Evento "_Draw()". Insomma, mediante le Proprietà ".ScrollX" e ".ScrollY" si definiscono le coordinate in cui si inizia a disegnare nella ''ScrollArea''.		2) considerare i valori delle Proprietà ".ScrollX" e ".ScrollY" quando si disegna dentro il gestore dell'Evento "_Draw()" (almeno per le cose che devono spostarsi con le barre di spostamento). Quando la "ScrollArea" disegna, questo Oggetto deve usare le Proprietà ".ScrollX" e ".ScrollY" per conoscere quanto si deve spostare ciò che viene disegnato dentro il gestore dell'Evento "_Draw()". Insomma, mediante le Proprietà ".ScrollX" e ".ScrollY" si definiscono le coordinate in cui si inizia a disegnare nella ''ScrollArea''.

Vuott il 23:28, 11 lug 2023

2023-07-11T23:28:13Z

Mostra modifiche

Vuott il 23:24, 28 ott 2021

2021-10-28T23:24:25Z

← Versione meno recente		Versione delle 17:24, 28 ott 2021
Riga 142:		Riga 142:
	.Brush = Paint.Color(Color.Red)		.Brush = Paint.Color(Color.Red)
	.LineWidth = 3.0		.LineWidth = 3.0
	.Ellipse((x[c] - ScrollArea1.ScrollX) - 5, (y[c] - ScrollArea1.ScrollY) - 5, 9, 9,)		.Ellipse((x[c] - ScrollArea1.ScrollX) - 5, (y[c] - ScrollArea1.ScrollY) - 5, 9, 9)
	.Stroke		.Stroke
	Next		Next

Vuott il 23:24, 28 ott 2021

2021-10-28T23:24:08Z

← Versione meno recente		Versione delle 17:24, 28 ott 2021
Riga 52:		Riga 52:
	.LineWidth = 3.0		.LineWidth = 3.0
	.Translate(-ScrollArea1.ScrollX, -ScrollArea1.ScrollY)		.Translate(-ScrollArea1.ScrollX, -ScrollArea1.ScrollY)
	.Ellipse(x - 5, y - 5, 10, 10)		.Ellipse(x - 5, y - 5, 9, 9)
	.Stroke		.Stroke
	.End		.End
Riga 94:		Riga 94:
	.Brush = Paint.Color(Color.Red)		.Brush = Paint.Color(Color.Red)
	.LineWidth = 3.0		.LineWidth = 3.0
	.Ellipse((x[c] - ScrollArea1.ScrollX) - 5, (y[c] - ScrollArea1.ScrollY) - 5, 10, 10)		.Ellipse((x[c] - ScrollArea1.ScrollX) - 5, (y[c] - ScrollArea1.ScrollY) - 5, 9, 9)
	.Stroke		.Stroke
	Next		Next
Riga 142:		Riga 142:
	.Brush = Paint.Color(Color.Red)		.Brush = Paint.Color(Color.Red)
	.LineWidth = 3.0		.LineWidth = 3.0
	.Ellipse((x[c] - ScrollArea1.ScrollX) - 5, (y[c] - ScrollArea1.ScrollY) - 5, 10, 10)		.Ellipse((x[c] - ScrollArea1.ScrollX) - 5, (y[c] - ScrollArea1.ScrollY) - 5, 9, 9,)
	.Stroke		.Stroke
	Next		Next

Vuott il 01:44, 27 ott 2021

2021-10-27T01:44:21Z

← Versione meno recente		Versione delle 19:44, 26 ott 2021
Riga 145:		Riga 145:
	.Stroke		.Stroke
	Next		Next
	If bo Then <FONT Color=gray>' ''Impedisce che siano incontrollatamente disegnati cerchi ad ogni "scroll" della "ScrollArea:''</font>		<FONT Color=gray>' ''Consente di accedere al codice seguente solo se si è cliccato sulla "ScrollArea" per creare un cerchio:''</font>
	~~bo = False~~		If bo Then
			bo = False <FONT Color=gray>' ''Impedisce che siano incontrollatamente disegnati cerchi ad ogni "scroll" della "ScrollArea:''</font>
	.Begin(modifica)		.Begin(modifica)
	<FONT Color=gray>' ''Disegna nella immagine, che sarà poi salvata, i cerchi sinora già impostati:''</font>		<FONT Color=gray>' ''Disegna nella immagine, che sarà poi salvata, i cerchi sinora già impostati:''</font>
Riga 155:		Riga 156:
	.Stroke		.Stroke
	Next		Next
	<FONT Color=gray>' ''~~Salva~~ immediatamente in un file .png l'immagine come sinora modificata:''</font>		<FONT Color=gray>' ''Solo dopo il clic del mouse salva immediatamente in un file .png l'immagine come sinora modificata:''</font>
	modifica.Save("/tmp/immagine_modificata.png", 100)		modifica.Save("/tmp/immagine_modificata.png", 100)
	Endif		Endif

Vuott il 01:39, 27 ott 2021

2021-10-27T01:39:17Z

← Versione meno recente		Versione delle 19:39, 26 ott 2021
Riga 155:		Riga 155:
	.Stroke		.Stroke
	Next		Next
	<FONT Color=gray>' ''Salva in un file .png l'immagine come sinora modificata:''</font>		<FONT Color=gray>' ''Salva immediatamente in un file .png l'immagine come sinora modificata:''</font>
	modifica.Save("/tmp/immagine_modificata.png", 100)		modifica.Save("/tmp/immagine_modificata.png", 100)
	Endif		Endif

Vuott il 01:36, 27 ott 2021

2021-10-27T01:36:19Z

@@ Riga 6: / Riga 6: @@
-Mostriamo un esempio pratico:
+Mostriamo un semplice esempio pratico:
   '''Public''' Sub Form_Open()
@@ Riga 30: / Riga 30: @@
   '''End'''
+===Disegnare cerchi===
 In quest'altro esempio, cliccando sulla "ScrollArea", si disegnerà ogni volta un nuovo cerchio, che così apparirà posto al di sopra dell'immagine caricata.
   Private im As Image
@@ Riga 67: / Riga 67: @@
   '''End'''
 Di seguito un codice simile al precedente, ma in questo caso i cerchi disegnati saranno conservati e continueranno ad essere mostrati nel punto dell'immagine ove furono posti.
   Private im As Image
@@ Riga 106: / Riga 108: @@
    x.Push(Mouse.X + ScrollArea1.ScrollX)
    y.Push(Mouse.Y + ScrollArea1.ScrollY)
    ScrollArea1.Refresh
   '''End'''