Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
clean-and-itasks
clean-ide
Commits
a4358180
Commit
a4358180
authored
Feb 03, 2003
by
Diederik van Arkel
Browse files
better column positions for printing
parent
d5610819
Changes
1
Hide whitespace changes
Inline
Side-by-side
TimeProfile/ShowProfile.icl
View file @
a4358180
...
...
@@ -523,8 +523,10 @@ where
False
)
where
column_p_positions
=
[
4
,
120
,
240
,
290
,
340
,
400
,
450
,
500
,
550
,
590
]
column_l_positions
=
[
4
,
200
,
400
,
460
,
520
,
590
,
650
,
710
,
770
,
830
]
// column_p_positions = [4,120,240,290,340,400,450,500,550,590]
// column_l_positions = [4,200,400,460,520,590,650,710,770,830]
column_p_positions
=
[
2
,
100
,
200
,
260
,
310
,
370
,
420
,
470
,
520
,
570
]
column_l_positions
=
[
3
,
30
*
8
,
44
*
8
,
54
*
8
,
60
*
8
,
68
*
8
,
74
*
8
,
80
*
8
,
86
*
8
,
94
*
8
]
print_table
cols
printFont
(
line_height
,{
fLeading
,
fAscent
,
fDescent
})
updArea
newFrame
=:{
corner2
={
x
=
totalWidth
}}
lines
picture
#
picture
=
setPenFont
printFont
picture
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment