paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 22:14:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added /lclonly command and iostreams

Browse Source
This commit is contained in:
michael 1999-11-18 21:16:42 +00:00
parent ee61f0f738
commit b3b9820df6
1 changed files with 25 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
docs/classchart.ps
View File

@ -12,8 +12,12 @@
% Print head classes on separate pages ? % Print head classes on separate pages ?
% 1=yes 0=no % 1=yes 0=no
/SeparatePages { /SeparatePages {
0 % 1 0 %
} def } def
% Draw Lazarus classes ?
% 1 = Yes, 0 = No;
/lcl { 1 % set this to zero if you don't want to include the lcl classes
} def
% sets the line width of the class graph to 0.5 points % sets the line width of the class graph to 0.5 points
/SetLineWidth { 0.5 setlinewidth} def /SetLineWidth { 0.5 setlinewidth} def
@ -417,6 +421,14 @@ setfont
0 0 0 setrgbcolor 0 0 0 setrgbcolor
(Object Chart) show (Object Chart) show
} def } def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% See if we will include Lazarus stuff.
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
/lclonly
{
/param exch def
lcl 1 eq { param } if
} def
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% here the class tree follows % here the class tree follows
@ -484,6 +496,7 @@ setfont
(EWriteError) Ready newclass (EWriteError) Ready newclass
onelevelback onelevelback
(EFOpenError) Ready newclass (EFOpenError) Ready newclass
(EIOStreamError) Ready newclass
(EPipeError) Ready newclass (EPipeError) Ready newclass
(ENoReadPipe) Ready newchildclass (ENoReadPipe) Ready newchildclass
(ENoWritePipe) Ready newclass (ENoWritePipe) Ready newclass
@ -577,7 +590,8 @@ newcolumn
onelevelback onelevelback
(THandleStream) Ready newclass (THandleStream) Ready newclass
(TFileStream) Ready newchildclass (TFileStream) Ready newchildclass
(TPipeStream) Untested newclass (TPipeStream) Ready newclass
(TIOStream) Ready newclass
onelevelback onelevelback
(TIDEAEncryptStream) Ready newclass (TIDEAEncryptStream) Ready newclass
(TIDEADecryptStream) Ready newclass (TIDEADecryptStream) Ready newclass
@ -618,7 +632,7 @@ newcolumn
% TComponent classes % TComponent classes
%%%%%%%%%%%%%%%%%%%%%%% %%%%%%%%%%%%%%%%%%%%%%%
newcolumn newcolumn
(TComponent) Untested newlargeheadclass (TComponent) Ready newlargeheadclass
(TDatabase) Untested newchildclass (TDatabase) Untested newchildclass
(TDataset) Ready newclass (TDataset) Ready newclass
(TDBdatset) Untested newchildclass (TDBdatset) Untested newchildclass
@ -652,14 +666,20 @@ newcolumn
(TFieldDef) Ready newclass (TFieldDef) Ready newclass
(TFieldDefs) Ready newclass (TFieldDefs) Ready newclass
(TFields) Ready newclass (TFields) Ready newclass
{
newcolumn
(TControl) Ready newlargeheadclass
} lclonly
% Print footer and eject (last) page % Print footer and eject (last) page
printfooter printfooter
showpage showpage
% %
% $Log$ % $Log$
% Revision 1.15 1999-10-28 20:22:03 michael % Revision 1.16 1999-11-18 21:16:42 michael
% + Added /lclonly command and iostreams
%
% Revision 1.15 1999/10/28 20:22:03 michael
% + TField etc were in wrong part of the tree, they descend from TComponent % + TField etc were in wrong part of the tree, they descend from TComponent
% %
% Revision 1.14 1999/10/28 19:53:01 michael % Revision 1.14 1999/10/28 19:53:01 michael