Einzelnen Beitrag anzeigen

Schokohase
(Gast)

n/a Beiträge
 
#11

AW: Darstellungsprobleme Android

  Alt 22. Jan 2019, 09:22
Weiß nicht, ob Dir das für Android hilft - unter VCL würde ich es so machen:
Du kannst generell das 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;
    lCnv.DisposeOf; // für ARC und Nicht-ARC
  end;
end;
  Mit Zitat antworten Zitat