Einzelnen Beitrag anzeigen

Benutzerbild von Nalincah
Nalincah

Registriert seit: 18. Jul 2003
898 Beiträge
 
Delphi 6 Professional
 
#2

Re: Problem mit TQRCustomRichText und PropEditor

  Alt 21. Jul 2004, 10:06
Auszug aus dem Quellcode:

Delphi-Quellcode:
procedure TSKQRAdressLabelProperty.Edit;
var
  MyText : TStrings;
  LabelEditor : TSKQRAdressLabelPropEd;
  m : TMemoryStream;
begin
  MyText := TStrings(GetOrdValue);
  LabelEditor := TSKQRAdressLabelPropEd.Create(Application);
  m := TMemoryStream.Create;
  try
    MyText.SaveToStream(m);
    m.Position := 0;
    LabelEditor.RichEditFelder.Lines.LoadFromStream(m);
    LabelEditor.FontName.Items.Assign(Screen.Fonts);
    if LabelEditor.ShowModal = mryes then
    begin
      m.Position := 0;
      LabelEditor.RichEditFelder.Lines.SaveToStream(m);
      m.Position := 0;
      MyText.LoadFromStream(m);
    end;
  finally
    LabelEditor.Free;
    m.Free;
  end;
end;
Danach ist mein Formatierter Text im AdressLabel (meine neue Kompo) drin, nur nach dem Starten des Programms oder dem neuladen des Projekts nicht mehr.

Was ich mich auch frage: wie kommt MyText in die Lines rein???
Sebastian
Ehemals bekannt als General2004
  Mit Zitat antworten Zitat