Fortschrittsanzeige in RichEdit?

[Sora]

Hi,

wenn du beides in einer Komponente haben willst musst du eine neue Komponente erstellen, vlt. so in dieser Art:

Delphi-Quellcode:

type
  tMyRichEdit = class(tRichEdit)
  private
    FProgressBar: TProgressBar;
    ...
  protected ...
  public ...
  published
    ProgressBar: TProgressBar READ FProgressBar; //WRITE FProgressBar;
    ...
  end;

Und für den Fortschrittsbalken (so in der Art):

Delphi-Quellcode:

procedure SetProgressBar(Send, Total: double);
begin
  MyRichEdit1.ProgressBar.Position:=round(100* Send/Total);
end;

Ich hoffe, dass ich dein Problem richtig verstanden habe und dir helfen konnte.

Liebe Grüße


Sora

EDIT: Stimmt Sir Rufo, READ+WRITE ist für mich einfach Standard und ich habe nicht dran gedacht, dass nur ein READ gesetzt werden darf. Entschuldigung.

[Sir Rufo]

Wohl doch eher so

Delphi-Quellcode:

type
  tMyRichEdit = class(tRichEdit)
  private
    FProgressBar: TProgressBar;
    ...
  protected ...
  public ...
  published
    property ProgressBar: TProgressBar READ FProgressBar; // nur lesend auf den Instanz-Zeiger!!!
    ...
  end;

[himitsu]

Du kannst den TWebBrowser auch nur für die Anzeige der lokal zusammengestellten Daten verwenden, dann ist er garnicht am Datentransfer beteiligt und es ist egal ob der IE ins Internet kommt oder nicht.

Den Fortschritt könnte man über DIVs oder eine TABLE gestallten.
Programmseitig hat man Zugriff auf's DOM des TWebBrowsers und kann den Inhalt auch geziehlt verändern, wie z.B. die Breite der angezeigten DIVs.

[Progman]

Vielleicht als Denkanstoß:
Auf dem Canvas eines RichEdit kann man auch zeichnen. Jedenfalls beim TJvRichEdit klappt das. Vielleicht mal in die Richtung experimentieren?

[Yakumo500]

@sx2008: Ich möchte die Fortschrittsanzeige ja auch für den Dateitransfer nutzen und nicht für die einzelnen Chat-Nachrichten.
@Progman: Danke das werde ich mal probieren.
//Edit: Bei mir existiert beim TJvRichEdit das Canvas nicht!

[Yakumo500]

Hat denn hier noch niemand ein OLE Objekt erstellt?

[cxy]

var progbar:Tprogressbar;

progbar:=tprogressbar.Create(SELF);
progbar.Visible :=true;
progbar.Left :=0;
progbar.Top :=0;
progbar.Height :=100;
progbar.Width :=100;
progbar.ParentWindow:=richedit1.Handle;

else

[Sir Rufo]

Mit Delphi-Tags sieht das viel hübscher aus

Delphi-Quellcode:

var  progbar:Tprogressbar;

  progbar:=tprogressbar.Create(SELF);
  progbar.Visible :=true;
  progbar.Left :=0;
  progbar.Top :=0;
  progbar.Height :=100;
  progbar.Width :=100;
  progbar.ParentWindow:=richedit1.Handle;