Gambas France BETA


Pas de compte ? Incription

Imprimer TexteAera et PictureBox

123
AuteurMessages
taoteblues#16 Posté le 27/4/2010 à 01:07:00
Chers amis,

Je passerai à la version 3 quand elle deviendra la version officielle.
Pour le moment nous sommes toujours à la version 2 et le site de Spheris traite principalement de la version 2.

Je vais donc envoyer à notre ami, un petit exemple d'impression d'une TextArea et d'une PictureBox sur la même page d'impression.

Amitiés
taoteblues
gambix#17 Posté le 27/4/2010 à 08:08:00
Faire simple !Disons que l'on est tellement près de cette échéance que , que ce soit Benoit ou moi même, on a de relativement grande difficulté a se souvenir des trucs et astuce de la v2 .. je te raconte pas quand c'est un type qui se ramène a moi avec une v1 :)

sinon pour utiliser gb.report en v2 normalement :


DIM hCont AS ReportHBox
DIM vCont AS ReportVBox
DIM txt AS ReportLabel
DIM spetxt AS ReportSpecialField
DIM img AS ReportImage
DIM i, j AS Integer
DIM hCont2 AS ReportContainer
DIM vRef AS ReportVBox
DIM vDes AS ReportVBox
DIM vPU AS ReportVBox
DIM vQt AS ReportVBox
DIM vTot AS ReportVBox
DIM fPrix AS Float
DIM qte AS Integer

'hc = NEW Report(NULL)
'Marges



Report.Resolution = Desktop.Resolution
report.size = "A4"
report.orientation = report.Portrait
'Report.Units = Units.cm
Report.Padding = "1 cm"
Object.Attach(report, ME, "Report")
Report.Spacing = "0.2 cm"
Report.LineStyle = line.Solid
Report.Tag = "Report"
'Entete

hCont = NEW ReportHBox(Report)
hCont.Height = "3 cm"
img = NEW ReportImage(hCont)
img.Path = "new-logo.png"
img.Width = "3 cm"
'img.Height = "3 cm"
img.Tag = "Image"

txt = NEW ReportLabel(hcont)
txt.Text = "Gambas Facture"
txt.Alignment = Align.Center
txt.Font = Font["32"]
txt.Expand = TRUE
txt.Tag = "Titre"

hCont = NEW ReportHBox(Report)
hCont.Height = "5 cm"
'
vCont = NEW ReportVBox(hCont)
vCont.Expand = TRUE
vCont = NEW ReportVBox(hCont)
vCont.Width = "10 cm"
vCont.Tag = "Container adresse"

txt = NEW ReportLabel(vCont)
txt.Text = "Gambas & Co"
txt.Font.Size = "12 cm"
txt.Font.Bold = TRUE

txt = NEW ReportLabel(vCont)
txt.Text = "This Street"
txt.Font.Size = "12 cm"
txt.Font.Bold = TRUE

txt = NEW ReportLabel(vCont)
txt.Text = "A City in France"
txt.Font.Size = "12 cm"
txt.Font.Bold = TRUE
'
txt = NEW ReportLabel(vCont)
txt.Text = "Tel/Fax: 00 000 000 000"
txt.Font.Size = "12 cm"
txt.Font.Bold = TRUE
'
vCont = NEW ReportVBox(Report)
vcont.Height = "2 cm"
vCont.Tag = "Container n°fact/client"

txt = NEW ReportLabel(vCont)
txt.Text = "Client N° 0001"

txt = NEW ReportLabel(vCont)
txt.Text = "Facture N° 0001"

' vCont = NEW ReportVBox(Report)
' vCont.Height = "2 cm"
' vCont.Tag = "Container vide d'espacement"

hCont = NEW ReportHBox(Report)
hCont.Expand = TRUE
hCont.Spacing = "0.05 cm"
hCont.Height = "10 cm"

vCont = NEW ReportVBox(hCont)
vCont.Width = "4.5 cm"
'vCont.LineStyle = line.Solid
'vCont.ForeColor = color.Red
'vCont.FillStyle = Fill.Solid
'vCont.FillColor = color.Red
'vCont.BackColor = color.Red
vCont.Spacing = "0.05 cm"
vCont.Tag = "Container De colonne Ref"

txt = NEW ReportLabel(vCont)
txt.Text = "Ref"
txt.Alignment = Align.Center
txt.Font.Italic = TRUE


'txt.Width = 2
txt.LineStyle = line.Solid
txt.FillColor = Color.LightGray
'txt.FillStyle = fill.Solid

vRef = NEW ReportVBox(vCont)
vRef.Expand = TRUE

' vRef = NEW ReportVBox(vcont)
vRef.LineStyle = line.Solid
vRef.Padding = "0.1 cm"
vRef.Spacing = "0.1 cm"
'vRef.Height = 5
vRef.Tag = "Reference"
VRef.Tag = "Container de donnée de ref"

vCont = NEW ReportVBox(hCont)
VcONT.Expand = TRUE
vCont.Spacing = "0.05 cm"
'
txt = NEW ReportLabel(vCont)
txt.Text = "Designation"
txt.Alignment = Align.Center
txt.Font.Italic = TRUE
txt.LineStyle = line.Solid
txt.FillColor = Color.LightGray
txt.FillStyle = fill.Solid

vDes = NEW ReportVBox(vCont)
vDes.Expand = TRUE
vDes.LineStyle = line.Solid
vDes.Padding = "0.1 cm"
vDes.Spacing = "0.1 cm"
vDes.Tag = "* des"

vCont = NEW ReportVBox(hCont)
vCont.Width = "2.5 cm"
vCont.Spacing = "0.05 cm"

txt = NEW ReportLabel(vCont)
txt.Text = "Quantitée"
txt.Alignment = Align.Center
txt.Font.Italic = TRUE
'txt.Width = "3,5 cm"
txt.LineStyle = line.Solid
txt.FillColor = Color.LightGray
txt.FillStyle = fill.Solid

vQt = NEW ReportVBox(vCont)
vQt.Expand = TRUE
vQt.LineStyle = line.Solid
vQt.Padding = "0.1 cm"
vQt.Spacing = "0.1 cm"
vQt.Tag = "* Qt"
vCont = NEW ReportVBox(hCont)
vCont.Width = "2.5 cm"
vCont.Spacing = "0.05 cm"

txt = NEW ReportLabel(vCont)
txt.Text = "Prix Unitaire"
txt.Alignment = Align.Center
txt.Font.Italic = TRUE
'txt.Width = "3,5 cm"
txt.LineStyle = line.Solid
txt.FillColor = Color.LightGray
txt.FillStyle = fill.Solid

vPU = NEW ReportVBox(vCont)
vPU.Expand = TRUE
vPU.LineStyle = line.Solid
vPu.Padding = "0.1 cm"
vPU.Spacing = "0.1 cm"

vCont = NEW ReportVBox(hCont)
vCont.Width = "2.5 cm"
vCont.Spacing = "0.05 cm"

txt = NEW ReportLabel(vCont)
txt.Text = "Prix HT"
txt.Alignment = Align.Center
txt.Font.Italic = TRUE
'txt.Width = "3,5 cm"
txt.LineStyle = line.Solid
txt.FillColor = Color.LightGray
txt.FillStyle = fill.Solid

vTot = NEW ReportVBox(vCont)
vTot.Expand = TRUE
vTot.LineStyle = line.Solid
vTot.Padding = "0.1 cm"
vTot.Spacing = "0.1 cm"
vTot.Tag = "Total"

hCont = NEW ReportHBox(Report)
hCont.Height = "1 cm"
hCont.FillColor = Color.LightGray
hCont.LineStyle = line.Solid
hCont.Tag = "Container de total"

spetxt = NEW ReportSpecialField(hCont)
spetxt.Text = "Bas de facture $PAGE/$NPAGE"
spetxt.Expand = TRUE
spetxt.Alignment = Align.Center

FOR i = 1 TO 50

txt = NEW ReportLabel(vRef)
txt.Alignment = Align.Right
txt.Text = i

txt = NEW ReportLabel(vDes)
txt.Text = "Ma designation"
txt.Alignment = Align.Left
txt = NEW ReportLabel(vQt)
qte = Rnd(1, 10)
txt.text = qte
txt.Alignment = Align.Right

txt = NEW ReportLabel(vPU)
fPrix = Round(Rnd(1, 100), -2)
txt.text = fPrix
txt.Alignment = Align.Right

txt = NEW ReportLabel(vTot)
txt.text = Str(qte * fPrix) & " €"
txt.Alignment = Align.Right


NEXT



'Printer.File = hTemp
Printer.Size = report.Size
Printer.Orientation = report.Orientation

report.Resolution = printer.Resolution
Draw.Begin(Printer)

Report.Layout
Message(Report.count)
FOR i = 1 TO Report.count

Report.Draw(i)

IF i < Report.count THEN Printer.NewPage()

NEXT

Draw.End







END
Moins de texte dans une signature c'est agrandir son espace.
gambix#18 Posté le 27/4/2010 à 08:10:00
Faire simple !ceci ne fonctionnera absolument pas avec la V3 sachant que tout le processus d'impression a changé et la classe report a été entièrement redessinnée

la bonne nouvelle c'est que sous gb3 ça fonctionne sous kde et gtk ... voir même sans les deux ... merci cairo (sauf pour imprimer)
Moins de texte dans une signature c'est agrandir son espace.
taoteblues#19 Posté le 27/4/2010 à 09:24:00
Chers amis,

Je vous envoie un exemple pour Gambas2 utilisant le WebBrowser et du code HTML.

Amitiés
taoteblues
gambix#20 Posté le 27/4/2010 à 09:43:00
Faire simple !taoteblue dépose le donc sur gambasforge s'il te plait... et pense bien a indiquer la version gambas !

ensuite tu lie le projet ici en donnant son url :

http://gambasforge.org?section=code&sub=detail&id=..

Gambasorge va servir a cela ... partager du code , des tpis, des idées, il y a même la colorisation syntaxique gambasienne :)

Tu n'a qu'a mettre ce code dans la section Impression

merci
Moins de texte dans une signature c'est agrandir son espace.
spheris#21 Posté le 27/4/2010 à 14:51:00
Oui mais malheureusement GB3 n'est pas dans les dépots ubuntu ni meme mandriva.
quelqu'un pour créer une .rpm ou .deb de GB3 ?
:tongue: :tongue: ;) ;)
www.gambaslinux.fr
gambix#22 Posté le 27/4/2010 à 15:36:00
Faire simple !j'ai voulu y regarder... pour ubuntu ... ben c'est une sacrée chose a fait qu'un package... Il me faudrait une ame charitable qui m'explique comment faire.

De plus il n'y aurait que la v64 car il faut une version de chaque truc... ou alors qu'il me laisse l'acces a leur truc de génération automatique chez deb et ubuntu... pacoool
Moins de texte dans une signature c'est agrandir son espace.
LanoueC#23 Posté le 27/4/2010 à 20:28:00
Bonsoir à tout le Monde

Chers amis,

Je vous envoie un exemple pour Gambas2 utilisant le WebBrowser et du code HTML.

Amitiés
taoteblues


OUI Merci d'avance Taoteblues
je suis impatiente de voir là ou je bugue dans la réalisation de cette impression

IL est vrai que le site Gambas Source Forge est super pour déposer des sources, trucs et astuces de code, afin que tout un chacun et Tous les débutants progressent avec Gambas

Il fait Beau je suppose à Tahiti ! Quelle chance !
Amitiés
spheris#24 Posté le 27/4/2010 à 20:30:00
Lanouec,
voici le lien de l'exemple de Taoteblue.
Bonne soirée
http://gambaslinux.eg2.fr/img/divers/Imprimer-0.0.2.tar.gz
;) ;)


Gambix,
Voici une tentative de paquet DEB pour ubuntu en V3.
Il me faut des beta testeurs pour voir cela fonctionne ailleurs que sur mon PC
le lien :
http://gambaslinux.eg2.fr/gambas3/trunk_2.99.0-1_i386.deb
;)
www.gambaslinux.fr
LanoueC#25 Posté le 27/4/2010 à 20:32:00
Euhhhhhhh Désolée du mélange de noms
je voulais parler du site Gambas Forge : http://gambasforge.org/cgi-bin/index.gambas pour les dépôts de code
LanoueC#26 Posté le 27/4/2010 à 20:35:00
Sphéris
C'est Super ton idée de Deb ubuntu
Mais faut il désinstaller GB2
ou peux t'on avoir CG2 et GB3 sur la même bécane?
salutations
spheris#27 Posté le 27/4/2010 à 20:35:00
Lanouec,
et en plus l'enorme avantage, c'est que gambasforge est réalisé non en PHP mais en ...Gambas version 3 !
C'est vraiment top !
;)

tu peux avoir les 2 versions si tu veux sur le même PC. les 2 sont des exécutables différents
www.gambaslinux.fr
gambix#28 Posté le 27/4/2010 à 20:47:00
Faire simple !il sera bien c'est clair ... quand j'aurait réussit a le finir :/

Mais ça avance bien :)
Moins de texte dans une signature c'est agrandir son espace.
LanoueC#29 Posté le 27/4/2010 à 21:21:00
Sphéris

J'ai installé ton DEB sur Kubuntu 9.04
A priori tout c'est bien passé

Ce que je constate :
pas de visualisation dans Synaptic
pas de visualisation dans le lanceur d'application
Ce n'est pas important puisque on peut les rajouter ensuite il me semble

Par contre pour GB3 en lui même
j'ai ouvert un projet GB2 avec ! j'aurai peut être pas dû
a priori il lui manque les composants nécessaires, j'ai quand même continué l'ouverture
Et donc les forms du projet n'apparaissent pas graphique mais en code ! si bien que lancer le projet dans Gb3 est impossible
Faut que je refasse un autre essai avec un autre projet ! car maintenant mon projet GB2 est devenu GB3 et je peux plus l'ouvrir en GB2!!!!
ouf ouf .. les sauvegardes de sources sont là


Mais encore beaucoup de merci Sphéris
Va me falloir du temps pour apprivoiser ce nouveau GB je crois !
gambix#30 Posté le 27/4/2010 à 21:39:00
Faire simple !n'essais pas d'ouvrir tes source gb2 avec gb3 enfin pour l'instant ... cette version est bugguée ... on planche la dessus ... j'ai déja eu le pb avec papy.


Donc patience :) le bug est en cour de correction
Moins de texte dans une signature c'est agrandir son espace.
123