Вот какая возникла проблема. Нужно ограничить количество символов, которые может ввести пользователь в TEdit. Для этого предназначено свойство MaxLength, но оно не понимает кодировку UTF8, а именно с ней и работает Lazarus (странно, да, работает с этой кодировкой, но свойства ее не понимают).

В итоге если, скажем, прописать MaxLength := 30, то длина строки будет ограничена лишь 15 символами для русского текста.

Применил костыльное решение:
1. Установил MaxLength := 60, то есть в два раза больше, чем надо (но так оно пропустит более 30 нерусских символов).
2. На обработчик события KeyPress прописал следующее:

  if (Key >= ' ') and (UTF8Length(TEdit(Sender).Text) >= 30) then Key := #0;

Оно, конечно, как-то работает, но, во-первых, это реальный костыль, а, во-вторых, работает только если вводить прямо с клавиатуры, а если скопировать длинный текст из буфера, то ограничение не сработает.

Можно, конечно, еще дополнительно проверять длину текста и обрезать его, если окажется длиннее, но это уже двойной костыль будет.

Есть ли нормальное решение проблемы?

(читать всё…)

В lazaruse на вкладке LazControl есть компонента ShortPathEdit с полем ввода и кнопкой выбора каталога. Не могу понять как работать с кнопкой. После выбора через диалог каталога заполняется атрибут Directory, но само поле ввода остается пустым. Подскажите какое событие ловить по окончанию выбора директории? Или это нужно как-то по другому реализовывать?

(читать всё…)

Давно уже пишу на Delphi, но до сих пор бывают открытия.
Код

var a,b:Word;  // или Integer
 begin
   b:=0;
   a:=1 div b;
// ........

нормально прокатывает в Delphi , а в Lazaus при запуске — аварийный выход, .. класс исключения «External: SIGFPE»

Правда, если в Delphi добавить после деления

Memo1.Lines.Add(IntToStr(a));

тоже будет ошибка при запуске.

В чем там разница? Пробовал {$Q+} или {$Q-} — ничего не меняется.

(читать всё…)

Оператор
Writeln(‘Русские буквы’);
печатает абракадабру вместо русских букв в Простой программе или в Консольном приложении в Lazarus 2.02.12.
Как исправить?

(читать всё…)

На форме есть TImage с изображением. Пытаюсь вставить в Excel: копирую изображение из TImage в буфер обмена. Затем вставляю в Excel с помощью команды PasteSpecial. В итоге на PasteSpecial все время возникает исключение EOleException с текстом:
Метод PasteSpecial из класса Worksheet завершен неверно.

procedure TfmMain.TestBtnClick(Sender: TObject);
var Img: TImage;    
    xla: Variant;
    xls: Variant;
begin
  Img:=TImage.Create(nil);

  xla := CreateOleObject('Excel.Application');
  xla.Workbooks.Add;
  xls := xla.Workbooks[1].WorkSheets[1];
  xls.Name := 'Sheet1';
  xla.Visible:=True;

  Clipboard.Assign(Img.Picture);
   
  xla.Cells(5,5).Select;
  xls.PasteSpecial(5,False,False,False,0,EmptyParam,EmptyParam);  

  Img.Free;
end;

Версия Lazarus: 1.6.4
Версия FPC: 3.0.4
Я думаю, что все дело в том, что неправильно передаются параметры в PasteSpecial. Если у кого-нибудь есть рабочий вариант, поделитесь пожалуйста.

(читать всё…)