Ottenere un'immagine del Form - Cronologia

Vuott il 22:56, 8 set 2025

2025-09-08T22:56:50Z

← Versione meno recente		Versione delle 16:56, 8 set 2025
Riga 280:		Riga 280:
	st = Memory im.Data For Write		st = Memory im.Data For Write

	For i = 0 To im.W * im.H * im.Depth / 8		For i = 0 To im.W * im.H * (im.Depth / 8)
	Write #st, Byte@(xi.data + i) As Byte		Write #st, Byte@(xi.data + i) As Byte
	Next		Next

Vuott il 22:55, 8 set 2025

2025-09-08T22:55:58Z

← Versione meno recente		Versione delle 16:55, 8 set 2025
Riga 280:		Riga 280:
	st = Memory im.Data For Write		st = Memory im.Data For Write

	For i = 0 To im.W * im.H * ~~Len(~~im.~~Format)~~		For i = 0 To im.W * im.H * im.Depth / 8
	Write #st, Byte@(xi.data + i) As Byte		Write #st, Byte@(xi.data + i) As Byte
	Next		Next

Vuott il 22:41, 8 set 2025

2025-09-08T22:41:53Z

← Versione meno recente		Versione delle 16:41, 8 set 2025
Riga 184:		Riga 184:

	pl.Play()		pl.Play()

	~~Repeat~~
	~~Wait 0.01~~
	~~Until Right(File.Load("/tmp/immagine.png"), SizeOf(gb.Integer)) = MkInt(&826042AE)~~

	pl.Stop()		pl.Stop()

Vuott il 20:22, 8 set 2025

2025-09-08T20:22:07Z

← Versione meno recente		Versione delle 14:22, 8 set 2025
Riga 405:		Riga 405:
	L'uso delle risorse delle librerie esterne ''X11'' e ''ImLib2'' richiede nel codice Gambas la dichiarazione delle seguenti librerie dinamiche condivise:		L'uso delle risorse delle librerie esterne ''X11'' e ''ImLib2'' richiede nel codice Gambas la dichiarazione delle seguenti librerie dinamiche condivise:
	* "''libX11.so.6.4.0'' "		* "''libX11.so.6.4.0'' "
	* "''libImlib2.so.1.12.3'' "		* "''libImlib2.so.1.12.5'' "

	Mostriamo di seguito un semplice esempio analogo a quelli precedentemente visti:		Mostriamo di seguito un semplice esempio analogo a quelli precedentemente visti:
Riga 458:		Riga 458:


	Library "<FONT Color=red>libImlib2:1.12.3</font>"		Library "<FONT Color=red>libImlib2:1.12.5</font>"

	<FONT Color=gray>' ''Imlib_Image imlib_create_image_using_data(int width, int height, DATA32 * data)''		<FONT Color=gray>' ''Imlib_Image imlib_create_image_using_data(int width, int height, DATA32 * data)''

Vuott il 00:14, 19 ott 2024

2024-10-19T00:14:32Z

← Versione meno recente		Versione delle 18:14, 18 ott 2024
Riga 506:		Riga 506:

	<FONT Color=gray>' ''L'immagine creata viene salvata in un file immagine.''		<FONT Color=gray>' ''L'immagine creata viene salvata in un file immagine.''
	' ''Al nome del file immagine da creare va indicata l'estensione del formato immagine desiderato:''</font>		' '''''Al nome del file immagine da creare va indicata l'estensione del formato immagine desiderato:'''''</font>
	imlib_save_image("<FONT Color=darkgreen>''/tmp/test.'''XXX'''''</font>")		imlib_save_image("<FONT Color=darkgreen>''/tmp/test.'''XXX'''''</font>")

Vuott il 00:13, 19 ott 2024

2024-10-19T00:13:49Z

← Versione meno recente		Versione delle 18:13, 18 ott 2024
Riga 405:		Riga 405:
	L'uso delle risorse delle librerie esterne ''X11'' e ''ImLib2'' richiede nel codice Gambas la dichiarazione delle seguenti librerie dinamiche condivise:		L'uso delle risorse delle librerie esterne ''X11'' e ''ImLib2'' richiede nel codice Gambas la dichiarazione delle seguenti librerie dinamiche condivise:
	* "''libX11.so.6.4.0'' "		* "''libX11.so.6.4.0'' "
	* "''libImlib2.so.1.12.2'' "		* "''libImlib2.so.1.12.3'' "

	Mostriamo di seguito un semplice esempio analogo a quelli precedentemente visti:		Mostriamo di seguito un semplice esempio analogo a quelli precedentemente visti:

Vuott il 00:13, 19 ott 2024

2024-10-19T00:13:32Z

← Versione meno recente		Versione delle 18:13, 18 ott 2024
Riga 458:		Riga 458:


	Library "<FONT Color=red>libImlib2:1.12.2</font>"		Library "<FONT Color=red>libImlib2:1.12.3</font>"

	<FONT Color=gray>' ''Imlib_Image imlib_create_image_using_data(int width, int height, DATA32 * data)''		<FONT Color=gray>' ''Imlib_Image imlib_create_image_using_data(int width, int height, DATA32 * data)''

Vuott il 12:24, 21 lug 2024

2024-07-21T12:24:23Z

← Versione meno recente		Versione delle 06:24, 21 lug 2024
Riga 1:		Riga 1:
	Per ottenere un'immagine del ''Form'', comprensivo di ogni Oggetto grafico ''figlio'' in esso contenuto, è possibile adottare ~~almeno tre~~ modalità.		Per ottenere un'immagine del ''Form'', comprensivo di ogni Oggetto grafico ''figlio'' in esso contenuto, è possibile adottare alcune modalità. <SUP>[[[#Note\|nota 1]]]</sup>


Riga 514:		Riga 514:

	End		End



			=Note=
			[1] Vedere anche la seguente pagina: [[Creare un file immagine dagli oggetti presenti in un Contenitore]]

Vuott il 00:43, 21 lug 2024

2024-07-21T00:43:58Z

← Versione meno recente		Versione delle 18:43, 20 lug 2024
Riga 3:		Riga 3:

	==Usando la Classe ''Paint''==		==Usando la Classe ''Paint''==
	Nel seguente esempio pratico si hanno sul ''Form'' (Contenitore) due ''Label'' e un ''Button''. Si intende ottenere un file immagine di quanto appare nel ''Form~~'', escludendo il ''Button~~''.		Nel seguente esempio pratico si hanno sul ''Form'' (Contenitore) due ''Label'' e un ''Button''. Si intende ottenere un file immagine di quanto appare nel ''Form''.
	Private lb1 As Label		Private lb1 As Label
	Private lb2 As Label		Private lb2 As Label

Vuott il 00:43, 21 lug 2024

2024-07-21T00:43:19Z

← Versione meno recente		Versione delle 18:43, 20 lug 2024
Riga 1:		Riga 1:
	Per ottenere un'immagine del ''Form'', comprensivo di ogni Oggetto grafico ''figlio'' in esso contenuto, è possibile adottare almeno tre modalità.		Per ottenere un'immagine del ''Form'', comprensivo di ogni Oggetto grafico ''figlio'' in esso contenuto, è possibile adottare almeno tre modalità.


			==Usando la Classe ''Paint''==
			Nel seguente esempio pratico si hanno sul ''Form'' (Contenitore) due ''Label'' e un ''Button''. Si intende ottenere un file immagine di quanto appare nel ''Form'', escludendo il ''Button''.
			Private lb1 As Label
			Private lb2 As Label
			Private Button1 As Button


			Public Sub _new()

			With Me
			.Center
			.W = 700
			.H = 600
			.Background = Color.Background
			End With
			With lb1 = New Label(Me)
			.X = 100
			.Y = 100
			.W = 100
			.H = 50
			.Background = Color.Red
			.Foreground = Color.Yellow
			.Alignment = Align.Center
			.Text = "Label rossa"
			End With
			With lb2 = New Label(Me)
			.X = 200
			.Y = 200
			.W = 100
			.H = 50
			.Background = Color.Yellow
			.Foreground = Color.Red
			.Alignment = Align.Right
			.Text = "Label gialla"
			End With
			With Button1 = New Button(Me) As "Button1"
			.W = 60
			.H = 60
			.X = Me.W - (Button1.W * 2)
			.Y = Me.H - (Button1.H * 2)
			End With

			End


			Public Sub Button1_Click()

			Dim ob As Object
			Dim im As Image

			<FONT Color=gray>' ''Si crea la superficie dell'immagine che dovrà contenere la riproduzione grafica di quanto presente sul Form:''</font>
			im = New Image(Me.W, Me.H, Me.Background, Image.Standard)

			With Paint
			.Begin(im)
			For Each ob In Me.Children
			<FONT Color=gray>' ''Il colore, con il quale saranno stampati i due oggetti "Label", lo ricaviamo dal colore di sfondo di ciascun Oggetto:''</font>
			.Brush = .Color(ob.Background)
			<FONT Color=gray>' ''Sarà stampato il contenuto presente nel rettangolo di coordinate e dimensioni uguali a quelle dell'oggetto da stampare:''</font>
			.Rectangle(ob.X, ob.Y, ob.W, ob.H)
			.Fill
			<FONT Color=gray>' ''Ora viene impostato il colore del testo:''</font>
			.Brush = .Color(ob.Foreground)
			<FONT Color=gray>' ''Viene impostato il testo con le caratteristiche originarie degli Oggetti:''</font>
			.Text(ob.Text, ob.X, ob.Y, ob.W, ob.H)
			.Fill
			Next
			.End
			End With

			im.Save("/tmp/immagine.png", 100)

			End