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

estra

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

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

  • Посещение

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

    20

Сообщения, опубликованные estra

  1. Провел небольшой эксперимент в XE8. За неимением полных исходников кое-что пришлось подправить/закомментировать...
     
    Эксперимент 1:
     
    7113663.png

    Если цикловые переменные сделать глобальными (что абсолютно не логично, но судя по выложенному вами фрагменту кода у вас так и есть), то получаем соответствующее предупреждение.
     
    Эксперимент 2:
     
    7138238.png

    Если переменные локальные, всё компилируется без каких либо проблем.

     

    Если вместо закомментированных строк вставить вызов какой либо процедуры, например ShowMessage(''), то ни к каким проблемам это не приводит...

  2. И еще подскажите, как сделать что бы при нажатии кнопки "Назад" не закрывалось приложение сразу, а переходило на предыдущую страницу и если нету предыдущей, тогда закрыть.

     

    как то так

    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;
    
  3. Bug fix list for RAD Studio XE8

    http://edn.embarcadero.com/article/44358

    Один из багов, критический, который я заводил на баг-трекере, пофиксили. Это хорошо, но почему на баг-трекере не меняют статус для исправленных заявок, и узнавать об этом приходится через ручной поиск в fix листе. Не солидно, товарищи разработчики, неужели так сложно статус поменять...

  4. Кто нибудь сталкивался с тем, что "Project -> Resource and Images ..." глючит (XE7)? Добавляю через этот пункт картинку в ресурсы, собираю, пытаюсь достать (через LoadFromResource) и получаю ошибку - нет такого ресурса. Однозначного рецепта лечения нет, нужно опять открыть это окно, потыкать там курсором, пересобрать проект... Это помогает, но не всегда с первого (и даже второго, третьего ...) раза.

     

    Я один тек парюсь с этими ресурсами, или может кто-то еще с этим сталкивался?

  5. За модуль спасибо, при случае протестирую. Хотя, к слову, сколько уже приложений на FM было написано, никогда они при закрытии не вылетали с fault(11). Хотя я не раз ловил эту ошибку на старте приложения (особенно в приложениях с несколькими формами), есть ли у Вас решение на этот случай?

  6. Может, это тот самый редкий случай, когда прога с "конкретным" функционалом "виснет" на каком либо "конкретном" устройстве?.. (это был риторический вопрос) Я столкнулся с такой ситуацией когда нужно было включить вспышку на аппарате Huawai. У вас есть возможность протестировать свой код на другом устройстве?

  7. Похоже, вы правы. Может Ярослав прокомментирует эту ситуацию. Я сделал так:

    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.
    
    

    И получаю следующее:

     

    5153927.jpg

×
×
  • Создать...