mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-05 11:38:04 +02:00
added IDE printing package from Darius
git-svn-id: trunk@10190 -
This commit is contained in:
mattias
parent
64d075fa75
commit
b65822fa44
15
.gitattributes
vendored
15
.gitattributes
vendored
@ -285,6 +285,20 @@ components/prettyformat/prettyformat.pas svneol=native#text/plain
|
||||
components/prettyformat/ptopu.pp svneol=native#text/plain
|
||||
components/printers/Makefile svneol=native#text/plain
|
||||
components/printers/Makefile.fpc svneol=native#text/plain
|
||||
components/printers/design/Makefile svneol=native#text/plain
|
||||
components/printers/design/Makefile.fpc svneol=native#text/plain
|
||||
components/printers/design/ideprinting.pas svneol=native#text/plain
|
||||
components/printers/design/printers4lazide.lpk svneol=native#text/plain
|
||||
components/printers/design/printers4lazide.pas svneol=native#text/plain
|
||||
components/printers/design/printers4lazide.txt svneol=native#text/plain
|
||||
components/printers/design/printers4lazidetest/main.lfm svneol=native#text/plain
|
||||
components/printers/design/printers4lazidetest/main.lrs svneol=native#text/plain
|
||||
components/printers/design/printers4lazidetest/main.pas svneol=native#text/plain
|
||||
components/printers/design/printers4lazidetest/readme.txt svneol=native#text/plain
|
||||
components/printers/design/printers4lazidetest/testapp.lpi svneol=native#text/plain
|
||||
components/printers/design/printers4lazidetest/testapp.lpr svneol=native#text/plain
|
||||
components/printers/design/printers4lazidetest/testapp.lps svneol=native#text/plain
|
||||
components/printers/design/sourceprinter.pas svneol=native#text/plain
|
||||
components/printers/lib/README.txt svneol=native#text/plain
|
||||
components/printers/osprinters.pas svneol=native#text/pascal
|
||||
components/printers/printer4lazarus.lpk svneol=native#text/pascal
|
||||
@ -2667,6 +2681,7 @@ packager/globallinks/lazopenglcontext-0.lpl svneol=native#text/plain
|
||||
packager/globallinks/macosfiles-0.lpl svneol=native#text/plain
|
||||
packager/globallinks/popupnotifierlaz-0.lpl svneol=native#text/plain
|
||||
packager/globallinks/prettyformat-0.lpl svneol=native#text/plain
|
||||
packager/globallinks/printers4lazide-0.lpl svneol=native#text/plain
|
||||
packager/globallinks/projtemplates-0.lpl svneol=native#text/plain
|
||||
packager/globallinks/trayiconlaz-0.lpl svneol=native#text/plain
|
||||
packager/installpkgsetdlg.lfm svneol=native#text/plain
|
||||
|
||||
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/10/29]
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/08/20]
|
||||
#
|
||||
default: all
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince arm-gba powerpc64-linux
|
||||
@ -1269,7 +1269,7 @@ ifeq ($(CPU_TARGET),powerpc)
|
||||
FPCCPUOPT:=-O1r
|
||||
endif
|
||||
else
|
||||
FPCCPUOPT:=-O2
|
||||
FPCCPUOPT:=-O1r
|
||||
endif
|
||||
override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
|
||||
override FPCOPTDEF+=RELEASE
|
||||
@ -1819,6 +1819,7 @@ endif
|
||||
bigidecomponents: all
|
||||
$(MAKE) -C rtticontrols
|
||||
$(MAKE) -C printers
|
||||
$(MAKE) -C printers/design
|
||||
$(MAKE) -C cgi
|
||||
$(MAKE) -C cgi/ide
|
||||
$(MAKE) -C turbopower_ipro
|
||||
|
||||
@ -23,6 +23,7 @@ files=$(wildcard ./units/*$(OEXT)) \
|
||||
bigidecomponents: all
|
||||
$(MAKE) -C rtticontrols
|
||||
$(MAKE) -C printers
|
||||
$(MAKE) -C printers/design
|
||||
$(MAKE) -C cgi
|
||||
$(MAKE) -C cgi/ide
|
||||
$(MAKE) -C turbopower_ipro
|
||||
|
||||
2333
components/printers/design/Makefile
Normal file
2333
components/printers/design/Makefile
Normal file
File diff suppressed because it is too large
Load Diff
42
components/printers/design/Makefile.fpc
Normal file
42
components/printers/design/Makefile.fpc
Normal file
@ -0,0 +1,42 @@
|
||||
# Makefile.fpc for printers4lazide 0.0
|
||||
|
||||
[package]
|
||||
name=printers4lazide
|
||||
version=0.0
|
||||
|
||||
[compiler]
|
||||
unittargetdir=lib/$(CPU_TARGET)-$(OS_TARGET)
|
||||
unitdir=../../../lcl/units/$(CPU_TARGET)-$(OS_TARGET)/ ../../../ideintf/units/$(CPU_TARGET)-$(OS_TARGET)/ ../lib/$(CPU_TARGET)-$(OS_TARGET)/ ../../../lcl/units/$(CPU_TARGET)-$(OS_TARGET)/$(LCL_PLATFORM)/ ../../../packager/units/$(CPU_TARGET)-$(OS_TARGET)/
|
||||
options=-dLCL -dLCL$(LCL_PLATFORM) -S2 -gl
|
||||
|
||||
[target]
|
||||
units=printers4lazide.pas
|
||||
|
||||
[clean]
|
||||
files=$(wildcard $(COMPILER_UNITTARGETDIR)/*$(OEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(PPUEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*$(RSTEXT)) \
|
||||
$(wildcard $(COMPILER_UNITTARGETDIR)/*.compiled) \
|
||||
$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
|
||||
[prerules]
|
||||
# LCL Platform
|
||||
ifndef LCL_PLATFORM
|
||||
ifeq ($(OS_TARGET),win32)
|
||||
LCL_PLATFORM=win32
|
||||
else
|
||||
ifeq ($(OS_TARGET),win64)
|
||||
LCL_PLATFORM=win32
|
||||
else
|
||||
LCL_PLATFORM=gtk
|
||||
endif
|
||||
endif
|
||||
endif
|
||||
export LCL_PLATFORM
|
||||
|
||||
[rules]
|
||||
.PHONY: cleartarget all
|
||||
|
||||
cleartarget:
|
||||
-$(DEL) $(COMPILER_UNITTARGETDIR)/printers4lazide$(PPUEXT)
|
||||
|
||||
all: cleartarget $(COMPILER_UNITTARGETDIR) printers4lazide$(PPUEXT)
|
||||
89
components/printers/design/ideprinting.pas
Normal file
89
components/printers/design/ideprinting.pas
Normal file
@ -0,0 +1,89 @@
|
||||
{ Copyright (C) 2006 Darius Blaszijk
|
||||
|
||||
This source is free software; you can redistribute it and/or modify it under
|
||||
the terms of the GNU General Public License as published by the Free
|
||||
Software Foundation; either version 2 of the License, or (at your option)
|
||||
any later version.
|
||||
|
||||
This code is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||||
details.
|
||||
|
||||
A copy of the GNU General Public License is available on the World Wide Web
|
||||
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
|
||||
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
|
||||
MA 02111-1307, USA.
|
||||
}
|
||||
|
||||
unit ideprinting;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LCLtype;
|
||||
|
||||
procedure PrintFile(Sender: TObject);
|
||||
procedure Register;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
MenuIntf, IDECommands, Dialogs, SrcEditorIntf, SourcePrinter;
|
||||
|
||||
resourcestring
|
||||
SDescrPFSelection = 'Print...';
|
||||
|
||||
var
|
||||
CmdFormatSelection : TIDECommand;
|
||||
CmdFormatFile : TIDECommand;
|
||||
|
||||
procedure Register;
|
||||
var
|
||||
Key : TIDEShortCut;
|
||||
Cat : TIDECommandCategory;
|
||||
begin
|
||||
Key:=IDEShortCut(VK_P,[SSctrl],VK_UNKNOWN,[]);
|
||||
{$ifndef USECustomCategory}
|
||||
Cat:=IDECommandList.CreateCategory(nil,
|
||||
'PrintFormatting',
|
||||
'Formatting',
|
||||
IDECmdScopeSrcEditOnly);
|
||||
{$else}
|
||||
cat:=nil;
|
||||
{$endif}
|
||||
CmdFormatSelection:=RegisterIDECommand(Cat,
|
||||
'PrintSelection',
|
||||
SDescrPFSelection,
|
||||
Key,nil,@PrintFile);
|
||||
|
||||
//file main menu item
|
||||
RegisterIDEMenuCommand(itmFileDirectories,
|
||||
'PrintSelection',
|
||||
SDescrPFSelection,
|
||||
nil,nil,CmdFormatSelection);
|
||||
|
||||
//source editor popup
|
||||
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage,
|
||||
'-',
|
||||
'-',
|
||||
nil,nil,nil);
|
||||
RegisterIDEMenuCommand(SrcEditMenuSectionMovePage,
|
||||
'PrintSelection',
|
||||
SDescrPFSelection,
|
||||
nil,nil,CmdFormatSelection);
|
||||
end;
|
||||
|
||||
procedure PrintFile(Sender: TObject);
|
||||
var
|
||||
sp: TSourcePrinter;
|
||||
begin
|
||||
sp := TSourcePrinter.Create;
|
||||
sp.Execute(SourceEditorWindow.ActiveEditor.Lines);
|
||||
sp.Free;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
49
components/printers/design/printers4lazide.lpk
Normal file
49
components/printers/design/printers4lazide.lpk
Normal file
@ -0,0 +1,49 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<Package Version="2">
|
||||
<PathDelim Value="\"/>
|
||||
<Name Value="printers4lazide"/>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<OtherUnitFiles Value="$(LazarusDir)\lcl\units\$(TargetCPU)-$(TargetOS)\"/>
|
||||
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
|
||||
<SrcPath Value="$(LazarusDir)\lcl\units\$(TargetCPU)-$(TargetOS)\"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
<Files Count="1">
|
||||
<Item1>
|
||||
<Filename Value="ideprinting.pas"/>
|
||||
<HasRegisterProc Value="True"/>
|
||||
<UnitName Value="ideprinting"/>
|
||||
</Item1>
|
||||
</Files>
|
||||
<Type Value="DesignTime"/>
|
||||
<RequiredPkgs Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="printer4lazarus"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="IDEIntf"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="FCL"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item3>
|
||||
</RequiredPkgs>
|
||||
<UsageOptions>
|
||||
<UnitPath Value="$(PkgOutDir)\"/>
|
||||
</UsageOptions>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IgnoreBinaries Value="False"/>
|
||||
</PublishOptions>
|
||||
</Package>
|
||||
</CONFIG>
|
||||
21
components/printers/design/printers4lazide.pas
Normal file
21
components/printers/design/printers4lazide.pas
Normal file
@ -0,0 +1,21 @@
|
||||
{ This file was automatically created by Lazarus. Do not edit!
|
||||
This source is only used to compile and install the package.
|
||||
}
|
||||
|
||||
unit printers4lazide;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
ideprinting, LazarusPackageIntf;
|
||||
|
||||
implementation
|
||||
|
||||
procedure Register;
|
||||
begin
|
||||
RegisterUnit('ideprinting', @ideprinting.Register);
|
||||
end;
|
||||
|
||||
initialization
|
||||
RegisterPackage('printers4lazide', @Register);
|
||||
end.
|
||||
18
components/printers/design/printers4lazide.txt
Normal file
18
components/printers/design/printers4lazide.txt
Normal file
@ -0,0 +1,18 @@
|
||||
This package will add a print menu item in the Lazarus main menu (File) and
|
||||
in the popup menu of the source editor.
|
||||
|
||||
There are always some todo's. The ones that came to mind are:
|
||||
|
||||
- syntax highlighting
|
||||
- filename in the header
|
||||
- pagenumbering
|
||||
- preferences/settings in the IDE
|
||||
- print selection
|
||||
- print range
|
||||
- line wrapping
|
||||
- option setting from IDE
|
||||
|
||||
|
||||
Either supply a patch to the lazarus developers or pretty please ask me....
|
||||
|
||||
Darius Blaszijk (dhkblaszyk@zeelandnet.nl)
|
||||
369
components/printers/design/printers4lazidetest/main.lfm
Normal file
369
components/printers/design/printers4lazidetest/main.lfm
Normal file
@ -0,0 +1,369 @@
|
||||
object Form1: TForm1
|
||||
Left = 290
|
||||
Height = 596
|
||||
Top = 175
|
||||
Width = 767
|
||||
HorzScrollBar.Page = 766
|
||||
VertScrollBar.Page = 595
|
||||
ActiveControl = SynEdit1
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 596
|
||||
ClientWidth = 767
|
||||
OnCreate = FormCreate
|
||||
object SynEdit1: TSynEdit
|
||||
AnchorSideTop.Control = Button1
|
||||
AnchorSideTop.Side = asrBottom
|
||||
Height = 559
|
||||
Top = 37
|
||||
Width = 767
|
||||
Align = alBottom
|
||||
Anchors = [akTop, akLeft, akRight, akBottom]
|
||||
Font.Height = -16
|
||||
Font.Name = 'courier'
|
||||
ParentColor = False
|
||||
TabOrder = 0
|
||||
BookMarkOptions.Xoffset = 38
|
||||
BookMarkOptions.OnChange = nil
|
||||
Gutter.ShowLineNumbers = True
|
||||
Gutter.OnChange = nil
|
||||
Gutter.CodeFoldingWidth = 14
|
||||
Keystrokes = <
|
||||
item
|
||||
Command = 3
|
||||
ShortCut = 38
|
||||
end
|
||||
item
|
||||
Command = 103
|
||||
ShortCut = 8230
|
||||
end
|
||||
item
|
||||
Command = 211
|
||||
ShortCut = 16422
|
||||
end
|
||||
item
|
||||
Command = 4
|
||||
ShortCut = 40
|
||||
end
|
||||
item
|
||||
Command = 104
|
||||
ShortCut = 8232
|
||||
end
|
||||
item
|
||||
Command = 212
|
||||
ShortCut = 16424
|
||||
end
|
||||
item
|
||||
Command = 1
|
||||
ShortCut = 37
|
||||
end
|
||||
item
|
||||
Command = 101
|
||||
ShortCut = 8229
|
||||
end
|
||||
item
|
||||
Command = 5
|
||||
ShortCut = 16421
|
||||
end
|
||||
item
|
||||
Command = 105
|
||||
ShortCut = 24613
|
||||
end
|
||||
item
|
||||
Command = 2
|
||||
ShortCut = 39
|
||||
end
|
||||
item
|
||||
Command = 102
|
||||
ShortCut = 8231
|
||||
end
|
||||
item
|
||||
Command = 6
|
||||
ShortCut = 16423
|
||||
end
|
||||
item
|
||||
Command = 106
|
||||
ShortCut = 24615
|
||||
end
|
||||
item
|
||||
Command = 10
|
||||
ShortCut = 34
|
||||
end
|
||||
item
|
||||
Command = 110
|
||||
ShortCut = 8226
|
||||
end
|
||||
item
|
||||
Command = 14
|
||||
ShortCut = 16418
|
||||
end
|
||||
item
|
||||
Command = 114
|
||||
ShortCut = 24610
|
||||
end
|
||||
item
|
||||
Command = 9
|
||||
ShortCut = 33
|
||||
end
|
||||
item
|
||||
Command = 109
|
||||
ShortCut = 8225
|
||||
end
|
||||
item
|
||||
Command = 13
|
||||
ShortCut = 16417
|
||||
end
|
||||
item
|
||||
Command = 113
|
||||
ShortCut = 24609
|
||||
end
|
||||
item
|
||||
Command = 7
|
||||
ShortCut = 36
|
||||
end
|
||||
item
|
||||
Command = 107
|
||||
ShortCut = 8228
|
||||
end
|
||||
item
|
||||
Command = 15
|
||||
ShortCut = 16420
|
||||
end
|
||||
item
|
||||
Command = 115
|
||||
ShortCut = 24612
|
||||
end
|
||||
item
|
||||
Command = 8
|
||||
ShortCut = 35
|
||||
end
|
||||
item
|
||||
Command = 108
|
||||
ShortCut = 8227
|
||||
end
|
||||
item
|
||||
Command = 16
|
||||
ShortCut = 16419
|
||||
end
|
||||
item
|
||||
Command = 116
|
||||
ShortCut = 24611
|
||||
end
|
||||
item
|
||||
Command = 223
|
||||
ShortCut = 45
|
||||
end
|
||||
item
|
||||
Command = 201
|
||||
ShortCut = 16429
|
||||
end
|
||||
item
|
||||
Command = 604
|
||||
ShortCut = 8237
|
||||
end
|
||||
item
|
||||
Command = 502
|
||||
ShortCut = 46
|
||||
end
|
||||
item
|
||||
Command = 603
|
||||
ShortCut = 8238
|
||||
end
|
||||
item
|
||||
Command = 501
|
||||
ShortCut = 8
|
||||
end
|
||||
item
|
||||
Command = 501
|
||||
ShortCut = 8200
|
||||
end
|
||||
item
|
||||
Command = 504
|
||||
ShortCut = 16392
|
||||
end
|
||||
item
|
||||
Command = 601
|
||||
ShortCut = 32776
|
||||
end
|
||||
item
|
||||
Command = 602
|
||||
ShortCut = 40968
|
||||
end
|
||||
item
|
||||
Command = 509
|
||||
ShortCut = 13
|
||||
end
|
||||
item
|
||||
Command = 199
|
||||
ShortCut = 16449
|
||||
end
|
||||
item
|
||||
Command = 201
|
||||
ShortCut = 16451
|
||||
end
|
||||
item
|
||||
Command = 610
|
||||
ShortCut = 24649
|
||||
end
|
||||
item
|
||||
Command = 509
|
||||
ShortCut = 16461
|
||||
end
|
||||
item
|
||||
Command = 510
|
||||
ShortCut = 16462
|
||||
end
|
||||
item
|
||||
Command = 503
|
||||
ShortCut = 16468
|
||||
end
|
||||
item
|
||||
Command = 611
|
||||
ShortCut = 24661
|
||||
end
|
||||
item
|
||||
Command = 604
|
||||
ShortCut = 16470
|
||||
end
|
||||
item
|
||||
Command = 603
|
||||
ShortCut = 16472
|
||||
end
|
||||
item
|
||||
Command = 507
|
||||
ShortCut = 16473
|
||||
end
|
||||
item
|
||||
Command = 506
|
||||
ShortCut = 24665
|
||||
end
|
||||
item
|
||||
Command = 601
|
||||
ShortCut = 16474
|
||||
end
|
||||
item
|
||||
Command = 602
|
||||
ShortCut = 24666
|
||||
end
|
||||
item
|
||||
Command = 301
|
||||
ShortCut = 16432
|
||||
end
|
||||
item
|
||||
Command = 302
|
||||
ShortCut = 16433
|
||||
end
|
||||
item
|
||||
Command = 303
|
||||
ShortCut = 16434
|
||||
end
|
||||
item
|
||||
Command = 304
|
||||
ShortCut = 16435
|
||||
end
|
||||
item
|
||||
Command = 305
|
||||
ShortCut = 16436
|
||||
end
|
||||
item
|
||||
Command = 306
|
||||
ShortCut = 16437
|
||||
end
|
||||
item
|
||||
Command = 307
|
||||
ShortCut = 16438
|
||||
end
|
||||
item
|
||||
Command = 308
|
||||
ShortCut = 16439
|
||||
end
|
||||
item
|
||||
Command = 309
|
||||
ShortCut = 16440
|
||||
end
|
||||
item
|
||||
Command = 310
|
||||
ShortCut = 16441
|
||||
end
|
||||
item
|
||||
Command = 351
|
||||
ShortCut = 24624
|
||||
end
|
||||
item
|
||||
Command = 352
|
||||
ShortCut = 24625
|
||||
end
|
||||
item
|
||||
Command = 353
|
||||
ShortCut = 24626
|
||||
end
|
||||
item
|
||||
Command = 354
|
||||
ShortCut = 24627
|
||||
end
|
||||
item
|
||||
Command = 355
|
||||
ShortCut = 24628
|
||||
end
|
||||
item
|
||||
Command = 356
|
||||
ShortCut = 24629
|
||||
end
|
||||
item
|
||||
Command = 357
|
||||
ShortCut = 24630
|
||||
end
|
||||
item
|
||||
Command = 358
|
||||
ShortCut = 24631
|
||||
end
|
||||
item
|
||||
Command = 359
|
||||
ShortCut = 24632
|
||||
end
|
||||
item
|
||||
Command = 360
|
||||
ShortCut = 24633
|
||||
end
|
||||
item
|
||||
Command = 231
|
||||
ShortCut = 24654
|
||||
end
|
||||
item
|
||||
Command = 232
|
||||
ShortCut = 24643
|
||||
end
|
||||
item
|
||||
Command = 233
|
||||
ShortCut = 24652
|
||||
end
|
||||
item
|
||||
Command = 612
|
||||
ShortCut = 9
|
||||
end
|
||||
item
|
||||
Command = 613
|
||||
ShortCut = 8201
|
||||
end
|
||||
item
|
||||
Command = 250
|
||||
ShortCut = 24642
|
||||
end>
|
||||
Lines.Strings = (
|
||||
'SynEdit1'
|
||||
)
|
||||
SelectedColor.OnChange = nil
|
||||
end
|
||||
object Button1: TButton
|
||||
AnchorSideLeft.Control = Owner
|
||||
AnchorSideTop.Control = Owner
|
||||
Left = 6
|
||||
Height = 25
|
||||
Top = 6
|
||||
Width = 75
|
||||
BorderSpacing.Around = 6
|
||||
BorderSpacing.InnerBorder = 4
|
||||
Caption = 'Print'
|
||||
OnClick = Button1Click
|
||||
TabOrder = 1
|
||||
end
|
||||
end
|
||||
61
components/printers/design/printers4lazidetest/main.lrs
Normal file
61
components/printers/design/printers4lazidetest/main.lrs
Normal file
@ -0,0 +1,61 @@
|
||||
{ This is an automatically generated lazarus resource file }
|
||||
|
||||
LazarusResources.Add('TForm1','FORMDATA',[
|
||||
'TPF0'#6'TForm1'#5'Form1'#4'Left'#3'"'#1#6'Height'#3'T'#2#3'Top'#3#175#0#5'Wi'
|
||||
+'dth'#3#255#2#18'HorzScrollBar.Page'#3#254#2#18'VertScrollBar.Page'#3'S'#2#13
|
||||
+'ActiveControl'#7#8'SynEdit1'#7'Caption'#6#5'Form1'#12'ClientHeight'#3'T'#2
|
||||
+#11'ClientWidth'#3#255#2#8'OnCreate'#7#10'FormCreate'#0#8'TSynEdit'#8'SynEdi'
|
||||
+'t1'#21'AnchorSideTop.Control'#7#7'Button1'#18'AnchorSideTop.Side'#7#9'asrBo'
|
||||
+'ttom'#6'Height'#3'/'#2#3'Top'#2'%'#5'Width'#3#255#2#5'Align'#7#8'alBottom'#7
|
||||
+'Anchors'#11#5'akTop'#6'akLeft'#7'akRight'#8'akBottom'#0#11'Font.Height'#2
|
||||
+#240#9'Font.Name'#6#7'courier'#11'ParentColor'#8#8'TabOrder'#2#0#23'BookMark'
|
||||
+'Options.Xoffset'#2'&'#24'BookMarkOptions.OnChange'#13#22'Gutter.ShowLineNum'
|
||||
+'bers'#9#15'Gutter.OnChange'#13#23'Gutter.CodeFoldingWidth'#2#14#10'Keystrok'
|
||||
+'es'#14#1#7'Command'#2#3#8'ShortCut'#2'&'#0#1#7'Command'#2'g'#8'ShortCut'#3
|
||||
+'& '#0#1#7'Command'#3#211#0#8'ShortCut'#3'&@'#0#1#7'Command'#2#4#8'ShortCut'
|
||||
+#2'('#0#1#7'Command'#2'h'#8'ShortCut'#3'( '#0#1#7'Command'#3#212#0#8'ShortCu'
|
||||
+'t'#3'(@'#0#1#7'Command'#2#1#8'ShortCut'#2'%'#0#1#7'Command'#2'e'#8'ShortCut'
|
||||
+#3'% '#0#1#7'Command'#2#5#8'ShortCut'#3'%@'#0#1#7'Command'#2'i'#8'ShortCut'#3
|
||||
+'%`'#0#1#7'Command'#2#2#8'ShortCut'#2''''#0#1#7'Command'#2'f'#8'ShortCut'#3
|
||||
+''' '#0#1#7'Command'#2#6#8'ShortCut'#3'''@'#0#1#7'Command'#2'j'#8'ShortCut'#3
|
||||
+'''`'#0#1#7'Command'#2#10#8'ShortCut'#2'"'#0#1#7'Command'#2'n'#8'ShortCut'#3
|
||||
+'" '#0#1#7'Command'#2#14#8'ShortCut'#3'"@'#0#1#7'Command'#2'r'#8'ShortCut'#3
|
||||
+'"`'#0#1#7'Command'#2#9#8'ShortCut'#2'!'#0#1#7'Command'#2'm'#8'ShortCut'#3'!'
|
||||
+' '#0#1#7'Command'#2#13#8'ShortCut'#3'!@'#0#1#7'Command'#2'q'#8'ShortCut'#3
|
||||
+'!`'#0#1#7'Command'#2#7#8'ShortCut'#2'$'#0#1#7'Command'#2'k'#8'ShortCut'#3'$'
|
||||
+' '#0#1#7'Command'#2#15#8'ShortCut'#3'$@'#0#1#7'Command'#2's'#8'ShortCut'#3
|
||||
+'$`'#0#1#7'Command'#2#8#8'ShortCut'#2'#'#0#1#7'Command'#2'l'#8'ShortCut'#3'#'
|
||||
+' '#0#1#7'Command'#2#16#8'ShortCut'#3'#@'#0#1#7'Command'#2't'#8'ShortCut'#3
|
||||
+'#`'#0#1#7'Command'#3#223#0#8'ShortCut'#2'-'#0#1#7'Command'#3#201#0#8'ShortC'
|
||||
+'ut'#3'-@'#0#1#7'Command'#3'\'#2#8'ShortCut'#3'- '#0#1#7'Command'#3#246#1#8
|
||||
+'ShortCut'#2'.'#0#1#7'Command'#3'['#2#8'ShortCut'#3'. '#0#1#7'Command'#3#245
|
||||
+#1#8'ShortCut'#2#8#0#1#7'Command'#3#245#1#8'ShortCut'#3#8' '#0#1#7'Command'#3
|
||||
+#248#1#8'ShortCut'#3#8'@'#0#1#7'Command'#3'Y'#2#8'ShortCut'#4#8#128#0#0#0#1#7
|
||||
+'Command'#3'Z'#2#8'ShortCut'#4#8#160#0#0#0#1#7'Command'#3#253#1#8'ShortCut'#2
|
||||
+#13#0#1#7'Command'#3#199#0#8'ShortCut'#3'A@'#0#1#7'Command'#3#201#0#8'ShortC'
|
||||
+'ut'#3'C@'#0#1#7'Command'#3'b'#2#8'ShortCut'#3'I`'#0#1#7'Command'#3#253#1#8
|
||||
+'ShortCut'#3'M@'#0#1#7'Command'#3#254#1#8'ShortCut'#3'N@'#0#1#7'Command'#3
|
||||
+#247#1#8'ShortCut'#3'T@'#0#1#7'Command'#3'c'#2#8'ShortCut'#3'U`'#0#1#7'Comma'
|
||||
+'nd'#3'\'#2#8'ShortCut'#3'V@'#0#1#7'Command'#3'['#2#8'ShortCut'#3'X@'#0#1#7
|
||||
+'Command'#3#251#1#8'ShortCut'#3'Y@'#0#1#7'Command'#3#250#1#8'ShortCut'#3'Y`'
|
||||
+#0#1#7'Command'#3'Y'#2#8'ShortCut'#3'Z@'#0#1#7'Command'#3'Z'#2#8'ShortCut'#3
|
||||
+'Z`'#0#1#7'Command'#3'-'#1#8'ShortCut'#3'0@'#0#1#7'Command'#3'.'#1#8'ShortCu'
|
||||
+'t'#3'1@'#0#1#7'Command'#3'/'#1#8'ShortCut'#3'2@'#0#1#7'Command'#3'0'#1#8'Sh'
|
||||
+'ortCut'#3'3@'#0#1#7'Command'#3'1'#1#8'ShortCut'#3'4@'#0#1#7'Command'#3'2'#1
|
||||
+#8'ShortCut'#3'5@'#0#1#7'Command'#3'3'#1#8'ShortCut'#3'6@'#0#1#7'Command'#3
|
||||
+'4'#1#8'ShortCut'#3'7@'#0#1#7'Command'#3'5'#1#8'ShortCut'#3'8@'#0#1#7'Comman'
|
||||
+'d'#3'6'#1#8'ShortCut'#3'9@'#0#1#7'Command'#3'_'#1#8'ShortCut'#3'0`'#0#1#7'C'
|
||||
+'ommand'#3'`'#1#8'ShortCut'#3'1`'#0#1#7'Command'#3'a'#1#8'ShortCut'#3'2`'#0#1
|
||||
+#7'Command'#3'b'#1#8'ShortCut'#3'3`'#0#1#7'Command'#3'c'#1#8'ShortCut'#3'4`'
|
||||
+#0#1#7'Command'#3'd'#1#8'ShortCut'#3'5`'#0#1#7'Command'#3'e'#1#8'ShortCut'#3
|
||||
+'6`'#0#1#7'Command'#3'f'#1#8'ShortCut'#3'7`'#0#1#7'Command'#3'g'#1#8'ShortCu'
|
||||
+'t'#3'8`'#0#1#7'Command'#3'h'#1#8'ShortCut'#3'9`'#0#1#7'Command'#3#231#0#8'S'
|
||||
+'hortCut'#3'N`'#0#1#7'Command'#3#232#0#8'ShortCut'#3'C`'#0#1#7'Command'#3#233
|
||||
+#0#8'ShortCut'#3'L`'#0#1#7'Command'#3'd'#2#8'ShortCut'#2#9#0#1#7'Command'#3
|
||||
+'e'#2#8'ShortCut'#3#9' '#0#1#7'Command'#3#250#0#8'ShortCut'#3'B`'#0#0#13'Lin'
|
||||
+'es.Strings'#1#6#8'SynEdit1'#0#22'SelectedColor.OnChange'#13#0#0#7'TButton'#7
|
||||
+'Button1'#22'AnchorSideLeft.Control'#7#5'Owner'#21'AnchorSideTop.Control'#7#5
|
||||
+'Owner'#4'Left'#2#6#6'Height'#2#25#3'Top'#2#6#5'Width'#2'K'#20'BorderSpacing'
|
||||
+'.Around'#2#6#25'BorderSpacing.InnerBorder'#2#4#7'Caption'#6#5'Print'#7'OnCl'
|
||||
+'ick'#7#12'Button1Click'#8'TabOrder'#2#1#0#0#0
|
||||
]);
|
||||
72
components/printers/design/printers4lazidetest/main.pas
Normal file
72
components/printers/design/printers4lazidetest/main.pas
Normal file
@ -0,0 +1,72 @@
|
||||
{ Copyright (C) 2006 Darius Blaszijk
|
||||
|
||||
This source is free software; you can redistribute it and/or modify it under
|
||||
the terms of the GNU General Public License as published by the Free
|
||||
Software Foundation; either version 2 of the License, or (at your option)
|
||||
any later version.
|
||||
|
||||
This code is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||||
details.
|
||||
|
||||
A copy of the GNU General Public License is available on the World Wide Web
|
||||
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
|
||||
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
|
||||
MA 02111-1307, USA.
|
||||
}
|
||||
|
||||
unit main;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, SynEdit,
|
||||
Buttons, ExtCtrls;
|
||||
|
||||
type
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
TForm1 = class(TForm)
|
||||
Button1: TButton;
|
||||
|
||||
SynEdit1: TSynEdit;
|
||||
procedure Button1Click(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
{ private declarations }
|
||||
public
|
||||
{ public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
Form1: TForm1;
|
||||
|
||||
implementation
|
||||
|
||||
uses SourcePrinter;
|
||||
|
||||
{ TForm1 }
|
||||
|
||||
procedure TForm1.FormCreate(Sender: TObject);
|
||||
begin
|
||||
SynEdit1.Lines.LoadFromFile('main.pas');
|
||||
end;
|
||||
|
||||
procedure TForm1.Button1Click(Sender: TObject);
|
||||
var
|
||||
sp: TSourcePrinter;
|
||||
begin
|
||||
sp := TSourcePrinter.Create;
|
||||
sp.Execute(SynEdit1.Lines);
|
||||
sp.Free;
|
||||
end;
|
||||
|
||||
initialization
|
||||
{$I main.lrs}
|
||||
|
||||
end.
|
||||
|
||||
@ -0,0 +1,3 @@
|
||||
this test application makes it more simple to debug sourceprinter.pas. Instead of recompiling lazarus each time you just recompile this app.
|
||||
|
||||
Darius Blaszijk (dhkblaszijk@zeelandnet.nl)
|
||||
79
components/printers/design/printers4lazidetest/testapp.lpi
Normal file
79
components/printers/design/printers4lazidetest/testapp.lpi
Normal file
@ -0,0 +1,79 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectOptions>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="5"/>
|
||||
<General>
|
||||
<SessionStorage Value="InProjectDir"/>
|
||||
<MainUnit Value="0"/>
|
||||
<IconPath Value="./"/>
|
||||
<TargetFileExt Value=".exe"/>
|
||||
</General>
|
||||
<VersionInfo>
|
||||
<ProjectVersion Value=""/>
|
||||
</VersionInfo>
|
||||
<PublishOptions>
|
||||
<Version Value="2"/>
|
||||
<IncludeFileFilter Value="*.(pas|pp|inc|lfm|lpr|lrs|lpi|lpk|sh|xml)"/>
|
||||
<ExcludeFileFilter Value="*.(bak|ppu|ppw|o|so);*~;backup"/>
|
||||
</PublishOptions>
|
||||
<RunParams>
|
||||
<local>
|
||||
<FormatVersion Value="1"/>
|
||||
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<RequiredPackages Count="3">
|
||||
<Item1>
|
||||
<PackageName Value="SynEdit"/>
|
||||
<MinVersion Major="1" Valid="True"/>
|
||||
</Item1>
|
||||
<Item2>
|
||||
<PackageName Value="Printer4Lazarus"/>
|
||||
<MinVersion Minor="5" Valid="True"/>
|
||||
</Item2>
|
||||
<Item3>
|
||||
<PackageName Value="LCL"/>
|
||||
</Item3>
|
||||
</RequiredPackages>
|
||||
<Units Count="3">
|
||||
<Unit0>
|
||||
<Filename Value="testapp.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="testapp"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="main.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="main.lrs"/>
|
||||
<UnitName Value="main"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="sourceprinter.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="SourcePrinter"/>
|
||||
</Unit2>
|
||||
</Units>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
<Version Value="5"/>
|
||||
<PathDelim Value="\"/>
|
||||
<SearchPaths>
|
||||
<SrcPath Value="$(LazarusDir)\lcl\;$(LazarusDir)\lcl\interfaces\$(LCLWidgetType)\"/>
|
||||
</SearchPaths>
|
||||
<CodeGeneration>
|
||||
<Generate Value="Faster"/>
|
||||
</CodeGeneration>
|
||||
<Linking>
|
||||
<Options>
|
||||
<Win32>
|
||||
<GraphicApplication Value="True"/>
|
||||
</Win32>
|
||||
</Options>
|
||||
</Linking>
|
||||
<Other>
|
||||
<CompilerPath Value="$(CompPath)"/>
|
||||
</Other>
|
||||
</CompilerOptions>
|
||||
</CONFIG>
|
||||
36
components/printers/design/printers4lazidetest/testapp.lpr
Normal file
36
components/printers/design/printers4lazidetest/testapp.lpr
Normal file
@ -0,0 +1,36 @@
|
||||
{ Copyright (C) 2006 Darius Blaszijk
|
||||
|
||||
This source is free software; you can redistribute it and/or modify it under
|
||||
the terms of the GNU General Public License as published by the Free
|
||||
Software Foundation; either version 2 of the License, or (at your option)
|
||||
any later version.
|
||||
|
||||
This code is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||||
details.
|
||||
|
||||
A copy of the GNU General Public License is available on the World Wide Web
|
||||
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
|
||||
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
|
||||
MA 02111-1307, USA.
|
||||
}
|
||||
|
||||
program testapp;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}{$IFDEF UseCThreads}
|
||||
cthreads,
|
||||
{$ENDIF}{$ENDIF}
|
||||
Interfaces, // this includes the LCL widgetset
|
||||
Forms
|
||||
{ add your units here }, main, SourcePrinter, Printer4Lazarus;
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
Application.CreateForm(TForm1, Form1);
|
||||
Application.Run;
|
||||
end.
|
||||
|
||||
54
components/printers/design/printers4lazidetest/testapp.lps
Normal file
54
components/printers/design/printers4lazidetest/testapp.lps
Normal file
@ -0,0 +1,54 @@
|
||||
<?xml version="1.0"?>
|
||||
<CONFIG>
|
||||
<ProjectSession>
|
||||
<PathDelim Value="\"/>
|
||||
<Version Value="5"/>
|
||||
<Units Count="4">
|
||||
<Unit0>
|
||||
<Filename Value="testapp.lpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="testapp"/>
|
||||
<CursorPos X="22" Y="24"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="24"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
<Filename Value="main.pas"/>
|
||||
<ComponentName Value="Form1"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<ResourceFilename Value="main.lrs"/>
|
||||
<UnitName Value="main"/>
|
||||
<CursorPos X="1" Y="19"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="24"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit1>
|
||||
<Unit2>
|
||||
<Filename Value="sourceprinter.pas"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<UnitName Value="SourcePrinter"/>
|
||||
<CursorPos X="34" Y="133"/>
|
||||
<TopLine Value="103"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="24"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
<Filename Value="ideprinting.pas"/>
|
||||
<UnitName Value="ideprinting"/>
|
||||
<CursorPos X="10" Y="73"/>
|
||||
<TopLine Value="32"/>
|
||||
<EditorIndex Value="3"/>
|
||||
<UsageCount Value="12"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit3>
|
||||
</Units>
|
||||
<General>
|
||||
<ActiveEditorIndexAtStart Value="2"/>
|
||||
</General>
|
||||
<JumpHistory Count="0" HistoryIndex="-1"/>
|
||||
</ProjectSession>
|
||||
</CONFIG>
|
||||
141
components/printers/design/sourceprinter.pas
Normal file
141
components/printers/design/sourceprinter.pas
Normal file
@ -0,0 +1,141 @@
|
||||
{ Copyright (C) 2006 Darius Blaszijk
|
||||
|
||||
This source is free software; you can redistribute it and/or modify it under
|
||||
the terms of the GNU General Public License as published by the Free
|
||||
Software Foundation; either version 2 of the License, or (at your option)
|
||||
any later version.
|
||||
|
||||
This code is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
|
||||
FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
|
||||
details.
|
||||
|
||||
A copy of the GNU General Public License is available on the World Wide Web
|
||||
at <http://www.gnu.org/copyleft/gpl.html>. You can also obtain it by writing
|
||||
to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
|
||||
MA 02111-1307, USA.
|
||||
}
|
||||
|
||||
unit SourcePrinter;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, SysUtils, Printers, Graphics, PrintersDlgs, ExtCtrls, GraphType;
|
||||
|
||||
type
|
||||
TSourcePrinter = class(TObject)
|
||||
private
|
||||
FFont: TFont;
|
||||
FShowLineNumbers: boolean;
|
||||
LineHeight: double;
|
||||
LinesPerPage: integer;
|
||||
FMargin: integer;
|
||||
PageCount: integer;
|
||||
PrintDialog: TPrintDialog;
|
||||
|
||||
procedure PrintPage(Text: TStrings; PageNum: integer);
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy;
|
||||
|
||||
procedure Execute(Text: TStrings);
|
||||
published
|
||||
property Font: TFont read FFont write FFont;
|
||||
property ShowLineNumbers: boolean read FShowLineNumbers write FShowLineNumbers;
|
||||
property Margin: integer read FMargin write FMargin;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
constructor TSourcePrinter.Create;
|
||||
begin
|
||||
FFont := TFont.Create;
|
||||
FFont.Name := 'Courier New';
|
||||
FFont.Size := 10;
|
||||
FFont.Color := clBlack;
|
||||
PrintDialog := TPrintDialog.Create(nil);
|
||||
ShowLineNumbers := True;
|
||||
{$ifdef Linux}
|
||||
Margin := 30;
|
||||
{$else}
|
||||
Margin := 0;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
destructor TSourcePrinter.Destroy;
|
||||
begin
|
||||
FFont.Free;
|
||||
PrintDialog.Free;
|
||||
end;
|
||||
|
||||
procedure TSourcePrinter.PrintPage(Text: TStrings; PageNum: integer);
|
||||
var
|
||||
l: integer;
|
||||
s: string;
|
||||
LineNum: integer;
|
||||
begin
|
||||
//print all lines on the current page
|
||||
for l := 1 to LinesPerPage do
|
||||
begin
|
||||
LineNum := Pred(PageNum) * LinesPerPage + l;
|
||||
|
||||
//check if end of text is reached
|
||||
if LineNum < Text.Count then
|
||||
begin
|
||||
if ShowLineNumbers then
|
||||
s := Format('%4d: ',[LineNum])
|
||||
else
|
||||
s := ' ';
|
||||
|
||||
s := s + Text[Pred(LineNum)];
|
||||
|
||||
Printer.Canvas.TextOut(Margin, Round(LineHeight * l), s);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSourcePrinter.Execute(Text: TStrings);
|
||||
var
|
||||
p: integer;
|
||||
copies: integer;
|
||||
begin
|
||||
if PrintDialog.Execute then
|
||||
begin
|
||||
Printer.BeginDoc;
|
||||
Printer.Canvas.Font := FFont;
|
||||
|
||||
//calculate page dimensions
|
||||
LineHeight := Printer.Canvas.TextHeight('X') * 1.2;
|
||||
LinesPerPage := Round(Printer.PageHeight / LineHeight - 3);
|
||||
|
||||
PageCount := Text.Count div LinesPerPage;
|
||||
if Text.Count mod LinesPerPage <> 0 then
|
||||
Inc(PageCount);
|
||||
|
||||
try
|
||||
//print each page
|
||||
for p := 1 to PageCount do
|
||||
begin
|
||||
PrintPage(Text, p);
|
||||
|
||||
//create a new page
|
||||
if p <> PageCount then
|
||||
Printer.NewPage;
|
||||
end;
|
||||
|
||||
Printer.EndDoc;
|
||||
except
|
||||
on E:Exception do
|
||||
begin
|
||||
Printer.Abort;
|
||||
raise Exception.Create(e.message);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
35
ide/Makefile
35
ide/Makefile
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/10/11]
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2006/08/20]
|
||||
#
|
||||
default: all
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos sparc-linux sparc-netbsd sparc-solaris x86_64-linux x86_64-freebsd x86_64-win64 arm-linux arm-palmos arm-wince arm-gba powerpc64-linux
|
||||
@ -256,6 +256,7 @@ LAZARUS_OPT=$(LAZARUS_LIBPATHS)
|
||||
BIG_IDE_OPTIONS=-dBigIDE $(LAZARUS_LIBPATHS) \
|
||||
-Fu../components/rtticontrols/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/printers/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/printers/design/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/cgi/ide/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/cgi/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/tdbf/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
@ -1935,8 +1936,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-win32)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -1985,8 +1986,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netbsd)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2021,8 +2022,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netware)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2030,8 +2031,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-openbsd)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2055,8 +2056,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-darwin)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2090,8 +2091,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-netwlibc)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2099,8 +2100,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),i386-wince)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2170,8 +2171,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-atari)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2179,8 +2180,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),m68k-openbsd)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2204,8 +2205,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-linux)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2246,8 +2247,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-macos)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2255,8 +2256,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc-darwin)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2281,8 +2282,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),sparc-linux)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2394,8 +2395,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),arm-wince)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2415,8 +2416,8 @@ REQUIRE_PACKAGES_HASH=1
|
||||
REQUIRE_PACKAGES_PASZLIB=1
|
||||
REQUIRE_PACKAGES_FCL=1
|
||||
REQUIRE_PACKAGES_REGEXPR=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
REQUIRE_PACKAGES_NETDB=1
|
||||
REQUIRE_PACKAGES_PASJPEG=1
|
||||
endif
|
||||
ifeq ($(FULL_TARGET),powerpc64-linux)
|
||||
REQUIRE_PACKAGES_RTL=1
|
||||
@ -2876,7 +2877,7 @@ ifeq ($(CPU_TARGET),powerpc)
|
||||
FPCCPUOPT:=-O1r
|
||||
endif
|
||||
else
|
||||
FPCCPUOPT:=-O2
|
||||
FPCCPUOPT:=-O1r
|
||||
endif
|
||||
override FPCOPT+=-Ur -Xs $(FPCCPUOPT) -n
|
||||
override FPCOPTDEF+=RELEASE
|
||||
|
||||
@ -91,6 +91,7 @@ LAZARUS_OPT=$(LAZARUS_LIBPATHS)
|
||||
BIG_IDE_OPTIONS=-dBigIDE $(LAZARUS_LIBPATHS) \
|
||||
-Fu../components/rtticontrols/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/printers/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/printers/design/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/cgi/ide/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/cgi/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/tdbf/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
@ -102,7 +103,7 @@ BIG_IDE_OPTIONS=-dBigIDE $(LAZARUS_LIBPATHS) \
|
||||
-Fu../components/sqldb/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/sdf/lib/$(CPU_TARGET)-$(OS_TARGET) \
|
||||
-Fu../components/memds/lib/$(CPU_TARGET)-$(OS_TARGET)
|
||||
|
||||
|
||||
LAZBUILD_OPT=$(LAZARUS_LIBPATHS)
|
||||
|
||||
#
|
||||
|
||||
@ -60,17 +60,19 @@ uses
|
||||
{$I staticpackages.inc}
|
||||
{$ENDIF}
|
||||
{$IFDEF BigIDE}
|
||||
RunTimeTypeInfoControls, Printer4Lazarus, CGILaz, CGILazIDE, MemDSLaz, SDFLaz,
|
||||
TurboPowerIPro, JPEGForLazarus, FPCUnitTestRunner, FPCUnitIDE, ProjTemplates,
|
||||
{$IFDEF windows}
|
||||
DBFLaz,
|
||||
{$IFDEF win32}
|
||||
SQLDBLaz,
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$IFDEF Linux}
|
||||
SQLDBLaz, DBFLaz,
|
||||
{$ENDIF}
|
||||
RunTimeTypeInfoControls, Printer4Lazarus, Printers4LazIDE,
|
||||
CGILaz, CGILazIDE,
|
||||
MemDSLaz, SDFLaz, TurboPowerIPro, JPEGForLazarus,
|
||||
FPCUnitTestRunner, FPCUnitIDE, ProjTemplates,
|
||||
{$IFDEF windows}
|
||||
DBFLaz,
|
||||
{$IFDEF win32}
|
||||
SQLDBLaz,
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
{$IFDEF Linux}
|
||||
SQLDBLaz, DBFLaz,
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
MainBase;
|
||||
|
||||
|
||||
1
packager/globallinks/printers4lazide-0.lpl
Normal file
1
packager/globallinks/printers4lazide-0.lpl
Normal file
@ -0,0 +1 @@
|
||||
$(LazarusDir)/components/printers/design/printers4lazide.lpk
|
||||
Loading…
Reference in New Issue
Block a user