update to main branch

Author: GuvaCode

examples/gui/controls_test_suite/controls_test_suite.lpr

@@ -103,6 +103,8 @@
 
   ExResult, BoxResult: integer;
 
+
+
 begin
   // Initialization
   //--------------------------------------------------------------------------------------

gui/styles/amber/style_amber.h

@@ -7,7 +7,7 @@
 // more info and bugs-report:  github.com/raysan5/raygui                        //
 // feedback and support:       ray[at]raylibtech.com                            //
 //                                                                              //
-// Copyright (c) 2020-2024 raylib technologies (@raylibtech)                    //
+// Copyright (c) 2020-2025 raylib technologies (@raylibtech)                    //
 //                                                                              //
 //////////////////////////////////////////////////////////////////////////////////
 
@@ -23,19 +23,19 @@ static const GuiStyleProp amberStyleProps[AMBER_STYLE_PROPS_COUNT] = {
     { 0, 5, (int)0xffffffff },    // DEFAULT_TEXT_COLOR_FOCUSED 
     { 0, 6, (int)0xf1cf9dff },    // DEFAULT_BORDER_COLOR_PRESSED 
     { 0, 7, (int)0xf39333ff },    // DEFAULT_BASE_COLOR_PRESSED 
-    { 0, 8, (int)0x282020ff },    // DEFAULT_TEXT_COLOR_PRESSED 
+    { 0, 8, (int)0x191410ff },    // DEFAULT_TEXT_COLOR_PRESSED 
     { 0, 9, (int)0x6a6a6aff },    // DEFAULT_BORDER_COLOR_DISABLED 
     { 0, 10, (int)0x818181ff },    // DEFAULT_BASE_COLOR_DISABLED 
     { 0, 11, (int)0x606060ff },    // DEFAULT_TEXT_COLOR_DISABLED 
     { 0, 16, (int)0x00000010 },    // DEFAULT_TEXT_SIZE 
     { 0, 18, (int)0xef922aff },    // DEFAULT_LINE_COLOR 
     { 0, 19, (int)0x333333ff },    // DEFAULT_BACKGROUND_COLOR 
     { 0, 20, (int)0x00000018 },    // DEFAULT_TEXT_LINE_SPACING 
-    { 4, 8, (int)0xd4d4d4ff },    // SLIDER_TEXT_COLOR_PRESSED 
-    { 5, 8, (int)0xd4d4d4ff },    // PROGRESSBAR_TEXT_COLOR_PRESSED 
+    { 1, 8, (int)0xe7e0d4ff },    // LABEL_TEXT_COLOR_PRESSED 
+    { 4, 8, (int)0xf1cf9dff },    // SLIDER_TEXT_COLOR_PRESSED 
 };
 
-// WARNING: This style uses a custom font: "hello-world.ttf" (size: 16, spacing: 1)
+// WARNING: This style uses a custom font: "" (size: 16, spacing: 1)
 
 #define AMBER_STYLE_FONT_ATLAS_COMP_SIZE 2605
 

gui/styles/amber/style_amber.png

@@ -0,0 +1,10 @@
+
+Every font made by MB03 is 100% free for personal & commercial use.
+Including the font(s) in this archive.
+
+
+
+~ memesbruh03~
+
+For more cool things, go to...:
+https://memesbruh03.neocities.org/

gui/styles/amber/style_amber.rgs

@@ -1701,10 +1701,10 @@ RLAPI void SetAudioStreamPan(AudioStream stream, float pan);          // Set pan
 RLAPI void SetAudioStreamBufferSizeDefault(int size);                 // Default size for new audio streams
 RLAPI void SetAudioStreamCallback(AudioStream stream, AudioCallback callback); // Audio thread callback to request new data
 
-RLAPI void AttachAudioStreamProcessor(AudioStream stream, AudioCallback processor); // Attach audio stream processor to stream, receives the samples as 'float'
+RLAPI void AttachAudioStreamProcessor(AudioStream stream, AudioCallback processor); // Attach audio stream processor to stream, receives frames x 2 samples as 'float' (stereo)
 RLAPI void DetachAudioStreamProcessor(AudioStream stream, AudioCallback processor); // Detach audio stream processor from stream
 
-RLAPI void AttachAudioMixedProcessor(AudioCallback processor); // Attach audio stream processor to the entire audio pipeline, receives the samples as 'float'
+RLAPI void AttachAudioMixedProcessor(AudioCallback processor); // Attach audio stream processor to the entire audio pipeline, receives frames x 2 samples as 'float' (stereo)
 RLAPI void DetachAudioMixedProcessor(AudioCallback processor); // Detach audio stream processor from the entire audio pipeline
 
 #if defined(__cplusplus)

gui/styles/rltech/2a03_memesbruh03.ttf

@@ -1,13 +1,13 @@
 {********************************************************************************************
 *                                                                                           *
-*   raygui v4.1-dev - A simple and easy-to-use immediate-mode gui library                   *
+*    5.0-dev (2025)    Current dev version...                                               *
 *                                                                                           *
 *   DESCRIPTION:                                                                            *
 *                                                                                           *
 *   raygui is a tools-dev-focused immediate-mode-gui library based on raylib but also       *
 *   available as a standalone library, as long as input and drawing functions are provided. *
 *                                                                                           *
-*   pascal header 2021 - 2024 by Gunko Vadim                                                *
+*   pascal header 2021 - 2025 by Gunko Vadim                                                *
 *                                                                                           *
 *********************************************************************************************}
 
@@ -26,10 +26,10 @@ interface
  raylib;
 
 const
-  RAYGUI_VERSION_MAJOR = 4;
+  RAYGUI_VERSION_MAJOR = 5;
   RAYGUI_VERSION_MINOR = 0;
   RAYGUI_VERSION_PATCH = 0;
-  RAYGUI_VERSION = '4.1-dev';
+  RAYGUI_VERSION = '5.0-dev';
   SCROLLBAR_LEFT_SIDE = 0;
   SCROLLBAR_RIGHT_SIDE = 1;
 
@@ -310,9 +310,8 @@ interface
   STATE_DISABLED = 3;
 
 
-
-  // Gui control text alignment vertical
-  // NOTE: Text vertical position inside the text bounds
+// Gui control text alignment vertical
+// NOTE: Text vertical position inside the text bounds
 type
   PGuiTextAlignmentVertical = ^TGuiTextAlignmentVertical;
   TGuiTextAlignmentVertical = Integer;
@@ -326,17 +325,15 @@ interface
   // NOTE: Useful for multiline text
 type
   PGuiTextWrapMode = ^TGuiTextWrapMode;
-  TGuiTextWrapMode = Integer;
-
+  TGuiTextWrapMode = integer;
 const
   TEXT_WRAP_NONE = 0;
   TEXT_WRAP_CHAR = 1;
   TEXT_WRAP_WORD = 2;
 
 type
   PGuiTextAlignment = ^TGuiTextAlignment;
-  TGuiTextAlignment = Integer;
-
+  TGuiTextAlignment =integer;
 const
   TEXT_ALIGN_LEFT = 0;
   TEXT_ALIGN_CENTER = 1;
@@ -358,7 +355,7 @@ interface
   DROPDOWNBOX = 8;
   TEXTBOX = 9;
   VALUEBOX = 10;
-  SPINNER = 11;
+  CONTROL11 = 11;
   LISTVIEW = 12;
   COLORPICKER = 13;
   SCROLLBAR = 14;
@@ -479,18 +476,18 @@ interface
 type
   PGuiListViewProperty = ^TGuiListViewProperty;
   TGuiListViewProperty = Integer;
-
 const
   LIST_ITEMS_HEIGHT = 16;   // ListView items height
   LIST_ITEMS_SPACING = 17;
   SCROLLBAR_WIDTH = 18;
-  SCROLLBAR_SIDE = 19;
-  LIST_ITEMS_BORDER_WIDTH = 20;    // ListView items border width
-// ColorPicker
+  LIST_ITEMS_BORDER_NORMAL = 19;
+  SCROLLBAR_SIDE = 20;
+  LIST_ITEMS_BORDER_WIDTH = 21;    // ListView items border width
+
+  // ColorPicker
 type
   PGuiColorPickerProperty = ^TGuiColorPickerProperty;
   TGuiColorPickerProperty = Integer;
-
 const
   COLOR_SELECTOR_SIZE = 16;
   HUEBAR_WIDTH = 17;

gui/styles/rltech/DepartureMono-Regular.otf

@@ -37,6 +37,7 @@
 {.$define RAYGUI_NO_RICONS}
 
 // Other Settings
+
 {$PACKRECORDS C}
 {$ALIGN 8}
 {$MINENUMSIZE 4}

gui/styles/rltech/font_readme.txt

@@ -3,7 +3,7 @@
 A simple and easy-to-use library to enjoy videogames programming ( www.raylib.com )
 Pascal header by Gunko Vadim (@guvacode)
 }
-{$mode objfpc}{$H+}
+{$mode objfpc}{$H+}{$modeswitch advancedrecords}
 unit raylib;
 // Include configuration file
 {$I raylib.inc}
@@ -32,8 +32,9 @@ interface
    { TColorB }
    PColorB = ^TColorB;
    TColorB = record
-       r,g,b,a : byte; // Color value
-     end;
+     r,g,b,a : byte; // Color value
+     procedure Create(aR: Byte; aG: Byte; aB: Byte; aA: Byte);
+   end;
 
   TColor = TColorB;
   PColor = PColorB;
@@ -68,12 +69,16 @@    TColorB = record
   MAGENTA:        TColorB = (r: 255; g: 0; b: 255; a: 255);   // Magenta
   RAYWHITE:       TColorB = (r: 245; g: 245; b: 245; a: 255); // My own White (raylib logo)
 
-   (* Vector2, 2 components *)
+
    type
+    (* Vector2, 2 components *)
      PVector2 = ^TVector2;
      TVector2 = record
          x : single; // Vector x component
          y : single; // Vector y component
+        // {$IFDEF ADVANCEDRECORDS}
+         procedure Create(aX, aY: single);
+        // {$ENDIF}
        end;
 
      (* Vector3, 3 components *)
@@ -82,6 +87,7 @@      TVector3 = record
          x : single; // Vector x component
          y : single; // Vector y component
          z : single; // Vector z component
+         procedure Create(aX, aY, aZ: single);
        end;
 
      (* Vector4, 4 components *)
@@ -91,6 +97,7 @@      TVector4 = record
          y : single; // Vector y component
          z : single; // Vector z component
          w : single; // Vector w component
+         procedure Create(aX, aY, aZ, aW: single);
        end;
 
      (* Quaternion, 4 components (Vector4 alias) *)
@@ -121,15 +128,17 @@      TMatrix = record
      (* Rectangle, 4 components *)
      PPRectangle = ^PRectangle;
      PRectangle = ^TRectangle;
+
+     { TRectangle }
      TRectangle = record
          x      : single; // Rectangle top-left corner position x
          y      : single; // Rectangle top-left corner position y
          width  : single; // Rectangle width
          height : single; // Rectangle height
+         procedure Create(aX, aY, aWidth, aHeight: single);
        end;
 
      (* Image, pixel data stored in CPU memory (RAM) *)
-
      PImage = ^TImage;
      TImage = record
          data    : pointer; // Image raw data
@@ -204,12 +213,16 @@       TFont = record
    (* Camera, defines position/orientation in 3d space *)
    type
      PCamera3D = ^TCamera3D;
+
+     { TCamera3D }
+
      TCamera3D = record
-         position   : TVector3; // Camera position
-         target     : TVector3; // Camera target it looks-at
-         up         : TVector3; // Camera up vector (rotation over its axis)
-         fovy       : single;   // Camera field-of-view apperture in Y (degrees) in perspective, used as near plane width in orthographic
-         projection : Integer;  // Camera projection: CAMERA_PERSPECTIVE or CAMERA_ORTHOGRAPHIC
+       position   : TVector3; // Camera position
+       target     : TVector3; // Camera target it looks-at
+       up         : TVector3; // Camera up vector (rotation over its axis)
+       fovy       : single;   // Camera field-of-view apperture in Y (degrees) in perspective, used as near plane width in orthographic
+       projection : Integer;  // Camera projection: CAMERA_PERSPECTIVE or CAMERA_ORTHOGRAPHIC
+       procedure Create(aPosition, aTarget, aUp: TVector3; aFOVY: single; aType: integer);
      end;
 
      (* Camera type fallback, defaults to Camera3D *)
@@ -332,9 +345,13 @@       TRayCollision = record
 
      (* BoundingBox *)
      PBoundingBox = ^TBoundingBox;
+
+     { TBoundingBox }
+
      TBoundingBox = record
          min : TVector3; // Minimum vertex box-corner
          max : TVector3; // Maximum vertex box-corner
+         procedure Create(aMin, aMax: TVector3);
        end;
 
      (* Wave, audio wave data *)
@@ -2269,11 +2286,11 @@ procedure SetAudioStreamBufferSizeDefault(size: Integer); cdecl; external {$IFND
 {Audio thread callback to request new data}
 procedure SetAudioStreamCallback(stream: TAudioStream; callback: TAudioCallback); cdecl; external {$IFNDEF RAY_STATIC}cDllName{$ENDIF} name 'SetAudioStreamCallback';
 
-{Attach audio stream processor to stream, receives the samples as 'float'}
+{Attach audio stream processor to stream, receives frames x 2 samples as 'float' (stereo)}
 procedure AttachAudioStreamProcessor(stream: TAudioStream; processor: TAudioCallback); cdecl; external {$IFNDEF RAY_STATIC}cDllName{$ENDIF} name 'AttachAudioStreamProcessor';
 {Attach audio stream processor to the entire audio pipeline, receives the samples as 'float'}
 procedure DetachAudioStreamProcessor(stream: TAudioStream; processor: TAudioCallback); cdecl; external {$IFNDEF RAY_STATIC}cDllName{$ENDIF} name 'DetachAudioStreamProcessor';
-{Attach audio stream processor to the entire audio pipeline, receives the samples as 'float'}
+{Attach audio stream processor to the entire audio pipeline, receives frames x 2 samples as 'float' (stereo)}
 procedure AttachAudioMixedProcessor(processor: TAudioCallback); cdecl; external {$IFNDEF RAY_STATIC}cDllName{$ENDIF} name 'AttachAudioMixedProcessor';
 {Detach audio stream processor from the entire audio pipeline}
 procedure DetachAudioMixedProcessor(processor: TAudioCallback); cdecl; external {$IFNDEF RAY_STATIC}cDllName{$ENDIF} name 'DetachAudioMixedProcessor';
@@ -2455,6 +2472,56 @@ procedure Camera3DSet(aCam: PCamera3D; aPosition, aTarget, aUp: TVector3; aFOVY:
   aCam^.projection := aType;
 end;
 
+{ TColorB }
+
+procedure TColorB.Create(aR: Byte; aG: Byte; aB: Byte; aA: Byte);
+begin
+ self := ColorCreate(aR, aG, aB ,aA);
+end;
+
+{ TVector2 }
+
+procedure TVector2.Create(aX, aY: single);
+begin
+ self := Vector2Create(aX,aY);
+end;
+
+{ TVector3 }
+
+procedure TVector3.Create(aX, aY, aZ: single);
+begin
+  self := Vector3Create(aX, aY, aZ);
+end;
+
+{ TVector4 }
+
+procedure TVector4.Create(aX, aY, aZ, aW: single);
+begin
+  self := Vector4Create(aX, aY, aZ, aW);
+end;
+
+{ TRectangle }
+
+procedure TRectangle.Create(aX, aY, aWidth, aHeight: single);
+begin
+  self := RectangleCreate(aX, aY, aWidth, aHeight);
+end;
+
+{ TCamera3D }
+
+procedure TCamera3D.Create(aPosition, aTarget, aUp: TVector3; aFOVY: single; aType: integer);
+begin
+ self := Camera3DCreate(aPosition, aTarget, aUp, aFOVY, aType);
+end;
+
+{ TBoundingBox }
+
+procedure TBoundingBox.Create(aMin, aMax: TVector3);
+begin
+  self := BoundingBoxCreate(aMin, aMax);
+end;
+
+
 
 initialization
   SetExceptionMask([exInvalidOp, exDenormalized, exZeroDivide, exOverflow, exUnderflow, exPrecision]);