Search found 7925 matches

by dodicat
Mar 27, 2024 10:53
Forum: Windows
Topic: Cairo under Windows
Replies: 4
Views: 185

Re: Cairo under Windows

Hi UEZ/Roland. I'm hardly ever on the pascal forum these days, but I have the 3.2.2 compiler here. A strange thing happened here on win 11. I was messing about with UEZ's code , trying to get an opengl screen ensconced in a win32 api using a winproc function. At some stage during my tribulations I h...
by dodicat
Mar 26, 2024 13:13
Forum: Community Discussion
Topic: Freebasic 1.20.0 Development
Replies: 227
Views: 20513

Re: Freebasic 1.20.0 Development

Thanks for the link fxm.
by dodicat
Mar 26, 2024 10:59
Forum: Community Discussion
Topic: Freebasic 1.20.0 Development
Replies: 227
Views: 20513

Re: Freebasic 1.20.0 Development

I tried to force a const chr(0). Results: '#include "crt.bi" const C=!"\0" #print typeof(C) Sub memcopy(dest As Any Ptr,src As Any Ptr,count As Long) Dim As Ubyte Ptr newdst=dest Dim As Ubyte Ptr newsrc=src While count count-=1 *newdst=*newsrc newdst+=1 newsrc+=1 Wend End Sub pri...
by dodicat
Mar 26, 2024 9:23
Forum: Archive
Topic: quitting smoking app
Replies: 3
Views: 2017

Re: quitting smoking app

The best time to stop smoking is April fool's day, 1 April. I stopped 1 April 10 years ago because as you get older stopping is a life requirement. I know others who have stopped on that day. You very rarely see old people still smoking, a few yes, but these are exceptionally tough people. You will ...
by dodicat
Mar 23, 2024 12:08
Forum: Documentation
Topic: SmartPointer_UDTname_ segmentation violation
Replies: 10
Views: 367

Re: SmartPointer_UDTname_ segmentation violation

That is when you use the option -pp to isolate an error. simple example: fillmatrix.bas '#cmdline "-pp" Type Matrix Dim As Double m( Any , Any ) Declare Constructor ( ) Declare Constructor ( Byval x As Uinteger , Byval y As Uinteger ) Declare Operator Cast() As String End Type Constructor ...
by dodicat
Mar 21, 2024 0:46
Forum: General
Topic: screenres with a vertical scroll bar
Replies: 16
Views: 729

Re: screenres with a vertical scroll bar

The opengl screens are kind of bare bones, they can handle some win32 components. I have not tried scrolling though, maybe sometime. Here are a few: buttons, themes, disable fullscreen, tooltips, fonts. #include "windows.bi" #Include once "/win/commctrl.bi" #include "GL/gl.b...
by dodicat
Mar 20, 2024 11:04
Forum: Community Discussion
Topic: Bugs
Replies: 115
Views: 20841

Re: Bugs

Thank you all for looking into this byval.
Yes srvaldez, static in the sub would have been the proper way.
The last thing I would have thought of was passing a value byval to a procedure, I came across it by accident.
by dodicat
Mar 19, 2024 21:00
Forum: Sources, Examples, Tips and Tricks
Topic: Read line x from a text file
Replies: 2
Views: 150

Re: Read line x from a text file

You have added an extra line end (chr(10)) to the last line in the file in 64 bits. The last line looks strange in 32 bits. 'Coded by UEZ build 2024-03-19 beta #cmdline "-exx" #include "file.bi" Type tFile As WString * 4096 Name End Type Function FileReadLine(sFile As tFile, iLin...
by dodicat
Mar 19, 2024 10:18
Forum: Community Discussion
Topic: Bugs
Replies: 115
Views: 20841

Re: Bugs

Can somebody explain this in fb 1.10 sub test(byref s as integer ptr) print __function__,s dim as integer k s=@k end sub dim as integer g=2024 dim as integer ptr p=@g print " Original pointer value "; p test(p) print "Pointer value after sub "; p p=@g print "________________...
by dodicat
Mar 18, 2024 23:15
Forum: General
Topic: screenres with a vertical scroll bar
Replies: 16
Views: 729

Re: screenres with a vertical scroll bar

You will have to make your own scrolling mechanism for fb screens. this old code: #cmdline "-gen gcc -O 2" '============= FONTS SET UP ========================== Function Filter(Byref tim As Ulong Pointer,_ rad As Single,_ destroy As Long=1,_ fade As Long=0) As Ulong Pointer #define map(a,...
by dodicat
Mar 17, 2024 11:53
Forum: Windows
Topic: How to color text created by CreateWindowExa
Replies: 18
Views: 649

Re: How to color text created by CreateWindowExa

This should start off, only mouse directly on the scroller, I'm sure you'll find all the other options with google 'CODE BY UEZ, added some vertical scrolling #include once "windows.bi" #include "crt.bi" Dim As MSG msg ' Message variable (stores massages) Dim Shared As HWND hWndx...
by dodicat
Mar 17, 2024 2:25
Forum: Windows
Topic: How to color text created by CreateWindowExa
Replies: 18
Views: 649

Re: How to color text created by CreateWindowExa

Here is UEZ's code with scrolling (via a trackbar) 'BY UEZ with scroll added #include once "windows.bi" #Include once "/win/commctrl.bi" Dim As MSG msg ' Message variable (stores massages) Dim Shared As HWND hWndx, stc1, stc2 ,bar ' Window variable and object variables Dim As HFO...
by dodicat
Mar 17, 2024 0:41
Forum: Windows
Topic: How to color text created by CreateWindowExa
Replies: 18
Views: 649

Re: How to color text created by CreateWindowExa

But you can scroll your static windows with coloured text in the same way. In the Winproc, if you use one Case WM_VSCROLL Select Case lparam Case bar trackpos= SendMessage(bar, TBM_GETPOS, 1, 0) then use movewindow adding trackpos or a multiple of it to the y value. You'll have to juggle about with ...
by dodicat
Mar 16, 2024 23:59
Forum: Windows
Topic: How to color text created by CreateWindowExa
Replies: 18
Views: 649

Re: How to color text created by CreateWindowExa

You can scroll child windows with a trackbar. Example using wonky buttons coloured by temp bitmaps. #include once "windows.bi" #Include once "/win/commctrl.bi" #include "fbgfx.bi" Function CreateTrackBar(dest As hwnd,x As Long,y As Long,lngth As Long,height As Long,rang...
by dodicat
Mar 15, 2024 0:45
Forum: General
Topic: -gen clang
Replies: 56
Views: 2195

Re: -gen clang

the following program compiles ok in 32-bit without -asm att the matrix multiplication is from the Rosetta code, but the demo is mine, it shows how drastically the precision is lost type Matrix dim as double m( any , any ) declare constructor ( ) declare constructor ( byval x as uinteger , byval y ...