FreePascal.ru

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 работает перехват.
Только в Сервис->Параметры... -> Отладчик (Исключения языка) галочка снята с ...

uses Math;
SetExceptionMask(GetExceptionMask - [exZeroDivide]);

Спасибо большое,
Теперь вроде как надо:
Проект project1 вызвал класс исключения 'External: SIGFPE'.
В файле 'unit1.pas' на строке 34:
y:=1/x

Почему бы просто не сравнить знаменатель с нулём перед делением?
В общем ...

Код должен выдать сообщение типа "Floating point devision by zero". А его нет.
Вместо этого в заголовке окна пишется +Inf.

function y(x: Double): Double;
begin
y:=1/x
end;

procedure TForm1.Button1Click(Sender: TObject);
Var x: Double;
begin x:=0;
Form1.Caption ...

Интересные у вас ссылки. Второй раз получаю "Your IP is blacklisted"
Выбрал первый попавшийся хостинг картинок в поисковике, извините.

Изменённый ваш проект:
m

Итоги.
Работают следующие вещи:
Ваша находка - XdivPi.Scale := pi;
Выставление
fmPiForm.Chart1.BottomAxis.Intervals.Count:=round(abs ...

Могу предложить такой вариант

m

Откровенно говоря, я считаю самым правильным в таких случаях просто делать подпись к оси
вида "X. *pi" . Потому что в том виде, как вы хотите, вы неизбежно огребете проблем в виде
перекрывающихся или недописанных marks .
Кстати с самой подписью у меня не заладилось ...

Здравствуйте.
Рисую графики функций на отрезке, используя TChart. Хотелось бы, чтобы точки оси абсцисс указывались не числами вида 1, 2, 3 и т.п., а точками -pi, -pi/2, 0, pi/2, pi, 3pi/2, 2pi...
Подскажите, что и как изменить в Chart1, Chart1.BottomAxis или Chart1LineSeries1.

Например, так ...