Recent Posts

Pages: 1 ... 8 9 [10]

General / Re: Draw Behind Desktop Icons - porting

« Last post by atroesch on November 16, 2025, 07:46:33 pm »

Yes, really, because i know that i know nothing, thats why i ask here.

macOS / Mac OS X / Re: Problem with Qt5 on macOS

« Last post by mischi on November 16, 2025, 07:44:29 pm »

I build lazarus with qt6 on macOS 26.1 arm along this way:
1) create the Qt6pas framework in lcl/interfaces/qt6/cbindings
- /opt/local/libexec/qt6/bin/qmake
- make
- sudo make install
2) create lazarus:
- make bigide OPT="-gl -Ff/opt/local/libexec/qt6/lib" LCL_PLATFORM=qt6

Compilation and linking work, but otools -L lazarus yields:
Qt6Pas.framework/Versions/6/Qt6Pas (compatibility version 6.2.0, current version 6.2.10)

So, /opt/local/libexec/qt6/lib is again missing. Unfortunately.

Edit: I finally got it: I need to change the id of the framework(See below). Then linking works.

This command:

sudo install_name_tool -id /opt/local/libexec/qt6/lib/Qt6Pas.framework/Versions/6/Qt6Pas Qt6Pas.framework/Qt6Pas

fixed it after installation. But this can also be done immediately after building the framework.

Maybe, it can also be done with some options to qmake or make when building the framework, but I leave this to others to investigate.

MiSchi

Options / Re: Lowercase Drive in LAZ 4.4 Project Inspector

« Last post by JuhaManninen on November 16, 2025, 07:34:56 pm »

This forum thread does not need closing. However if you find a way to reproduce the error, please create a bug report with exact steps to reproduce. Then we can figure out which revision caused it.

I don't believe it is a regression caused by Lazarus 4.4 bug fix release. It is more likely an older bug triggered by some unusual workflow.

macOS / Mac OS X / Re: New Mac mini M4 - FPC 3.2.2 on MacOS 26.1

« Last post by mischi on November 16, 2025, 07:30:38 pm »

Quote from: Thaddy on November 16, 2025, 12:43:42 pm

That is for the very specific situation where you want an Intel Mac bootstrap compiler to build the AARCH64 one.
I did not even try that! I just built cross-compilers to build a AARCH64 bootstrap compiler that builds AARCH64 trunk/main.

But it is welcome but never necessity.

I am not sure, whether I completely get what you mean. Until now, the Intel compiler was used as bootstrap compiler to build the AARCH64 compiler from sources. So far, this was no problem since Rosetta was present by default. With macOS 26, the latter is no longer the case and a AARCH64 bootstrap compiler is a preferred option. This is what the pull request deals with by using the AARCH64 compiler from the disk image as bootstrap compiler.

Th installation with MacPorts has never been a necessity, but another possibility. For lazarus my claim is that it is more convenient. However, I understand the additional effort to install MacPorts and other barriers.

MiSchi

General / Cross-platform rich text

« Last post by lelanthran on November 16, 2025, 07:07:08 pm »

For a project I have in mind I need a text editor for the user to enter some prose, save it (possibly converting it to a text-based representation), and then load it later when they reopen the application.

I tried using various RTF components (Memos, usually) but they aren't really all that featureful and they aren't very cross-platform (One works only on Windows, for example).

I also tried a few components that promised to accept a subset of HTML, and render it as a proper memo, but none of them were very successful; either the subset of HTML was too small to be useful or they just didn't work (one worked on Wayland but not on Xorg (or the other way around, not sure now), with the brokeness being a failure to update/repaint when the window changed).

Instead of looking at third-party components, are there any plans to include, at some point, a component that offers rich text (not RTF, which has very few capabilities).

In 2025, users editing a note want to select some text within their content, switch the font of it, change the color and size, set it to bold, underline and italic, give it a background color, etc. They want to embed images and diagrams into this content. They want the ability to put red/blue/green squiggly lines in it to indicate spelling/grammar/etc errors. They want proper ordered lists, and proper unordered lists (with infinite nesting of both). They want to insert tables. They want to specify left/right/center/full justification, superscript/subscripts.

They may want to insert code blocks (i.e. blocks of code which are monospaced, with line counts, with syntax highlighting, etc), they may want actual blocks for quoted content (i.e. the quote has a 1px frame around it). They want to insert hyperlinks that work (and open the browser). They may want exact positioning, (via struts, for example), linebreaks represented during editing.

Even if the various RTF components worked flawlessly and across platforms, in 2025 RTF does not meet the expectations of users, regarding how the content should look. When you're making a TODO list, or calendar application, or shared-notes, etc ... user's want everything I specified above.

Are there any plans amongst the Lazarus community to move towards creating an editing component like this?

General / Re: Draw Behind Desktop Icons - porting

« Last post by jamie on November 16, 2025, 06:42:45 pm »

Really?

Jamie

General / Re: Add new unit to a Lazarus project from an external tool

« Last post by Lulu on November 16, 2025, 06:34:27 pm »

Hi n7800, sorry my explanation was not good enough.
yes I'm writing a tool named Game Helper that allow to graphically design sprites and game levels for OGLCScene library.

Inside the tool, when user create a new project game, an associated Lazarus project is also created from a template. Let's call it the target Lazarus project.

Always inside the tool, when the user design and save a sprite or a level, the tool automatically generate a corresponding Pascal unit, saved inside the target Lazarus project.

Quote

you can open "Menu > Project > Project Inspector" and click the "Add" button in the toolbar

If possible I would like also the tool to do that automatically.

For now, Game Helper can add or remove an entry into the clause unit of the LPR file (target Lazarus project)

General / Re: [SOLVED - Sort of!] Printing RichMemo

« Last post by AgriMensor on November 16, 2025, 06:27:08 pm »

Hi Badger!

Quote

I have two RichMemos and an image on a panel that represents a small card. The image is movable and re-sizable and the RichMemos accommodate this by changing size. I then need to print the 'card' (approx size for size). I tried the PaintTo method but the outcome was ridiculously small and the text on the RichMemo was missing.

I know nothing about Mac environments, I'm afraid, but under Windows I experienced similar frustrations as you in trying to resolve text resizing (which I eventually managed to accomplish) and missing RichMemo text (which I didn't). Not to even mention lack of relevant documentation and sample routines.

After 2+ weeks of trying, I eventually stumbled over your contribution of nearly 7 years ago and I do sincerely hope that you are able to pick up this message after such a long time!

Your character-by-character printing approach, although laborious, solved the problem and I'm delighted that it has done so - I am probably too lazy to have ever tried this of my own volition, even if I had thought of it in the first place! Thank you!

I'd very much like to include you in my Credits list when the program is released if you feel OK with letting me know your name; I couldn't find it in your Profile.

Once again, many thanks.

Games / SameGame

« Last post by Guva on November 16, 2025, 06:19:18 pm »

A small example of an old classic game.

Code: Pascal [Select][+]

program samegame;
 
{$mode objfpc}{$H+}
 
uses
{$IFDEF LINUX}
  cthreads,
{$ENDIF}
  Classes, SysUtils, CustApp, raylib, math;
 
type
  { TRayApplication }
  TRayApplication = class(TCustomApplication)
  protected
    procedure DoRun; override;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
  end;
 
const
  AppTitle = 'SameGame';
  BOARD_WIDTH = 15;
  BOARD_HEIGHT = 12;
  CELL_SIZE = 40;
  MARGIN_X = 50;
  MARGIN_Y = 80;
 
type
  TCellState = (csEmpty, csRed, csGreen, csBlue, csYellow, csPurple);
  TGameState = (gsPlaying, gsGameOver, gsVictory);
 
var
  Board: array[0..BOARD_WIDTH-1, 0..BOARD_HEIGHT-1] of TCellState;
  Score: Integer;
  GameState: TGameState;
 
{ TRayApplication }
procedure InitializeGame;
var
  x, y: Integer;
begin
  Randomize;
  Score := 0;
  GameState := gsPlaying;
 
  // Заполняем поле случайными цветами
  for x := 0 to BOARD_WIDTH - 1 do
    for y := 0 to BOARD_HEIGHT - 1 do
      Board[x, y] := TCellState(Random(5) + 1); // 1-5 цвета, 0 - пусто
end;
 
constructor TRayApplication.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
    InitWindow( (BOARD_WIDTH * CELL_SIZE) + (MARGIN_X * 2), (BOARD_HEIGHT * CELL_SIZE)+ (MARGIN_Y * 2) , AppTitle);
  SetTargetFPS(60);
  InitializeGame;
end;
 
function GetCellColor(State: TCellState): TColor;
begin
  case State of
    csEmpty: Result := RAYWHITE;
    csRed: Result := MAROON;
    csGreen: Result := DARKGREEN;
    csBlue: Result := DARKBLUE;
    csYellow: Result := GOLD;
    csPurple: Result := PURPLE;
  else
    Result := LIGHTGRAY;
  end;
end;
 
function HasValidMoves: Boolean;
var
  x, y: Integer;
  currentColor: TCellState;
begin
  Result := False;
 
  for x := 0 to BOARD_WIDTH - 1 do
  begin
    for y := 0 to BOARD_HEIGHT - 1 do
    begin
      currentColor := Board[x, y];
      if currentColor = csEmpty then
        Continue;
 
      // Проверяем соседей справа и снизу
      if (x < BOARD_WIDTH - 1) and (Board[x + 1, y] = currentColor) then
      begin
        Result := True;
        Exit;
      end;
 
      if (y < BOARD_HEIGHT - 1) and (Board[x, y + 1] = currentColor) then
      begin
        Result := True;
        Exit;
      end;
    end;
  end;
end;
 
procedure FindConnected(x, y: Integer; Color: TCellState;
  var Visited: array of Boolean; var Connected: array of Boolean);
var
  directions: array[0..3, 0..1] of Integer;
  i, nx, ny: Integer;
begin
  if (x < 0) or (x >= BOARD_WIDTH) or (y < 0) or (y >= BOARD_HEIGHT) then
    Exit;
 
  if Visited[y * BOARD_WIDTH + x] or (Board[x, y] <> Color) then
    Exit;
 
  Visited[y * BOARD_WIDTH + x] := True;
  Connected[y * BOARD_WIDTH + x] := True;
 
  directions[0, 0] := 1;  directions[0, 1] := 0;   // right
  directions[1, 0] := -1; directions[1, 1] := 0;   // left
  directions[2, 0] := 0;  directions[2, 1] := 1;   // down
  directions[3, 0] := 0;  directions[3, 1] := -1;  // up
 
  for i := 0 to 3 do
  begin
    nx := x + directions[i, 0];
    ny := y + directions[i, 1];
    FindConnected(nx, ny, Color, Visited, Connected);
  end;
end;
 
function GetConnectedCount(x, y: Integer; Color: TCellState): Integer;
var
  Visited: array of Boolean;
  Connected: array of Boolean;
  i: Integer;
begin
  Result := 0;
  if Color = csEmpty then Exit;
 
  SetLength(Visited, BOARD_WIDTH * BOARD_HEIGHT);
  SetLength(Connected, BOARD_WIDTH * BOARD_HEIGHT);
 
  for i := 0 to Length(Visited) - 1 do
  begin
    Visited[i] := False;
    Connected[i] := False;
  end;
 
  FindConnected(x, y, Color, Visited, Connected);
 
  for i := 0 to Length(Connected) - 1 do
    if Connected[i] then
      Inc(Result);
end;
 
procedure RemoveConnectedGroup(x, y: Integer; Color: TCellState);
var
  Visited: array of Boolean;
  Connected: array of Boolean;
  i, cx, cy: Integer;
begin
  if Color = csEmpty then Exit;
 
  SetLength(Visited, BOARD_WIDTH * BOARD_HEIGHT);
  SetLength(Connected, BOARD_WIDTH * BOARD_HEIGHT);
 
  for i := 0 to Length(Visited) - 1 do
  begin
    Visited[i] := False;
    Connected[i] := False;
  end;
 
  FindConnected(x, y, Color, Visited, Connected);
 
  // Удаляем все подключенные блоки
  for i := 0 to Length(Connected) - 1 do
  begin
    if Connected[i] then
    begin
      cx := i mod BOARD_WIDTH;
      cy := i div BOARD_WIDTH;
      Board[cx, cy] := csEmpty;
    end;
  end;
end;
 
procedure ApplyGravity;
var
  x, y, emptyCount: Integer;
begin
  // Гравитация в столбцах - блоки падают вниз
  for x := 0 to BOARD_WIDTH - 1 do
  begin
    emptyCount := 0;
    // Проходим столбец снизу вверх
    for y := BOARD_HEIGHT - 1 downto 0 do
    begin
      if Board[x, y] = csEmpty then
        Inc(emptyCount)
      else if emptyCount > 0 then
      begin
        // Перемещаем блок вниз
        Board[x, y + emptyCount] := Board[x, y];
        Board[x, y] := csEmpty;
      end;
    end;
  end;
end;
 
procedure RemoveEmptyColumns;
var
  x, shift, y: Integer;
  columnEmpty: Boolean;
  tempBoard: array[0..BOARD_WIDTH-1, 0..BOARD_HEIGHT-1] of TCellState;
begin
  // Создаем временную копию доски
  for x := 0 to BOARD_WIDTH - 1 do
    for y := 0 to BOARD_HEIGHT - 1 do
      tempBoard[x, y] := Board[x, y];
 
  shift := 0;
 
  // Переносим непустые столбцы влево
  for x := 0 to BOARD_WIDTH - 1 do
  begin
    columnEmpty := True;
    for y := 0 to BOARD_HEIGHT - 1 do
    begin
      if tempBoard[x, y] <> csEmpty then
      begin
        columnEmpty := False;
        Break;
      end;
    end;
 
    if not columnEmpty then
    begin
      // Копируем непустой столбец на новую позицию
      for y := 0 to BOARD_HEIGHT - 1 do
        Board[shift, y] := tempBoard[x, y];
      Inc(shift);
    end;
  end;
 
  // Заполняем оставшиеся столбцы пустыми клетками
  for x := shift to BOARD_WIDTH - 1 do
    for y := 0 to BOARD_HEIGHT - 1 do
      Board[x, y] := csEmpty;
end;
 
function IsBoardEmpty: Boolean;
var
  x, y: Integer;
begin
  Result := True;
  for x := 0 to BOARD_WIDTH - 1 do
    for y := 0 to BOARD_HEIGHT - 1 do
      if Board[x, y] <> csEmpty then
      begin
        Result := False;
        Exit;
      end;
end;
 
procedure HandleMouseClick;
var
  MousePos: TVector2;
  x, y: Integer;
  groupSize: Integer;
begin
  if GameState <> gsPlaying then
    Exit;
 
  MousePos := GetMousePosition();
 
  // Преобразуем координаты мыши в координаты доски
  x := Trunc((MousePos.x - MARGIN_X) / CELL_SIZE);
  y := Trunc((MousePos.y - MARGIN_Y) / CELL_SIZE);
 
  if (x < 0) or (x >= BOARD_WIDTH) or (y < 0) or (y >= BOARD_HEIGHT) then
    Exit;
 
  if Board[x, y] = csEmpty then
    Exit;
 
  // Проверяем размер группы
  groupSize := GetConnectedCount(x, y, Board[x, y]);
 
  if groupSize < 2 then
    Exit;
 
  // Удаляем группу и начисляем очки
  RemoveConnectedGroup(x, y, Board[x, y]);
  Score := Score + (groupSize - 1) * (groupSize - 1);
 
  // Применяем гравитацию и удаляем пустые столбцы
  ApplyGravity;
  RemoveEmptyColumns;
 
  // Проверяем условия окончания игры
  if IsBoardEmpty then
    GameState := gsVictory
  else if not HasValidMoves then
    GameState := gsGameOver;
end;
 
procedure TRayApplication.DoRun;
var
  x, y: Integer;
  cellColor: TColor;
  rect: TRectangle;
  groupSize, TextWidth: Integer;
  MousePos: TVector2;
  InstructionText, GameTitle, GameReset: string;
  popupRect: TRectangle;
begin
  while (not WindowShouldClose) do
  begin
    // Обработка ввода
    if IsMouseButtonPressed(MOUSE_BUTTON_LEFT) then
      HandleMouseClick;
 
    if IsKeyPressed(KEY_R) then
      InitializeGame;
 
    // Отрисовка
    BeginDrawing();
      ClearBackground(RAYWHITE);
 
      // Отрисовка заголовка по центру
      GameTitle := 'SameGame';
      TextWidth := MeasureText(PChar(GameTitle), 30);
      DrawText(PChar(GameTitle), (GetScreenWidth() - TextWidth) div 2, 20, 30, GRAY);
 
      // Отрисовка счета и кнопки новой игры
      DrawText(PChar('Score: ' + IntToStr(Score)), MARGIN_X, 20, 20, GRAY);
 
      GameReset := 'R - GameReset';
      TextWidth := MeasureText(PChar(GameReset), 20);
      DrawText(PChar(GameReset), GetScreenWidth() - TextWidth - MARGIN_X, 20, 20, GRAY);
 
      // Отрисовка игрового поля
      for x := 0 to BOARD_WIDTH - 1 do
      begin
        for y := 0 to BOARD_HEIGHT - 1 do
        begin
          cellColor := GetCellColor(Board[x, y]);
 
          rect.x := MARGIN_X + x * CELL_SIZE;
          rect.y := MARGIN_Y + y * CELL_SIZE;
          rect.width := CELL_SIZE - 2;
          rect.height := CELL_SIZE - 2;
 
          DrawRectangleRec(rect, cellColor);
          DrawRectangleLinesEx(rect, 1, LIGHTGRAY);
 
          // Показываем размер группы при наведении
          if Board[x, y] <> csEmpty then
          begin
            MousePos := GetMousePosition();
            if (MousePos.x >= rect.x) and (MousePos.x <= rect.x + rect.width) and
               (MousePos.y >= rect.y) and (MousePos.y <= rect.y + rect.height) then
            begin
              groupSize := GetConnectedCount(x, y, Board[x, y]);
              if groupSize >= 2 then
              begin
                DrawRectangleLinesEx(rect, 2 , BLACK);
                DrawText(PChar(IntToStr(groupSize)),
                  Round(rect.x + rect.width / 2 - 4),
                  Round(rect.y + rect.height / 2 - 5),
                  10, BLACK);
              end;
            end;
          end;
        end;
      end;
 
      // Отрисовка состояния игры по центру
      case GameState of
        gsGameOver:
          begin
            // Центрируем прямоугольник
            popupRect.width := 400;
            popupRect.height := 150;
            popupRect.x := (GetScreenWidth() - popupRect.width) /2 ;
            popupRect.y := 250;
 
            DrawRectangleRec(popupRect, Fade(DARKGRAY, 0.8));
 
            TextWidth := MeasureText('GAME OVER!', 30);
            DrawText('GAME OVER!', (GetScreenWidth() - TextWidth) div 2, 270, 30, MAROON);
 
            TextWidth := MeasureText('No valid moves available', 20);
            DrawText('No valid moves available', (GetScreenWidth() - TextWidth) div 2, 310, 20, RAYWHITE);
 
            TextWidth := MeasureText('Press R - for new game', 20);
            DrawText('Press R - for new game', (GetScreenWidth() - TextWidth) div 2, 340, 20, RAYWHITE);
          end;
 
        gsVictory:
          begin
            // Центрируем прямоугольник
            popupRect.width := 400;
            popupRect.height := 150;
            popupRect.x := (GetScreenWidth() - popupRect.width) / 2;
            popupRect.y := 250;
 
            DrawRectangleRec(popupRect, Fade(DARKGRAY, 0.8));
 
            TextWidth := MeasureText('Victory!', 30);
            DrawText('Victory!', (GetScreenWidth() - TextWidth) div 2, 270, 30, DARKGREEN);
 
            TextWidth := MeasureText(PChar('Score: ' + IntToStr(Score)), 20);
            DrawText(PChar('Score: ' + IntToStr(Score)), (GetScreenWidth() - TextWidth) div 2, 310, 20, RAYWHITE);
 
            TextWidth := MeasureText('Press R - for new game', 20);
            DrawText('Press R - for new game', (GetScreenWidth() - TextWidth) div 2, 340, 20, RAYWHITE);
          end;
      end;
 
      // Инструкция по центру
      InstructionText := 'Click groups of 2 or more same-colored blocks';
      TextWidth := MeasureText(PChar(InstructionText), 20);
      DrawText(PChar(InstructionText),
        (GetScreenWidth() - TextWidth) div 2,
        MARGIN_Y + BOARD_HEIGHT * CELL_SIZE + 20,
        20, GRAY);
 
      EndDrawing();
  end;
  Terminate;
end;
 
destructor TRayApplication.Destroy;
begin
  CloseWindow();
  inherited Destroy;
end;
 
var
  Application: TRayApplication;
begin
  Application := TRayApplication.Create(nil);
  Application.Title := AppTitle;
  Application.Run;
  Application.Free;
end.     
 

100

Graphics / Re: Converting bitmaps into a PSD file

« Last post by wp on November 16, 2025, 06:00:12 pm »

Vampyre Imaging (https://github.com/galfar/imaginglib) and FreeImage (https://freeimage.sourceforge.io/features.html) can handle PSD images. I don't know however whether they fulful the specific requirement in your post.

Pages: 1 ... 8 9 [10]

Lazarus

Bookstore

Search

Recent

Recent Posts

General / Re: Draw Behind Desktop Icons - porting

macOS / Mac OS X / Re: Problem with Qt5 on macOS

Options / Re: Lowercase Drive in LAZ 4.4 Project Inspector

macOS / Mac OS X / Re: New Mac mini M4 - FPC 3.2.2 on MacOS 26.1

General / Cross-platform rich text

General / Re: Draw Behind Desktop Icons - porting

General / Re: Add new unit to a Lazarus project from an external tool

General / Re: [SOLVED - Sort of!] Printing RichMemo

Games / SameGame

Graphics / Re: Converting bitmaps into a PSD file

	Computer Math and Games in Pascal (preview)
	Lazarus Handbook