Перейти к содержанию
Fire Monkey от А до Я

osvirt

Пользователи
  • Постов

    23
  • Зарегистрирован

  • Посещение

Активность репутации

  1. Like
    osvirt отреагировална sinuke в Возможно ли сделать такой интерфейс с ЛистВью?   
    да, легко
    вот мое расписание в листвью
     

  2. Like
    osvirt получил реакцию от Dmitry Stolyarov в Unsupported media file   
    Реанимирую тему.
    Вылезла такая же ситуация, при очень странных обстоятельствах.
    Накануне вечером компилил проект - всё проигрывалось. Комп не выключался на ночь, IDE не закрывал, утром запускаю - ошибка.
    Что ещё страннее - скомпилированный и работавший вчера ехешник, лежащий в другой папке с другой копией mp3шного файла, тоже ругается.
  3. Like
    osvirt получил реакцию от Anatoliy в Печать с планшета   
    Вдруг кому-то ещё пригодится...
    Для своих нужд, я написал небольшое десктопное приложение-принтсервер. Отправляю данные с планшета на него, а тот уже формирует нужные мне отчёты и отправляет на нужный принтер (для каждого клиента, соответственно можно настроить свой, или для всех один)
  4. Like
    osvirt получил реакцию от Евгений Корепов в TIdTCPClient.Host Как использовать имя компьютера в сети без домена   
    Кажется пора переводить свои приложения на app tethering... к чему все эти танцы с бубном?!
  5. Like
    osvirt получил реакцию от Andrey Efimov в Печать с планшета   
    всё просто же! Всего-то и надо, что скачать ещё одно приложение на мобилу, купить принтер, поддерживающий AirPrint, зарегистрировать мобилу и принтер в Google cloud Print... и в итоге всё равно каким-то образом подготавливать отчёт ручками...
    Сомнительное удовольствие, нет?!
  6. Like
    osvirt отреагировална enatechno в Печать на сетевом принтере   
    У нас тоже печать через базу данных. Отличие от описанного варианта только в том что база удаленная, а служба печати может быть установлена на любом клиентском компе с Windows, с которого и идет печать на любой принтер доступный с этого клиентского компа. При этом на клиенте служба может быть настроена для выбора только определенных заданий печати (например задания только определенного отдела или задания отправленные только с определенных терминалов).
  7. Like
    osvirt отреагировална zairkz в Печать на сетевом принтере   
    Первое что пришло в голову в виде "бреда", точнее так уже сделали))
    Но не знаю насколько вам подойдет такое решение.
    У нас есть сервер базы данных, на сервере понятно есть все данные необходимые для печати, принтер настроен на сервере, на сервере есть служба которая мониторит базу (таблицу) в которой если появилась новая команда для печати тогда служба формирует документ из данных базы с использованием FastReport, и кидает на принтер по умолчанию для печати.
    Сервер (а точнее комп Pentium DualCore, 2 gb RAM) на котором MySQL, Windows (хотя FastReport есть и для Linux (beta)) работает автономно уже 8-й месяц, и за это время не прикоснулись к нему ни разу (даже если честно очень странно)
  8. Like
    osvirt получил реакцию от kratos23 в Нерабочий Style Designer => непригодная к эксплуатации XE7   
    День добрый.
     
    К слову о дизайнере стилей: для чего вообще нужен был дополнительный наворот с недоделанным интерфейсом? Чем не устроил готовый редактор формы, в котором можно делать всё то же самое но БЕЗ косяков с обновлением положения, размера, цвета, выделения элементов мышой?
     
    Почему нельзя было реализовать его по принципу DataModule? - desing-time отображаемый невизуальный компонент, содержащий в себе кучу вложенных компонентов.
  9. Like
    osvirt получил реакцию от HarrisNuh в Возможно ли создать свои тригеры для запуска анимации? 2   
    Т.к. похожая тема закрыта, пришлось создавать новую.
     
    Ситуация такая: есть кастомный listboxitem с детальной информацией. Еще есть бешеное желание перекрашивать текст Detail в зависимости от содержимого: соответствует содержимое условию или нет.
    Возможно-ли создать свой собственный триггер, на который потом повешать анимацию изменения цвета? Или тут всё сложнее: сделать наследника TListBox, добавить ему булевое свойство (соответствует / не соответствует) и уже на это свойство вешать триггер?
     
    (если какой-нибудь примерчик попрошу, ногами пинать не будете?)
  10. Like
    osvirt отреагировална Brovin Yaroslav в Возможно ли создать свои тригеры для запуска анимации? 2   
    Вот, посмотрите пример. 4_5.zip
    Пример показывает создание двух триггеров и их использование в стилях. Сделан компонент, который в зависимости от положения курсора внутри него перекрашивает панель в разные цвета.
    Это пример из моей книги.
  11. Like
    osvirt отреагировална Brovin Yaroslav в Редактирование стиля, как добавить "TStyleObject", "TActiveStyleObject" и т.п.?   
    По умолчанию эти объекты стиля и другие не зарегистрированы в палитре инструментов.
    Эти объекты используются только в стилях для:
    Упрощение создания стиля за счет композиции контролов для достижения наиболее часто используемых функций (смена изображений по триггеру в зависимости от состояния контрола  - кнопка с тремя состояниями, Текст с тенью) Увеличения производительности работы стиля за счет композиции контролов. Уменьшение размера стиля за счет повторного использования одного исходного изображения в однотипных контролах (TButton, TSpeedButton и тд). То есть вместо загрузки по отдельности каждого изображения в стиль каждого контрола, можно использовать изображения по ссылке. Чтобы их использовать, нужно их зарегистрировать в среде IDE RAD Studio.
    Это делает вот этот пакет: 
    RAD Studio XE5 - FMX Style Objects.zip RAD Studio XE6 - FMX Style Objects (XE6).zip После установки пакета в палитре инструментов появится вкладка "Style Object", в которой будут находится все служебные стилевые объекты среды RAD Studio XE5.
     
    Список добавляемых стилевых объектов: 
    TStyleObject - Использование изображения по ссылке на оригинал и области в этом изображении. Не загружает повторно объект. TSubImage - Использование изображения по ссылке на оригинал и области в этом изображении. Не загружает повторно объект. TActiveStyleObject - Объект для смены одного изображения на другое с указанным типом анимации и указанным триггером. TTabStyleObject - специальный объект для быстрого создания стиля вкладки TTabControl TCheckStyleObject - специальный упрощенный объект для создания стиля TCheckBox TButtonStyleObject - упрощенный объект стиля кнопки с поддержкой загрузки отдельных изображений на каждое состоянии кнопки (нормальное, фокус, под мышкой, нажатое) TSystemButtonObject - стиль системной кнопки. То же, что и TButtonStyleObject, только с дополнительным состоянием - неактивная кнопка TStyleTextObject - объект для быстрого создания стиля текст с тенью. TStyleTextAnimation - объект анимации для смены цвета и тени текста  TActiveStyleTextObject - объект стиля для создания текста с тенью и переключению цвета текста и тени на другой по анимации и триггеру. TTabStyleTextObject - объект стиля для создания вкладки с текстом для TTabControl. TButtonStyleTextObject - объект стиля для создания стиля кнопки с текстом. TActiveOpacityObject - объект для смены прозрачности контрола. TBrushObject - объект хранящий кисть TBrush TBitmapObject - объект хранящий изображение TBitmap TFontObject - хранение шрифта TFont TPathObject - хранение SVG пути TPath TColorObject - хранение цвета TAlphaColor
  12. Like
    osvirt отреагировална Andrey Efimov в Компилятор игнорирует программное изменение свойств компонентов   
    Слипом вы подвешиваете главный поток, поэтому кнопка остаётся нажатой. Почему не происходит прорисовка, я точно сказать не могу, но скорее всего связано с подвешенным главным потоком.
     
    Чтобы ваш код заработал, можно, например, использовать "Application.ProcessMessages" (кнопка будет нажата):
    procedure TForm1.Button1Click(Sender: TObject); begin   Panel1.Visible := True;   Application.ProcessMessages;   Sleep(3000);   Panel1.Visible := False;   Application.ProcessMessages; end; Или воспользоваться потоками (кнопка будет в обычном состоянии):
    procedure TForm1.Button1Click(Sender: TObject); begin   TThread.CreateAnonymousThread(   procedure   begin     TThread.Synchronize(nil,     procedure     begin       Panel1.Visible := True;     end);     TThread.Sleep(3000);     TThread.Synchronize(nil,     procedure     begin       Panel1.Visible := False;     end);   end   ).Start; end; Можно написать вот так (без синхронизации тоже работает, это у меня уже в привычку вошло, работу с визуальными компонентами в синхронизацию запихивать): Используйте вариант описанный выше.
     
    Возможно, есть более лучшее решение...
×
×
  • Создать...