sysrpl / codebot.cross

A cross platform toolkit for Free Pascal and Lazarus

Codebot Cross Platform Library

This is the official git repository for the Codebot Cross library. It contains the source and assets code for three Free Pascal packges.

The official landing page for the library with detailed information, including installation, documentation, and examples about this library is located here.

Package Codebot

The Codebot package defines types and routines for general purpose use. These include items such as string and file system handling, collections, advanced graphics contexts, networks sockets, animation, and much more.

Package Codebot Control

The Codebot Controls package defines classs and routines related to visual controls. Many of these controls are original, unique, and all make use of the advanced ISurface cross platform drawing context provided by the Codebot package. Some of the controls in this pake include TContentGrid, TIndeterminateProgress, THuePicker and more. Custom forms and custom IDE designers are also included in this package.

Package Codebot Rendering

The Codebot Rendering package provides a organzied and easy to use class library for working with OpenGL ES, shader programming, vertex, render, and pixels buffers, as well as input processing.

codebot.cross's Issues

website: all component icons are broken

https://www.getlazarus.org/cross/

broken compilation on Windows - patch

On Windows OS there is a problem when trying to compile a package. In the attachment a fix that solves this problem.
codebot.textxml.windows.inc.patch

codebot.text.pas(540,36) Error: (3220) The range of the array is too large

Does not compiles with FPC 3.2

Bug in NewGdiCheckerBrush

You have
B := TGdiBitmap.Create(Size * 2, Size * 2)
But i have error "codebot.interop.windows.gdiplus.pas(11906,45) Error: Can't determine which overloaded function to call"

In my opinion correct version is
B := TGdiBitmap.Create(Size * 2, Size * 2,G)

the website is not looking OK when Bookmarks sidebar in Firefox is visible

Ubuntu 22.04.

readme issue

defines classs and routines

2. pls show all included controls, how they look, inside the readme. Ie make the subdir for pictures and link pics in the readme Markdown.

Compiler bug in gdiplus.pas

Lazarus 2.0.12
FPC 3.2.0
SVN Revision: 64642.
Downloaded the zip file code.codebot-master
loaded the package codebot and hit compile.
Compilation error in gdiplus.pas, line 11906: Can't determine which overloaded function to call. Function in question is TGdiBitmap.create(size * 2, Size * 2)
This is really weird. I checked all the constructors you have in this class:

  {01}  constructor Create(Bitmap                       : GpBitmap                                                                                ); overload;
  {02}  constructor Create(Filename                    : WideString; UseEmbeddedColorManagement: Boolean = False); overload;
  {03}  constructor Create(Stream                      : IStream      ; UseEmbeddedColorManagement: Boolean = False); overload;
  {04}  constructor Create(Width, Height, Stride : Integer       ; Format                                       : TPixelFormat     ;
                                        scan0                        : PByte                                                                                       ); overload;
  {05}  constructor Create(Width, Height            : Integer      ; Format: TPixelFormat = PixelFormat32bppArgb     ); overload;
  {06}  constructor Create(Width, Height            : Integer      ; Target : IGdiGraphics                                             ); overload;
  {07}  constructor Create(surface                       : IDirectDrawSurface7                                                                ); overload;
  {08}  constructor Create(var BitmapInfo           : TBitmapInfo; BitmapData                                : Pointer            ); overload;
  {09}  constructor Create(Bmp                          : HBitmap      ; Pal                                             : HPALETTE        ); overload;
  {10}  constructor Create(Icon                          : HICON                                                                                     ); overload;
  {11}  constructor Create(hInstance                 : HMODULE  ; BitmapName                               : WideString      ); overload;

It seems to me that the call at line 11906 is calling constructor number 5 which has a signature that is different from the signatures of the other constructors. Further, the superclass TGDImage does not have a constructor that could clash with constructor number 5. The same holds true for TInterfacedObjet and TObject.

Could that be a bug in the compiler?

TUniqueInstance - Race condition can cause a use-after-free bug

Reading through the code, I found what looks like a race condition which can cause a "use-after-free".

When TUniqueInstance is destroyed, FThread is asked to terminate and FSocket is freed:
https://github.com/sysrpl/Codebot.Cross/blob/master/source/codebot/codebot.unique.pas#L77-L79

But the FThread can still be running and attempt to access FSocket after it is freed.
https://github.com/sysrpl/Codebot.Cross/blob/master/source/codebot/codebot.unique.pas#L99

(Imagine the thread checks Terminated and a context switch happens right after that. The main thread then calls TUniqueInstance.Destroy and FSocket is freed. When the thread continues to execute it calls FSocket.Accept(Client), but FSocket has already been freed.)

website: button 'Take me to the demos' don't work

Ubuntu 22.04, Firefox.

button has this URL
https://www.getlazarus.org/cross/#demonstration

Forward declaration errors on compiling with Cross.Codebot

Compile package codebot 1.0: Exit code 1, Errors: 3
codebot.forms.management.pas(24,20) Error: Forward declaration not solved "class GetCurrent:TCustomForm; Static;"
codebot.forms.management.pas(25,20) Error: Forward declaration not solved "class GetDefaultFont:TFont; Static;"
codebot.forms.management.pas(27,21) Error: Forward declaration not solved "class Activate(TCustomForm); Static;"

Tested with a blank form and with several examples.
Windows 10 x64, FPC3/Lazarus from getlazarus.com!

Prepare package for OnlinePackageManager in Lazarus

Can you make such zip file to distro it in OnlinePackageManager? maybe OPM already can do it?

Help for Direct2D

on Lazarus forum I saw post that Codebot Cross can help to use Direct2D.
I need to add D2D mode to CudaText app which paints on Canvas.
It is ATSynEdit component which paints on TWinControl.Canvas in Paint method. Can your code help to add D2D mode?