Search found 132 matches

by PJBlack
Monday 10th May 2021 2:29pm
Forum: General
Topic: Automatic change of Row Height with WordWrap ?
Replies: 8
Views: 126

Re: Automatic change of Row Height with WordWrap ?

for me RichTextSize works perfect with qt4 qt5 gtk2 gtk3 ...

if you want to use Font.RichTextSize("BlahBlubb") you need an object too ->
SomeObjectWithFontProperty.Font.RichTextSize("BlahBlubb")
or you can do like
Dim Test as New Font
Test.Font.RichTextSize("BlahBlubb")
by PJBlack
Monday 03rd May 2021 10:59am
Forum: General
Topic: gb.desktop.x11
Replies: 14
Views: 362

Re: gb.desktop.x11

charlie, for me it works with:

Gambas=3.16.90 f524a2eb9 (master)
OperatingSystem=Linux
Kernel=5.10.32-1-MANJARO
Architecture=x86_64
Distribution=Manjaro Linux
Desktop=XFCE
by PJBlack
Friday 30th April 2021 11:00am
Forum: General
Topic: [Solved] Send ESC/PoS To the Printer
Replies: 4
Views: 177

Re: Send ESC/PoS To the Printer

in Print the ; means sending continuous the values --> &H1B -> 40 ;; means sending a space between the values --> &H1B -> &H20 -> 40 , means sending a tab between the values --> &H1B -> &H09 -> 40 and at last sign it means sending NO line feed [edited] i doubt the printer wants the ; yes ... the pri...
by PJBlack
Thursday 29th April 2021 9:01pm
Forum: General
Topic: [Solved] Send ESC/PoS To the Printer
Replies: 4
Views: 177

Re: Send ESC/PoS To the Printer

WIKI says: Chr : This function only deals with ASCII characters (they start with &H20/32) Print : The expressions are converted to strings by the Str$ function . you can either use Dim sOut as String =Str(&H1B) & Str(40) Print #1, sOut or Print #1, &H1B; 40; etc. or Print #1, Str(&H1B); Str(40); etc...
by PJBlack
Wednesday 28th April 2021 4:28pm
Forum: Web
Topic: How to show image in WebImage on Gambas3
Replies: 5
Views: 267

Re: How to show image in WebImage on Gambas3

when i read the post for the first time, a keyword spontaneously came to my mind: cross site scripting ... so i would not be sure that the access outside the document root is possible ... but i don't know exactly. :( maybe you have to copy/move the image file manually via shell/exec into a folder in...
by PJBlack
Saturday 24th April 2021 11:01am
Forum: Lounge
Topic: The "Why I use {distro name} Linux" thread
Replies: 10
Views: 692

Re: The "Why I use {distro name} Linux" thread

stevedee wrote:
Saturday 24th April 2021 10:38am
some say I'm yet to make a start!
on that point i disagree
by PJBlack
Saturday 24th April 2021 9:50am
Forum: Lounge
Topic: The "Why I use {distro name} Linux" thread
Replies: 10
Views: 692

Re: The "Why I use {distro name} Linux" thread

I was wishing Benoit would see the importance of non-programmer users being able to update. reading this sentence i asked myself why should a non-programmer deal with a programming language? furthermore i dare to say that a linux user (even today) should at least have heard of configure, make, make...
by PJBlack
Wednesday 21st April 2021 3:10pm
Forum: Component
Topic: Vector graphics support ?
Replies: 14
Views: 631

Re: Vector graphics support ?

have had the same problem with picturebox ... picture inverse und form black on black ... problem was solved by creating a new form ...
by PJBlack
Tuesday 20th April 2021 2:04am
Forum: General
Topic: [Solved] Advice 0n converting this VB code
Replies: 7
Views: 326

Re: Advice 0n converting this VB code

reduced to max ... '' Modulo10 Prüfziffernberchnung für u.a. EAN13 Barcodes Public Function CheckDigit(sBarcode As String) As String Dim iTotalOdd, iTotalEven, iTotal As Integer For i As Integer = 1 To Len(Trim(sBarcode)) Step 2 iTotalOdd += Val(String.Mid(sBarcode, i, 1)) iTotalEven += Val(String.M...
by PJBlack
Monday 19th April 2021 9:24pm
Forum: General
Topic: [Solved] Advice 0n converting this VB code
Replies: 7
Views: 326

Re: Advice 0n converting this VB code

EDIT: changed to another version ' Gambas module file Public Sub main() Print Test(4711) End Public Function test(sBarcode As String) As String Dim iTotalOdd As Integer = 0 Dim iTotalEven As Integer = 0 Dim sTotal As String Dim iBarcodeLocal As Integer Dim sBarcodeNumberInHouse As String For i As In...