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

AngryOwl

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

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

  • Посещение

  • Победитель дней

    45

Весь контент AngryOwl

  1. Попробуйте так aItem.StylesData['labelname1.text'] := '.......';
  2. Спасибо! Развлекался как-то, давно. Было просто самому интересно - как такое сделать
  3. AngryOwl

    Notification

    Сдается мне - это было вплоть до XE7, а дальше заменили на System.Notification В смысле - думаю, что нужно прописать юнит System.Notification, вместо FMX.Notification
  4. вдогонку, кому интересно SampleCPUUsage.zip
  5. Елки зеленые... Не подумал) вот исправлено на стандартный TImage SampleClock.zip
  6. Думаю что автофокус (autoFocus) выключен, по умолчанию. Надо как-то его включить типа что-то такого: Camera.FocusMode := .......; хотя сейчас просто не помню точно З.Ы. можно просто по коду поискать в ...\Program Files (x86)\Embarcadero\Studio\15.0\source\fmx\FMX.Media.pas З.З.Ы. описание (условное))) по работе с камерой примерно там
  7. Тут экстрасенсов нет ))) Надо увидеть проект З.Ы. Вы случаем "ручками" в коде ничего не прописали? )) З.З.Ы. посмотрите настройки проекта в IDE, типа этого
  8. Типа так ) SampleClock.zip и никаких "сдвигов" и прочего... все просто ))
  9. ааа... ну это просто баг посмотрите свойство Position - она просто "улетает" далеко) а если эту кнопку удалить и еще раз создать кнопку - то все будет ок? если ей поставить Align=Scale
  10. Свойство FullSize тут ни при чем. Я бы посоветовал вам попробовать изменить у TTabControl стандартный стиль (даже если он не включен, то все-равно работает) изменить на какой-либо другой. Например "imagecellstyle". И меняйте тогда уже у TTabControl свойство TabHeight на нужное вам.
  11. Во-первых - я думаю, что FMX.Types.GlobalUseDirect2D:=false; не единственное решение. (на собственном опыте) Во-вторых - если не очень много "активной" графики, то это не скажется сильно на быстродействии (опять же - на собственном опыте) Ну и наконец, насколько я понимаю, - не реально ДО определения данных переменных GlobalUseDX10 GlobalUseDX10Software и прочих... что-либо сделать предварительно... Я, конечно, могу ошибаться. И буду искренне признателен, если меня поправят и напишут тут - как можно менять их до того как приложение инициализируется.
  12. Я бы советовал Вам посмотреть ответ Ярослава. procedure PreloadContent(const Control: TControl); Не уверен, но думаю он Вам поможет.
  13. Вариантов два: - создать соответствующий стиль - создавать "ручками" в рантайме В обоих случаях - все-равно "ручками" задавать обработчики и т.п. И да, - тема обсуждалась много. Вам нужно повнимательнее посмотреть на форуме. Не только что касется TListBoxItem, но и TListBox и другие темы. Например это.
  14. - Откройте Notepad++ - загрузите в него Ваш стиль (*.style) - найдите любой ....button и сделайте копию этого блока - назовите его иначе (StyleName = '___buttonstyle') - сохраните файл и откройте его в проекте - увидите вашу "новую" кнопку "___buttonstyle" - меняйте ее как Вам угодно... вот вы получите новый стиль кнопки это просто самый быстрый вариант создать "унаследованный" вариант кнопки, но со своим стилем) Вообще вариантов много...
  15. Делайте все Ваши "тяжелые" операции (или их часть) в TThread.Synchronize(TThread.CurrentThread, ......);
  16. Попробуйте скомпилить проект с параметрами ... GlobalUseDX10 := False; GlobalUseDX10Software := True; // или GlobalUseDXInDX9Mode := True; Application.Initialize; ... и посмотрите на результат. Можно "поиграть" с этими параметрами. Если не поможет - будем думать...
  17. Приходила такая идея в голову, но! WindowState всегда wsNormal. Очень странно, потому-что у меня все работает
  18. В принципе можно сделать так (совсем уж просто): procedure TfmForm1.FormDeactivate(Sender: TObject); begin if fmMain.WindowState = TWindowState.wsMinimized then ShowMessage('Minimized'); end;
  19. Думаю, что все должно быть как для VCL-приложений. protected procedure WMSysCommand(var Msg:TMessage); message WM_SYSCOMMAND; procedure TfmForm1.WMSysCommand(var Msg:TMessage); begin if Msg.WParam=SC_MINIMIZE then begin ..... end else inherited; end; не уверен, не пробовал, но "копать" - в том направлении..
  20. TfmForm1 = class(TForm) ....... protected procedure CreateHandle; override; procedure TfmForm1.CreateHandle; begin inherited CreateHandle; ShowWindow(ApplicationHWND, SW_HIDE); end;
  21. т.е. Вы попробовали? или просто так.. по "наитию" пришли к такому выводу?
  22. Не знаю, конечно, как остальным, но как по мне - так ссылка крайне неудачная... Отпадает желание смотреть.
  23. Попробуйте uses {$IFDEF MSWINDOWS}, Winapi.Windows, FMX.Platform.Win{$ENDIF}; {$IFDEF MSWINDOWS} ShowWindow(ApplicationHWND, SW_HIDE); {$ENDIF}
×
×
  • Создать...