HyperZen

Ставьте CnWizards

Это я немного затупил

Обнаружил одну странность (Delphi 10 Seattle update 1), если использовать одну кнопку в диалоге, то по модальному результату mrYes, нет срабатывания процедуры. Стоит добавить вторую кнопку, все начинает работать как надо. Почему так? MessageDlg('Выйти из программы?', TMsgDlgType.mtInformation, [TMsgDlgBtn.mbYes], 0, procedure(const AResult: TModalResult) begin case AResult of mrYes: Close; end; end);

Сам столкнулся с этой проблемой, пока не установил хотфикс, указанный выше, тормоза не исчезли.

Да, работает! Большое спасибо! У меня ошибка была - использовал FMX.Helpers.Android заменил на новую Android.Helpers и поправил варнинги. Все заработало. (надо разбираться сначала, прежде, чем тему быстрее на форуме постить))

Нет, к сожалению. Это было первое, что я попробовал

Добрый день! Сабж, собственно, все примеры, приведенные в интернете, не работают под Delphi Seattle. Кто-нибудь решал данную задачу?

Нашел "проблему": при значении шрифта итема по-умолчанию (Default) расчет происходит неверно. Стоит только выставить шрифт вручную, например Size = 14, расчеты все верны, высота итема корректна.

я так понял он только для update 1? А поделиться этим хотфиксом можете?

Огромное спасибо!

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

ZuBy, можете помочь? При большом тексте все равно некорректный подсчет. А вообще глупый вопрос - у меня в программе выводится по 50-70 блоков текста (абзацы довольно-таки большие), есть ли смысл вообще заморачиваться с TListView? Может можно и TListBox обойтись?

Прием

А есть рабочий пример, который корректно работает с большим текстом (3-4 абзаца, например, какой-нибудь книги)?

TS.WordWrap := true задан. Все равно некорректный подсчет ... Странно...

Спасибо огромное! Некорректно отображает высоту итема при большом тексте

ZuBy, можете скинуть любой рабочий пример использования данной функции. Миллион ошибок у меня вылезает

А что за компонент FWorkRectF? И что такое MaxSingle? И можно пример применения?

При использовании данного примера вываливается целая куча ошибок. Кто может помочь? [dcc32 Error] uMain.pas(38): E2238 Default value required for 'aFont' [dcc32 Error] uMain.pas(81): E2076 This form of method call only allowed for class methods or constructor (TTextLayout.BeginUpdate) [dcc32 Error] uMain.pas(83): E2233 Property 'Text' inaccessible here [dcc32 Error] uMain.pas(84): E2233 Property 'MaxSize' inaccessible here [dcc32 Error] uMain.pas(85): E2233 Property 'WordWrap' inaccessible here [dcc32 Error] uMain.pas(86): E2233 Property 'Font' inaccessible here [dcc32 Error] uMain.pas(87): E2233 Property 'HorizontalAlign' inaccessible here [dcc32 Error] uMain.pas(88): E2233 Property 'VerticalAlign' inaccessible here [dcc32 Error] uMain.pas(90): E2076 This form of method call only allowed for class methods or constructor (TTextLayout.EndUpdate) [dcc32 Error] uMain.pas(92): E2233 Property 'Height' inaccessible here

Хотелось бы получать необходимую информацию с сайта (дата, номер цитаты, текст) одной регуляркой, как и в примере выше...

Добрый день! При парсинге сайта (bash.im) и при использовании компонента TRegExpr и компиляции программы под Windows все работает нормально: procedure TForm1.Button22Click(Sender: TObject); var s: string; regexpr: TRegExpr; ss: TStringStream; begin ss := TStringStream.Create('', TEncoding.GetEncoding(1251)); try IdHTTP1.Get('http://bash.im/', ss); ss.Position := 0; s := ss.DataString; finally ss.Free; end; regexpr := TRegExpr.Create; try regexpr.Expression := 'class="date">(.*?)<.*?class="id">(.*?)<.*?class="text">(.*?)<'; if regexpr.Exec(s) then repeat mmoLetters.Lines.Add(regexpr.Match[1]); mmoLetters.Lines.Add(regexpr.Match[2]); mmoLetters.Lines.Add(regexpr.Match[3]); until not regexpr.ExecNext; finally regexpr.Free end; end; Но при компиляции приложения под Android, выдает ошибку... Использую RegularExpressions из состава Delphi 10 Seattle: uses System.RegularExpressions ... procedure TfrmMain.ParsingBashNew(URLToPars: string); var Matches: TMatchCollection; RegExpr: TRegEx; i: Integer; RegularExpressString : string; begin mmoNew.Lines.Clear; HTMLText := IdHTTP1.Get(URLToPars); RegularExpressString := 'class="date">(.*?)<.*?class="id">(.*?)<.*?class="text">(.*?)<'; RegExpr := TRegEx.Create(RegularExpressString, [roIgnoreCase, roMultiLine]); Matches := RegExpr.Matches(HTMLText); if Matches.Count > 0 then begin mmoNew.BeginUpdate; for i := 0 to Matches.Count -1 do begin mmoNew.Lines.Add(Matches.Item[i].Groups[1].Value); mmoNew.Lines.Add(Matches.Item[i].Groups[2].Value); mmoNew.Lines.Add(Matches.Item[i].Groups[3].Value); mmoNew.Lines.Add('=============================='); end; mmoNew.EndUpdate; end; end; То же самое регулярное выражение на работает. В чем может быть загвоздка? (если отбросить последнюю составляющую регулярки - '.*?class="text">(.*?)<' - тоже все работает!)

Есть ли у кого такой пример?

Я так понял дополнительный модуль для работы с регулярными выражениями в новых версиях Delphi не нужен? Seattle установил совсем недавно.

Столкнулся с проблемой при использовании компонента TRegExpr : при компиляции приложения под Windows все прекрасно работает. При компиляции под Android - 2 ошибки (Delphi 10 Seattle): [DCC Error] RegExpr.pas(105): E2003 Undeclared identifier: 'WideString' [DCC Fatal Error] RegExpr.pas(634): F2613 Unit 'Windows' not found. Как их обойти?

Еще один вопрос: как автоматически изменять высоту TListVewItem'а относительно введенного в него текста?