Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Memo zeichen pro zeile

   
    by Bummi, 15. Dez 2011
  var
  i:Integer;
  begin
  for i := 2 to 10 do
  begin
  memo1.Lines.Insert(0,'');
  Memo1.lines := Format('%d. Zeile',);
  end;
  end;
• Forum: Programmieren allgemein

  AW: Memo zeichen pro zeile

   
    by Bummi, 15. Dez 2011
  Die erste der aufgerufenen Funktionen liefert die die Zeichenbreite in Pixel zurück , unter der Annahme das Du eine Proportionale Schrift gewählt hat kannst Du so ermitteln wieviele Zeichen in eine Zeile passen, Breite des Memos / Rückgabewert (gegf. muß man von der Breite noch ein paar Pixel abziehen wegen der Margins/Ränder).
  
  Die zweite Funktion liefert die Breite des übergebenen Textes in...
• Forum: Programmieren allgemein

  AW: Memo zeichen pro zeile

   
    by Bummi, 15. Dez 2011
  ich schließe mich meinem Vorredner an, wenn Du eine entsprechende Schrift verwendest könntest DU hiermit weiterkommen:
  
  Function GetMemoCharactersPerLine(M:TMemo):Integer;
  var
  DC:THandle;
  C:TCanvas;
  begin
  Result := 0;
  C:=TCanvas.Create;
  DC := GetDC(M.Handle);