Editor für Text und Grafik

[Bjoerk]

Hatte ich auch gesehen. Ist außerdem ziemlich teuer. Es läuft wohl auf TRichView raus. TAdvRichEditor ist aber noch ganz aus’m Rennen, da gefällt mir die integrierte pdf Anbindung. Ich schreib TMS mal an und ob es noch was für D2007 gibt.

Harry, ich hab mir dein TippText genauer angesehen. Kompliment, du bist der TRichView Guru. Das Design der Version 3 gefällt mir allerdings besser als das der Version 4.

Alternative: Hat jemand eine Idee, wie die Entwickler die Grafiken in das CustomMemo reingefummelt haben könnten? Kann doch nicht soooooooooo schwer sein?

Delphi-Quellcode:

  TCustomRichEdit = class(TCustomMemo)
  TCustomMemo = class(TCustomEdit)
  TCustomEdit = class(TWinControl)

[Jens01]

Zitat:

Kann doch nicht soooooooooo schwer sein?

Doch!
Ich habe mal vor längerer Zeit probiert, das bei einer freien Komponente nachzuvollziehen. Das geht, aber da kann man sehr(, sehr) viel Zeit mit verbringen.

Übrigens haben die Jedis auch eine RTF-Komponente. Ich glaube, dass die Fastreport-Leute diese benutzen.

[Bjoerk]

Hi Bud, Kann sein. In meinem jugendlichen Leichtsinn hatte ich mir das überlegt (TCustomMemo plus TGraphicControl):

Delphi-Quellcode:

  TCustomMemo = class(TCustomEdit)
  private
    FLines: TStrings;
    FAlignment: TAlignment;
    FScrollBars: TScrollStyle;
    FWordWrap: Boolean;
    FWantReturns: Boolean;
    FWantTabs: Boolean;
    FCanvas: TCanvas; // ***
    procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
    procedure WMNCDestroy(var Message: TWMNCDestroy); message WM_NCDESTROY;
    procedure WMPaint(var Message: TWMPaint); message WM_PAINT; // ***
  protected
    procedure Paint; virtual; // ***
    property Canvas: TCanvas read FCanvas; // ***
    function GetCaretPos: TPoint; virtual;
    procedure SetCaretPos(const Value: TPoint); virtual;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWindowHandle(const Params: TCreateParams); override;
    procedure KeyPress(var Key: Char); override;
    procedure Loaded; override;
    procedure SetAlignment(Value: TAlignment);
    procedure SetLines(Value: TStrings);
    procedure SetScrollBars(Value: TScrollStyle);
    procedure SetWordWrap(Value: Boolean);
    property Alignment: TAlignment read FAlignment write SetAlignment default taLeftJustify;
    property ScrollBars: TScrollStyle read FScrollBars write SetScrollBars default ssNone;
    property WantReturns: Boolean read FWantReturns write FWantReturns default True;
    property WantTabs: Boolean read FWantTabs write FWantTabs default False;
    property WordWrap: Boolean read FWordWrap write SetWordWrap default True;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    function GetControlsAlignment: TAlignment; override;
    property CaretPos: TPoint read GetCaretPos write SetCaretPos;
    property Lines: TStrings read FLines write SetLines;
  end;

[frankyboy1974]

hallo,

Zitat:

In meinem jugendlichen Leichtsinn hatte ich mir das überlegt (TCustomMemo plus TGraphicControl)

Jupp das Leben ist einfach, und wenn du fertig bist, stellst du hier rein. Also ich kann mich auch mal daran entsinnen, 200 € für TrichView ausgegeben zu haben, es lohnt wohl nicht für 200 € (heute 300 €), dass selbst zu entwickeln.


mfg

[Bjoerk]

Japp, so wird das nix. Hattest Recht Jens. Hab mal eben einen Test gemacht. Hab ja eigentlich gar keine Zeit für "sowas" auch. Fazit: Die einzelnen Messages für Paint stören sich gegenseitig (z.B. WMPaint -> no Cursor). Da braucht man wohl erst mal ein TWinControl das "weiß", was Text sein soll und was nicht. Mal sehen wie's ausgeht.. Schönes WE und Danke an Alle. Thomas