Search found 7925 matches
- Mar 27, 2024 10:53
- Forum: Windows
- Topic: Cairo under Windows
- Replies: 4
- Views: 192
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...
- Mar 26, 2024 13:13
- Forum: Community Discussion
- Topic: Freebasic 1.20.0 Development
- Replies: 227
- Views: 20555
Re: Freebasic 1.20.0 Development
Thanks for the link fxm.
- Mar 26, 2024 10:59
- Forum: Community Discussion
- Topic: Freebasic 1.20.0 Development
- Replies: 227
- Views: 20555
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...
- Mar 26, 2024 9:23
- Forum: Archive
- Topic: quitting smoking app
- Replies: 3
- Views: 2032
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 ...
- Mar 23, 2024 12:08
- Forum: Documentation
- Topic: SmartPointer_UDTname_ segmentation violation
- Replies: 10
- Views: 370
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 ...
- 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...
- Mar 20, 2024 11:04
- Forum: Community Discussion
- Topic: Bugs
- Replies: 115
- Views: 20851
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.
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.
- Mar 19, 2024 21:00
- Forum: Sources, Examples, Tips and Tricks
- Topic: Read line x from a text file
- Replies: 2
- Views: 151
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...
- Mar 19, 2024 10:18
- Forum: Community Discussion
- Topic: Bugs
- Replies: 115
- Views: 20851
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 "________________...
- 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,...
- 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...
- 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...
- 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 ...
- 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...
- Mar 15, 2024 0:45
- Forum: General
- Topic: -gen clang
- Replies: 56
- Views: 2211
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 ...