Een APP waarvan je in de IDE een .tar.gz package gemaakt hebt kan je kopieren en op de bestemming uitpakken en compileren tot een .gambas programma (dat gedraaid kan worden mits de gambas3 runtime aanwezig is)

tar -xzvf APP.tar.gz
cd APP
gbc3 -a
gba3 -o ./../APP.gambas

In een bepaalde combinatie van Gambas en KDE krijg ik een raar effect als ik een tekst toewijs aan een button en daarna daaruit haal voor een tekstveld.

Er komt een ampersand voor, en eigenaardig genoeg, soms zelfs tussen de letters.

Bv een form met een paar buttons en labels:

Public Sub Form_Open()
Button0.Text = "Button0"
Button0.Tag = "Button0"
End

klik op een knop en ..

Public Sub Button0_Click()
Label1.Text = Button0.Text ' this gets & in front
Label2.Text = Button0.Tag ' this works ok
End

De tekst krijgt een & teken vooraan: “&Button0”.

Omstandigheden:
(see system information at bottom of post)

Gambas 3.10 + KDE5 (GB_GUI: gb.qt5)
Components: gb, gb.form, gb.gui, gb.image
OpenSUSE Leap 42.2

Komt voor sinds ongeveer midden november of zo.
Niet op oudere gambas versie als 3.7.1 op opensuse 13.1/KDE 4.

Ik hoopte dat het een van de dagen zou verdwijnen met een update, maar tot nu toe nog niets.

Upd: Alt-letter
Op de gambasuser mailinglist merkte iemand op dat de ampersand duidt op de “shortcut”, de lettercombinatie die gebruikt kan worden om een knop te bedienen zonder muis; bv Alt-B. De ampersand duikt op waar de “aktieve” letter zit voor de knop.
Je kan dit zien door de alt knop in te duwen; dan komen zowel bij de menu’s als bij de knoppen sommige letters onderlijnd staan.

System Information:

Continue reading →

Printen in Gambas3 gaat een beetje anders dan printen in Gambas2.

upd jan 2018: zie ook printen in Gambas 3.9 (ev); vanaf 3.4 is Draw verouderd

Voor Gambas3 vind je documentatie op gambaswiki.org/wiki/howto/print

Je gebruikt de Klasse “Printer” om je eigen object van te maken.
Zoals je ziet gebeurt het eigenlijke werk in de _Draw() event:

Public MyPrinter AS Printer
'
..
'
MyPrinter = New Printer As "MyPrinter"
'
With MyPrinter
.Orientation = Printer.Portrait
.Paper = Printer.A4
.FirstPage = 0
End With
'
IF Not MyPrinter.Configure() ' toont een printkeuzebox aan gebruiker
  MyPrinter.Print() ' maakt alle stappen _Begin, (_Paginate), _Draw, _End
Endif
'
Public Sub MyPrinter_Begin()
  '  
  MyPrinter.Count = iPageCount
  '
End

' Public Sub MyPrinter_Paginate()
'   
'   (nog uitzoeken)
'   
' End

Public Sub MyPrinter_Draw()
  '
  Draw.FillColor = Color.Black
  Draw.Foreground = Color.Black
  Draw.Rect(20, 20, 100, 100)
  Draw.Text("ABCDEIFGQEFSDJFKLQ3", 100, 100)
  '
End

Public Sub MyPrinter_End()
  '
  Message.Info("Printed " & iPageCount & " page(s) ")
  '
End
'

ps: misschien komt het vierkantje in de hoek niet goed door, dan moet je de lijn wat dikker zetten, standaard staat ze nogal dun merk ik.

Let verder op de beschikbare bladspiegel; die is normaal kleiner dan het papierformaat (marges door beperking printer).

Printer.FullPage
De rechthoek om in te printen begint bij 0,0.
Je moet gebruikers de kans geven om te finetunen.

Afmetingen in mm opvragen kan met:
Printer.PaperWidth
Printer.PaperHeight

Paint.Scale laat je toe mm te gebruiken:

Paint.Scale(Paint.Width / MyPrinter.PaperWidth, Paint.Height / MyPrinter.PaperHeight)

Paint.Font.Size geeft de absolute lettergrootte in typografische punten, ong 0.353 mm.

Ps: merk op dat de printerresolutie verschilt van (meestal groter is dan) de schermresolutie.

Kijk ook naar Paint.Scale, Paint.Translate, Paint.Rotate, …

Als ik een tabel op het scherm zet (in de vorm van gridview, tableview, ..) ga ik ze meestal eerst initialiseren.

Bij het openen van het scherm Form_Open() roep ik de initialisatieprocedures aan, wat overzichtelijk is:

Public Sub Form_Open()
'
initGridImport()
init...
'
End

En als je later in je toepassing nieuwe inhoud moet weergeven kan je de init terug aanroepen om zeker te zijn dat alle vorige weergave weg is en de tabel terug goedstaat.

Ook de naamgeving van de kolomtitels of hoofden kan je in die init doen, dan vind je ze ook gemakkelijk terug. Ik ben onlangs begonnen met de kolomtitels omgekeerd te vullen zodat
– het aantal kolommen en de invulling ervan op een overzichtelijke manier aftelt; een anomalie valt sneller op.
– het gemakkelijker is er één toe te voegen nadien; bovenaan waar je het aantal wijzigt heb je onmiddellijk eronder de nieuwe kolomtitel.

Public Sub initGridImport()
' shows imported record id's and values
grvwImported.Header = GridView.Horizontal
grvwImported.Columns.Count = 4
grvwImported.Columns[3].Text = "values"
grvwImported.Columns[2].Text = "col-id"
grvwImported.Columns[1].Text = "ref-id"
grvwImported.Columns[0].Text = "id"
'
End

En onmiddellijk de kolombreedte is handig omdat je daar weet over welke kolommen het gaat:

grvwImported.Columns[3].Text = "values"
grvwImported.Columns[3].Width = 120


Het instellen van het aantal rijen kan je er ook doen, maar dikwijls zal je dat herhalen bij het hervullen, wat niet moet voor bv de kolomtitels.
grvwImported.Rows.Count = 0
' etc...

Misschien maak je een resetGridImport() waar dat inkomt.

In Gambas3 is een rapportgenerator of “reportdesigner” beschikbaar, waarmee je snel een af te drukken rapport (één of meer blz) mee kan maken, en eerst in preview kan bekijken.

(zie ook “Rapportgenerator 2 : Rapport met velden uit een databank“)

De component
Menu project, properties, Components: gb.report2
(ik heb hier in mijn omstandigheden ook gb.form, gb.gui en gb.image aangevinkt staan)

Gevolg hiervan is dat je een extra menu-item krijgt bij het aanmaken van een nieuw “source” object naast Module, Class en Form. In de linkse kolom bij je project bestanden-overzicht klik je rechts (bv op sources), en je ziet onderaan nu een nieuw item “Report” met printericoon. Als je dat aanklikt krijg je een “New File” met te kiezen/in te vullen naam (standaard “Report1”).
Je krijgt dan een tab met Report1.report.

Rapport vullen
Je kan op de rapport-layout elementen zetten die je kiest onderaan uit een menu: bv ReportLabel, ReportTextLabel, ReportLine, ReportImage, ReportSVGImage, ReportDrawingArea, enz. Je kan ze vullen met inhoud (tekst, beeld), en de eigenschappen wijzigen zoals een rand eromheen, schaduw, achtergrondkleur, je kan afgeronde hoeken maken, enz.

Voor de plaatsing op het scherm moet je bij elk object zelf de eigenschap van marges invullen. Een object dat in het midden staat kan je laten uitdijen om het blad te vullen door de eigenschap “Expand” op TRUE te zetten; het duwt dan de acherliggende objecten naar beneden.

Run
Normaal heb je een klasse “FMain”, de Form die standaard gestart wordt; je kan daar in de broncode zetten:

Public Sub Form_Open()
  Report1.Preview()
End

Bekijken
Als je links op je Source “Report1” rechtslikt, kan je “run that class” kiezen, waarna je een voorbeeld krijgt van hoe het rapport eruitziet, zonder je hele programma te starten. Deze Report Preview laat nog toe zaken te kiezen als de printer waar het naartoe moet, de orientatie, formaat, enz.
Ook of het in grijswaarden gedrukt wordt of in kleur (Grayscale afvinken). En het aantal kopies. Om effectief iets te laten gebeuren als je op de onderste “Print” knop duwt, moet je ook het bereik (“Range”) op minstens 1 zetten.

Extra knop
Aangezien je tijdens het maken van zo’n print-layout waarschijnlijk dikwijls gaat kijken naar het voorbeeld, is het handig om de “run that class” onder een knop te hebben in de report designer. Dat kan; rechtsklik op de knoppenbalk van de reportdesigner en kies “Configure”; Je krijgt de “form toolbar configuration” en daar sleep je de “Run that class” knop naar de knoppenbalk; hij krijgt een “run” achtig icoon.

Bestand
In datzelfde preview scherm kan je ook bovenaan het tabblad veranderen van “Printer” naar “File”, waarmee de bestandsnaamkeuze zichtbaar wordt, en het bij “Print” als pdf bestand bewaard wordt.

Demo
Als je dit alles in sneltreinvaart wil zien demonstreren, kijk dan naar dit filmpje van Fabien Bodard: (muiscursor op de pauzeknop klaarhouden …)
https://www.youtube.com/watch?v=h1yUhcoErjs

Na een update van een record in de databank via Gambas3 code, krijg ik in een aantal velden getallen als 101, 102, 103, 104.

• De velden zijn niet opeenvolgend.
• De velden zijn zowel van het type tekst al long.
• De velden krijgen data uit de Gambas3 applicatie met standin &1, &2 enz.
• Aanroep databank gebeurt met hconData.Exec(sSql, id, name, remark, ..) ; de te vervangen datavelden.
• Ik heb dit verschijnsel niet gezien in gambas2, het komt wel voor in de twee versies van gambas3 die ik bij de hand heb: 3.9.2 en 3.7.1

Het is me niet duidelijk waar de ingevulde getallen vandaan komen, maar ze hebben wel exact hetzelfde begin als de toegekende id!
Bv
id is 9 –> velden worden 90, 91, 92, …
id is 10 –> velden worden 100, 101, 102, …

De id wordt gebruikt in het statement dat de update doet.
Het lijkt alsof in de sequentie ” veldG=&10, veldH=&11, veldI=&12 ” de &1 onmiddellijk ingevuld wordt (en daarin wordt net die id gegeven), en de rest van het getal er gewoon aangeplakt wordt.

In mijn geval werd in &1 de record id gegeven waarop het record geselecteerd wordt:
… WHERE id =&1

Oplossing:
In de reeks “it’s not a bug, it’s a feature”:
http://gambaswiki.org/wiki/doc/gb2togb3

Blijkbkaar is het vanaf Gambas versie 3 nodig om de parameters boven 9 tussen accolades te zetten:

SQL errors with database methods Arguments of DB.Exec() and DB.Subst() above nine now must be enclosed with {} now.

Dus de parameters boven 9 moeten speciaal aangeduid worden:

veldG=&{10}, veldH=&{11}, veldI=&{12}

Of zoals in de wiki:

MyConnection.Exec("UPDATE devices "
"SET name = &1, module = &2, "
"interface = &3, address = &4, "
"location = &5, label = &6, "
"label2 = &7, label3 = &8, "
"value = &9, officon = &{10}, "
"onicon = &{11}")