Darstellungsprobleme Android

[ConnorMcLeod]

Weiß nicht, ob Dir das für Android hilft - unter VCL würde ich es so machen:

Delphi-Quellcode:

procedure TfrmTesterMain.btnMemoCanvasClick(Sender: TObject);
const
  TESTTXT = 'XMXMXMXMX';
var
  lCnv: TControlCanvas;
begin
  lCnv := TControlCanvas.Create;
  try
    lCnv.Control := mTestmemo;
    lCnv.Font.Assign(mTestmemo.Font);
    ShowMessage('Textbreite von '
      + TESTTXT
      + ' ist '
      + IntToStr(lCnv.TextWidth(TESTTXT))
      + ' und das Memo ist '
      + IntToStr(mTestmemo.Width)
      + ' breit.'
      );
  finally
    lCnv.Free;
  end;
end;