FreePascal.ru

Скорее всего при создании и панель и сплиттер имеет Left :=0. Из-за чего сплиттер и прижимается к левой границе. Попробуйте сначала создать спилиттер с Align := alLeft, а уже после панель с таким же выравниванием. Скорее всего сплиттер встанет на место т.к. теперь уже у панели сработает Left := 0 ...

Никогда не удавалось настроить Splitter-ы «вручную», нормально выходит только через визуальный редактор формы (если очень нужно, то можно настроить в редакторе, а потом посмотреть LFM-файл).


Я так понимаю, тут есть сложности с размерами панелей, если панели ещё делятся другими панелями ...

Остаётся, конечно, вопрос. Это баг или так задумано, что выравнивание компонентов слева автоматически не фиксирует сплиттер?

А если добавить Splitter1.Left:=Panel1.Left+Panel1.Width;

Вы гений. Это работает.

Ещё нашёл второе решение. Выравнивание справа.
Одну панель выровнять вправо Panel2.Align := alRight;
Добавить Splitter и тоже Splitter1.Align := alRight;
И добавить другую панель и сделать Panel1.Align ...

Здравствуйте.
Есть форма Form1 и событие OnCreate. Имею код:

unit Unit1;
{$mode objfpc}{$H+}
interface
uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
Splitter1: TSplitter;
procedure FormCreate(Sender: TObject ...

WAYFARER писал(а):Т.е. операции с буфером перенесены на уровень набора виджетов, но проблема в том, что реализация есть только для Win32/64 и carbon

Спасибо за разъяснение. Надеюсь, это реализуют и под linux.

Спешу сообщить, что можно закомментировать в unit RichMemo метод CutToClipboard:
//procedure CutToClipboard; override;

И ниже

(*
procedure TCustomRichMemo.CutToClipboard;
begin
if HandleAllocated then
TWSCustomRichMemoClass(WidgetSetClass).CutToClipboard(Self);
end;
*)

Тогда в программе ...

почему бы не пойти "другим путем" и просто эмулировать нажатие "Ctrl+C" и "Ctrl+V" (и если нужно "Ctrl+A")? :idea: (есть модуль mouseandkeyinput который достаточно подключить и можно писать что-то такое
Спасибо за идею!
1. Нашёл lazmouseandkeyinput.lpk, использовал, подключил модуль ...

Здравствуйте, на форме есть:

RichMemo:TRichmemo;
Memo: TMemo;
SynEdit:TSynEdit;

Ничего не происходит, если выделить текст и обработать нажатие пункта меню так: RichMemo.CutToClipboard;
Однако, это работает, выделенный текст вырезается в буфер, если то же сделать для Memo или SynEdit:
Memo ...

Спешу сообщить, что установка Lazarus 4.0RC2
lazarus-project_4.0.0-0_amd64.deb
решила эту проблему.
Всем спасибо.

Решение.
1. Скачать исходный код lazarus-3.8-0.zip из
http://sourceforge.net/projects/lazarus/files/Lazarus%20Zip%20_%20GZip/

2. Скачать libqt6pas6_6.2.10-1_amd64.deb и libqt6pas6-dev_6.2.10-1_amd64.deb из
https://github.com/davidbannon/libqt6pas/releases/tag/v6.2.10

3. Установить libqt6pas6_6.2 ...

Спасибо за отзыв.
Цель поста - обратить внимание на проблему, оставить её в кэше поисковиков для будущих серферов, возможно, привлечь гуру и разработчиков, чтобы в следующей версии это исправили.

У меня сейчас только lazarus-project_3.8.0-0_amd64.deb с сайта и им соответствующие пакеты fpc ...

Здравствуйте.
Если бросить компоненту типа TShellListView со вкладки Misc на форму и попытаться её удалить, нажав на кнопку клавиатуры Delete, то lazarus виснет и изображение компоненты остаётся на форме.

Если lazarus-ide запустить в консоли, то в консоли есть такие строки:

TComponentWalker.Walk ...

Можно попробовать "Tools|Rescan FPC source directory" ... и рескан обычно помогает.

Спасибо. Отвечаю, т.к. это может быть полезно кому-то ещё.
При добавление кнопки (toolbutton на toolbar) и её переименования получил ошибку о том, что невозможно переименование в коде.

Error: модуль не найден ...

при запуске под иде (под отладчиком) в работу вмешивается отладчик, это он перехватывает исключения. при запуске без иде - будет работать только твоя обработка

Вы правы. Действительно, без IDE работает перехват.
Только в Сервис->Параметры... -> Отладчик (Исключения языка) галочка снята с ...