FreePascal.ru

Тестировать GTK3 надо c Lazarus 4.99, там его поддержку очень серьезно допилили (где-то до беты).

Вроде это особенность TStringList. Насколько я помню, данное поведение управляется свойством SkipLastLineBreak.

Эта версия еще не выпущена. Исходники можно взять из Git.

grot писал(а):Опять не работают как в самом Lazarus,

Почему какие-то левые настройки должны влиять на редактор Lazarus?

grot писал(а):Удивительно, но во ВСЕХ других местах и программах ( где есть текстовые поля ввода ) - все РАБОТАЕТ ...

Сомневаюсь, скорее всего это работает только в стандартных полях ввода GTK.

Эта проблема только с FreePascal из Git (fixes_3_2 или main), с релизом 3.2.2 собирается нормально. Однако исправление тут необходимо несколько иное.

Это ответ на оба вопроса, вот часть кода которая выводит путь

program project1;

{$mode objfpc}{$H+}

uses
Classes, SysUtils, Windows, FileInfo;

var
h: TLibHandle;
ModuleName: UnicodeString;
begin
h:= LoadLibrary('uxtheme.dll');
{
либо
h:= GetModuleHandle('uxtheme.dll');
если библиотека уже загружена.
}

if (h <> NilHandle) then
begin
SetLength ...

Да, в Linux с этим беда. В итоге приходится писать такие штуки:

const
webplib = 'libwebp.so.%d';

var
libwebp: TLibHandle;

procedure Initialize;
var
Version: Integer;
LibraryName: AnsiString;
begin
for Version:= 7 downto 5 do
begin
LibraryName:= Format(webplib, [Version]);
libwebp ...

По первой ссылке же есть ссылка XPL0 Programming on the Raspberry Pi, таким образом его кто-то уже запустил под Linux на Raspberry Pi. Сходу его исходники не смог найти.

Путь до загруженной библиотеки можно узнать так , пример:

h:= LoadLibrary('libc.so.6');
@getrandom:= GetProcAddress(H, 'getrandom');
WriteLn('LIB: ', mbGetModuleName(@getrandom));

результат

LIB: /usr/lib/libc.so.6



К сожалению, для *.so получаю сообщение No version info load ((
Вот ...

Если и программа и библиотека на FPC, то версию можно прочитать так:

uses
Resource, elfreader, ...
...
function GetFileVersion(const FileName: String): String;
var
Version: TVersionInfo;
begin
Version:= TVersionInfo.Create;
try
Version.Load(FileName);
with Version.FixedInfo do
Result ...

В проекте Lazarus создать два режима сборки Release и Debug. Первый без дефайна, второй соответственно с ним. Сборка:

Release (без дефайна):

Debug (с дефайном):

Попробуйте MoveToDefaultPosition (если Position:= poScreenCenter, то этот метод должен поместить окно в центр).