Please post bug reports, feature requests, or any question regarding the DELPHI AREA projects here.

Hi, I'm creating an HTML WYSIWYG and code editor which uses Microsoft MSHTML. Now, I need a print preview both for the WYSIWYG part and the code part, but MSIE and SynEdit PrintPreviews are just UGLY . I like everything about your component, but I was disapointed to see that it can't work with html pages nor with SynEdit. So I would appreciate it very much if you added MSHTML and SynEdit support to it.
If you decide to help me and don't know MSHTML very well (beleieve me, it's very hard to work with) I can post a function which gets the whole rendered html page bitmap, or you can take a look at the msdn articles on Print Templates in IE (actual article is "Beyond PrintPreview"). Regarding SynEdit - it's a free delphi component, similar to RichEdit, with full sourcecode and it's own PrintPreview - so you can get all the info you need from there.

Thanks!

m_b
m_b
Active Member

Posts: 18
Joined: June 23rd, 2004, 10:19 am

### Would like to use TPrintPreview with HTML

Hi m_b,

also have problems with print preview of HTML pages.

Pleas could you post your solution to get the rendered page of a HTML code?

Thankx
XML

SynEdit? Where to find?
XML
Member

Posts: 1
Joined: June 24th, 2004, 1:29 pm

### Re: Would like to use TPrintPreview with HTML

XML wrote:SynEdit? Where to find?

http://synedit.sourceforge.net/

Besides: syn edit makes print preview as metafiles, so you can use syn edit's metafiles with printpreview, or render it by yourself.. just follow rule: "Analyze & interprett"

print preview for HTMLs? good.. if i could just use gecko i would maqke it but with that sh**t* activeX control...
Johnny_Bit
VIP Member

Posts: 455
Joined: June 15th, 2003, 9:56 am

Sorry I didn't reply earlier, I have almost no time to breathe.

Now:

XML - I'll post the code for you tomorow, I need to get some sleep now - it's 12:50 PM here...

Johnny_Bit - Can you show me exactly how to do this with SynEdit? Thanks

See ya tomorrw...

m_b
m_b
Active Member

Posts: 18
Joined: June 23rd, 2004, 10:19 am

1st way:

use TSynExporterRTF as follows:

Code: Select all
procedure TForm1.Button1Click(Sender: TObject);var  sRTF: TMemoryStream;  rePrint: TCustomRichEdit;  rRect: TRect;begin  sRTF:=TMemoryStream.Create;  SynExporterRTF1.SaveToStream(sRTF);  rePrint:=TRichEdit.Create(nil);  //here you set rich edit properties  rePrint.Lines.LoadFromStream(sRTF);  sRTF.Free;  PrintPreview1.GetRichTextRect(rRect, rePrint, nil);  PrintPreview1.PaintRichText(rRect, rePrint, 0, nil);  rePrint.Freeend;

2nd way:

Code: Select all
procedure TForm1.Button2Click(Sender: TObject);var  I: Integer;begin  PrintPreview1.BeginDoc;  for I:=0 to SynEditPrint1.PageCount-1 do    begin      PrintPreview1.NewPage;      SynEditPrint1.PrintToCanvas(PrintPreview1.Canvas, I);    end;  PrintPreview1.EndDoc;end;

I'm sure, that there is 3rd way, but this 2 presented is enought
Johnny_Bit
VIP Member

Posts: 455
Joined: June 15th, 2003, 9:56 am

OK, here's something for XML first:

Code: Select all
procedure GetPageBMP(FileName:String;srcHeight: Integer; srcWidth: Integer);var  sourceDrawRect : TRect;  sourceBitmap: TBitmap;  viewObject: IViewObject;begin sourceBitmap := TBitmap.Create ; Application.ProcessMessages; WebBrowser1.Navigate(FileName); while WebBrowser1.ReadyState < 4 do  Application.ProcessMessages; Sleep(100); while WebBrowser1.Busy do  Application.ProcessMessages; WebBrowser1.Width:=srcWidth + 18; WebBrowser1.Height:=srcHeight + 16; sourceDrawRect := Rect (-2, -2, srcWidth, srcHeight); sourceBitmap.Width :=  srcWidth - 21; sourceBitmap.Height :=  srcHeight - 14; viewObject := Webbrowser1.ControlInterface as IViewObject; if viewObject = nil then  exit; OleCheck(viewObject.Draw(DVASPECT_CONTENT, 1, nil, nil, Self.Handle,sourceBitmap.Canvas.Handle, @sourceDrawRect, nil, nil, 0)); sourcebitmap.SaveToFile('c:\pagebmp.bmp');end;

This procedure only gets the part of the page you specify, not the whole page. And I'm still trying to find a way to get the width and height of the whole page so I can resize the WB approprietly, but it seems that there's no way. Microsoft speaks of print templates - but doesn't say exactly how to use them.

And to you Jonny_bit > Thanks alot!

Cheers!

m_b
m_b
Active Member

Posts: 18
Joined: June 23rd, 2004, 10:19 am

Interesting codes here!
Thanks everybody!

Kambiz

Posts: 2424
Joined: March 7th, 2003, 7:10 pm

Does that mean there's gonna be a new version supporting these features. I sure hope so, can't wait...

Cheers!

m_b
m_b
Active Member

Posts: 18
Joined: June 23rd, 2004, 10:19 am

I'm sorry, but there is not enough reason to improve the component by adding support for SynEdit and HTML.

Kambiz

Posts: 2424
Joined: March 7th, 2003, 7:10 pm

Why not??? It would be great... Please...[/b]
m_b
Active Member

Posts: 18
Joined: June 23rd, 2004, 10:19 am

How many people are going to use PrintPreview in conjunction with either SynEdit or WebBrowser? How many people don't use it for these purposes? A small component is suitble for more people.

Jhonny_Bit demonstrated how easily the text in SynEdit can be printed by PrintPrwview. I believe its better the programmer prints the text in the way she/he has more control over it.

What about the WebBrowser? Well, when you do low level tasks with WebBrowser, you have to be aware that with every new service pack you may need to review your code, otherwise you'll get some AV exceptions. This has happened to me several times and I'm not going to make a new nightmare in my life.

Anyway, PrintPreview is open source. So, you can modify, and even distribute the modified version under your own name (of course as freeware and including the original copyright notice).

Cheers,
Kambiz

Kambiz

Posts: 2424
Joined: March 7th, 2003, 7:10 pm

Well, thanks anyway...

m_b
m_b
Active Member

Posts: 18
Joined: June 23rd, 2004, 10:19 am

### Can't Compile

Hi !

I'm totally new in Delphi & gettin' used to it!
Got version 7. I wonder why I can't compile this TPrintPreview..
It says I need a dcu file Preview.dcu.
It doesn't recognize the declaration of Preview in "uses" section.

Thank U to help me finding this file or maybe a component I need to install...
PomPom
Member

Posts: 2
Joined: July 5th, 2004, 2:07 pm

Delphi Newbie? Just go to Tools->Envoroniment Options->Library Path and add dir where you put print preview. now open preview.pas goto component->install component click on instal, then save all and that's it.
Johnny_Bit
VIP Member

Posts: 455
Joined: June 15th, 2003, 9:56 am

Hi, I just found out how to get the width and height of the full HTML page. So, here it is:

height := ((WebBrowser1.document as IHTMLDocument2).body as IHTMLElement2).scrollHeight;

Width depends on paper size - it wraps around the web browser, so:

width := ((WebBrowser1.document as IHTMLDocument2).body as IHTMLElement2).scrollWidth;

Just thought someone can find this useful...

Cheers

Marko
m_b
Active Member

Posts: 18
Joined: June 23rd, 2004, 10:19 am

Next