Darstellungsprobleme Android

[ConnorMcLeod]

Muß man den Parent unbedingt setzen? Ohne Parent wird üblicherweise überhaupt nicht gezeichnet, oder?

[Schokohase]

Warum der Text bleibt? Weil die Komponente noch da ist!

Bei Android hat man ARC und bei ARC ist Free totgelegt. Verwende stattdessen DisposeOf

[skoschke]

Zitat von Schokohase:

Bei Android hat man ARC und bei ARC ist Free totgelegt. Verwende stattdessen DisposeOf

Ich habe eben noch mal debuggt, nach lab.free ist lab = nil!

Wieso soll die Komponente also noch vorhanden sein und ihren Text anzeigen?

Ciao
Stefan

[Schokohase]

Zitat von skoschke:

Zitat von Schokohase:

Bei Android hat man ARC und bei ARC ist Free totgelegt. Verwende stattdessen DisposeOf

Ich habe eben noch mal debuggt, nach lab.free ist lab = nil!

Wieso soll die Komponente also noch vorhanden sein und ihren Text anzeigen?

Bei ARC gibt es für jede Instanz einen Referenzzähler und erst wenn der auf 0 ist, dann wird die Instanz entsorgt.

(ARC ist eine Abkürzung für Automatic Reference Counting. Warum haben die das wohl so genannt?)

Wenn aber der Owner und der Parent noch eine Referenz darauf halten, wie sollte diese Instanz aus dem Speicher gehen?

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

[Schokohase]

Zitat von ConnorMcLeod:

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;

[skoschke]

Danke, aber das "Dumme" daran ist, dass ich im Memo automatischen Umbruch habe und demzufolge die Texthöhe bestimmt werden muss!

Ciao
Stefan

[skoschke]

Zitat von ConnorMcLeod:

Muß man den Parent unbedingt setzen? Ohne Parent wird üblicherweise überhaupt nicht gezeichnet, oder?

Ich benutze das Label mit Autosize = true um festzustellen, ob ein Text ohne zu scrollen in ein bestmmtes Memo passt.

Dafür wird der Font des Labels = Font des Memos gesetzt und der text übernommen.

Ist die Labelhöhe > Memohöhe wird eine Kennzeichnung (Markierung) angezeigt.
Das war ein Anwenderwunsch, die meinten auf dem Handy sehen zu müssen, ob das Memo mehr Text enthält als momentan sichtbar ist...

Daher der Parent...

Wenn jemand eine schickere Lösung dafür hat, bitte her damit!

Ciao
Stefan