Модератор: Модераторы
Logo писал(а):Linux, Lazarus rev. 16525
Widgetsets - QT
Перепробовал все, что мог, с надежой, что что-то у меня не так, но ошибка осталась.
AutoComleteText = True, при наборе латинских символов - RunError(233), при наборе кирилицы - не дополняет.
Код: Выделить всё
type
TChars = set of char;
const
RepeatChars = [' ', #9, #10, #13, '!', '@', '#', '$', '%', '^', '&', '*', '(', ')', '-', '=', '+', '\', '|', '[', ']', '{', '}', ':', ';', ',', '.', '?', '/', '<', '>', '''', '"'];
function repeat_indent(const Line: string; const chars: TChars): string;
var
i, Len: Integer;
begin
Len := Length(Line);
for i := 1 to Len-1 do
begin
if not (Line[i] in chars) then
begin
Result := copy(Line, 1, i-1);
Exit;
end; // if
end; // for i
Result := Line;
end;
procedure TFMain.SynEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key = 13) {VK_RETURN, всё забываю какой юнит нужно подключать}
and (ssShift in Shift) then
begin
(Sender as TSynEdit).SelText := #13 + repeat_indent((Sender as TSynEdit).LineText, RepeatChars);
end; // if
end;
Павел Ишенин писал(а):У меня работает. Скрин прилагается.
shade писал(а):Обновился, проблемы с созданием OnCreate и CustApp больше нет
shade писал(а):shade писал(а):Обновился, проблемы с созданием OnCreate и CustApp больше нет
Хм.. нет всё-таки осталось, странно вроде сразу после пересборки работало, щас опять ни в какую
Logo писал(а):Павел Ишенин писал(а):У меня работает. Скрин прилагается.
Ничего не понимаю
Павел Ишенин писал(а):shade писал(а):shade писал(а):Обновился, проблемы с созданием OnCreate и CustApp больше нет
Хм.. нет всё-таки осталось, странно вроде сразу после пересборки работало, щас опять ни в какую
Извиняюсь, но в чем конкретно проблема? Я кажется не в теме.
shade писал(а):Воспроизводиться не всегда. При первом запуске после пересборки отлично создает обработчик OnCreate...
alexs писал(а):Не компилится с последним fpc 2.3.1 - propedits.pp
объявление массива
PropClassMap:array[TypInfo.TTypeKind] of TPropertyEditorClass=(
всё дело в том, что в тип TTypeKind из модуля TypInfo добавили ещё 3 элемента
пока я просто в коней добавил 3 пустых укахателя - nil.
Павел Ишенин писал(а):Смотрите у себя. Видимо не указаны пути к исходникам fpc или в исходниках fpc нет CustApp или ... Проблема только в том, что IDE не может найти ваш CustApp и все.
alexs писал(а):привычка
значит буду каждый раз патчик туда совать перед компияцией.
