![]() |
Re: Bild in TRichEdit einfügen
Irgendwo habe ich mal gelesen, das RichEdit eine ActiveX Steuerelement ist und man die aktuelle Variante mit einem ActiveX-Import nutzten kann. Aber frag mich nicht wo das stand (oder ob das stimmt) :gruebel:
|
Re: Bild in TRichEdit einfügen
Erstmal Danke an alle Antwortenden!
Zitat:
Zitat:
Es reicht mir auch, das Bild nur in die Ausgabe zu packen. Wenn Du mir also sagen kannst, wie ich das mit dem Hinweis aus meinem Link schaffen kann, dass wäre das einfach grandios! :lol: Ich komme damit eben leider nicht weiter. Da ich den Link vor meinem ersten Post hatte, würde es diesen sonst nicht geben. Nur zur Erklärung: Ich habe ein Chat-Programm geschrieben. In diesem benutze ich sowieso schon farbige Kodierungen für Kopfzeilen wie "Sie schrieben an ...", "... schrieb am ... um ..." usw. Schön wäre es nur, wenn man so etwas wie Smilies einbauen könnte. Und genau hier komme ich eben nicht weiter... Gruß, Alex |
Re: Bild in TRichEdit einfügen
Hier mal ein ganz anderer Ansatz. So würde ich es vermutlich machen:
Du könntest eine Browser-Komponente (EmbeddedWB, TWebBrowser, TMozillaBrowser, ...) für die Ausgabe nutzen. Flexibler als damit wirst du wohl nie sein. Bei jedem Hinzufügen änderst du den HTML-Code:
Code:
oder so in der Art. Das hat auch den Vorteil, dass du alle gängigen Grafikformate unterstützt etc. pp.
<div>
<h1 style="color: #FF0000, font-size: ...">Geschrieben von ...</h1> Chat-Text [img]./smilies/smile.gif[/img] ... </div> Du müsstest die Smiley-Codes dann durch <img ... /> ersetzen. Grüße, Matze |
Re: Bild in TRichEdit einfügen
Hallo,
die Idee mit dem TWebBrowser hat etwas für sich: Ich sitze jetzt schon ewig daran, die Units für dir JvRichEdit.pas zu isolieren und in (m)ein Projekt-Verzeichnis zu kopieren. Das Problem ist aber, dass ich auch nach langem Suchen eine (möglicherweise später auch mehr) Datei nicht finden kann. Konkret geht es um die jcld10.inc. Und ohne die geht es nicht weiter... Wenn ich Dich richtig verstehe, dann ändere ich die html-Seite und mache einfach ein reload? Das setzt aber voraus, dass ich die Seite dann immer erstelle. Oder gibt es eine (mir unbekannte) Möglichkeit, html-Code dynamisch im Speicher oder gleich im Speicherbereich des TWebBrowser zu erzeugen? Gruß, Alex |
Re: Bild in TRichEdit einfügen
Ich sehe auf Anhieb nur die
![]() Ich meine, dass es schon Themen bzgl. des Veränderns von HTML-Code hier gab. Suche einfach mal danach. Wirst du nicht fündig, dann erstelle bitte ein separates Thema, in dem du fragst, wie das funktioniert. |
Re: Bild in TRichEdit einfügen
Die Idee mit dem Webbrowser/HTML-Text finde ich auch gut, da es da relativ einfach ist eine Grafik zu integrieren.
Hier noch kurz zum Link aus #1
Delphi-Quellcode:
(Das ist nicht auf meinem Mist gewachsen! von mir sind nur die Kommentare und ein wenig Format)
function BitmapToRTF(pict: TBitmap): string;
var bi,bb,rtf: string; bis,bbs: Cardinal; achar: ShortString; hexpict: string; I: Integer; begin GetDIBSizes(pict.Handle,bis,bbs); SetLength(bi,bis); SetLength(bb,bbs); GetDIB(pict.Handle,pict.Palette,PChar(bi)^,PChar(b b)^); [b]rtf := '{\rtf1 {\pict\dibitmap ';[/b] {------------------------"Header für Bilddaten} {--------------- Auslesen Bilddaten und erstellen Bild-RTF-String (hexpict) -------} SetLength(hexpict,(Length(bb) + Length(bi)) * 2); I := 2; for bis := 1 to Length(bi) do begin achar := Format('%x',[Integer(bi[bis])]); if Length(achar) = 1 then achar := '0' + achar; hexpict[I-1] := achar[1]; hexpict[I] := achar[2]; Inc(I,2); end; for bbs := 1 to Length(bb) do begin achar := Format('%x',[Integer(bb[bbs])]); if Length(achar) = 1 then achar := '0' + achar; hexpict[I-1] := achar[1]; hexpict[I] := achar[2]; Inc(I,2); end; rtf := rtf + hexpict + ' }}'; {------ Zusammenführen} Result := rtf; end; Was die Positionierung innerhalb der RTF-Datei angeht, solltest Du Dich am besten am (Word)-Original orientieren, Vorsicht, da gibt's auch Unterschiede (Shape und Image und..) aber ich hab die Details gerade nicht zur Hand. Nimm die HTML-Lösung, die ist einfacher in den Griff zu kriegen. Gruß K-H |
Re: Bild in TRichEdit einfügen
Hallo,
du könntest dir alternativ die HTML Controls von TMS ansehen, Für deinen Zweck sind die perfekt. Ich nutze diese auch für dynamischen Content. Infos z. B. ![]() Viele Grüße ... |
Re: Bild in TRichEdit einfügen
Zitat:
html hat aber auch einen entscheidenden Vorteil: Es spart Platz. Bei BitmapToRTF(); werden die Bildpunkte de facto als menschenlesbare Zahlenpaare gespeichert. Das kostet schon für jedes einzelne Bild immens Speicher und wenn dann mehr dabei sind eben mehr ... Ich hatte für meine Tests ein 125 KB Bild (bmp) genommen, wodurch die rtf-Datei nachher ca. 300 KB groß wurde. Da ich aber nur Smilies wollte, hatte ich mich auch damit schon abgefunden. Mache mich jetzt auf die Suche nach einer Möglichkeit mit html, was mit TRichEdit wohl tatsächlich nichts mehr zu tun hat. Danke an dieser Stelle schon einmal an alle Mithelfenden, auch wenn neue Ideen immer willkommen sind! Gruß, Alex |
AW: Re: Bild in TRichEdit einfügen
Liste der Anhänge anzeigen (Anzahl: 1)
Ich antworte mir hier mal selber.
Das Problem habe ich jetzt etwas unorthodox gelöst. Hierzu benutze ich den Font 'Emoticons' von ![]() Anbei der Quelltext nebst exe zum Probieren für geneigte Leser ... Gruß, Alex |
AW: Bild in TRichEdit einfügen
Man kann den Internet Explorer / TWebBrowser die Bilddatan auch direkt im src-Attribut mitgeben oder man gibt im einen ResourceLink, womit er de Dilddatei direkt aus den EXE-Resourcen (oder irgendeiner anderen EXE/DLL) rauslesen kann.
Die Bilddateien muß man jedenfalls nicht direkt/einzeln auf der Platte rumliegen haben. |
Alle Zeitangaben in WEZ +1. Es ist jetzt 02:21 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz