html prewiev

det html, kunne evt. være via en twebbrowser

på torry.net kan di downloade et browser komponent gratis, open source det kan mere HEML og CSS en Netscape !

Jens B

Preview i Twebbrowser

procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Navigate('about:'+ richedit1.Text);
end;

Stoney

stoney> hvordan får jeg denne kode til at blive inde i samme vindue som richedit? f.eks. via en tab eller noget, har du en ide?

procedure TForm1.Button1Click(Sender: TObject);
begin
RichEdit1.Lines.SaveToFile(extractfilepath(application.ExeName)+'~tmp.htm');
WebBrowser1.Navigate(extractfilepath(application.ExeName)+'~tmp.htm');
end;

dkn> den laver nogle meget underlige ting den der kode:-)
den viser en masse underlige tegn osv...

nogle som havde et svar på hvordan jeg kunne holde richedit/prewiev inde i samme vindue?

richedit1.plaintext := true;

Det skulle du alligevel sætte den til hvis du ville gemme din html fil. Det er fordi der er rich format

Brug pagecontrol til det andet

øhh hvor skal jeg smidde den der plauntext ind, i forhold til din sidste kode?
og hvordan gemmer jeg så min html fil?

sætter lige nogle flere points på, da der jo kom nogle flere spm....er det ok?

skær det gerne ud i pap :-)

Du kan også sætte plaintext til true ude i object inspector. men hvis du laver en knap fil at gemme med kan du gøre sådan her:

richedit1.plaintext := true;
If Savedialog.execute then
richedit1.lines.savetofile(Savedialog.filename);

//Så skal du bare add en Savedialog, den ligger under Dialogs på Component paleten.

Hvis du ikke sætter plaintext til true i object inspector, can du gøre det på formens onCreate event:
procedure TForm1.FormCreate(Sender: TObject);
begin
richedit1.plaintext := true;
end;

tester:-)

dkn> kunne du evt. komme med en ide til en funktion lige som i ms frontpage f.eks. hvor man kan designe en hjemmeside i realtime?

nogen ide?

som et lille bonus spm f.eks.:-)

dejlig bonus at få :)

Jeg vil lige se på det for dig

hehe:-) det kunne da godt være du havde en ide...

det må jo vel stadivæk være et html komponent som gør dette, eller?

nej tror du skal igang med at kode lidt...Dog tror jeg nok, at der findes et activex control som kan dette. Det ville være nemmest hvis du kunne finde den...eller hvis jeg gav dig linket til den ;)
http://www.euromind.com/iedelphi/EditHTML.htm

Kig på det.

dkn

Hvis det eneste du ønsker er en TRichEdit i dit program, hvorfor ikke bare lade din default browser afteste din html side:

Husk at tilføje ShellApi under uses!:

Lav en TButton og lad dens OnClick event se således ud...

procedure TForm1.Test1Click(Sender: TObject);
var
  TempPage : Tstringlist;
begin
if form1.mdichildcount > 0 then
  try
    TempPage := Tstringlist.create;
    with TempPage do
    begin
      addstrings(RichEdit1.lines);
      savetofile(defaultdir+'\temp.html');
    end;
    shellexecute(0,'open',pchar(defaultdir+'\temp.html'), nil, nil, sw_normal);
  finally
    TempPage.free;
  end;
end;

resten er bare at lave et eller andet smart til din TRichEdit, så det er let at skrive og holde styr på dit HTML kode...

Held og Lykke

ZeroHero

ellers tak zero, dkn og stoney har fundet løsningen på det:-)

tak for hjælpen der, points til jer begge:-)

wil/