Einzelnen Beitrag anzeigen

Benutzerbild von Gloegg_FHBI
Gloegg_FHBI

Registriert seit: 28. Nov 2006
Ort: Neuss
46 Beiträge
 
Delphi 10 Seattle Professional
 
#1

Designtime Memo.Lines wird nicht korrekt gespeichert

  Alt 23. Aug 2013, 10:05
Hallo,

Ich bin grade auf ein kleines Manko im dfm-format gestoßen.
Speichert man zur Designtime eine lange Zeile in ein zu schmales Memo, wird der Text an wortgrenzen umgebrochen. Bei einer Größenänderung des Memos wird das entsprechend angepasst.
Soweit so gut.

Speichert man nun das Formular (mit zu schmalem Memo)
Schließt die Datei und öffnet sie wieder, sind nun zusätzliche Zeilenumbrüche in Memo.Lines an den Positionen, wo das Memo die Zeile umgebrochen hat.

Abhilfe schafft Memo.Scrollbars auf ssBoth oder ssHorizontal zu setzten, dann hat man aber keinen automatischen Zeilenumbruch mehr.
Das ganze ist kein akutes Problem, aber man sollte doch meinen, das der Inhalt unabhängig von der Darstellung gespeichert werden sollte, oder?

Zur Verdeutlichung die dfm-datei ohne Scrollbars
Delphi-Quellcode:
  object Memo1: TMemo
    Left = 8
    Top = 39
    Width = 409
    Height = 489
    Lines.Strings = (
      'Memo1'
      'line2'
      'line3'
      ''
      'line5'
      ''
      
        'very long line very long line very long line very long line very' +
        ' long line very long '
      
        'line very long line very long line very long line very long line' +
        ' very long line very '
      
        'long line very long line very long line very long line very long' +
        ' line very long line '
      'very long line very long line very long line very long line '
      ''
      'short line')
    TabOrder = 1
  end
und mit Scrollbars
Delphi-Quellcode:
  object Memo1: TMemo
    Left = 8
    Top = 39
    Width = 409
    Height = 489
    Lines.Strings = (
      'Memo1'
      'line2'
      'line3'
      ''
      'line5'
      ''
      
        'very long line very long line very long line very long line very' +
        ' long line very long line very long line very long line very lon' +
        'g line very long line very long line very long line very long li' +
        'ne very long line very long line very long line very long line v' +
        'ery long line very long line very long line very long line '
      ''
      'short line')
    ScrollBars = ssBoth
    TabOrder = 1
  end
  Mit Zitat antworten Zitat