-
Постов
2 517 -
Зарегистрирован
-
Посещение
-
Победитель дней
264
Активность репутации
-
Равиль Зарипов (ZuBy) получил реакцию от AngryOwl в Тормоза при первом переключении вкладок TTabControl
Решение Ярослава
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Список объектов
С - базовый класс для А?
Лучше бы примерчик кода, чтобы было понятно, кто кому и как и кем приходится.
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Глобальный отступ содержимого
Если мне память не изменяет, то в последней версии делфи это можно сделать через TListBox.Padding
По мотивам темы: Как задать внутренний отступ padding для контента TScrollBox?
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Обновление форума
Победил сортировку по умолчанию. Теперь для рубрики Вопрос/Ответ по умолчанию используется сортировка по дате публикации.
-
Равиль Зарипов (ZuBy) получил реакцию от zairkz в DeviceInfo - модуль для получения информации о девайсе
Обновленная версия, кое что подправил теперь нет ошибки на IOS 64 bit
результат (Android, IPhone 4S, IPhone 6, MacOS Yosemite на виртуалке, Windows 10)
Добавлена функция isGPSActive [ANDROID], определяет включен ли сенсор на устройстве
DeviceInfo.zip
-
Равиль Зарипов (ZuBy) получил реакцию от Martifan в DeviceInfo - модуль для получения информации о девайсе
Обновленная версия, кое что подправил теперь нет ошибки на IOS 64 bit
результат (Android, IPhone 4S, IPhone 6, MacOS Yosemite на виртуалке, Windows 10)
Добавлена функция isGPSActive [ANDROID], определяет включен ли сенсор на устройстве
DeviceInfo.zip
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Обновление форума
Над этим я пока работаю. Так как по дефолту такой настройки нету. Буду думать, как сделать сортировку по умолчанию по дате.
-
Равиль Зарипов (ZuBy) получил реакцию от #WAMACO в Клонирование TListView
я пользуюсь первым вариантом, создаю такого плана record и использую его для разных вариантов отрисовок
TmyListViewDrawer = record procedure PaintBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок procedure PaintHorzBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок (горизонтально LV) procedure RestoranDrawer(const Sender: TObject; const AItem: TListViewItem); // отрисовка плиточки // настройка LV class procedure RestoranConfig(aLV: TListView); static; class procedure BludoConfig(aLV: TListView); static; class procedure MenuConfig(aLV: TListView); static; // ... class procedure RestoranAdd(aLV: TListView; const aTitle, aLocation, aURL: string; const aDistance, aRating: Real; const aMinPrice, aDeliveryPrice, aDeliveryTime: integer; const aSale: Boolean); static; // добавление Itema end; плюс в том что можно потом копировать в другие проекты, просто дополняя. а не сидеть и настраивать руками
-
Равиль Зарипов (ZuBy) получил реакцию от zairkz в Проблемы с отрисовкой
что за код находится в обработчиках OnClick этих кнопок?
есть подозрение что программист делает не то)
-
Равиль Зарипов (ZuBy) получил реакцию от Евгений Корепов в DeviceInfo - модуль для получения информации о девайсе
Обновленная версия, кое что подправил теперь нет ошибки на IOS 64 bit
результат (Android, IPhone 4S, IPhone 6, MacOS Yosemite на виртуалке, Windows 10)
Добавлена функция isGPSActive [ANDROID], определяет включен ли сенсор на устройстве
DeviceInfo.zip
-
Равиль Зарипов (ZuBy) получил реакцию от Brovin Yaroslav в DeviceInfo - модуль для получения информации о девайсе
DeviceInfo - модуль для получения информации о девайсе
Android || Windows || IOS || MAC OS
Intel планшет
для Андроида нужно включить разрешения (permission)
Ссылка на GitHub
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Проблемы с отрисовкой
Так, я поясню. Нельзя работать с UI компонентами в не главном UI потоке. Отсюда у вас и ошибки через раз. Банально по причине того, что когда вы изменяете состояние UI компонента, это может привести к перерисовке. А в свою очередь процесс отрисовки может наложиться с очередной работой с этим компонентом из другого потока. Отсюда всякие AV в главной процедуре отрисовки.
-
Равиль Зарипов (ZuBy) получил реакцию от Евгений Корепов в Клонирование TListView
я пользуюсь первым вариантом, создаю такого плана record и использую его для разных вариантов отрисовок
TmyListViewDrawer = record procedure PaintBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок procedure PaintHorzBitmaps(Sender: TObject; Canvas: TCanvas; const ARect: TRectF); // динамическая отрисовка картинок (горизонтально LV) procedure RestoranDrawer(const Sender: TObject; const AItem: TListViewItem); // отрисовка плиточки // настройка LV class procedure RestoranConfig(aLV: TListView); static; class procedure BludoConfig(aLV: TListView); static; class procedure MenuConfig(aLV: TListView); static; // ... class procedure RestoranAdd(aLV: TListView; const aTitle, aLocation, aURL: string; const aDistance, aRating: Real; const aMinPrice, aDeliveryPrice, aDeliveryTime: integer; const aSale: Boolean); static; // добавление Itema end; плюс в том что можно потом копировать в другие проекты, просто дополняя. а не сидеть и настраивать руками
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Обновление форума
Кнопку добавил. Теперь при прокручивании вниз, слева появляется кнопка по всей высоте сайта для прокрутки контента вверх
-
Равиль Зарипов (ZuBy) получил реакцию от krapotkin в DeviceInfo - модуль для получения информации о девайсе
Обновленная версия, кое что подправил теперь нет ошибки на IOS 64 bit
результат (Android, IPhone 4S, IPhone 6, MacOS Yosemite на виртуалке, Windows 10)
Добавлена функция isGPSActive [ANDROID], определяет включен ли сенсор на устройстве
DeviceInfo.zip
-
Равиль Зарипов (ZuBy) отреагировална zairkz в С помощью каких компонентов проще всего реализовать онлайн чат?
Можно помучаться с 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
-
Равиль Зарипов (ZuBy) отреагировална #WAMACO в Обновление форума
Было бы очень хорошо вставлять видео, чтобы можно было размещать небольшие ролики, показывающие наглядно какие-то проблемы, их решения, небольшие мастер классы от профи!
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Обновление форума
Лимит вообще убрал. Спасибо за информацию.
-
Равиль Зарипов (ZuBy) отреагировална zairkz в Обновление форума
Пожалуйста сделайте возможность нажимать нравиться больше чем 10 раз на день, уж очень мне многое нравиться, а лайкнуть не могу)), лимит 30 хотя бы.
-
Равиль Зарипов (ZuBy) получил реакцию от zairkz в Обновление форума
Еще нужно сгруппировать "последние сообщения, а то одна тема везде
-
Равиль Зарипов (ZuBy) получил реакцию от zairkz в Обновление форума
исправьте отображение Города под аватаркой.
и не всегда темы становятся прочитанными... не удобно
а уведомлением вообще классно стало жить!
-
Равиль Зарипов (ZuBy) отреагировална #WAMACO в Обновление форума
Спорно, а если я в конце дня хочу посмотреть все сообщения за день!
В старом варианте, я сразу видел сообщения за сегодня, за вчера и т.д.
-
Равиль Зарипов (ZuBy) отреагировална Brovin Yaroslav в Обновление форума
Я понял, постараюсь сделать такой же блок, который был в предыдущей версии форума.
-
Равиль Зарипов (ZuBy) получил реакцию от krapotkin в Обновление форума
Еще нужно сгруппировать "последние сообщения, а то одна тема везде
-
Равиль Зарипов (ZuBy) отреагировална krapotkin в Обновление форума
блин, имхо, плохое умолчание ((
и опять имхо же дизайн уж слишком раздольный получился
2-3 поста на FullHD - как-то жирно. даже в окне редактора высота строки 300%