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

estra

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

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

  • Посещение

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

    20

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

  1. var Buttons: array[0..5] of TButton; procedure TForm1.FormCreate(Sender: TObject); var i, j: Integer; begin for i := 0 to 5 do Buttons[i] := FindComponent( Format( 'Button%d', [i+1] ) ) as TButton; Randomize; for i := 1 to 1000 do begin j := Random( 5 ); Buttons[j].Position.Y := Buttons[j].Position.Y + Buttons[j+1].Position.Y; Buttons[j+1].Position.Y := Buttons[j].Position.Y - Buttons[j+1].Position.Y; Buttons[j].Position.Y := Buttons[j].Position.Y - Buttons[j+1].Position.Y; end; end; RandomButton.zip
  2. Провел небольшой эксперимент в XE8. За неимением полных исходников кое-что пришлось подправить/закомментировать... Эксперимент 1: Если цикловые переменные сделать глобальными (что абсолютно не логично, но судя по выложенному вами фрагменту кода у вас так и есть), то получаем соответствующее предупреждение. Эксперимент 2: Если переменные локальные, всё компилируется без каких либо проблем. Если вместо закомментированных строк вставить вызов какой либо процедуры, например ShowMessage(''), то ни к каким проблемам это не приводит...
  3. Что такое TAndroidHelperClass, в каком модуле объявлено и в какой версии студии?
  4. estra

    Как получить IMEI?

    Всем привет! Если кто знает как решить этот вопрос, поделитесь решением, пожалуйста.
  5. как то так procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState); begin if Key = vkHardwareBack then // если закрывать не нужно, то begin // делай что нужно Key := 0; KeyChar := #0; end; end;
  6. estra

    FGX 0.5.0.41

    Так где версия под XE8?
  7. estra

    XE 8

    RSP-9736: Incorrect operation of breakpoints
  8. estra

    XE 8

    Один из багов, критический, который я заводил на баг-трекере, пофиксили. Это хорошо, но почему на баг-трекере не меняют статус для исправленных заявок, и узнавать об этом приходится через ручной поиск в fix листе. Не солидно, товарищи разработчики, неужели так сложно статус поменять...
  9. У меня по XE7 3 репорта с приоритетом Major и 1 с приоритетом Critical, и никакой реакции, так что Ваш Minor имеет все шансы не быть исправленным никогда
  10. Разработчики из Embarcadero похоже не реагируют на баг репорты в quality.embarcadero.com. Единственное, что они сделали, потерли комментарии к одной из моих записей
  11. estra

    FGX 0.5.0.41

    Ок, прикинемся нубами и подождем объявы на офф. сайте
  12. estra

    FGX 0.5.0.41

    Но ведь образ уже доступен для скачивания - delphicbuilder_xe8_win.iso
  13. estra

    FGX 0.5.0.41

    XE8 уже вышла, где скачать компоненты FGX для нее?
  14. Кто нибудь сталкивался с тем, что "Project -> Resource and Images ..." глючит (XE7)? Добавляю через этот пункт картинку в ресурсы, собираю, пытаюсь достать (через LoadFromResource) и получаю ошибку - нет такого ресурса. Однозначного рецепта лечения нет, нужно опять открыть это окно, потыкать там курсором, пересобрать проект... Это помогает, но не всегда с первого (и даже второго, третьего ...) раза. Я один тек парюсь с этими ресурсами, или может кто-то еще с этим сталкивался?
  15. За модуль спасибо, при случае протестирую. Хотя, к слову, сколько уже приложений на FM было написано, никогда они при закрытии не вылетали с fault(11). Хотя я не раз ловил эту ошибку на старте приложения (особенно в приложениях с несколькими формами), есть ли у Вас решение на этот случай?
  16. Поддержка MultiTouch + Gestures в XE4, прочтите 6-ой раздел (а лучше всю статью целиком), должно помочь.
  17. А клавише "Enter" в качестве подтверждения разве не подходит?
  18. А чем не устраивает Vcl.Imaging.jpeg?
  19. Может, это тот самый редкий случай, когда прога с "конкретным" функционалом "виснет" на каком либо "конкретном" устройстве?.. (это был риторический вопрос) Я столкнулся с такой ситуацией когда нужно было включить вспышку на аппарате Huawai. У вас есть возможность протестировать свой код на другом устройстве?
  20. Что подсказать то? Пример есть в архиве с компонентом, в XE7 Upd1 все нормально работает. Если у вас имеются проблемы, выкладывайте "проблемный" пример, поглядим...
  21. Похоже, вы правы. Может Ярослав прокомментирует эту ситуацию. Я сделал так: unit Unit2; interface uses {$IF DECLARED(TFmxObject)}FMX.Graphics{$ELSE}VCL.Graphics{$ENDIF}; function MakeBitmap: TBitmap; implementation function MakeBitmap: TBitmap; begin Result := TBitmap.Create; Result.SetSize( 100, 100 ); Result.Canvas.Ellipse( 0, 0, 100, 100 ); end; end. Использую: unit Unit1; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, Unit2, FMX.StdCtrls; type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.fmx} procedure TForm1.Button1Click(Sender: TObject); begin Canvas.DrawBitmap( MakeBitmap, RectF( 0, 0, 100, 100 ), RectF( 0, 0, 100, 100 ), 1 ); end; end. И получаю следующее:
×
×
  • Создать...