(Gast)
n/a Beiträge
|
AW: Darstellungsprobleme Android
22. Jan 2019, 10: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;
|
|
Zitat
|