Delphi FireMonkey memo

uses  FMX.Platform;
var
  log: IFMXLoggingService;
begin
  log := TPlatformServices.Current.GetPlatformService(IFMXLoggingService) as IFMXLoggingService;
  log.Log('%s', [str]);

{$IF DEFINED(iOS) or DEFINED(ANDROID)}
{$ENDIF}

{$IFDEF MSWINDOWS}
{$ENDIF}

  Memo1.Lines.Add(str);
  Memo1.ScrollTo(0, Memo1.Font.Size * 2 * Memo1.Lines.Count);

Memo1.ScrollTo(0, -1);

  Memo1.Lines.Add(str);
  Memo1.GoToTextEnd;
  Memo1.GoToLineBegin;

  Memo1.Lines.Add(str);
  Memo1.GoToTextEnd;

C:\Users\Public\Documents\RAD Studio\10.0\Samples\FireMonkey

uses System.UIConsts
 claRed
 claGreen
 claBlue
 claBlack
 claWhite

procedure TIxBG.Draw(Canvas: TCanvas);
var
  src_rct: TRectF;
  dst_rct: TRectF;
  clip_rct: TRectF;
  wd2, hd2: Single;
  w, h: Single;
  save: TCanvasSaveState;
begin
  if Bitmap = nil then
    Exit;

  wd2 := (Bitmap.Width / 2) * DrawParams.Scale * Scale;
  hd2 := (Bitmap.Height / 2) * DrawParams.Scale * Scale;
  w := (DrawParams.Width / 2) * DrawParams.Scale * Scale;
  h := (DrawParams.Height / 2) * DrawParams.Scale * Scale;
  src_rct := RectF(0, 0, Bitmap.Width - 1, Bitmap.Height - 1);
  dst_rct := RectF(X - wd2, Y - hd2, X + wd2 - 1, Y + hd2 - 1);
  clip_rct := RectF(X - w, Y - h, X + w - 1, Y + h - 1);

  save := Canvas.SaveState;
  try
    Canvas.IntersectClipRect(clip_rct);
    Canvas.DrawBitmap(Bitmap, src_rct, dst_rct, 1.0);
  finally
    Canvas.RestoreState(save);
  end;
end;

procedure TForm1.FormPaint(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  Canvas.BeginScene;
  Canvas.Stroke.Kind:=TBrushKind.Solid;
  Canvas.Stroke.Color := claBlack;
  Canvas.Stroke.Thickness := 1.0;
  Canvas.DrawLine(PointF(0, 0), PointF(100, 100), 1.0);
  Canvas.EndScene;
end;

  ImageControl1.Bitmap.Create(Trunc(ImageControl1.Width), Trunc(ImageControl1.Height));
  ImageControl1.Bitmap.Canvas.BeginScene;
  try
    ImageControl1.Bitmap.Clear($FFFFFFFF);
    ImageControl1.Bitmap.Canvas.Stroke.Color := $FF000000;
    ImageControl1.Bitmap.Canvas.DrawLine(PointF(10, 10), PointF(100, 100), 100);
    ImageControl1.Bitmap.Canvas.Stroke.Color := $FF0000FF;
    ImageControl1.Bitmap.Canvas.DrawLine(PointF(10, 10), PointF(100, 120), 100);
    ImageControl1.Bitmap.Canvas.Stroke.Color := $FF00FF00;
    ImageControl1.Bitmap.Canvas.DrawLine(PointF(10, 10), PointF(100, 130), 100);
    ImageControl1.Bitmap.Canvas.Stroke.Color := $FFFF0000;
    ImageControl1.Bitmap.Canvas.DrawLine(PointF(10, 10), PointF(100, 140), 100);
  finally
    ImageControl1.Bitmap.Canvas.EndScene;
  end;

        bmp.Canvas.BeginScene;
        try
          bmp.Canvas.Fill.Color := claBlack;
          bmp.Canvas.Fill.Kind := TBrushKind.Solid;
          bmp.Canvas.FillRect(ARect, 0, 0, AllCorners, 1.0);
        finally
          bmp.Canvas.EndScene;
        end;

  Canvas.Fill.Kind := TBrushKind.Solid;
  Canvas.Fill.Color := fill_color;
  Canvas.FillRect(rct, 0, 0, AllCorners, 1.0);
  Canvas.Fill.Color := font_color;
  Canvas.FillText(rct, text, true, 1.0, [TFillTextFlag.RightToLeft], TTextAlign.Center, TTextAlign.Center);

Canvas.Stroke.Kind := TBrushKind.Solid; //※これ指定しないと描画されない時あるので注意。

bmp.Clear(claBlack);

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp: TBitmap;
  bmp_data: TBitmapData;
begin
  bmp := Image1.Bitmap;

  if bmp.Map(TMapAccess.maReadWrite, bmp_data) then
  begin
    ColorBox1.Color := bmp_data.GetPixel(Round(Image1.Width /  2), Round(Image1.Height / 2));
    bmp.Unmap(bmp_data);
  end;
end;

bg_bitmap.Canvas.SetMatrix(TMatrix.CreateScaling(XScale, YScale));

procedure TForm1.draw_text(txt: string);
var
  pd: TPathData;
  txt_width: Single;
  draw_width: Single;
begin
  txt := Edit1.Text;
  pd := TPathData.Create;
  try
    // 背景塗りつぶし
    bmp.Canvas.BeginScene;
    bmp.Canvas.Fill.Color := claBlack;
    bmp.Canvas.FillRect(RectF(0, 0, bmp.Width, bmp.Height), 1.0);

    // フォント外形線
    bmp.Canvas.Font.Size := bmp.Height;
    bmp.Canvas.TextToPath(pd, Rect(0, 0, bmp.Width, bmp.Height), txt, false, TTextAlign.Leading);
    bmp.Canvas.Stroke.Kind := TBrushKind.Solid;
    bmp.Canvas.Stroke.Color := $FFFF8000;;

    // フォント塗りつぶし
    bmp.Canvas.Fill.Color := $FFFF8000;

    // 横幅変更
    txt_width := bmp.Canvas.TextWidth(txt);
    if txt_width > bmp.Width then
      draw_width := bmp.Width / txt_width
    else
      draw_width := 1.0;

    // 描画
    pd.Scale(draw_width, 1.0);
    bmp.Canvas.FillPath(pd, 1.0);
    bmp.Canvas.DrawPath(pd, 1.0);
    bmp.Canvas.EndScene;

    ImageViewer1.Bitmap := bmp;
  finally
    pd.Free;
  end;
end;

TStyleManager.SetStyleFromFile(fname);

var
  tick: Double;
  TimerService: IFMXTimerService;
begin
  TimerService := IFMXTimerService(TPlatformServices.Current.GetPlatformService(IFMXTimerService));
  tick := TimerService.GetTick;
  Sleep(500);
  Memo(FloatToStr(TimerService.GetTick - tick));
end;

 uses System.Diagnostics;
var
  sw: TStopwatch;
  tick: integer;
begin
  sw := TStopwatch.StartNew;
  tick := sw.ElapsedMilliseconds;
  Sleep(500);
  Memo(IntToStr(sw.ElapsedMilliseconds - tick));
end;

  Memo1.Lines.Add(TPath.GetHomePath); // '/data/data/com.embarcadero.test_app/files
  Memo1.Lines.Add(TPath.GetDocumentsPath); // 同上
  Memo1.Lines.Add(TPath.GetSharedDocumentsPath); // '/storage/emulated/0/Android/data/com.embarcadero.test_app/files
  Memo1.Lines.Add(TPath.GetPublicPath); // 同上
  Memo1.Lines.Add(TPath.GetTempPath); // '/storage/emulated/0/Android/data/com.embarcadero.test_app/files/tmp

コンピューター\Galaxy Nexus\内部ストレージ\Android\data\com.embarcadero.test_app\files

uses System.IOUtils;

GetHomePath
TPath.GetTempPath
TPath.GetDocumentsPath
TPath.GetLibraryPath
TPath.GetTempFileName
TPath.GetTempFileName
ParamStr(0) //従来のApplication.Exenameの代わりに使う

C:\Users\ユーザー名\AppData\Roaming
C:\Users\ユーザー名\AppData\Local\Temp\
C:\Users\ユーザー名\Documents
C:\app_path\Win32\Debug\
C:\Users\ユーザー名\AppData\Local\Temp\tmpA031.tmp
C:\Users\ユーザー名\AppData\Local\Temp\tmpA032.tmp
C:\app_path\Win32\Debug\test_path.exe

uses System.IOUtils;
TPath.Combine(TPath.GetDocumentsPath, 'dbdemos.gdb');

*.txt

procedure TForm1.DropTarget1DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF);
begin
  memo(Data.Files[0]);
end;

uses FMX.Platform.Win, Winapi.Windows;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  hw: HWND;
begin
  hw := FmxHandleToHWND(Form2.Handle);
end;

 procedure TForm4.StringGrid1DrawColumnHeader(Sender: TObject;
   const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF);
 var
   ABrush: TStrokeBrush;
   ARectF: TRectF;
 begin
   // fill
   Canvas.Fill.Color := TAlphaColorRec.Lavender;
   Canvas.FillRect(Bounds, 0, 0, [], 1);

   // draw rect, actually only bottom and right side of current header cell
   ABrush := TStrokeBrush.Create( TBrushKind.Solid , TAlphaColorRec.Red);
   try
     Canvas.DrawRectSides(Bounds, 0, 0, [], 1, [TSide.Bottom, TSide.Right], ABrush, TCornerType.Round);

     // Draw header text
     ARectF := Bounds;
     ARectF.Left := ARectF.Left + 4;
     Canvas.Font.Size := 15;
     Canvas.Fill.Color := TAlphaColorRec.Black;
     Canvas.FillText(ARectF, Column.Header , False, 1, [] , TTextAlign.Leading);
   finally
     ABrush.Free;
   end;
 end;

Valid signing identity not found

com/embarcadero/rtl/ProxyInterface が見つかりません。