Brovin Yaroslav

В старых версиях Delphi не было возможности вносить изменения в параметры шрифта вкладки, которые были указаны в стиле. Поэтому решалось это путем создания своего нового стиля на базе стиля по умолчанию. В последних версиях среды теперь есть, как во всех других текстовых контролах свойства TextSettings и StyledSettings. TextSettings - указывает кастомные настройки текста, отличные от настроек в стиле StyledSettings - указывает, какие именно настройки текста нужно брать из стиля, а какие из TextSettings.

Картинку можно указать двумя способами: Способ 1 У каждой вкладки TTabControl есть свойство TTabItem.CustomIcon позволяющее загрузить картинку на вкладку. Способ 2. С использование TImageList Если картинки располагаются в TImageList компоненте, то нужно вначале привязать TImageList к TTabControl.Images. А затем выбрать индекс картинки у вкладки TTabItem.ImageIndex.

Готово, спасибо

ImageList1.Source.Items[0] возвращает TCustomSourceItem. А потом вы его почему-то передаете в LoadFromFile?! Правильно Вначале вытаскиваем картинку: var ImageListBitmap: TBitmapOfItem; ImageListBitmap := ImageList1.Source.Items[0].MultiResBitmap.Bitmaps[<Текущий Scale формы/экрана>]; Потом ее присваиваем в TListVIewItem: LItem.Bitmap.Assign(ImageListBitmap);

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

Специально запретил вставлять картинки по ссылке. Поскольку при удалении картинки с другого хостинга, в сообщение будет битая ссылка. Добавлять картинки как обычные вложения, а потом вставлять в тему сообщения. Так есть 100% гарантия, что изображение останется на нашем хостинге.

Так, я поясню. Нельзя работать с UI компонентами в не главном UI потоке. Отсюда у вас и ошибки через раз. Банально по причине того, что когда вы изменяете состояние UI компонента, это может привести к перерисовке. А в свою очередь процесс отрисовки может наложиться с очередной работой с этим компонентом из другого потока. Отсюда всякие AV в главной процедуре отрисовки.

Кнопку добавил. Теперь при прокручивании вниз, слева появляется кнопка по всей высоте сайта для прокрутки контента вверх

На новой версии статус тем для пользователя обновляются каждые 5 минут, чтобы снизить нагрузку на базу. Поэтому я в раздумьях. С одной стороны можно уменьшить интервал обновления...

Сделал блок последних сообщений, как раньше.

Над раскраской кода пока работаем...

К тому времени я еще не проверял перенесся ли этот функционал со старой версии.

Так и сейчас работает. Нужно просто ссылку вставить на YouTube видео:

Такую возможность добавим. Речь идет о YouTube?

Лимит вообще убрал. Спасибо за информацию.

Нет. Как вариант, можно модифицировать FMX.Platform.Win и просто добавить пересылку Dispatch сообщений прямо форме. Тогда в самой форме можно будет по VCL-ному перехватывать сообщения. Открываем модуль FMX.Platform.Win.pas и находим процедуру ориентировочно 2088 строчка: function WndProc(hwnd: HWND; uMsg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; В тело добавляем код по пересылке сообщения: begin { TODO -okewald -cVerify : We need to ensure Result is initialized. } Result := 0; LForm := FindWindow(hwnd); // Вставка по пересылке сообщения форме if LForm <> nil then begin TMsg.Msg := uMsg; TMsg.WParam := wParam; TMsg.LParam := lParam; TMsg.Result := 0; LForm.Dispatch(TMsg); uMsg := TMsg.Msg; wParam := TMsg.WParam; lParam := TMsg.LParam; end; После этого в форме можно перехватывать сообщение: uses ..., Winapi.Messages; type TForm19 = class(TForm) private procedure WMGetMinMaxInfo(var AMessage: TMessage); message WM_GETMINMAXINFO; end; var Form19: TForm19; implementation {$R *.fmx} { TForm19 } procedure TForm19.WMGetMinMaxInfo(var AMessage: TMessage); begin end; Если надо возвращать результат, как в случае с WM_GETMINMAXINFO, то в FMX.Platform

Я понял, постараюсь сделать такой же блок, который был в предыдущей версии форума.

Вы о блоке последние сообщения?

Тема с сортировкой ответов на вопросы еще будет обдумываться и переосмысляться. Так как есть несколько недостатков и достоинств. Недостатки: Сложно обсуждать ответы, так как любой пост подразумевается, как ответ По дефолту стоит сортировка по рейтингу, а не дате. Достоинства: Заставляет четче и полнее формулировать ответ, вместо размазывания ответа на 10 сообщений. Решение недостатков может быть изменение структуры форума, чтобы делить обсуждения и темы-статьи от прикладных вопросов.

Пока есть функционал или так, или как было. На счет старого варианта, буду искать и делать, но чуть позже.

Пробел между Городом и название добавил под фотографией пользователя. Посмотрите новый вариант блока последних сообщений. Возможно такой формат будет удобнее.

Добрый день, Чтобы его запустить, нужно установить свойство Enabled = True Это свойство его включает. На платформе Windows вы его не видите потому, что первая фаза анимированных кругов начинается с пустого кадра.

Добрый вечер, уважаемые форумчане, Вместе с Андреем Ефимовым мы проделали огромную работу, чтобы сделать наш форум еще удобнее и лучше, а так же решить ряд проблем, возникших в недавнее время. Работа над технической составляющей форума закончена. Однако, работа над структуризацией и модерированием тем начинается, чтобы сделать форум еще удобнее и эффективнее в решении ваших задач. Основные нововведения Быстрый вход. Использование нескольких систем входа на сайт (VK, Facebook, Google, Microsoft, Linked-In, Twitter) Введение нового формата ответов: Вопрос/Ответ. Теперь при вводе вопроса, ценится полнота и исчерпанность ответа. Это, возможно, потребует изменение структуры форума, чтобы разделять вопросы от обсуждений. Пока этот формат в процессе оценки. Мгновенные оповещения. Поддержка оповещений браузером. Теперь, если ваш браузер открыт, а форум закрыт, то при получении сообщения или новых ответов в ваших темах, вы получите системное уведомление.

Добрый день, Для Windows нативные версии этих контролов не поддерживают прозрачность. Под Андроид нативных версий нету Для iOS платформы эти контролы позволяют указывать прозрачный фон. Для этого нужно принудительно прописать следующие значение стиля в StyleLookup: TEdit - transparentedit TMemo - transparentmemo При этом не смотря на то, что в дизайн тайме фон может остаться, в рантайме нативные контролы будут использовать прозрачный фон.