Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Mit PropEditor 2 Eigenschaften ändern (https://www.delphipraxis.net/26275-mit-propeditor-2-eigenschaften-aendern.html)

Nalincah 21. Jul 2004 11:12


Mit PropEditor 2 Eigenschaften ändern
 
Wie schon im Titel geschrieben, möchte ich mit einem Property-Editor 2 Eigenschaften einer Komponenten ändern.

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.Clear;
    LabelEditor.RichEditFelder.Lines.LoadFromStream(m);
    LabelEditor.FontName.Items.Assign(Screen.Fonts);
    LabelEditor.FontName.Text := 'Arial';
    LabelEditor.FontSize.Text := '10';
    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;
Es handelt sich dabei im die Eigenschaft "Felder". Da steht ein RTF-Code drin. Diesen Text den der Code wiedergibt möchte ich nun auch unformatiert in den "Lines" stehen habe.
So wird immer nur die Eigenschaft verändert, auf die ich auch geklickt habe. Ich will diese und eine zusätzliche Eigenschaft verändern, weiß aber nicht wie.

Also....Wie geht das????


Alle Zeitangaben in WEZ +1. Es ist jetzt 13:12 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz