PureBasic Forums - English

"Constant not found: #GENERIC_WRITE" error is because there are no residents with that constant in free version. So PureUnit will not work there.

jacdelad wrote: Wed Mar 08, 2023 8:37 am where can I download the most recent version of PureUnit?

I'm trying to "ride a horse" for the n'th time and downloaded Free PB from purebasic site. Installation includes PureUnit, as I understand - latest version. Now it is 1.3. (Look at SDK\PureUnit)

Z:\PB\SDK\PureUnit\PureUnitGui.exe --compiler Z:\PB\Compilers\pbcompiler.exe --gui Z:\PB\_Projects\PureUnit_Main_File.pb throws the same error:

Using compiler: PureBasic 6.01 LTS (Windows - x86)

Preparing file: ..\..\_Projects\PureUnit_Main_File.pb
Compiling with: (no parameters)

File ...

PureUnit_Main_File.pb:

EnableExplicit
XIncludeFile "PureUnit_Include.pbi"
PureUnitOptions(Thread)
ProcedureUnit My_Library()
Assert(#True = #True, "This should pass.")
EndProcedureUnit

OpenConsole()
PrintN("PrintN 0: Test. Press Any Key to Exit")
Debug("Debug 0: Test. Press Any Key to Exit ...

Hi guys.

Trying to understand how to use PureUnit 1.3 and stuck.

Added to instruments:
"1. PureUnit on compile/run", path\PureUnitGui.exe, "%FILE" --gui --verbose, "Before compilation/run", no checkboxes or "use for main code";
"2. PureUnit on save", path\PureUnitGui.exe, "%FILE" --gui --verbose ...

jacdelad wrote: Fri Nov 25, 2022 7:32 am The link in the first post doesn't work anymore, is it still available somewhere?

Same question.

You define MyParam as a variable, not a structure.

Yep, found it when tested:
Debug "21-01. " + Defined(MyParam, #PB_Constant)
Debug "21-02. " + Defined(MyParam, #PB_Variable)
Debug "21-03. " + Defined(MyParam, #PB_Array)
Debug "21-04. " + Defined(MyParam, #PB_Structure)
Debug "21-05 ...

Ok, maybe I asked wrong.
How can I understand that MyParam is Defined? Not MyStruct.
After Define MyParam.MyStruct Defined() is always answers False.
TypeOf() MyParam and MyStruct tells that both of them are Structure. (03-1, 03-2, 04).

And question about If or CompilerIf is still bothering me. Why ...

Hi guys.
Can't make it work :(
I want to check if procedure/variable/constant/etc is defined or not and when not defined then include according file(s).
There is no difference if I use XIncludeFile/IncludeFile or replace it by Define MyParam.MyStruct/Global MyParam.MyStruct.
And which metod is ...

Marc56us wrote:I suggested a native function.

+1

bbanelli, did you saw how did escape-sequences colorising in TextGadgetEx? And which gadget is used there?
Very interested how it is done, especially because it has only one #id for this extenвed text gadget to compose/colorise/multiline

EnableExplicit/declaration fixed. lpSize.??? = lpSize.SIZE - this structure declared in PB by default.
Detecting size of the chars fixed. Problem in default fonts. When using TextGadget - PB uses one font. When using StartDrawing - another. So we need to get default font for window and set it as ...

http://savepic.su/6065036.png

STYLE\CodeFontName = "Courier, 'Courier New', sans-serif"
STYLE\CodeFontColor = $006600
STYLE\CodeFontSize = 11
STYLE\CodeAddBackgroundColor = $8AFF8A
STYLE\CodeAddFontName = "Courier, 'Courier New', sans-serif"
STYLE\CodeAddFontColor = $000000
STYLE ...

Compiling in unicode did not fixed font.
I didn't used hv before (just find this tool a 1-2 weeks ago) but if i wish to use it now - it's unusable because of this.
So this is font problem, not unicode/non-unicode compilation, as i suggested in my previous message.

Weird... i am very new to PB, so may not understand too many things...

;EnableExplicit

Enumeration
#Str_1
#Info_1
#Str_2
#Info_2
EndEnumeration

; WinAPI size detection:
Procedure.u GetTextPixData_1(id.l, size.a)
; Protected hDC.l, hFont.l, result.u, lpSize.???
hDC = GetDC_(GadgetID(id ...