CD-ROM Magazin 1995 July/August/CDROMMAG.ISO/asym/prg/mtb30/printwnd.sbk

Asymetrix ToolBook File | 1994-10-03 | 68KB | 1,591 lines

System
Arial
Arial
strChecked
int Window
Dialog
Page 1
int Window
prnXRes
prnYRes
scrnXRes
scrnYRes
Fenster drucken
Fenster drucken
BREAKS
C&File
&Open...    Ctrl+O
&Save    Ctrl+S
Save &As...
saveas
&Import...
import
&Export...
export
Print Set&up...
printsetup
&Print Pages...    Ctrl+P
printpages
Prin&t Report...
printreport
Send &Mail...
sendmail
&Run...
E&xit    Alt+F4
&Edit
&Undo    Ctrl+Z
Cu&t    Ctrl+X
&Copy    Ctrl+C
&Paste    Ctrl+V
paste
C&lear    Del
clear
Select &All    Shift+F9
selectall
Select Pa&ge    Shift+F12
selectpage
&Size to Page    F11
sizetopage
F&ind...    F5
search
Re&place...
replace
Aut&hor    F3
author
&Text
&Character...    F6
character
&Paragraph...    F7
paragraph
&Regular    Ctrl+Space
regular
&Bold    Ctrl+B
&Italic    Ctrl+I
italic
&Underline    Ctrl+U
underline
Stri&keout    Ctrl+K
strikeout
Superscrip&t/Subscript
super/subscript
&Normal Script
normalscript
Su&bscript    Ctrl+L
subscript
Su&perscript    Ctrl+Shift+L
superscript
&Show Hotwords    F9
showhotwords
&Page
&Next    Alt+Right
&Previous    Alt+Left
previous
&First    Alt+Up
first
&Last    Alt+Down
&Back    Shift+F2
&History...    Ctrl+F2
history
N&ew Page    Ctrl+N
newpage
&Help
&Contents    F1
contents
Status &Bar    F12
statusbar
buttonclick
    printmode
    lockScreen
e= TRUE
printMode
            enabled
B"X" = FALSE
B"Y" =
"X" =
"Y" =
"X" = LIGHTGRAY
"Y" =
"X" = "0"
"Y" = "0"
B"X" =
B"Y" =
"X" =
"Y" =
"X" = WHITE
"Y" =
"X" = "1.0"
"Y" = "1.0"
= 3
B"X" =
B"Y" =
"X" =
"Y" =
"X" =
"Y" =
"X" = prnXRes
"dialog"/scrnXRes
"Y" = prnYRes
 1993,1994. Asymetrix Corporation. All Rights Reserved.            *
9gives you permission
e, revise,
reuse the        *
--*    individual
scripts
your own        *
--*    applications.
You may
P entire
--*    substantial part
redistribution
i product.        *
retains
 copyright on
 original elements
 . Include
 notice:
--* "Portions
 1993, 1994.
they contain
copied
--*    Original Author: Ned Baker
--*    Updated By: Michael Florence
linksysbook
linkDlls
initMenus
printWindow
    LOCAL STACK winList, nameList,
, handleList
    whatWin =
"dialog"
    status = 0
    LOGPIXELSX = 88
    LOGPIXELSY = 90
device metrics
    driverInfo = getWinIniVar("windows", "
*NULL
r= "Es
 kein Drucker angeschlossen."
    deviceName =
    deviceFile =
    devicePort =
    hDC = createIC(
    prnXRes
getDeviceCaps(
    prnYRes
deleteDC(
f"DISPLAY",
    scrnXRes
    scrnYRes
 = sysopenwindows
windowhandle
 = getViewerName(
media
running multimedia toolbook
sysOpenMedia <> "
        mediaList =
whatClip =
mmDeviceWindow
    dropdownitems
combobox "openWindows"
currentpage
listtotextline(
parentwindow
%modal
isOpen
prnWindow =
hWnd = windowHandle
            printArea =
area"
            printMode =
mode"
            X =
            Y =
            toTop =
            update =
B"statusBar"
        close
        oldSys = sysSuspendMessages
 = TRUE
oldStatus =
statusbar
        --
pallettes
NOT sysRuntime
lineEndsPalette
toolbar
bringWindowToTop(
hWnd1 =
InvalidateRect(
",0,0)
updateWindow(
yield()
doPrintWindow(
, X, Y)
        Request "Beim Drucken
Fehler aufgetreten:"&CRLF&DIBError(
-- *
-- * Description:
-- * This function prints the specified
default
-- * printer.
-- * Parameters:
-- * WORD
- Specifies
emust
xbe iconic
 be topmost on
display.
-- *
`fPrintArea -
Must be
:        1 (corresponds
PW_ALL)
PW_CLIENT)
-- *
fPrintOpt
z options.
PW_BESTFIT)
PW_STRETCHTOPAGE)
PW_SCALE)
-- *
wXScale, wYScale - X
Y scaling factors
 parameter.
If 1
 are
these two parameters (
) should be 0 (zero).
-- * STRING szJobName -
that
would like
job (
pshows up
 Manager
%well
"Now Printing..."
 box). (Still working on implementing
version does
xhave
-- * Return Value: 0
successful, a
z> 0 corresponding
error
-- *
, wPrintArea, wPrintOpt,
        ErrNo = 21
Z < 1
c > 2
 < 1
    hDib = CopyWindowToDIB (
    wReturn = PrintDIB (
DestroyDIB (
-- *
-- *
-- *
- specifies
-- *
independent bitmap
-- *
-- *
- identifies
-- *
-- *
copies
-- *
    hRectWnd = GlobalAlloc (66, 8)
    lpRectWnd = GlobalLock (
GetWindowRect (
ScreenToDIB (
= 2        --
client
GetClientRect (
            x1 =
.(0,
            y1 =
.(2,
            x2 =
.(4,
            y2 =
.(6,
            clientRect = ScreenFromClient (
, x1 & "," & y1 & "," & x2 & "," & y2)
.(0,
.(2,
.(4,
.(6,
GlobalUnlock (
GlobalFree (
CopyWindowToDib
-- * CopyScreenToDIB()
-- *
-- * POINTER
-- *
-- *
-- *
-- *
-- *
    hBitmap = CopyScreenToBitmap (
    hPalette = GetSystemPalette ()
BitmapToDIB (
DeleteObject (
-- *
-- *
-- * None
-- *
-- *
4palette
-- *
-- *
returns a
. which represents
-- *
4RGB values
logical
-- *
GetSystemPaletteEntries
    -- Find out how many
 entries we want.
GetDC (0)
    nColors = PalEntriesOnDevice (hDC)
    -- Allocate memory
    -- sizeof(LOGPALETTE) = 64
PALETTEENTRY) = 32
    hLogPal =
64 + (
* 32))
    -- If we didn't
ReleaseDC (0,
    -- Get a
    lpLogPal =
    -- Fill
palVersion
palNumEntries fields
 structure.
x300 (dec = 768)
 3.0
later.
2(0,
, 768)
2(2,
palPalEntry
    tempPointer =
    lpPalPalEntry =
(hDC, 0,
    -- Create
Once
done we
't need
    -- so free
 = CreatePalette (
    -- Do
clean up.
-- *
-- *
-- *
context
-- *
-- * INT
-- *
-- *
gets
    -- SIZEPALETTE = 104
GetDeviceCaps (
    -- For non-
 devices, we will
 no.
    -- colors
        -- NUMCOLORS = 24
-- *
-- *
-- *
-- *
-- *
-- *
-- *
-- *
IsRectEmpty (
) <> 0
    hScrDC = CreateDC ("
 0, 0, 0)
    hMemDC = CreateCompatibleDC (
    nX =
.(0,
    nY =
.(2,
    nX2 =
.(4,
    nY2 =
.(6,
screen resolution.
    xScrn =
, 8)        -- HORZRES
    yScrn =
, 10)        -- VERTRES
    -- Make sure
nX < 0
        nX = 0
nY < 0
        nY = 0
    nWidth =
    nHeight =
 compatible
    reateCompatibleBitmap (
    -- Select
    hOldBitmap = SelectObject (
    -- Bitblt
]SRCCOPY
 0x00CC0020L = 13369376
BitBlt (
, 0, 0,
, nX, nY, 13369376)
    -- Do
DeleteDC (
-- *
-- * Purpose:
Frees
associated
fa DIB
-- * Returns:
Nothing
-- *
-- *
-- *
routine
actual printing
-- *
PrintBand()
<(see below),
procedure drives the
-- *
Koperation.
() has
code
;banding
-- *
 printers.
 can be distinguished
-- *
() API (
-- *
 repeatedly call
NEXTBAND escape
-- *
supports
BANDINFO
-- *
used
determine whether
 "wants"
-- * graphics (
ignore
-- *
-- *
-- *
be printed
-- *
- tells
, OR
-- *
(integers)
p output
-- *
-- *
errors.h
description)
-- * One
: ERR_INVALIDHANDLE
ERR_LOCK
ERR_SETABORTPROC
ERR_STARTDOC
ERR_NEWFRAME
ERR_ENDDOC
ERR_GETDC
ERR_STRETCHDIBITS
 validation.
    lpDIBHdr =
bits.
    lpBits = FindDIBBits (
    hPrnDC = GetPrinterDC ()
<> 0
        -- COLORONCOLOR = 3
SetStretchBltMode (
Y, 3)
        -- Determine
        --
. fill
        --
CalculatePrintRect)
        hPrintRect =
        lpPrintRect =
.(0,
 * 100)
.(2,
* 100)
        biWidth =
/(4,
        biHeight =
/(8,
        -- Call Escape()
 (10)
        strlenszJobName = (
StringEscape (
, 10,
1, 0)
            -- Something went wrong. Do
        --
BANDINFOSTRUCT.
        hBandInfo =
        lpBandInfo =
        --
initial
BStructure
        --
$ we
        -- also
]! we
.(0,
, 1)
-- bGraphics
.(2,
-- bText
.(4,
.(0,
))        -- bRectLeft
.(6,
.(2,
))        -- bRectTop
.(8,
.(4,
))        -- bRectRight
.(10,
.(6,
))    -- bRectBottom
        --
a rect
        --
funtion
        -- Check
If we
z, loop through
        -- each
, calling
        -- (
supported)
Else,
        --
)clipping
        --
        --
        -- QUERYESCSUPPORT = 8
        --
) = 2
        hNEXTBAND =
        lpNEXTBAND =
.(0,
PointerEscape (
, 8, 2,
@, 0)
            --
            --
n    = 24
.(0,
, 24)
            bBandInfoDevice =
, 8, 2,
            -- Do
(3),
            --
 returned
$ where we
            --
exits
empty.
c(DwordPointerEscape (
, 3, 0, 0,
) > 0)
) = 0)
-- Do
needed.
PointerPointerEscape (
, 24, 12,
-- Pass
-info flags
-- data
Note
pass
! bandinfo
-- stuff
above (i.e.
.(0,
.(2,
wErrorCode =
            --
{"whole
.(0,
.(0,
))        --
.(2,
.(2,
))        --
.(4,
.(4,
))        --
.(6,
.(6,
))        --
, 1, 1,
            -- Non-
 (1).
DwordEscape (
    , 1, 0, 0, 0)
        -- End
Only
 (11)
        -- we did
xabort
, 11, 0, 0, 0)
            -- We errored
, but don't
- we still
            --
, box,
 instances, etc.
        --
-- *
-- *
"a DC
%currently selected
-- *
- on
-- * History:
GetWinIniVar ("
    printDevice =
    printDriver =
    printPort =
    hdcPrint = CreatePrinterDC (
8, 0)
-- *
-- * Given
L'DIB,
+ on the
-- *
p'image
_' coordinates).
-- *
-- *
(1WORDs
specify
-- * Y directions, respectively.
&, cxDIB, cyDIB
information
    cxPage =
8)    --
pixels (
    cyPage =
10)    --
    cxInch =
88)    --
O/inch - X (
    cyInch =
90)    --
    --    * Best Fit
~0 a
preserves
    --    *
T)DIB's aspect
fills
horizontally.
    --    *
    --    *
')formula
 calculates
    --    *
>$, based on
)ize
    --    *
)width
*relative
    --    * a
) = 1    --
            myTop = 0
            myLeft = 0
            myBottom =
) / (
            myRight =
.(0,
.(2,
.(4,
.(6,
--    * Scaling
) --
    --    * multipliers
multiply
height/
-* = 3    --
            cxMult =
.(0,
            cyMult =
.(2,
.(0,
.(2,
.(4,
i/ 100))
.(6,
s/ 100))
            --
* = 2     --
.(0,
.(2,
.(4,
.(6,
-- *
-- *
)ALL
called
-- *
-- *
lpRectClip
-rectangular
-- *
n1 we
(i.e. we
-- *
fDoText
fDoGraphics
-- * appropriately (
-- *
Normally
-- *
% lpRectOut,
, lpDIBBits
        rectOutLeft =
.(0,
        rectOutTop =
.(2,
        rectOutRight =
.(4,
        rectOutBottom =
.(6,
/(4,
/(8,
        dblXScaling = (
        dblYScaling = (
@,we
up a temporary
holds
=/paper
WILL be
intersect
{/lpClipRect
7 we NEED
Then, we
|) =
IntersectRect (
)) = 0
            rectLeft =
.(0,
            rectTop =
.(2,
            rectRight =
.(4,
            rectBottom =
.(6,
            rectInLeft =
+ 0.5)
            rectInTop =
+ 0.5)
            rectInRight =
+ 0.5)
            rectInBottom =
+ 0.5)
StretchDIBits (
, 0, 13369376)
-- DestDC
-- DestX
                     --
-- DestY
                     --
-- DestWidth
                     --
-- DestHeight
-- SrcX
- (rectInBottm -
)        -- ScrY
-- SrcWidth
-- SrcHeight
-- lpBitInfo
0            -- DIB_RGB_COLORS
-- wUsage
13369376)    --
-- dwROP
-- *
-- *
-- *
packed-
i(block
-- *
-- *
-- *
-- *
4address
-- *
) + PaletteSize (
-- *
-- *
-- *
-- *
-- *
-- *
-- *
required
store
-- * multiplying
RGBQUAD (
-- *
+; 3.0-style
RGBTRIPLE (
OS/2-
-- *
DIBNumColors (
) * 4        --
-- *
-- *
-- *
-- *
-- *
:' table
-- *
-- *
-- *
Hfinding
 Win3.0
OS/2-
-- * DIB). If
'=2,
'=16,
'=256,
-- *
24, no
    -- If
8biClrUsed
BITMAPINFOHEADER
    -- otherwise
    -- on
    dwClrUsed =
,(32,
    wBitCount =
2(14,
-- *
-- *
-- *
convert
-- *
-- *
-- *
-- *
-- *
9creates a
    hBitmapStruct =
    lpBitmapStruct =
    -- 2nd
 = 14
GetObject (
y, 14,
    -- If no
d1 = 0
y1 = GetStockObject (15)
    -- DEFAULT_PALETTE
    bmPlanes =
)(8,
    bmBitsPixel =
)(9,
    biBits =
.<= 1
?> 1
G<= 4
X> 4
`<= 8
q> 8
y<= 24
    hBitmapInfo =
    lpBitmapInfo =
w<BITMAPINFOSTRUCTURE
,(0,
<, 40)
/(4,
.(2,
/(8,
.(4,
2(12,
2(14,
,(16,
, 0)     -- 3rd
BI_RGB
,(20,
/(24,
/(28,
,(32,
,(36,
    biSize =
,(0,
/(4,
/(8,
    biPlanes =
2(12,
    biBitCount =
2(14,
    biCompression =
,(16,
    biSizeImage =
,(20,
    biXPelsPerMeter =
/(24,
    biYPelsPerMeter =
/(28,
,(32,
    biClrImportant =
,(36,
    dwLen = 40 +
realize
*5 = SelectPalette (
B5, 0)
RealizePalette (
 = 0
5, 1)
    lpbi =
    -- Use
,(0,
/(4,
/(8,
2(12,
2(14,
,(16,
,(20,
/(24,
/(28,
,(32,
,(36,
g%GetDIBits
?, so
c6= 0.
FirstGetDIBits (
7, 0,
&, 0,
    -- If
,(20,
) = 0
,(20,
    -- Realloc
Abuffer big enough
    -- Setting
,(0,
,(20,
    h = GlobalReAlloc (
h = 0
%9, 0)
fa NON-
actually
SecondGetDIBits (
G:, 0,
/(8,
        -- Clean up
:, 1)
;, 1)
9A< 0)
DA>= 28))
        --
tequivalent
MB_OK | MB_ICONSTOP
MessageBox(0, "Undefinierter
E!", "", 16)
ErrString = "Das
Kkeine
J DIB-Datei!"
2Speicher konnte nicht zugeordnet werden!"
Fbeim Lesen der
 Sperren des Speichers!"
ffnen
lErstellen
Ermitteln einer DC!"
teabh
ngigen
,() fehlgeschlagen!"
SetDIBitsToDevice()
#O: StartDoc
H: GetModuleHandle()
Grafik-Ger
teschnittstelle gefunden!"
O: SetAbortProc
O: StartPage
O: EndPage
P: EndDoc
 wurde
ltige Zugriffsnummer"
Allgemeiner
Aufruf
IB-Funktion"
IB vom angegebenen Fenster."
Farbanzahl, pr
fen Sie das von Ihnen verwendete Ger
Festlegen
tekontexts!"
tJ: Ung
ltiger Druckbereich!"
Druckoption!"
, "", 16)
    linkDLL "kernel"
TJ, DWORD)
1D        (
        INT
[B        (
g    getModuleHandle    (
g    LoadLibrary        (
b        Yield            ()
user"
BringWindowToTop(
@            (
|?        (
K, INT)
SetDlgItemText     (
(        SendMessage        (
O        UpdateWindow    (
{L    CreateCompatibleBitmap (
n;        (
#M, INT,
IntEscape =
,e =
        INT
tb30win.dll"
tb30dlg.
UMlistToTextline (
oMtextlineToList (
(V whatViewer
"&"E&
initmenus
= FALSE
menuItemEnabled(
c"file"
,) =
 drucken..." alias
print dialog
printMode
ZprnYRes
printmode
scrnXRes
YprnXRes
scrnYRes
dialog
printMode
buttonclick
z "&6+
0T%?1
initMenus
wjlinkDlls
linksysbook
initMenus
enterBook
,%H.%
,%H.%
,%H.%
w,    #>
ff    device
colorTray
lineEndsPalette
DISPLAY
deviceFile
printArea
scrnYRes
printMode
kInvalidateRect
YprnXRes
openwindows
deviceName
{{mmDeviceWindow
driverInfo
patternPalette
kScreateIC
statusBar
toolPalette
mediaList
NdeleteDC
yield
prnWindow
bringWindowToTop
LOGPIXELSY
printArea
^KgetViewerName
scrnXRes
update
whatClip
printMode
sysOpenMedia
LOGPIXELSX
print mode
.updateWindow
linePalette
windows
statusbar
toolbar
toTop
listtotextline
ZprnYRes
jdoPrintWindow
dialog
hWnd1
polygonPalette
openWindows
4getDeviceCaps
devicePort
Es ist kein Drucker angeschlossen.
whatWin
print area
gDIBError
Beim Drucken ist ein Fehler aufgetreten:
*getWinIniVar
status
printWindow
.&+    +E
.&+    +E
.&+    +E
wReturn
DestroyDIB
OjPrintDIB
ErrNo
CopyWindowToDIB
gDIBError
doPrintWindow
1,""m
1,""m
1,""m
1,""m
GlobalUnlock
GlobalAlloc
ScreenFromClient
EGetClientRect
GlobalFree
GlobalLock
lpRectWnd
y[GetWindowRect
CopyScreenToDIB
hRectWnd
clientRect
CopyWindowToDIB
GetSystemPalette
DeleteObject
hPalette
H:CopyScreenToBitmap
hBitmap
BitmapToDIB
CopyScreenToDIB
,!J Y
;&PalEntriesOnDevice
GlobalAlloc
lpPalPalEntry
}ReleaseDC
W2GetSystemPaletteEntries
GlobalFree
nColors
GlobalLock
GetDC
GlobalUnlock
lpLogPal
tempPointer
4>CreatePalette
hLogPal
GetSystemPalette
4GetDeviceCaps
nColors
ErrNo
gDIBError
PalEntriesOnDevice
SelectObject
DISPLAY
NDeleteDC
yScrn
hOldBitmap
nHeight
hScrDC
4GetDeviceCaps
CreateCompatibleBitmap
xScrn
nWidth
hMemDC
BitBlt
hBitmap
jOCreateDC
4    IsRectEmpty
CreateCompatibleDC
CopyScreenToBitmap
GlobalFree
DestroyDIB
,!JdY
,!JdY
_2DwordPointerEscape
bBandInfoDevice
lpBits
GlobalAlloc
biWidth
wErrorCode
bGraphics
SetStretchBltMode
lpDIBHdr
GlobalUnlock
lpPrintRect
GlobalLock
z GetPrinterDC
StringEscape
PointerPointerEscape
PrintBand
biHeight
6+CalculatePrintRect
GlobalFree
hPrintRect
hNEXTBAND
    JPointerEscape
NDeleteDC
lpBandInfo
ErrNo
FindDIBBits
bText
lpNEXTBAND
hRect
strlenszJobName
DwordEscape
4    IsRectEmpty
lpRect
hPrnDC
hBandInfo
gDIBError
PrintDIB
device
printPort
hdcPrint
ErrNo
windows
printDevice
printDriver
CreatePrinterDC
*GetWinIniVar
gDIBError
GetPrinterDC
cyPage
cyInch
4GetDeviceCaps
cxPage
cxInch
CalculatePrintRect
wReturn
GlobalUnlock
GlobalAlloc
RStretchDIBits
GlobalLock
rectInLeft
rectLeft
GlobalFree
ErrNo
TUIntersectRect
lpRect
hRect
4    IsRectEmpty
rectTop
gDIBError
PrintBand
lpBits
PaletteSize
FindDIBBits
T%DIBNumColors
PaletteSize
dwClrUsed
wBitCount
DIBNumColors
GlobalUnlock
lpBits
GlobalAlloc
lpBitmapStruct
GSelectPalette
}ReleaseDC
biHeight
lpBitmapInfo
hBitmapStruct
FirstGetDIBits
GlobalLock
GetDC
SecondGetDIBits
GetObject
PaletteSize
/GlobalReAlloc
hBitmapInfo
ruGetStockObject
GlobalFree
dwLen
 vRealizePalette
BitmapToDIB
MessageBox
Drucker: StartDoc fehlgeschlagen!
SetDIBits() fehlgeschlagen!
StretchBlt() fehlgeschlagen!
Drucker: EndDoc fehlgeschlagen!
Fehler beim
ffnen der Datei!
Speicher konnte nicht zugeordnet werden!
SetDIBitsToDevice() fehlgeschlagen!
Drucker: StartPage fehlgeschlagen!
ltige Zugriffsnummer
Drucker: NEWFRAME fehlgeschlagen!
Drucker: EndPage fehlgeschlagen!
Fehler: Ung
ltiger Druckbereich!
Das ist keine Windows DIB-Datei!
Fehler beim Festlegen des Drucker-Ger
tekontexts!
Fehler beim Lesen der Datei!
ErrString
Drucker: SetAbortProc fehlgeschlagen!
Allgemeiner Fehler beim Aufruf einer DIB-Funktion
Fehler beim Erstellen einer DIB vom angegebenen Fenster.
Fehler: Ung
ltige Druckoption!
Fehler beim Erstellen einer ger
teabh
ngigen Bitmap
Fehler beim Ermitteln der Farbanzahl, pr
fen Sie das von Ihnen verwendete Ger
StretchDIBits() fehlgeschlagen!
Drucken: GetModuleHandle() hat keine Grafik-Ger
teschnittstelle gefunden!
Fehler beim Erstellen der Palette!
Undefinierter Fehler!
Fehler beim Ermitteln einer DC!
Fehler beim Sperren des Speichers!
Die Datei wurde nicht gefunden!
DIBError
GlobalAlloc
GlobalLock
GlobalUnlock
GlobalFree
GlobalReAlloc
getModuleHandle
LoadLibrary
Yield
tb30win.dll
ScreenFromClient
GetWinIniVar
BringWindowToTop
GetClientRect
!WM-"
GetDC
GetWindowRect
IntersectRect
IsRectEmpty
MessageBox
RealizePalette
ReleaseDC
SelectPalette
,"Tvice-#
SetDlgItemText
SendMessage
UpdateWindow
InvalidateRect
tb30dlg.dll
listToTextline
textlineToList
BitBlt
CreateCompatibleBitmap
CreateCompatibleDC
CreateDC
CreateDC
CreatePrinterDC
CreatePalette
DeleteDC
%WM-"
DeleteObject
Escape
PointerEscape
Escape
DwordEscape
Escape
IntEscape
,&TleHa-"
Escape
StringEscape
Escape
DwordPointerEscape
Escape
PointerPointerEscape
GetDeviceCaps
GetDIBits
FirstGetDIBits
GetDIBits
SecondGetDIBits
GetObject
GetStockObject
GetSystemPaletteEntries
SelectObject
,#TetAb-#
SetStretchBltMode
StretchDIBits
,&ThC
createIC
getDeviceCaps
kernel
linkDlls
viewer
getViewerName
Fenster drucken...
printWindow
initmenus
banzahl, p
strChecked
strChecked
print dialog
lastUnits
frameUpdate
lastUnits
enterpage
frameUpdate
sysPageUnitsPerPixel <> lastUnits
'= TRUE
frameUpdate
'= FALSE
15,15
lastUnits
strChecked
strChecked
inside
outside
frameupdate
notifybefore frameupdate
    x =
syspageunitsperpixel
    y =
"inside"
"outside"
H(2*x)
H(2*y)
strChecked
outside
strChecked
inside
strChecked
strChecked
Druck&modus
print mode
8    H    J
printmode
strChecked
strChecked
chliche Gr
strChecked
An Seitengr
e anpassen
strChecked
Auf Seitengr
e vergr
strChecked
Benutzerdefinierte Gr
frame
openWindows
frameUpdate
notifyBefore frameUpdate
    b =
combobox "openWindows"
    x =
syspageunitsperpixel
    y =
b)-x,(
b)-y, (
b)+x, (
acceptDrop
draggable
This field shows the keyword to search for.
helpInfo
strChecked
strChecked
gbare Ansichtsobjekte
inside
outside
frameupdate
notifybefore frameupdate
    x =
syspageunitsperpixel
    y =
"inside"
"outside"
H(2*x)
H(2*y)
strChecked
outside
strChecked
inside
strChecked
openWindows
strChecked
Viewer id 0 of Book "D:\JXWORK\TODO.TBK"K
viewer "Ballon"
viewer "Schaltfl
chen"
Viewer id 00 of Book "D:\JXWORK\TODO.TBK"WND.SBK"BK.TBK"
Viewer id 0 of Book "D:\JXWORK\SCRAPBK\SCRAPBK.TBK"
strChecked
strChecked
&X-Skalierung
strChecked
3.125
strChecked
strChecked
3.125
strChecked
&Y-Skalierung
strChecked
inside
outside
frameupdate
notifybefore frameupdate
    x =
syspageunitsperpixel
    y =
"inside"
"outside"
H(2*x)
H(2*y)
strChecked
outside
strChecked
inside
strChecked
print area
printarea
buttonclick
buttonclick
    printarea
printarea
strChecked
strChecked
Ganzes Fenster
strChecked
Anwendungsbereich
" 2 J
strChecked
&Druckbereich
toTop
strChecked
Fenster in den Vordergrund bringen
update
^!n!J
strChecked
Alle Fenster aktualisieren
statusBar
strChecked
Statuszeile mit ausdrucken
strChecked
buttonclick
buttonclick
strChecked
&Drucken
buttonclick
buttonclick
    close
strChecked
&Abbrechen
frameUpdate