Лидеры

У edit есть свойство ReturnKeyType нужно установить его в Next но некоторые клавиатуры косячат и могут игнорить эту установку гугл вроде норм. работает

Добрый день! Похожая ситуация была, когда я не уследил за обращениями из не основного потока к экранным компонентам - работает, работает, а потом бац и "Все, они пропали" (с) South park.

Используйте свойство OnTap Для удобства разработки можно повторить команды OnTap в OnClick в директивах: Procedure ListBoxOnClicl;;; begin {$IFDEF MSWINDOWS} BlaBla {$ENDIF} end;

Проблему автор наверно уже решил, но просто напишу из наблюдений - думаю, что это глюк какой-то. Для его решения поместил на tabcontrol элемент panel и присвоил ей align = client, а потом на ней разместил все необходимые элементы с align = scale и все здорово работает, но ... в windows. на андроид нужно создать событие первоначальное, которое бы обрабатывало масштабируемость элементов (пока не нашел). ну и плюс (или минус)))) размеры шрифта нужно изменять вручную в зависимости от масштаба ;-)

TksChatView component for building iOS style chat applications

Можно помучаться с TListView, но я остановился на TPresentedScrollBox и стилизованных Label'ах (облачки сообщений, под разные scale на png 9patch), скорость скролла хорошая, плюс есть боунсы и тд. Приложил исходники проекта, также в архиве отдельно chat.style procedure TForm2.ChatUp(UsID: integer; LastId: integer; CText: string); var Labb: TLabel; Marg: Single; LT: TLayout; begin LT := TLayout.Create(PR); LT.Parent := PR.Content; LT.Margins.Top := 2; LT.Align := TAlignLayout.Top; LT.Position.Y := PR.ContentBounds.Height + 50; Marg := PR.Width * 0.20; Labb := TLabel.Create(PR); Labb.Parent := PR; Labb.Align := TAlignLayout.Top; Labb.AutoSize := True; Labb.WordWrap := True; Labb.TextSettings.WordWrap := True; if UsID = 0 then begin Labb.Margins.Left := Marg; Labb.Margins.Right := 4; Labb.TextAlign := TTextAlign.Trailing; Labb.StyleLookup := 'labelchat_green'; end else begin Labb.Margins.Right := Marg; Labb.Margins.Left := 4; Labb.TextAlign := TTextAlign.Leading; Labb.StyleLookup := 'labelchat_white'; end; Labb.NeedStyleLookup; Labb.Text := ' ' + CText + ' '; LT.Height := Labb.Height + 4; Labb.Parent := LT; if UsID = 0 then Labb.Align := TAlignLayout.Right else Labb.Align := TAlignLayout.Left; end; Первые признаки шизофрении: Chat.zip

Лучше сделайте сразу правильно, все равно придете к этому, при загрузке фото на сервер переименовывайте файл, общепринятый вариант дать определенное стандартное имя, например наименование вашего проекта и время в формате unix, например: Name+1424238237362, далее от имени сгенерировать MD5 хэш, и записать его в базу, после чего вернуть в ответ имя нового файла если нужен. Таким образом даже если будут одинаковые файлы имена не повторятся, а вот Random без проверки точно повторится, да и проверять надо постоянно базу шерстить.

procedure TForm1.FormCreate(Sender: TObject); begin chat:=TChatBox.Create(Layout1); Chat.Align:=TAlignLayout.Client; Chat.MsgWidthPercentage:=66; Chat.CalloutLength:=10; Chat.CalloutXRadius:=5; Chat.CalloutYRadius:=5; Chat.MessageFontSize:=14; Layout1.AddObject(Chat); end; Как то так...

да только с меня второй день требуют чтобы я их извел под корень(( обещают всякие нехорошие вещи ) я бы всю программу в try - except завернул )) пробовал fgxApplication.OnException туда не приходит (((

Буквы в название большие написал) FDConnection1.Params.Values['DataBase'] :=GetHomePath+PathDelim+'Sales.Db3' было 'SALES.Db3'

Помогло, только для срабатывания OnTap пришлось на Item-ах установить HitTest=true. Думал скроллинг не будет работать, но нет, - работает. Выделение элемента только не работает, но оно мне не нужно.

Ну во первых у вас не прогрузились стили, попробуйте использовать процедуру по предварительной прогрузке стилей в теме ниже, Во вторых можно попробовать DisableDisapear, с небольшим количеством компонентов вполне нормальное решение, тоже в теме ниже: В третьих например можно разместить скрытый TImage на вкладке TabItema, при этом разместить контролы в Лайауте и при анимации снять скриншот Лайаута, затем скрыть Лайаут и показать Timage. С TabControl я не пробовал, но с MultiView (Push - выталкивание меню в iOS) вполне пригодна

У нас, есть такие темы: Чат - элементы форм Сообщения чата в виде сообщений в iphone Чат со смайлами

Статья: http://community.embarcadero.com/blogs/entry/timagelist101ru-1 Автор: Сергей Рощин Обзор новых возможностей, которые появились в компоненте и редакторе TImageList для Delphi R101 (2016 год, Version 24)

свой компонент пишешь. выводишь последовательно на канве текст и картинки. рассчитываешь высоту текста и картинки и следующую строку рисуешь уже с учетом высоты картинки. и так далее. http://www.torry.net/vcl/edits/memos/chatedit.zip то что я говорил но реализация на с++

В общем если кто-то будет искать, то вот такой позорный костыль капельку улучшает ситуацию: if ((NewViewportPosition.Y+MemoInheritor.Height)- round(MemoInheritor.GetContentBounds.Height)) = 2 then MemoInheritor.ViewportPosition := TPointF.Create(MemoInheritor.ViewportPosition.X, MemoInheritor.ViewportPosition.Y+2); Этот код в событии "OnViewportPositionChange", MemoInheritor - наследник TMemo.