Mehrere Textboxen in Schleife erzeugen

skoschke

Hallo,

nachdem das grundsätzliche Problem, eine Textbox zu erzeugen, gelöst ist, scheitere ich am Erzeugen mehrere in einer Schleife...

Ich habe von TWPRichText eine eigene Komponente abgeleitet und erweitert.

In einer Schleife, die beim Laden einer Dokumentvorlage gestartet wird, wird folgende procedure mehrfach aufgerufen:

Code

procedure TWPRichText1.ShowPanel(x, Y, b, h: single; s: string);
var
  obj: TWPORTFTextBox;
  txtobj: TWPTextObj;
begin
  Memo.TopOffset := 0;
  ReformatAll(true, true);
  CPPosition := 0;
  //die Positions-und Größenangaben sind Millimeter!
  if CursorOnText.Kind <> wpIsBody then
    ShowMessage('Cannot insert object in Object')
  else
  begin
    obj := TWPORTFTextBox.Create(self);
    obj.WidthTW := WPCentimeterToTwips(b / 10);
    obj.HeightTW := WPCentimeterToTwips(h / 10);
    obj.ObjName := '_AUTO_' + IntToStr(GetTickCount);
    obj.AsString := s;
    txtobj := TextObjects.InsertMovableImage(obj);
    if txtobj <> nil then
    begin
      txtobj.Mode := txtobj.Mode + [wpobjObjectUnderText, wpobjCreateAutoName,
        wpobjWithinEditable, wpobjRelativeToPage, wpobjSizingDisabled,
        wpobjDisableAutoSize];
      txtobj.RelX := WPCentimeterToTwips(x / 10);
      txtobj.RelY := WPCentimeterToTwips(Y / 10);
      // txtobj.Frame := [wpframe1pt, wpframeShadow];
      ReformatAll(true, true);
    end;
  end;
end;

Alles anzeigen

dabei haben z.B. drei erzeugte Textboxen mehr oder weniger zufällig den gleichen oder aber teilweise den gewünschten Inhalt, mal kann man sie anklicken, mal wird dabei der Focus auf eine andere Textbox gesetzt, irgendwo fehlt eine Aktualisierung, nur wo setzt man da an?

Wenn ich obige Procedure "von außen" mehrfach einzeln aufrufe (über eine Methode meiner Komponenten-Ableitung), bekomme ich die Textboxen ordentlich erzeugt und angezeigt!

Bitte um einen Denkanstoß !

Ciao

Stefan

wpsupport

So geht das mit "high-level" code:

Code

    WPRichText1.TextCursor.DropMarker;
    WPRichText1.CPPosition := 0;
    for i := 1 to 10 do
    begin
        w := WPCentimeterToTwips(6);
        h := WPCentimeterToTwips(2);
        txtobj := WPRichText1.InputTextbox('', w,h,true);        txtobj.PositionMode := wpotPage;
        txtobj.RelY := WPCentimeterToTwips(1+i*2.5);
        txtobj.RelX := WPCentimeterToTwips(2);
        WPRichText1.InputString('Dies ist Text ' + IntToStr(i));
        WPRichText1.ActiveText := WPRichText1.BodyText;
    end;
    WPRichText1.TextCursor.GotoMarker(true);

Alles anzeigen

In Ihrem Code sind die vielen ReformatAll nicht erforderlich.

Sie können den Text erst zuweisen, nachdem das mit Insert.. eingefügt wurde.

Wie andernorts bereits geschrieben: TWPORTFTextBox enthält eigentlich den Text nicht sondern verweist nur über den Namen auf eine entsprechende Textebene. AsString lokalisiert diese Ebene und und weist den Text dort zu. Das lohnt sich nur für RTF text, ansonsten ist InputString schneller.

Das Ableiten einer Komponente macht m.M.n. nur Sinn, wenn Sie virtuelle Methoden überschreiben wollen. Anderenfalls würde ich immer ein neues Control erstellen welches ein TWPRichText oder TWPCustomRTFEdit erzeugt, evtl. auch die nützlichen Lineale und auch anderen code enthält, welchen Sie von aussen aufrufen wollen.

Ansonsten gewinnen Sie nichts an zusätzlicher Abstraktion und Kapselung, da es immer noch möglich ist, beliebige Unter- und Unter-Unter Funktionen von TWPRichText von aussen aus aufzurufen.

Anmerkung zur Kapselung: Lizenzrechtlich ist es so, dass alle Entwickler die direkt oder indirekt mit dem Control arbeiten, eine volle Lizenz brauchen. (Ich weiss, Ihre Firma hat mehrere Lizenzen)

Grüsse,

Julian

skoschke

Vielen Dank für die schnelle Hilfe!

Der Beispielcode funktioniert...

Ja richtig, meine Variante

Code

type
  TCSKWPRichText = class(TWPRichText)

ist vielleicht wirklich der falsche Ansatz!

Über eine eigene Komponente die ein "unverändertes" WPRichText enthält (und vielleicht anderes zusätzliches) beinhaltet und bei der ich nach außen wirklich nur das zugänglich machen kann, was gewünscht ist, ist der bessere Ansatz!

Da habe ich ja erst mal wieder einiges zu tun...

Ciao

Stefan

wpsupport

Sie können ein TPanel als Vorfahr für Ihre Komponente nehmen.

Dieses kann dann auch das Parent für das TWPRichText sein.

skoschke

Erster Versuch Panel mit einem Ruler bringt beim Erzeugen des Packages eine Meldung

Zitat

vclimg hinzufügen.

vclimg enthält die impliziten Units Vcl.Imaging.jpeg, Vcl.Imaging.JConsts, Vcl.Imaging.pngimage, Vcl.Imaging.pnglang.

bindengine hinzufügen.

bindengine enthält die impliziten Units System.Bindings.EvalProtocol, System.Bindings.Consts, System.Bindings.Methods, System.Bindings.NotifierContracts, System.Bindings.Manager, System.Bindings.Factories, System.Bindings.ManagerDefaults, System.Bindings.Graph, System.Bindings.Search, System.Bindings.Expression, System.Bindings.Outputs, System.Bindings.ExpressionDefaults, System.Bindings.ObjEval, System.Bindings.CustomWrapper, System.Bindings.CustomScope, System.Bindings.EvalSys, System.Bindings.Evaluator, System.Bindings.Helper, System.Bindings.NotifierDefaults.

bindcomp hinzufügen.

bindcomp enthält die impliziten Units Data.Bind.ObserverLinks, Data.Bind.Consts, Data.Bind.Components, Data.Bind.Editors, Data.Bind.Grid.

WPTools8_DX11_Pack_RT hinzufügen.

WPTools8_DX11_Pack_RT enthält die impliziten Units WPRuler, WPUtil, WPCTRMemo, WPRTEFormatA, WPRTEFormatBase, WPRTEPlatform, WPRTEDefsConsts, WPRTEDefs, WPRTEDefsUndoman, WPCtrDrawFkt7, WPOBJ_Image, WPRTEEdit, WPRTEPaint, WPRTEFormatB, WPIo, WPOBJ_TextBox, WPIOWPTools, WPIOUNICODE, WPIOHTML, WPIOCSS, WPIORTFPremium, WPIOWriteRTF, WPRTEReport, WPEval, WPIOReadRTF, WPIOANSI.

Alles anzeigen

Bestätige ich das kann das Panel zwar in die Komponentenpalette installiert werden, auch ausgewählt und auf ein Form gelegt werden, aber es ist dort nicht anklickbar und veränderbar.

Bestätige ich die obige Meldung nicht bekomme ich beim Kompilieren der Komponente eine Meldung

Zitat

Package TestPanel kann nicht geladen werden, es enthält die Unit "Data.Bind.Observerlinks" die auch im Package "bindcomp240" enthalten ist.

Eine Idee dazu?

Ciao

Stefan

wpsupport

Ihr package muss die bindengine und bindcomp package referenzieren.

Delphi baut diesen Verweis normalerweise automatisch ein.

Hier noch mein Beispiel für eine Delphi-Editor Komponente in einem Panel:

Code

unit WPToolsEmbeddedControl;
{ Wordprozessor für Delphi

  Komponente die TWPRichText und die Lineale in einem Panel erzeugt

  WPTools: https://www.wpcubed.com
}

interface

uses System.Classes, VCL.Controls, VCL.ExtCtrls, WPCtrRich, WPRuler;


type
  TDelphiWord = class(TPanel)
  private
  fWPRichText : TWPRichText;
  fWPRuler    : TWPRuler;
  fWPVertRuler : TWPVertRuler;
  protected
    procedure Resize; override;
  public
    constructor Create(AOwner : TComponent); override;
    destructor Destroy; override;
    function Load(Filename : String) : Boolean;
    property WPRichText : TWPRichText read fWPRichText;
  end;

  procedure Register;

implementation

{ TDelphiWord }

constructor TDelphiWord.Create(AOwner: TComponent);
begin
  inherited;
  fWPRichText := TWPRichText.Create(Self);
  fWPRuler    := TWPRuler.Create(Self);
  fWPVertRuler := TWPVertRuler.Create(Self);
  fWPRichText.WPRuler := fWPRuler;
  fWPRichText.VRuler := fWPVertRuler;
  fWPRichText.Align := alClient;
  fWPVertRuler.Align := alLeft;
  fWPRuler.Align := alTop;

  fWPRuler.Options := fWPRuler.Options - [wpNoVertRulerAttached];



  fWPRichText.Parent := Self;
  fWPRuler.Parent := Self;
  fWPVertRuler.Parent := Self;
end;

destructor TDelphiWord.Destroy;
begin
  fWPRichText.Parent := nil;
  fWPRuler.Parent := nil;
  fWPVertRuler.Parent := nil;
  fWPRichText.Free;
  fWPRuler.Free;
  fWPVertRuler.Free;
  inherited;
end;

function TDelphiWord.Load(Filename: String): Boolean;
begin
   Result := fWPRichText.LoadFromFile(Filename, true, 'AUTO');
end;

procedure TDelphiWord.Resize;
begin
  inherited;
  fWPRuler.VertRulerWidth := fWPVertRuler.Width;
end;

procedure Register;
begin
  RegisterComponents( 'Delphi Word', [TDelphiWord]);
end;
end.

Alles anzeigen

skoschke

Danke!

Ich habe den Code eben auch auf Delphi-Praxis gesehen ;-)

Ich probiere das natürlich sofort aus!

Ciao

Stefan

wpsupport

Wenn's gut funktioniert bitte weitersagen :-)

skoschke

Der Versuch obige Komponente zu kompilieren brachte:

[dcc32 Fataler Fehler] WPRTEReport.pas(6192): F2051 Unit WPIOWriteRTF wurde mit einer unterschiedlichen Version von WPRTEReport.WPGetBandForPar compiliert

Ciao

Stefan

wpsupport

Aufruf von BuildAll hilft hier.

Ansonsten sollte dieses Projekt die selben compiler symbole verwenden wie Ihr hauptprojekt. Diese stellt man unter Projekt/Optionen ein. In diesem Fall handelt es sich wohl um WPPREMIUM das hier gesetzt ist, dort nicht.

skoschke

Ich bekomme es nicht compiliert :-(

Wo finde ich BuildAll im deutschen RadStudio?

Rechte Maustaste auf die bpl-Datei ab hier alle erzeugen ist grau (deaktiviert) und in den Projektoptionen (ich bin über neue Komponente erzeugen, Vorfahr TPanel an das Projekt gekommen...

Ciao

Stefan

Habe es gefunden:

In den Projektoptionen des Packages war als Suchpfad C:\WPTools\DX10.1 und nicht C:\WPTools\Source eingetragen!