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

david_yusupov

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

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

  • Посещение

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

  1. А так же при дабовление объектов на TFrame2 в дизайнере, порождение TCustomFrame ... то же все работает win2.7z
  2. Есть не красивая решение дать среде переписать файл *.fmx и дополнить свой TFrame не достающими свойствами... то все нормально открывается и собирается. PS: Зачем это делать... что бы всем TFrame приложения - задать одинаковые свойства win1.7z
  3. Использование TFrame, в приложение удобная и позволяет распределить код, и использовать его на разных формах... но есть одна беда (правда к чему эта беда относится не понятно). К пример делаем наследник от TFrame или даже полностью копируем и код TFrame (в другой unit), то все собирается и работает... Вот как только закрываем среду и заново открываем проект и обращаемся к со вему TFrame, то среда по чему-то смерится переписать файл фрейма *.fmx и добавлением свойство которых нет у TFrame. Почему так происходит и как это можно избежать этого? Где в Help (в документации) есть описание связывание файла *.fmx с объектом (порожденного от TСontrol)? ни как не найду Прилогаю файл, свои опыты (тесты) win.7z
  4. Спасибо классная штуку, очень помогло
  5. Делаю программу на подобии осциллографа, есть каретка(которое рисует график) она перемещается от 0 до Width, с шагом MIN_STEP (сейчас значение равно 1.8). До вывода графика формируется массив значение, которые в потоке рассчитываю координаты. После определены координаты строю график if Assigned(Bitmap) then begin Bitmap.SetSize(Round(Self.Width), Round(Self.Height)); with Bitmap.Canvas do begin xLeft := TPathData.Create; xRight := TPathData.Create; BeginScene; try Clear(FColor); SetLeft(xLeft, Fleft); // Копируем массив в TPathData SetRight(xRight, Fright); // Копируем массив в TPathData Stroke.Color := FColorLine; Stroke.Thickness := FThickness; Stroke.Join := TStrokeJoin.Bevel; if xLeft.Count > 0 then DrawPath(xLeft, 1); if xRight.Count > 0 then DrawPath(xRight, 1); finally EndScene; FreeAndNil(xLeft); FreeAndNil(xRight); end; end; end; Примерно раз 25 мс.по таймеру
  6. Анимированные выводит диаграмму (график), сейчас делаем вывод диаграммы на Image, с использованием Bitmap.Canvas. И анимированые осуществляем постоянной перерисовкой. ЗЫ Наблюдаеся не большое по дергивание присмешение и вызывает увелечение нагрузки на процессор.
  7. Вопрос, создал достаточно большую колекцию компанетов... решил каждому иконки, но не как не сображу. Сейчас пока изучаю Help
  8. Создание (добавить) иконки для в нов созданного компонента, в политре компонентов?
  9. Нужно сделать что-то на подобное осциллографа, выводим на график текущие данные. Когда график достигает правой стороны начинаем рисовать с начало (как говорится новые данные рисуются слева на право). При этом сохраняем старый график, который затираем новыми данными.
  10. Как очень быстро рисовать на Tcanvans, нужно перерисовать примерно раз 50 миллисекунду, да еще быстрее. Дайте мне рекомендации будут... ? ps Нужно сделать что-то на подобное осциллографа, выводим на график текущие данные. Когда график достигает правой стороны начинаем рисовать с начало (как говорится новые данные рисуются слева на право). При этом сохраняем старый график, который затираем новыми данными.
  11. исполдьзую с воем проекте библиотеку Использую в своем проекте библиотеку под OpenGL...
  12. хотел переделать проект из VCL, Firemonkey?
  13. польностью переделал проект... все заработала. (отличий не нашол, нового от старого)
  14. Большое с спасибо... для было достаточно BringToFront (для точно расположение объектов на форме использую такое свойство Children - которое хранит порядок объектов)
  15. например бросаю на форму для объекта (Tpanel), panel1 и panel2, так что бы panel2 частично покрывает panel1 – как можно управлять покрытием? так что бы видима была одна панель полностью, а потом другая - по клику на TButton.
  16. david_yusupov

    Перемещение Item – ов

    при заполнение ListBox - // ---------------------------------------- // примерный код xItem := TListBoxItem.Create(Self); xItem.Parent := ListBox; ListBox.AddObject(xItem); все нормально, по при прокрутки вниз и вверх, Item — мы меняются местами... как этого избежать
  17. david_yusupov

    Использование OpenGL?

    FireMonkey – это не графический движек, но чень удобный в плане реализации новых компонентов в виде стилей, что лишь одной фантазии ограниченно, как говорится есть одно но... Как понимаю OpenGL – это кросс платформенная библиотека, но на данный момент мне нужно её использовать под Window, как? FireMonkey – визуальные компоненты - не оконные, а используют стили.
  18. Рассмотрел, как создал Style — для компонентов удалил TstyleContainer — из стиля и перекомпелировал и все заработало, как надо как было object TStyleContainer object TLayout …. end end как стало object TLayout …. end
  19. Код объекта который создаем: TBioSeries = class(TStyledControl) private *** protected function GetStyleObject: TFmxObject; override; public *** end; Реализация данных процедуры по документации function TBioSeries.GetStyleObject: TFmxObject; const STYLE = 'BIO_CHART'; begin if StyleLookup = '' then Result := TStyleStreaming.LoadFromResource(HInstance, STYLE, RT_RCDATA) else Result := inherited GetStyleObject; end; Создаем объект динамически Bio := TBioSeries.Create(Self); Bio.Parent := Self; Bio.Cursor := crHandPoint; with Bio do begin Position.X := 10; Position.Y := 10; Height := 50; Width := 200; end; Он создается объект, но позиция его создания не соответствует x =10 и y=10 не могу понять почему... ?
×
×
  • Создать...