FreePascal.ru

Alexx2000

Добавить в ресурсы в параметрах проекта, потом загрузить в TMemo можно так:

var
  AStream: TStream;
begin
  AStream:= TResourceStream.Create(HInstance, 'HIGHLIGHTERS', RT_RCDATA);
  try
    Memo1.Lines.LoadFromStream(AStream);
  finally
    AStream.Free;
  end;
end;

Alexx2000

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

Alexx2000

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

Alexx2000

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

Alexx2000

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

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

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

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

Alexx2000

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

Alexx2000

Dynamic-link library search order

Alexx2000

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

Код: Выделить всё

    SetLength(ModuleName, MAX_PATH + 1);
    SetLength(ModuleName, GetModuleFileNameW(h, PWideChar(ModuleName), MAX_PATH));
    WriteLn(ModuleName);

Alexx2000

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 ...

Alexx2000

Код: Выделить всё

TObject(PtrInt(SQLQuery1.FieldByName('ID').AsInteger))

Alexx2000

Да, в 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 ...

Alexx2000

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

Alexx2000

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

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

результат

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

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

Alexx2000

Если и программа и библиотека на 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 ...

Alexx2000

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

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

Код: Выделить всё

lazbuild --bm=release test.lpi

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

Код: Выделить всё

lazbuild --bm=debug test.lpi

FreePascal.ru

Найден 491 результат

Re: Вкомпилировать содержимое текстового файла (во время сборки проекта)

Re: GTK3

Re: TStringList - баг или фича ?

Re: fpc-3.2.4 загрузка исходников

Re: Linux - сочетания клавиш для редактирования

Re: Баги DC

Re: Как определить версию используемой DLL программно?

Re: Как определить версию используемой DLL программно?

Re: Как определить версию используемой DLL программно?

Re: Ошибка компиляции TObject в Combobox

Re: Совместимость бинарника со всеми Linux

Re: XPL0 язык и сборка его Lazarем?

Re: Как получить номер версии библиотеки в Linux

Re: Как получить номер версии библиотеки в Linux

Re: вложенные директивы / условия IFDEF