[SOLVED] Special Question - LAZ IDE Code - SynEdit

[pixelink]

I have been trying to figure out how to Print SynEdit text using the Printer.Canvas, and I have been having trouble.

But, it dawned on me that the LAZ IDE "File/Print" menu function does just that. (even using the Print dialog - which I want to use too)

So, I opened up the LAZ source code project and tried to find the code the IDE uses to print the SynEdit text (aka the source editor)

I went through the some 40-50 files in the project trying to it, can't find it.

Does anybody know what pp or pas file that code will be in??

[jamie]

Well as I see it,

You have the SynEdit

Then you use a Highligher for the synEdit of your choice...

Then you can use the TSynExportHTml which needs the highlighter.
 
Basically, exporter can generate a HTML script using the highlighter plugin and the SynEdit uses the same highlighter..

The team did very well with this component I must say...

[pixelink]

That's nice, but don't want html output, I am trying to find the code they use to print the code in the IDE editor (synEdit) window,
I want to be able to print to the Printer Canvas, which is what I believe they are doing in the IDE.

[Martin_fr]

Not sure, but I believe it is in the package "Printer4LazIde"
The file components\printers\design\sourceprinter.pas

SourcePrinter.Execute(SynEdit.Lines);

It is called from
components\printers\design\ideprinting.pas

It does not have an option for colors or highlight....

[pixelink]

Not sure, but I believe it is in the package "Printer4LazIde"
The file components\printers\design\sourceprinter.pas

SourcePrinter.Execute(SynEdit.Lines);

It is called from
components\printers\design\ideprinting.pas

It does not have an option for colors or highlight....

Thanks... that is fine, don't need colors or highlights.

Just want to print plain old text

I will check it out.

[pixelink]

Is this it???
Looks like it

Code: Pascal  [Select][+][-]

1. procedure TSourcePrinter.PrintPage(Text: TStrings; PageNum: integer);
2. var
3.   l: integer;
4.   s: string;
5.   LineNum, PrintNum: integer;
6. begin
7.   //print all lines on the current page
8.   for l := 0 to LinesPerPage - 1 do
9.   begin
10.     LineNum := Pred(PageNum) * LinesPerPage + l;
11.  
12.     //check if end of text is reached
13.     if LineNum < Text.Count then
14.     begin
15.       PrintNum := PtrUInt(Text.Objects[LineNum]);
16.       if ShowLineNumbers then begin
17.         if (PrintNum > 0) then
18.           s := Format('%4d: ',[PrintNum])
19.         else
20.           s := '      ';
21.         end
22.       else
23.         s := '';
24.  
25.       s := s + Text[LineNum];
26.  
27.       Printer.Canvas.TextOut(Margin, Round(LineHeight * l), s);
28.     end;
29.   end;
30. end;
31.  

[pixelink]

@MARTIN...

Amazingly I got it to work. (see screen below)

Only issue is that I set the MARGIN to 50, and the left right & bottom works great, but the TOP doesn't

It is like that too when you print from the LAZ IDE.

How is the Top margin handled in the IDE code.
I see the the MARGIN code, but nothing about the left.

FYI... I didn't print the line numbers.

[pixelink]

Got the SynEdit prject working.

Here is the thread where I was working on this.

https://forum.lazarus.freepascal.org/index.php/topic,45382.0.html