Razmir

18 часов назад, GASCHE сказал:

Попробуйте Width и Heigh взять из координаты ARect события OnPainting, мне помогло. 

    PROCEDURE pbGraphPainting( Sender : TObject; Canvas : TCanvas; const ARect : TRectF );

...

   _rGraph.OnPainting := pbGraphPainting;

 

Попробовал, то же самое.

В общем на панель кинул rectangle, сетку рисую на нем, а объекты размещаю на панели, так все норм

Приветствую. Рисую координатную сетку с помощью такого кода:

  with Panel1 do
  begin
    Canvas.BeginScene;
    try
      Canvas.Stroke.Color:=talphacolorRec.Darkgrey;
      b:=trunc(Width/CellSize)-1;
      c:=trunc(height/CellSize)-1;
      for a := 0 to b do
      begin
        if (a mod 10 = 0) then Canvas.Stroke.Thickness:=2 else Canvas.Stroke.Thickness:=1;
        Canvas.DrawLine(PointF(a * CellSize + 0.5, 0.5), PointF(a * CellSize + 0.5, height-1), 1);
      end;
      for a := 0 to c do
      begin
        if (a mod 10 = 0) then Canvas.Stroke.Thickness:=2 else Canvas.Stroke.Thickness:=1;
        Canvas.DrawLine(PointF(0.5, a * CellSize + 0.5), PointF(width-1, a * CellSize + 0.5), 1);
      end;
      finally
      Canvas.EndScene;
    end;
  end;

Проблема в том, что при размещении компонентов на панели, сетка рисуется и на них. Как от этого избавиться? Спасибо.

Доброго всем. Подскажите, как программно поменять громкость проигрываемой музыки в андроид (уменьшить, увеличить), либо вызвать системный регулятор громкости? Заранее благодарен.

В 09.10.2015 в 13:24, Евгений Корепов сказал:

Огромное спасибо!!! Все заработало! Проблема видимо в косячном примере от embarcadero. 

 

Проверку InAppPurchase.IsProductPurchased(ProductId) необходимо выполнять в событии OnProductsRequestResponse, т.е. после завершения ,видимо ассинхронного, InAppPurchase.QueryProducts.

А никак не в OnSetupComplete как в примере от Embarcadero "CapitalIAP". Кстати в Delphi 10 тот же косяк в примере, видимо они даже не пробовали проверять его работоспособность.

Доброго времени суток. С ембаркадеровским примером разобраться не смог, а здесь все доступно. Респект. Но все таки проблема есть. У меня почему то при попытке оплаты выдает - "Необходимо войти в аккаунт", хотя я в аккаунте и с других приложений все нормально проходит.

Неужели ни кто не разобрался с этим?