Delphi FireMonkey memo

uses System.Types;
RectF()

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;

var
  rct, rct1, rct2, rct3: TRectF;
  count: integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
  rct1 := RectF(0, 0, 100, 99);
  rct2 := RectF(0, 100, 100, 199);
  rct3 := RectF(0, 200, 100, 299);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  PaintBox1.InvalidateRect(rct1);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  PaintBox1.InvalidateRect(rct2);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  PaintBox1.InvalidateRect(rct3);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  Invalidate;
end;

procedure TForm1.PaintBox1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
begin
  Canvas.BeginScene;
  if IntersectRectF(rct, ARect, rct1) then
  begin
    Canvas.Fill.Color := claRed; // 塗りつぶし色
    Canvas.FillRect(rct1, 1.0);
    Canvas.Fill.Color := claWhite; // 文字色
    Canvas.FillText(rct1, count.ToString, true, 1.0, [], TTextAlign.Center, TTextAlign.Center);
    inc(count);
  end;

  if IntersectRectF(rct, ARect, rct2) then
  begin
    Canvas.Fill.Color := claGreen; // 塗りつぶし色
    Canvas.FillRect(rct2, 1.0);
    Canvas.Fill.Color := claWhite; // 文字色
    Canvas.FillText(rct2, count.ToString, true, 1.0, [], TTextAlign.Center, TTextAlign.Center);
    inc(count);
  end;

  if IntersectRectF(rct, ARect, rct3) then
  begin
    Canvas.Fill.Color := claBlue; // 塗りつぶし色
    Canvas.FillRect(rct3, 1.0);
    Canvas.Fill.Color := claWhite; // 文字色
    Canvas.FillText(rct3, count.ToString, true, 1.0, [], TTextAlign.Center, TTextAlign.Center);
    inc(count);
  end;
  Canvas.EndScene;
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;

    Canvas.Stroke.Thickness := 2.0;
    Canvas.Stroke.Color := colors[0];
    Canvas.DrawLine(PointF(0, 2), PointF(7, 2), 1.0); // Y=2の横線で、Y=1,2に線

    Canvas.Stroke.Thickness := 3.0;
    Canvas.Stroke.Color := colors[1];
    Canvas.DrawLine(PointF(1, 6), PointF(8, 6), 1.0); // Y=6の横線で、Y=4,5,6に線

  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, [], 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;

procedure TForm1.PaintBox1Painting(Sender: TObject; Canvas: TCanvas; const ARect: TRectF);
var
  pd: TPathData;
begin
  Canvas.BeginScene;
  try
    Canvas.Stroke.Kind := TBrushKind.Solid;
    Canvas.Stroke.Color := claBlack;
    Canvas.Stroke.Thickness := 1.0;
    pd := TPathData.Create;
    pd.MoveTo(PointF(10, 10));
    pd.LineTo(PointF(100, 100));
    pd.LineTo(PointF(110, 100));
    pd.LineTo(PointF(120, 120));
    pd.LineTo(PointF(130, 120));
    Canvas.DrawPath(pd, 1.0);
    pd.Free;
  finally
    Canvas.EndScene;
  end;
end;

    Canvas.DrawBitmap(bmp, rct_bmp, RectF(0, 0, 319, 319), 1.0, true);

var
  canvas:TCanvas;
begin
  canvas := TCanvasManager.CreateFromBitmap(bmp, TCanvasQuality.HighPerformance);

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

 // マルチディスプレイの情報を表示
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Screen.UpdateDisplayInformation;
   UpdateMemo;
 end;

 // ウィンドウを指定位置へ移動
 procedure TForm1.Button2Click(Sender: TObject);
 begin
   Left := 3840;
   Top := 1520;
 end;

 // ウィンドウを指定したサイズのディスプレイへ移動
 procedure TForm1.Button3Click(Sender: TObject);
 begin
   Screen.UpdateDisplayInformation;
   move_win(1024, 600);
 end;

 // w,hが一致するDisplayへウィンドウを移動する
 procedure TForm1.move_win(w, h: integer);
 begin
   for var I := 0 to Screen.DisplayCount - 1 do
   begin
     if (Screen.Displays[I].BoundsRect.Width = w) and (Screen.Displays[I].BoundsRect.Height = h) then
     begin
       Left := Round(Screen.Displays[I].BoundsRect.Left);
       Top := Round(Screen.Displays[I].BoundsRect.Top);
       break;
     end;
   end;
 end;

 function TForm1.RectfToStr(R: TRectF): String;
 begin
   Result := '(Left,Top=' + Floattostr(R.Left) + ',' + Floattostr(R.Top) + ' W,H=' + Floattostr(R.Width) + ',' + Floattostr(R.Height) + ')';
 end;

 function TForm1.DispToStr(Disp: TDisplay): String;
 begin
   Result := Inttostr(Disp.Index) + '. ';

   if Disp.Primary then
     Result := Result + ' Primary ';

   Result := Result + SLineBreak;
   Result := Result + 'WorkAreaRect : ' + RectfToStr(Disp.WorkareaRect) + '; '; // タスクバーの領域除外

   Result := Result + SLineBreak;
   Result := Result + 'BoundsRect : ' + RectfToStr(Disp.BoundsRect) + '; '; // タスクバー含めた画面サイズ
 end;

 procedure TForm1.UpdateMemo;
 var
   I: integer;
   P: TPoint;
 begin
   Memo1.Lines.Clear;
   P := TPoint.Create(Round(Screen.MousePos.X), Round(Screen.MousePos.Y));
   Memo1.Lines.Add('Screen');
   Memo1.Lines.Add('MousePos: ' + Floattostr(P.X) + ' ' + Floattostr(P.Y));
   Memo1.Lines.Add('DisplayFromForm(Self).Index: ' + Inttostr(Screen.DisplayFromForm(Self).Index));
   Memo1.Lines.Add('Size.cx: ' + Floattostr(Screen.Size.cx));
   Memo1.Lines.Add('Size.cy: ' + Floattostr(Screen.Size.cy));
   Memo1.Lines.Add('DisplayCount: ' + Inttostr(Screen.DisplayCount));
   Memo1.Lines.Add('WorkAreaRect: ' + RectfToStr(Screen.WorkareaRect));
   Memo1.Lines.Add('DesktopRect: ' + RectfToStr(Screen.DesktopRect));
   Memo1.Lines.Add('Displays');
   for I := 0 to Screen.DisplayCount - 1 do
     Memo1.Lines.Add(DispToStr(Screen.Displays[I]));
   Memo1.Lines.Add('Form');
   Memo1.Lines.Add('BoundsRect: ' + RectfToStr(TRect.Create(TPoint.Create(Left, Top), Width, Height)));
 end;

TStyleManager.SetStyleFromFile(fname);

  OpenDialog1.Filter:='WAV file (*.wav)|*.wav';

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
  Memo1.Lines.Add(Data.Files[0]);

  //for var str in Data.Files do
  //  Memo1.Lines.Add(str)
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 TForm1.Grid1_Init;
 begin
   // 行数指定
   StringGrid1.RowCount := ROW_COUNT;

   //桁追加
   for var i := 0 to COL_COUNT - 1 do
   begin
     StringGrid1.AddObject(TStringColumn.Create(StringGrid1));
   end;

   //桁の幅指定
   for var i := 0 to COL_COUNT - 1 do
   begin
     StringGrid1.Columns[i].Width := Floor(StringGrid1.Width / StringGrid1.ColumnCount);
   end;
 end;

 procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject; const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
   const Row: Integer; const Value: TValue; const State: TGridDrawStates);
 var
   val: Integer;
 begin
   // 背景色を設定
   if TryStrToInt(Value.ToString, val) then
   begin
     if (val mod 33) = 0 then
       Canvas.Fill.Color := TAlphaColors.Red
     else
       Canvas.Fill.Color := TAlphaColors.White;
   end;

   // 背景描画
   Canvas.FillRect(Bounds, 0, 0, [], 1);

   // テキストを描画（テキストの色や位置を調整することもできます）
   Canvas.Fill.Color := TAlphaColors.Red;
   Canvas.Fill.Color := TAlphaColors.White; // テキストの色
   Canvas.FillText(Bounds, Value.ToString, False, 1, [], TTextAlign.Leading, TTextAlign.Leading);
 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 が見つかりません。

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Single);
begin
  if Button = TMouseButton.mbRight then
    run_right//
  else
    run_left;
end;

 procedure TForm1.Button1Click(Sender: TObject);
 var
   Compare: TFMXObjectSortCompare;
 begin
   ComboBox1.Items.Add('4');
   ComboBox1.Items.Add('5');
   ComboBox1.Items.Add('6');
   ComboBox1.Items.Add('3');
   ComboBox1.Items.Add('2');
   ComboBox1.Items.Add('1');

   Compare := function(Item1, Item2: TFmxObject): Integer
     begin
       if TListBoxItem(Item1).Text = TListBoxItem(Item2).Text then
         Result := 0
       else if TListBoxItem(Item1).Text > TListBoxItem(Item2).Text then
         Result := 1
       else
         Result := -1;
     end;

   ComboBox1.Sort(Compare);
 end;