Mastering Visual Basic 6/mastvb6.iso/leadtools/ocx32.lt/DEMO.APP

MS Visual FoxPro App | 1997-12-18 | 238.0 KB | 6,683 lines

PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _R7R0N7ZWU 541611587&
 WINDOWS _R3T0TXXA7 541611587
 WINDOWS _R3T0TXXC5 525032944
 WINDOWS _R3T0TXXCP 525032944
 WINDOWS _R3T0TXXCZ 541611587
 WINDOWS _R3T0TXXD9 525032944P
 WINDOWS _R3T0TXXDJ 525032944
 WINDOWS _R3T0TXXDK 525032944
 WINDOWS _R3T0TXXDT 525032944s
 WINDOWS _R3T0TXXED 525032944*
 WINDOWS _R3T0TXXEN 525032944
 WINDOWS _R3T0TXXEX 525032944
 WINDOWS _R3T0TXXF7 525032944
 WINDOWS _R3T0TXXFH 525032944>
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
Name = "Dataenvironment"
ABOUT
Height = 267
Width = 304
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "About LEADTOOLS OCX Demo"
Closable = .T.
MaxButton = .F.
MinButton = .F.
WindowType = 1
Name = "ABOUT"
PROCEDURE Init
THISFORM.TheProduct.Caption = Viewer.LEAD1.VersionProduct
IF Viewer.LEAD1.VersionLevel = VERSIONLEVEL_EXP
    THISFORM.TheEdition.Caption = "Express Edition"
    THISFORM.TheEdition.Caption = "Professional Edition"
ENDIF
THISFORM.TheVersion.Caption = "Version " + ALLTRIM(STR(Viewer.LEAD1.VersionMajor)) + "." + ALLTRIM(STR(Viewer.LEAD1.VersionMinor))
THISFORM.TheDateTime.Caption = "Date: " + Viewer.LEAD1.VersionDate + "       Time: " + Viewer.LEAD1.VersionTime
ENDPROC
THISFORM
Click,
"Arial, 1, 10, 6, 16, 13, 16, 3, 0
sBackColor = 192,192,192
Caption = "Product"
Height = 18
Left = 17
Top = 153
Width = 265
Name = "TheProduct"
ABOUT
TheProduct
label
label
yBackColor = 192,192,192
Caption = "(704) 332 - 5532"
Height = 18
Left = 17
Top = 122
Width = 109
Name = "Label10"
ABOUT
Label10
label
label
commandbutton
commandbutton
ABOUT
zAutoSize = .F.
Top = 231
Left = 114
Height = 25
Width = 81
Caption = "OK"
Default = .T.
TabIndex = 1
Name = "OK"
)PROCEDURE Click
THISFORM.Hide
ENDPROC
{BackColor = 192,192,192
Caption = "Charlotte, NC 28204"
Height = 18
Left = 17
Top = 106
Width = 133
Name = "Label9"
ABOUT
Label9
label
label
ABOUT
label
label
Label1
ABOUT
BackColor = 192,192,192
Caption = "LEADTOOLS OCX Demo in Visual FoxPro"
Height = 18
Left = 17
Top = 12
Width = 265
Name = "Label1"
label
label
Label2
ABOUT
BackColor = 192,192,192
Caption = "Copyright (c) 1996 LEAD Technologies, Inc."
Height = 18
Left = 17
Top = 28
Width = 277
Name = "Label2"
label
label
Label3
ABOUT
yBackColor = 192,192,192
Caption = "Technical Support:"
Height = 18
Left = 17
Top = 74
Width = 133
Name = "Label3"
label
label
Label4
ABOUT
{BackColor = 192,192,192
Caption = "All Rights Reserved."
Height = 18
Left = 17
Top = 45
Width = 133
Name = "Label4"
label
label
Label5
ABOUT
xBackColor = 192,192,192
Caption = "900 Baxter Street"
Height = 18
Left = 17
Top = 90
Width = 133
Name = "Label5"
label
label
TheDateTime
ABOUT
uBackColor = 192,192,192
Caption = "DateTime"
Height = 18
Left = 17
Top = 201
Width = 265
Name = "TheDateTime"
label
label
TheVersion
ABOUT
sBackColor = 192,192,192
Caption = "Version"
Height = 18
Left = 17
Top = 185
Width = 265
Name = "TheVersion"
label
label
TheEdition
sBackColor = 192,192,192
Caption = "Edition"
Height = 18
Left = 17
Top = 169
Width = 265
Name = "TheEdition"
Express Edition
Professional Edition
Version CC
Date:
       Time:
THISFORM
THEPRODUCT
CAPTION
VIEWER
LEAD1
VERSIONPRODUCT
VERSIONLEVEL
THEEDITION
THEVERSION
VERSIONMAJOR
VERSIONMINOR
THEDATETIME
VERSIONDATE
VERSIONTIME
Init,
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _R4E0IZ8NS 525092457&
 WINDOWS _R2O0I379G 525092457
 WINDOWS _R2O0I37CI 525033484?
 WINDOWS _R2O0I37EE 525033484
 WINDOWS _R2O0I37G9 525033484
 WINDOWS _R2O0I37U4 525033484
 WINDOWS _R2O0I37VS 525033484&
 WINDOWS _R2O0I383E 525033484
 WINDOWS _R2O0I3853 525033484
 WINDOWS _R2O0I386S 525033484
 WINDOWS _R2O0I38CD 525033484
 WINDOWS _R2O0I38U2 525033485
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
Name = "Dataenvironment"
COLORRES
Height = 246
Width = 375
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "Color Resolution"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
LockScreen = .F.
palette = 1
dither = 1
bitsperpixel = 1
Name = "COLORRES"
qPROCEDURE enablegroup
LPARAMETERS cProperty, Value
DO CASE
    CASE cProperty == "Palettes"
       IF Value = .T.
          THISFORM.Palettes.Enabled = .T.
           THISFORM.Palettes.SetAll ("ForeColor", 0)
           THISFORM.PalettesLabel.ForeColor = 0
            DO CASE
                CASE THISFORM.Palettes.Value = 1
                    THISFORM.Palette = CRP_FIXEDPALETTE
                CASE THISFORM.Palettes.Value = 2
                    THISFORM.Palette = CRP_OPTIMIZEDPALETTE
                CASE THISFORM.Palettes.Value = 3
                    THISFORM.Palette = CRP_IDENTITYPALETTE
            ENDCASE
       ELSE
           THISFORM.PalettesLabel.ForeColor = RGB(128, 128, 128)
           THISFORM.Palettes.SetAll ("ForeColor", RGB(128, 128, 128))
           THISFORM.Palettes.Enabled = .F.
        ENDIF
    CASE cProperty == "ByteOrders"
       IF Value = .T.
          THISFORM.ByteOrders.Enabled = .T.
           THISFORM.ByteOrders.SetAll ("ForeColor", 0)
          THISFORM.ByteOrdersLabel.ForeColor = 0
            DO CASE
                CASE THISFORM.ByteOrders.Value = 1
                    THISFORM.Palette = CRP_BYTEORDERBGR
                CASE THISFORM.ByteOrders.Value = 2
                    THISFORM.Palette = CRP_BYTEORDERRGB
            ENDCASE
       ELSE
          THISFORM.ByteOrdersLabel.ForeColor = RGB(128, 128, 128)
           THISFORM.ByteOrders.SetAll ("ForeColor", RGB(128, 128, 128))
           THISFORM.ByteOrders.Enabled = .F.
        ENDIF
    CASE cProperty == "Dithers"
       IF Value = .T.
          THISFORM.Dithers.Enabled = .T.
           THISFORM.Dithers.SetAll ("ForeColor", 0)
            THISFORM.DithersLabel.ForeColor = 0
         ELSE
            THISFORM.DithersLabel.ForeColor = RGB(128, 128, 128)
           THISFORM.Dithers.SetAll ("ForeColor", RGB(128, 128, 128))
           THISFORM.Dithers.Enabled = .F.
        ENDIF
ENDCASE
ENDPROC
PROCEDURE getuserresponse
RETURN THISFORM.UserChoice
ENDPROC
PROCEDURE getselections
LPARAMETERS nBits, nPaletteOptions, nDitherOptions
IF THISFORM.UserChoice = .T.
    nBits = THISFORM.BitsPerPixel
    nDitherOptions = THISFORM.Dither
    nPaletteOptions = THISFORM.Palette
    nBits = 0
    nDitherOptions = 0
    nPaletteOptions = 0
ENDIF
ENDPROC
PROCEDURE Init
THISFORM.UserChoice = .F.
THISFORM.Dithers.SetAll ("Value", 0)
THISFORM.Dithers.DitherFloyd.Value = 1
THISFORM.Palettes.SetAll ("Value", 0)
THISFORM.Palettes.PaletteFixed.Value = 1
THISFORM.ByteOrders.SetAll ("Value", 0)
THISFORM.ByteOrders.OrderBGR.Value = 1
THISFORM.Bits.SetAll ("Value", 0)
THISFORM.BitsPerPixel = Viewer.Lead1.BitmapBits
DO CASE
    CASE Viewer.Lead1.BitmapBits = 1
        THISFORM.Bits.Bit1.Value = 1
        THISFORM.EnableGroup ("ByteOrders", .F.)
    CASE Viewer.Lead1.BitmapBits = 4
        THISFORM.Bits.Bit4.Value = 1
        THISFORM.EnableGroup ("ByteOrders", .F.)
    CASE Viewer.Lead1.BitmapBits = 8
        THISFORM.Bits.Bit8.Value = 1
        THISFORM.EnableGroup ("ByteOrders", .F.)
    CASE Viewer.Lead1.BitmapBits = 16
        THISFORM.Bits.Bit16.Value = 1
        THISFORM.EnableGroup ("Palettes", .F.)
        THISFORM.EnableGroup ("Dithers", .F.)
    CASE Viewer.Lead1.BitmapBits = 24
        THISFORM.Bits.Bit24.Value = 1
        THISFORM.EnableGroup ("Palettes", .F.)
        THISFORM.EnableGroup ("Dithers", .F.)
    CASE Viewer.Lead1.BitmapBits = 32
        THISFORM.Bits.Bit32.Value = 1
        THISFORM.EnableGroup ("Palettes", .F.)
        THISFORM.EnableGroup ("Dithers", .F.)
ENDCASE
ENDPROC
THISFORM
DITHER
THISFORM
DITHER
THISFORM
DITHER
THISFORM
DITHER
THISFORM
DITHER
THISFORM
DITHER
THISFORM
DITHER
THISFORM
DITHER
DitherNone.Click,
DitherFloyd.ClickU
DitherStucki.Click~
DitherBurkes.Click
DitherSierra.Click
DitherStevenson.Click
DitherJarvis.Click"
DitherOrdered.ClickK
THISFORM
PALETTE
THISFORM
PALETTE
OrderBGR.Click,
OrderRGB.ClickV
THISFORM
PALETTE
THISFORM
PALETTE
THISFORM
PALETTE
PaletteFixed.Click,
PaletteOptimized.ClickV
PaletteIdentity.Click
THISFORM
THISFORM
Init,
ClickM
THISFORM
USERCHOICE
THISFORM
USERCHOICE
Init,
Clickg
"Arial, 1, 10, 6, 16, 13, 16, 3, 0
BackColor = 192,192,192
Caption = "Dithering Options"
Height = 18
Left = 228
Top = 12
Width = 121
Name = "DithersLabel"
COLORRES
DithersLabel
label
label
COLORRES
Dithers
optiongroup
optiongroup
PROCEDURE OrderBGR.Click
THISFORM.Palette = CRP_BYTEORDERBGR
ENDPROC
PROCEDURE OrderRGB.Click
THISFORM.Palette = CRP_BYTEORDERRGB
ENDPROC
COLORRES
ByteOrders
optiongroup
optiongroup
COLORRES
^userchoice
palette
dither
bitsperpixel
*enablegroup
*getuserresponse
*getselections
commandbutton
commandbutton
COLORRES
\Top = 211
Left = 103
Height = 25
Width = 73
Caption = "OK"
Default = .T.
Name = "OK"
PROCEDURE Init
THISFORM.UserChoice = .T.
THISFORM.Hide
ENDPROC
PROCEDURE Click
THISFORM.UserChoice = .T.
THISFORM.Hide
ENDPROC
{BackColor = 192,192,192
Caption = "High Color"
Height = 18
Left = 120
Top = 113
Width = 67
Name = "ByteOrdersLabel"
ByteOrdersLabel
label
label
vBackColor = 192,192,192
Caption = "Palettes"
Height = 18
Left = 12
Top = 114
Width = 51
Name = "PalettesLabel"
COLORRES
commandbutton
commandbutton
Cancel
COLORRES
cTop = 211
Left = 199
Height = 25
Width = 73
Cancel = .T.
Caption = "Cancel"
Name = "Cancel"
QPROCEDURE Init
THISFORM.Hide
ENDPROC
PROCEDURE Click
THISFORM.Hide
ENDPROC
PalettesLabel
label
label
COLORRES
Palettes
optiongroup
optiongroup
rBackColor = 192,192,192
Caption = "Pixel Depth"
Height = 18
Left = 12
Top = 12
Width = 133
Name = "Label1"
COLORRES
Label1
optiongroup
optiongroup
COLORRES
ButtonCount = 6
BackColor = 192,192,192
BorderColor = 160,160,164
Value = 1
Height = 73
Left = 12
Top = 32
Width = 205
Name = "Bits"
Option1.BackColor = 192,192,192
Option1.Caption = "\<1 Bit"
Option1.Value = 1
Option1.Height = 18
Option1.Left = 12
Option1.Top = 6
Option1.Width = 47
Option1.Name = "Bit1"
Option2.BackColor = 192,192,192
Option2.Caption = "\<4 Bits"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 12
Option2.Top = 28
Option2.Width = 53
Option2.Name = "Bit4"
Option3.BackColor = 192,192,192
Option3.Caption = "\<8 Bits"
Option3.Value = 0
Option3.Height = 18
Option3.Left = 12
Option3.Top = 50
Option3.Width = 53
Option3.Name = "Bit8"
Option4.BackColor = 192,192,192
Option4.Caption = "1\<6 Bits"
Option4.Value = 0
Option4.Height = 18
Option4.Left = 125
Option4.Top = 6
Option4.Width = 60
Option4.Name = "Bit16"
Option5.BackColor = 192,192,192
Option5.Caption = "\<24 Bits"
Option5.Value = 0
Option5.Height = 18
Option5.Left = 125
Option5.Top = 28
Option5.Width = 60
Option5.Name = "Bit24"
Option6.BackColor = 192,192,192
Option6.Caption = "\<32 Bits"
Option6.Value = 0
Option6.Height = 18
Option6.Left = 125
Option6.Top = 50
Option6.Width = 60
Option6.Name = "Bit32"
8PROCEDURE Bit1.Click
THISFORM.BitsPerPixel = 1
THISFORM.EnableGroup ("Palettes", .T.)
THISFORM.EnableGroup ("ByteOrders", .F.)
THISFORM.EnableGroup ("Dithers", .T.)
ENDPROC
PROCEDURE Bit4.Click
THISFORM.BitsPerPixel = 4
THISFORM.EnableGroup ("Palettes", .T.)
THISFORM.EnableGroup ("ByteOrders", .F.)
THISFORM.EnableGroup ("Dithers", .T.)
ENDPROC
PROCEDURE Bit8.Click
THISFORM.BitsPerPixel = 8
THISFORM.EnableGroup ("Palettes", .T.)
THISFORM.EnableGroup ("ByteOrders", .F.)
THISFORM.EnableGroup ("Dithers", .T.)
ENDPROC
PROCEDURE Bit16.Click
THISFORM.BitsPerPixel = 16
THISFORM.EnableGroup ("Palettes", .F.)
THISFORM.EnableGroup ("ByteOrders", .T.)
THISFORM.EnableGroup ("Dithers", .F.)
ENDPROC
PROCEDURE Bit24.Click
THISFORM.BitsPerPixel = 24
THISFORM.EnableGroup ("Palettes", .F.)
THISFORM.EnableGroup ("ByteOrders", .T.)
THISFORM.EnableGroup ("Dithers", .F.)
ENDPROC
PROCEDURE Bit32.Click
THISFORM.BitsPerPixel = 32
THISFORM.EnableGroup ("Palettes", .F.)
THISFORM.EnableGroup ("ByteOrders", .T.)
THISFORM.EnableGroup ("Dithers", .F.)
ENDPROC
Palettesa
ByteOrders-
Dithersa
THISFORM
BITSPERPIXEL
ENABLEGROUP_
Palettesa
ByteOrders-
Dithersa
THISFORM
BITSPERPIXEL
ENABLEGROUP_
Palettesa
ByteOrders-
Dithersa
THISFORM
BITSPERPIXEL
ENABLEGROUP_
Palettes-
ByteOrdersa
Dithers-
THISFORM
BITSPERPIXEL
ENABLEGROUP_
Palettes-
ByteOrdersa
Dithers-
THISFORM
BITSPERPIXEL
ENABLEGROUP_
Palettes-
ByteOrdersa
Dithers-
THISFORM
BITSPERPIXEL
ENABLEGROUP
Bit1.Click,
Bit4.Click
Bit8.Click<
Bit16.Click
Bit24.ClickL
Bit32.Click
label
label
ButtonCount = 3
BackColor = 192,192,192
Value = 1
Height = 68
Left = 12
Top = 132
Width = 97
Name = "Palettes"
Option1.BackColor = 192,192,192
Option1.Caption = "\<Fixed"
Option1.Value = 1
Option1.ForeColor = 0,0,0
Option1.Height = 18
Option1.Left = 5
Option1.Top = 5
Option1.Width = 68
Option1.Name = "PaletteFixed"
Option2.BackColor = 192,192,192
Option2.Caption = "\<Optimized"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 5
Option2.Top = 25
Option2.Width = 92
Option2.Name = "PaletteOptimized"
Option3.BackColor = 192,192,192
Option3.Caption = "\<Identity"
Option3.Value = 0
Option3.Height = 18
Option3.Left = 5
Option3.Top = 45
Option3.Width = 68
Option3.Name = "PaletteIdentity"
PROCEDURE PaletteFixed.Click
THISFORM.Palette = CRP_FIXEDPALETTE
ENDPROC
PROCEDURE PaletteOptimized.Click
THISFORM.Palette = CRP_OPTIMIZEDPALETTE
ENDPROC
PROCEDURE PaletteIdentity.Click
THISFORM.Palette = CRP_IDENTITYPALETTE
ENDPROC
yPROCEDURE DitherNone.Click
THISFORM.Dither = CRD_NODITHERING
ENDPROC
PROCEDURE DitherFloyd.Click
THISFORM.Dither = CRD_FLOYDSTEINDITHERING
ENDPROC
PROCEDURE DitherStucki.Click
THISFORM.Dither = CRD_STUCKIDITHERING
ENDPROC
PROCEDURE DitherBurkes.Click
THISFORM.Dither = CRD_BURKESDITHERING
ENDPROC
PROCEDURE DitherSierra.Click
THISFORM.Dither = CRD_SIERRADITHERING
ENDPROC
PROCEDURE DitherStevenson.Click
THISFORM.Dither = CRD_STEVENSONARCEDITHERING
ENDPROC
PROCEDURE DitherJarvis.Click
THISFORM.Dither = CRD_JARVISDITHERING
ENDPROC
PROCEDURE DitherOrdered.Click
THISFORM.Dither = CRD_ORDEREDDITHERING
ENDPROC
ButtonCount = 2
BackColor = 192,192,192
Value = 1
Height = 68
Left = 120
Top = 132
Width = 97
Name = "ByteOrders"
Option1.BackColor = 192,192,192
Option1.Caption = "Order \<BGR"
Option1.Value = 1
Option1.Height = 18
Option1.Left = 5
Option1.Top = 15
Option1.Width = 87
Option1.Name = "OrderBGR"
Option2.BackColor = 192,192,192
Option2.Caption = "Order \<RGB"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 5
Option2.Top = 38
Option2.Width = 87
Option2.Name = "OrderRGB"
yButtonCount = 8
BackColor = 192,192,192
Value = 1
Height = 168
Left = 228
Top = 32
Width = 133
Name = "Dithers"
Option1.BackColor = 192,192,192
Option1.Caption = "\<None"
Option1.Value = 1
Option1.Height = 18
Option1.Left = 5
Option1.Top = 5
Option1.Width = 68
Option1.Name = "DitherNone"
Option2.BackColor = 192,192,192
Option2.Caption = "\<Floyd Stein"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 5
Option2.Top = 25
Option2.Width = 104
Option2.Name = "DitherFloyd"
Option3.BackColor = 192,192,192
Option3.Caption = "Stuc\<ki"
Option3.Value = 0
Option3.Height = 18
Option3.Left = 5
Option3.Top = 45
Option3.Width = 68
Option3.Name = "DitherStucki"
Option4.BackColor = 192,192,192
Option4.Caption = "\<Burkes"
Option4.Value = 0
Option4.Height = 18
Option4.Left = 5
Option4.Top = 65
Option4.Width = 68
Option4.Name = "DitherBurkes"
Option5.BackColor = 192,192,192
Option5.Caption = "\<Sierra"
Option5.Value = 0
Option5.Height = 18
Option5.Left = 5
Option5.Top = 85
Option5.Width = 68
Option5.Name = "DitherSierra"
Option6.BackColor = 192,192,192
Option6.Caption = "S\<tevenson Arce"
Option6.Value = 0
Option6.Height = 18
Option6.Left = 5
Option6.Top = 105
Option6.Width = 116
Option6.Name = "DitherStevenson"
Option7.BackColor = 192,192,192
Option7.Caption = "\<Jarvis"
Option7.Value = 0
Option7.Height = 18
Option7.Left = 5
Option7.Top = 125
Option7.Width = 68
Option7.Name = "DitherJarvis"
Option8.BackColor = 192,192,192
Option8.Caption = "\<Ordered"
Option8.Value = 0
Option8.Height = 18
Option8.Left = 5
Option8.Top = 145
Option8.Width = 68
Option8.Name = "DitherOrdered"
Palettes
ForeColor
ForeColorC
ByteOrders
ForeColor
ForeColorC
Dithers
ForeColor
ForeColorC
CPROPERTY
VALUE
THISFORM
PALETTES
ENABLED
SETALL
PALETTESLABEL
FORECOLOR
PALETTE
BYTEORDERS
BYTEORDERSLABEL
DITHERS
DITHERSLABEL
THISFORM
USERCHOICE
NBITS
NPALETTEOPTIONS
NDITHEROPTIONS
THISFORM
USERCHOICE
BITSPERPIXEL
DITHER
PALETTE
Value
Value
Value
Value
ByteOrders-
ByteOrders-
ByteOrders-
Palettes-
Dithers-
Palettes-
Dithers-
Palettes-
Dithers-
THISFORM
USERCHOICE
DITHERS
SETALL
DITHERFLOYD
VALUE
PALETTES
PALETTEFIXED
BYTEORDERS
ORDERBGR
BITSPERPIXEL
VIEWER
LEAD1
BITMAPBITS
ENABLEGROUP
BIT16
BIT24
BIT32
enablegroup,
getuserresponse'
getselectionsP
Init8
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _R4E0IZM4D 525092466&
 WINDOWS _R2M0Z4LXP 525092466
 WINDOWS _R2M0Z4LZD 520836434)
 WINDOWS _R2M0Z4M07 520836434
 WINDOWS _R2M0Z4M11 520836434
 WINDOWS _R2M0Z4M2F 520836434z
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
Name = "Dataenvironment"
Form1
Height = 183
Width = 325
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "Form1"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
LockScreen = .F.
Name = "Form1"
LPROCEDURE getuserresponse
RETURN THISFORM.UserChoice
ENDPROC
PROCEDURE getindex
IF THISFORM.UserChoice = .T.
   RETURN THISFORM.List.ListIndex
   RETURN 0
ENDIF
ENDPROC
PROCEDURE Init
PARAMETERS cCaption, cType, cList
THISFORM.UserChoice = .F.
THISFORM.Caption = cCaption
THISFORM.TypeLabel.Caption = cType
nPos = AT(";", cList)
DO WHILE nPos <> 0
   cTemp = LEFT(cList, nPos - 1)
   THISFORM.List.AddItem (cTemp)
   cList = RIGHT(cList, LEN(cList) - nPos)
   nPos = AT(";", cList)
ENDDO
THISFORM.List.AddItem (cList)
THISFORM.List.ListIndex = 1
ENDPROC
THISFORM
Click,
THISFORM
USERCHOICE
Click,
"Arial, 1, 10, 6, 16, 13, 16, 3, 0
oBackColor = 192,192,192
Caption = "Type:"
Height = 25
Left = 12
Top = 12
Width = 193
Name = "TypeLabel"
Form1
    TypeLabel
label
label
?Height = 132
Left = 12
Top = 36
Width = 193
Name = "List"
Form1
listbox
+userchoice
*getuserresponse
*getindex
commandbutton
commandbutton
Form1
[Top = 12
Left = 228
Height = 25
Width = 85
Caption = "OK"
Default = .T.
Name = "OK"
DPROCEDURE Click
THISFORM.UserChoice = .T.
THISFORM.Hide
ENDPROC
listbox
)PROCEDURE Click
THISFORM.Hide
ENDPROC
bTop = 48
Left = 228
Height = 25
Width = 85
Cancel = .T.
Caption = "Cancel"
Name = "Cancel"
Form1
Cancel
commandbutton
commandbutton
THISFORM
USERCHOICE9
THISFORM
USERCHOICE
LIST
LISTINDEX
CCAPTION
CTYPE
CLIST
THISFORM
USERCHOICE
CAPTION
TYPELABEL
CTEMP
ADDITEM
LISTINDEX
getuserresponse,
getindexU
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _R4E0J07AK 525092482&
 WINDOWS _R2L13GWEZ 525092482
 WINDOWS _R2M0PFLQ6 520836524
 WINDOWS _R2M0PFLQQ 5208365247
 WINDOWS _R2M0QRDG2 525033505
 WINDOWS _R2M0QRDGW 525033506e
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
KLeft = 10
Top = 259
Width = 400
Height = 127
Name = "Dataenvironment"
GETVALUE
Height = 85
Width = 229
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "Get Value"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
LockScreen = .F.
Name = "GETVALUE"
PROCEDURE getuserresponse
RETURN THISFORM.UserChoice
ENDPROC
PROCEDURE getvalue
IF THISFORM.UserChoice = .T.
   RETURN THISFORM.Spinner.Value
   RETURN 0
ENDIF
ENDPROC
PROCEDURE Init
PARAMETERS cCaption, cType, nSpinLo, nSpinHi, nSpinInit, nSpinInc, nSpinDecimal
THISFORM.UserChoice = .F.
THISFORM.Caption = cCaption
THISFORM.TypeLabel.Caption = cType
THISFORM.Spinner.SpinnerLowValue = nSpinLo
THISFORM.Spinner.SpinnerHighValue = nSpinHi
THISFORM.Spinner.KeyBoardLowValue = nSpinLo
THISFORM.Spinner.KeyBoardHighValue = nSpinHi
THISFORM.Spinner.Value = nSpinInit
THISFORM.Spinner.Increment = nSpinInc
IF nSpinDecimal <> .F.
   THISFORM.Spinner.InputMask = "99999.99"
   THISFORM.Spinner.InputMask = "99999"
ENDIF
ENDPROC
THISFORM
USERCHOICE
Click,
THISFORM
Click,
"Arial, 1, 10, 6, 16, 13, 16, 3, 0
oBackColor = 192,192,192
Caption = "Type:"
Height = 25
Left = 12
Top = 18
Width = 109
Name = "TypeLabel"
GETVALUE
    TypeLabel
label
label
aHeight = 25
Left = 12
SpecialEffect = 0
Top = 42
Width = 109
Format = ""
Name = "Spinner"
GETVALUE
Spinner
spinner
spinner
DPROCEDURE Click
THISFORM.UserChoice = .T.
THISFORM.Hide
ENDPROC
GETVALUE
+userchoice
*getuserresponse
*getvalue
commandbutton
commandbutton
Cancel
GETVALUE
Top = 48
Left = 144
Height = 25
Width = 73
Cancel = .T.
Caption = "Cancel"
Default = .F.
TabIndex = 2
Name = "Cancel"
)PROCEDURE Click
THISFORM.Hide
ENDPROC
iTop = 12
Left = 144
Height = 25
Width = 73
Caption = "OK"
Default = .T.
TabIndex = 1
Name = "OK"
commandbutton
commandbutton
THISFORM
USERCHOICE9
THISFORM
USERCHOICE
SPINNER
VALUE
99999.99
99999
CCAPTION
CTYPE
NSPINLO
NSPINHI
NSPININIT
NSPININC
NSPINDECIMAL
THISFORM
USERCHOICE
CAPTION
TYPELABEL
SPINNER
SPINNERLOWVALUE
SPINNERHIGHVALUE
KEYBOARDLOWVALUE
KEYBOARDHIGHVALUE
VALUE
INCREMENT
INPUTMASK
getuserresponse,
getvalueU
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _RQN0RRJTX 596797223&
 WINDOWS _R3U0R5AS5 596797223
 WINDOWS _R3U0R5AUF 523658493$
 WINDOWS _R3U0R5AVN 523658493
 WINDOWS _R3U0R5AWW 523658493
 WINDOWS _R3U0R5AY5 523658493F
 WINDOWS _R3U0R5AZD 523658493
 WINDOWS _R3U0R5B0N 523658493
 WINDOWS _R3U0R5B1W 523658493V
 WINDOWS _R3U0R5B34 523658493
 WINDOWS _R3U0R5B4C 523852405
 WINDOWS _R3U0R5B5V 523658493b
 WINDOWS _R3U0R5B75 523658493
 WINDOWS _R3U0R5B8F 523658493
 WINDOWS _R3U0R5B9O 523658493
 WINDOWS _R3U0R5BAX 523658493O
 WINDOWS _R3U0R5BC6 523658493
 WINDOWS _R3U0R5BDI 523658493
 WINDOWS _R3U0R5BEU 523852211R
 WINDOWS _RQN0RRLVQ 596797224
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
Name = "Dataenvironment"
Form1
Height = 218
Width = 336
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "File Information"
Closable = .F.
HalfHeightCaption = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
WindowState = 0
Name = "Form1"
PROCEDURE getpage
LPARAMETERS nPage
nPage = THISFORM.ThePageBox.ListIndex
ENDPROC
PROCEDURE Init
PARAMETERS LoadFilename, LoadPage
THISFORM.TheFilename.Caption = LoadFilename
THISFORM.PageNumber = LoadPage
nRet = THISFORM.LEAD1.GetFileInfo(THISFORM.TheFilename.Caption, 32000)
IF nRet = 0
    FOR i = 1 TO THISFORM.LEAD1.InfoPage
        THISFORM.ThePageBox.AddItem (Str(i))
    NEXT
    IF THISFORM.PageNumber > THISFORM.LEAD1.InfoPage
        THISFORM.PageNumber = THISFORM.LEAD1.InfoPage
    ENDIF
    nRet = THISFORM.LEAD1.GetFileInfo(THISFORM.TheFilename.Caption, THISFORM.PageNumber)
    IF nRet = 0
        THISFORM.TheFormat.Caption = Str(THISFORM.LEAD1.InfoFormat)
        THISFORM.TheWidth.Caption = Str(THISFORM.LEAD1.InfoWidth)
        THISFORM.TheHeight.Caption = Str(THISFORM.LEAD1.InfoHeight)
        THISFORM.TheBits.Caption = Str(THISFORM.LEAD1.InfoBits)
        THISFORM.TheSizeMem.Caption = Str(THISFORM.LEAD1.InfoSizeMem)
        THISFORM.TheSizeDisk.Caption = Str(THISFORM.LEAD1.InfoSizeDisk)
        THISFORM.ThePageBox.ListIndex = THISFORM.PageNumber
    ENDIF
ENDIF
ENDPROC
THISFORM
LEAD1
GETFILEINFO
THEFILENAME
CAPTION
THEPAGEBOX
LISTINDEX
THEFORMAT
INFOFORMAT
THEWIDTH
INFOWIDTH
THEHEIGHT
INFOHEIGHT
THEBITS
INFOBITS
THESIZEMEM
INFOSIZEMEM
THESIZEDISK
INFOSIZEDISK
InteractiveChange,
THISFORM
Click,
"Arial, 1, 10, 6, 16, 13, 14, 3, 0
,OLEObject = C:\WINDOWS\SYSTEM\LTOCX90N.OCX
^Top = 168
Left = 252
Height = 37
Width = 37
Visible = .F.
BackColor = 0
Name = "Lead1"
pagenumber
*getpage
label
label
Label1
Form1
Alignment = 1
BackColor = 192,192,192
Caption = "Filename:"
Height = 18
Left = 12
Top = 12
Width = 102
Name = "Label1"
label
label
TheFilename
Form1
sBackColor = 192,192,192
Caption = "Label8"
Height = 18
Left = 119
Top = 12
Width = 194
Name = "TheFilename"
label
label
    TheFormat
Form1
qBackColor = 192,192,192
Caption = "Label9"
Height = 18
Left = 119
Top = 30
Width = 194
Name = "TheFormat"
label
label
TheWidth
Form1
qBackColor = 192,192,192
Caption = "Label10"
Height = 18
Left = 119
Top = 48
Width = 194
Name = "TheWidth"
label
label
    TheHeight
Form1
rBackColor = 192,192,192
Caption = "Label11"
Height = 18
Left = 120
Top = 66
Width = 193
Name = "TheHeight"
label
label
TheBits
Form1
pBackColor = 192,192,192
Caption = "Label12"
Height = 18
Left = 119
Top = 84
Width = 194
Name = "TheBits"
label
label
TheSizeMem
Form1
tBackColor = 192,192,192
Caption = "Label13"
Height = 18
Left = 119
Top = 102
Width = 194
Name = "TheSizeMem"
label
label
TheSizeDisk
Form1
uBackColor = 192,192,192
Caption = "Label14"
Height = 18
Left = 119
Top = 120
Width = 194
Name = "TheSizeDisk"
commandbutton
commandbutton
Form1
\Top = 180
Left = 132
Height = 25
Width = 73
Caption = "OK"
Default = .T.
Name = "OK"
)PROCEDURE Click
THISFORM.Hide
ENDPROC
Form1
Lead1
olecontrol
olecontrol
EHeight = 24
Left = 120
Top = 138
Width = 97
Name = "ThePageBox"
Form1
ThePageBox
combobox
combobox
label
label
Label2
Form1
}Alignment = 1
BackColor = 192,192,192
Caption = "Format:"
Height = 18
Left = 12
Top = 30
Width = 101
Name = "Label2"
label
label
Label3
Form1
|Alignment = 1
BackColor = 192,192,192
Caption = "Width:"
Height = 18
Left = 12
Top = 48
Width = 101
Name = "Label3"
label
label
Label4
Form1
}Alignment = 1
BackColor = 192,192,192
Caption = "Height:"
Height = 18
Left = 12
Top = 66
Width = 101
Name = "Label4"
label
label
Label5
Form1
Alignment = 1
BackColor = 192,192,192
Caption = "BitsPerPixel:"
Height = 18
Left = 12
Top = 84
Width = 101
Name = "Label5"
label
label
Label6
Form1
Alignment = 1
BackColor = 192,192,192
Caption = "Size In Memory:"
Height = 18
Left = 12
Top = 102
Width = 101
Name = "Label6"
label
label
Label7
Form1
Alignment = 1
BackColor = 192,192,192
Caption = "Size On Disk:"
Height = 18
Left = 12
Top = 120
Width = 101
Name = "Label7"
label
label
Label15
Form1
}Alignment = 1
BackColor = 192,192,192
Caption = "Page:"
Height = 18
Left = 12
Top = 141
Width = 101
Name = "Label15"
PROCEDURE InteractiveChange
nRet = THISFORM.LEAD1.GetFileInfo(THISFORM.TheFilename.Caption, THISFORM.ThePageBox.ListIndex)
IF nRet = 0
    THISFORM.TheFormat.Caption = Str(THISFORM.LEAD1.InfoFormat)
    THISFORM.TheWidth.Caption = Str(THISFORM.LEAD1.InfoWidth)
    THISFORM.TheHeight.Caption = Str(THISFORM.LEAD1.InfoHeight)
    THISFORM.TheBits.Caption = Str(THISFORM.LEAD1.InfoBits)
    THISFORM.TheSizeMem.Caption = Str(THISFORM.LEAD1.InfoSizeMem)
    THISFORM.TheSizeDisk.Caption = Str(THISFORM.LEAD1.InfoSizeDisk)
ENDIF
ENDPROC
LEADTOOLS OCX Copyright (c) 1997 LEAD Technologies, Inc.
NPAGE
THISFORM
THEPAGEBOX
LISTINDEX
LOADFILENAME
LOADPAGE
THISFORM
THEFILENAME
CAPTION
PAGENUMBER
LEAD1
GETFILEINFO
INFOPAGE
THEPAGEBOX
ADDITEM
THEFORMAT
INFOFORMAT
THEWIDTH
INFOWIDTH
THEHEIGHT
INFOHEIGHT
THEBITS
INFOBITS
THESIZEMEM
INFOSIZEMEM
THESIZEDISK
INFOSIZEDISK
LISTINDEX
getpage,
Initu
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _R4E0J0UNI 525092497&
 WINDOWS _R3U0QIGUJ 525092497
 WINDOWS _R3U0QIGWW 523657926
 WINDOWS _R3U0QIGYA 523657926^
 WINDOWS _R3U0QIGZY 523664793-
 WINDOWS _R3U0QIHCD 524517638'
 WINDOWS _R3U0QIHE1 523660981
 WINDOWS _R3U0QIHFO 523852553
 WINDOWS _R3U0QIHHB 524517638T
 WINDOWS _R3U0QIHJ7 524517638
 WINDOWS _R450YL329 524518213:
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
Name = "Dataenvironment"
OPENOPTS
Height = 221
Width = 266
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "Open Options"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
Name = "OPENOPTS"
!PROCEDURE getuserselections
LPARAMETERS fOK, nBits, nPage, fPWL, fLoadStamp
fOK = THISFORM.UserChoice
IF fOK
    DO CASE
        CASE THISFORM.OpenBitsGroup.Value = 1
            nBits = 1
        CASE THISFORM.OpenBitsGroup.Value = 2
            nBits = 4
        CASE THISFORM.OpenBitsGroup.Value = 3
            nBits = 8
        CASE THISFORM.OpenBitsGroup.Value = 4
            nBits = 16
        CASE THISFORM.OpenBitsGroup.Value = 5
            nBits = 24
        CASE THISFORM.OpenBitsGroup.Value = 6
            nBits = 32
        CASE THISFORM.OpenBitsGroup.Value = 7
            nBits = 0
    ENDCASE
    nPage = VAL(THISFORM.PageBox.Value)
    IF THISFORM.PWLCheck.Value = 1
        fPWL = .T.
    ELSE
        fPWL = .F.
    ENDIF
    IF THISFORM.LoadStampCheck.Value = 1
        fLoadStamp = .T.
    ELSE
        fLoadStamp = .F.
    ENDIF
ENDIF
ENDPROC
PROCEDURE Init
PARAMETERS TheFile, fPaintWhileLoad
THISFORM.UserChoice = .F.
THISFORM.Filename = TheFile
THISFORM.OpenBitsGroup.Value = 7
THISFORM.PageBox.Value = "1"
IF fPaintWhileLoad
    THISFORM.PWLCheck.Value = 1
    THISFORM.PWLCheck.Value = 0
ENDIF
THISFORM.LoadStampCheck.Value = 0
ENDPROC
THISFORM
LOADSTAMPCHECK
VALUE
OLDBITS
OPENBITSGROUP
ENABLED
BIT1
FORECOLOR
BIT16
BIT24
BIT32
Click,
THISFORM
Click,
"Arial, 1, 10, 6, 16, 13, 16, 3, 0
OPENOPTS
LoadStampCheck
checkbox
checkbox
Quserchoice
filename
fpaintwhileload
pagenumber
oldbits
*getuserselections
label
label
Label1
OPENOPTS
qBackColor = 192,192,192
Caption = "Pixel Depth"
Height = 18
Left = 12
Top = 12
Width = 85
Name = "Label1"
commandbutton
commandbutton
OPENOPTS
[Top = 12
Left = 180
Height = 25
Width = 73
Caption = "OK"
Default = .T.
Name = "OK"
DPROCEDURE Click
THISFORM.UserChoice = .T.
THISFORM.Hide
ENDPROC
THISFORM
USERCHOICE
Click,
optiongroup
optiongroup
OpenBitsGroup
OPENOPTS
ButtonCount = 7
BackColor = 192,192,192
Value = 1
Height = 96
Left = 12
Top = 31
Width = 157
TabIndex = 6
Name = "OpenBitsGroup"
Option1.Alignment = 0
Option1.BackColor = 192,192,192
Option1.Caption = "\<1 Bit"
Option1.Value = 1
Option1.Height = 18
Option1.Left = 10
Option1.Top = 30
Option1.Width = 68
Option1.Name = "Bit1"
Option2.BackColor = 192,192,192
Option2.Caption = "\<4 Bits"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 10
Option2.Top = 51
Option2.Width = 68
Option2.Name = "Bit4"
Option3.BackColor = 192,192,192
Option3.Caption = "\<8 Bits"
Option3.Value = 0
Option3.Height = 18
Option3.Left = 10
Option3.Top = 73
Option3.Width = 68
Option3.Name = "Bit8"
Option4.BackColor = 192,192,192
Option4.Caption = "1\<6 Bits"
Option4.Value = 0
Option4.Height = 18
Option4.Left = 89
Option4.Top = 30
Option4.Width = 68
Option4.Name = "Bit16"
Option5.BackColor = 192,192,192
Option5.Caption = "\<24 Bits"
Option5.Value = 0
Option5.Height = 18
Option5.Left = 89
Option5.Top = 51
Option5.Width = 68
Option5.Name = "Bit24"
Option6.BackColor = 192,192,192
Option6.Caption = "\<32 Bits"
Option6.Value = 0
Option6.Height = 18
Option6.Left = 89
Option6.Top = 73
Option6.Width = 68
Option6.Name = "Bit32"
Option7.BackColor = 192,192,192
Option7.Caption = "\<Default"
Option7.Value = 0
Option7.Height = 18
Option7.Left = 10
Option7.Top = 9
Option7.Width = 68
Option7.Name = "Bit0"
checkbox
checkbox
PWLCheck
OPENOPTS
|Top = 169
Left = 12
Height = 18
Width = 157
BackColor = 192,192,192
Caption = "\<Paint While Load"
Name = "PWLCheck"
commandbutton
commandbutton
Cancel
OPENOPTS
qTop = 41
Left = 180
Height = 25
Width = 73
Cancel = .T.
Caption = "Cancel"
Default = .F.
Name = "Cancel"
)PROCEDURE Click
THISFORM.Hide
ENDPROC
Top = 194
Left = 12
Height = 18
Width = 181
BackColor = 192,192,192
Caption = "\<Load Stamp (If Available)"
Name = "LoadStampCheck"
OPENOPTS
Label2
label
label
commandbutton
commandbutton
FileInfo
OPENOPTS
cTop = 70
Left = 180
Height = 25
Width = 73
Caption = "Info"
Default = .F.
Name = "FileInfo"
PROCEDURE Click
DO FORM Info WITH THISFORM.Filename, Val(THISFORM.PageBox.Value)
Info.GetPage(@nPage)
THISFORM.PageBox.Value = Str(nPage)
Info.Release
ENDPROC
THISFORM
FILENAME
PAGEBOX
VALUE
GETPAGE
NPAGE
RELEASE
Click,
textbox
textbox
PageBox
OPENOPTS
`BorderStyle = 1
Value = Page
Height = 25
Left = 60
Top = 137
Width = 60
Name = "PageBox"
lBackColor = 192,192,192
Caption = "Page:"
Height = 18
Left = 12
Top = 141
Width = 43
Name = "Label2"
PROCEDURE Click
IF THISFORM.LoadStampCheck.Value = 1
    THISFORM.OldBits = THISFORM.OpenBitsGroup.Value
    THISFORM.OpenBitsGroup.Value = 7
    THISFORM.OpenBitsGroup.Enabled = .F.
    THISFORM.OpenBitsGroup.Bit1.ForeColor = RGB(128, 128, 128)
    THISFORM.OpenBitsGroup.Bit4.ForeColor = RGB(128, 128, 128)
    THISFORM.OpenBitsGroup.Bit8.ForeColor = RGB(128, 128, 128)
    THISFORM.OpenBitsGroup.Bit16.ForeColor = RGB(128, 128, 128)
    THISFORM.OpenBitsGroup.Bit24.ForeColor = RGB(128, 128, 128)
    THISFORM.OpenBitsGroup.Bit32.ForeColor = RGB(128, 128, 128)
    THISFORM.OpenBitsGroup.Value = THISFORM.OldBits
    THISFORM.OpenBitsGroup.Enabled = .T.
    THISFORM.OpenBitsGroup.Bit1.ForeColor = RGB(0, 0, 0)
    THISFORM.OpenBitsGroup.Bit4.ForeColor = RGB(0, 0, 0)
    THISFORM.OpenBitsGroup.Bit8.ForeColor = RGB(0, 0, 0)
    THISFORM.OpenBitsGroup.Bit16.ForeColor = RGB(0, 0, 0)
    THISFORM.OpenBitsGroup.Bit24.ForeColor = RGB(0, 0, 0)
    THISFORM.OpenBitsGroup.Bit32.ForeColor = RGB(0, 0, 0)
ENDIF
ENDPROC
NBITS
NPAGE
FLOADSTAMP
THISFORM
USERCHOICE
OPENBITSGROUP
VALUE
PAGEBOX
PWLCHECK
LOADSTAMPCHECK
THEFILE
FPAINTWHILELOAD
THISFORM
USERCHOICE
FILENAME
OPENBITSGROUP
VALUE
PAGEBOX
PWLCHECK
LOADSTAMPCHECK
getuserselections,
Inits
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _R4E0L56QX 525094523&
 WINDOWS _R2R0QYG4Q 525094524
 WINDOWS _R2R0QYG78 523529895V
 WINDOWS _R2R0QYG6Y 523529895
 WINDOWS _R2R0QYG5A 525094273
 WINDOWS _R2R0QYG5U 525094273
 WINDOWS _R2R0QYG64 525092016g
 WINDOWS _R2R0QYG6E 525092016
 WINDOWS _R2R0QYG7I 525094274E
 WINDOWS _R3S0TRJJB 525094274
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
Name = "Dataenvironment"
ResizeForm
Height = 134
Width = 280
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 3
Caption = "RESIZE"
Closable = .F.
MaxButton = .F.
MinButton = .F.
WindowType = 1
Name = "ResizeForm"
dPROCEDURE getuserresponse
RETURN THISFORM.UserChoice
ENDPROC
PROCEDURE getselections
LPARAMETERS nValue1, nValue2, fResample
IF THISFORM.UserChoice = .T.
    nValue1 = THISFORM.Value1Spin.Value
    nValue2 = THISFORM.Value2Spin.Value
    IF THISFORM.ResampleCheck.Value = 1
        fResample = .T.
    ELSE
        fResample = .F.
    ENDIF
    nValue1 = 1
    nValue2 = 0
    fResample = 0
ENDIF
ENDPROC
PROCEDURE Init
PARAMETERS cCaption, cLabel1, nValue1Lo, nValue1Hi, nValue1Init, nValue1Inc, cLabel2, nValue2Lo, nValue2Hi, nValue2Init, nValue2Inc, nFormType
THISFORM.UserChoice = .F.
THISFORM.Caption = cCaption
THISFORM.WidthLabel.Caption = cLabel1
THISFORM.Value1Spin.SpinnerLowValue = nValue1Lo
THISFORM.Value1Spin.SpinnerHighValue = nValue1Hi
THISFORM.Value1Spin.KeyBoardLowValue = nValue1Lo
THISFORM.Value1Spin.KeyBoardHighValue = nValue1Hi
THISFORM.Value1Spin.Value = nValue1Init
THISFORM.Value1Spin.Increment = nValue1Inc
THISFORM.HeightLabel.Caption = cLabel2
THISFORM.Value2Spin.SpinnerLowValue = nValue2Lo
THISFORM.Value2Spin.SpinnerHighValue = nValue2Hi
THISFORM.Value2Spin.KeyBoardLowValue = nValue2Lo
THISFORM.Value2Spin.KeyBoardHighValue = nValue2Hi
THISFORM.Value2Spin.Value = nValue2Init
THISFORM.Value2Spin.Increment = nValue2Inc
DO CASE
    CASE nFormType = FORMTYPE_RESIZE
        THISFORM.ResampleCheck.Caption = "Resample"
        THISFORM.ResampleCheck.Value = 0
    CASE nFormType = FORMTYPE_STAMP
        THISFORM.ResampleCheck.Caption = "8-Bit"
        THISFORM.ResampleCheck.Value = 0
    CASE nFormType = FORMTYPE_DETECT
        THISFORM.ResampleCheck.Visible = .F.
        THISFORM.AspectCheck.Visible = .F.
ENDCASE
ENDPROC
THISFORM
ASPECTCHECK
VALUE
VALUE1SPIN
VALUE2SPIN
VIEWER
LEAD1
BITMAPWIDTH
BITMAPHEIGHT
Click,
THISFORM
ASPECTCHECK
VALUE
VIEWER
LEAD1
BITMAPWIDTH
VALUE2SPIN
BITMAPHEIGHT
VALUE1SPIN
SPINNERHIGHVALUE
InteractiveChange,
THISFORM
ASPECTCHECK
VALUE
VIEWER
LEAD1
BITMAPHEIGHT
VALUE1SPIN
BITMAPWIDTH
VALUE2SPIN
SPINNERHIGHVALUE
InteractiveChange,
"Arial, 1, 10, 6, 16, 13, 16, 3, 0
ResizeForm
ResampleCheck
checkbox
checkbox
ResizeForm
>userchoice
valuechanged
*getuserresponse
*getselections
label
label
HeightLabel
ResizeForm
Alignment = 0
BackColor = 192,192,192
Caption = "Height:"
Height = 17
Left = 12
Top = 57
Width = 121
Name = "HeightLabel"
label
label
WidthLabel
ResizeForm
Alignment = 0
BackColor = 192,192,192
Caption = "Width:"
Height = 25
Left = 12
Top = 12
Width = 121
Name = "WidthLabel"
commandbutton
commandbutton
ResizeForm
[Top = 14
Left = 192
Height = 25
Width = 72
Caption = "OK"
Default = .T.
Name = "OK"
DPROCEDURE Click
THISFORM.UserChoice = .T.
THISFORM.Hide
ENDPROC
THISFORM
Click,
AspectCheck
commandbutton
commandbutton
Cancel
ResizeForm
bTop = 44
Left = 192
Height = 25
Width = 73
Cancel = .T.
Caption = "Cancel"
Name = "Cancel"
)PROCEDURE Click
THISFORM.Hide
ENDPROC
Top = 105
Left = 180
Height = 25
Width = 85
Alignment = 1
BackColor = 192,192,192
Caption = "Resample"
Value = 0
Name = "ResampleCheck"
checkbox
checkbox
ResizeForm
spinner
spinner
Value1Spin
ResizeForm
mHeight = 25
Increment =  10.00
InputMask = "99999"
Left = 12
Top = 27
Width = 109
Name = "Value1Spin"
PROCEDURE InteractiveChange
IF THISFORM.AspectCheck.Value = 1
    IF Viewer.Lead1.BitmapHeight * THISFORM.Value1Spin.Value / Viewer.Lead1.BitmapWidth < THISFORM.Value2Spin.SpinnerHighValue
        THISFORM.Value2Spin.Value = Viewer.Lead1.BitmapHeight * THISFORM.Value1Spin.Value / Viewer.Lead1.BitmapWidth
    ELSE
        THISFORM.Value2Spin.Value =     THISFORM.Value2Spin.SpinnerHighValue
    ENDIF
ENDIF
ENDPROC
THISFORM
USERCHOICE
Click,
~Top = 105
Left = 12
Height = 25
Width = 169
BackColor = 192,192,192
Caption = "Keep Aspect-Ratio"
Name = "AspectCheck"
mHeight = 25
Increment =  10.00
InputMask = "99999"
Left = 12
Top = 74
Width = 109
Name = "Value2Spin"
spinner
spinner
Value2Spin
PROCEDURE InteractiveChange
IF THISFORM.AspectCheck.Value = 1
    IF Viewer.Lead1.BitmapWidth * THISFORM.Value2Spin.Value / Viewer.Lead1.BitmapHeight < THISFORM.Value1Spin.SpinnerHighValue
        THISFORM.Value1Spin.Value = Viewer.Lead1.BitmapWidth * THISFORM.Value2Spin.Value / Viewer.Lead1.BitmapHeight
    ELSE
        THISFORM.Value1Spin.Value = THISFORM.Value1Spin.SpinnerHighValue
    ENDIF
ENDIF
ENDPROC
PROCEDURE Click
IF THISFORM.AspectCheck.Value = 1
    IF THISFORM.Value1Spin.Value / THISFORM.Value2Spin.Value > Viewer.Lead1.BitmapWidth / Viewer.Lead1.BitmapHeight
        THISFORM.Value1Spin.Value = Viewer.Lead1.BitmapWidth * THISFORM.Value2Spin.Value / Viewer.Lead1.BitmapHeight
    ELSE
        THISFORM.Value2Spin.Value = Viewer.Lead1.BitmapHeight * THISFORM.Value1Spin.Value / Viewer.Lead1.BitmapWidth
    ENDIF
ENDIF
ENDPROC
THISFORM
USERCHOICE
NVALUE1
NVALUE2
FRESAMPLE
THISFORM
USERCHOICE
VALUE1SPIN
VALUE
VALUE2SPIN
RESAMPLECHECK
Resample
8-Bit
CCAPTION
CLABEL1
NVALUE1LO
NVALUE1HI
NVALUE1INIT
NVALUE1INC
CLABEL2
NVALUE2LO
NVALUE2HI
NVALUE2INIT
NVALUE2INC
NFORMTYPE
THISFORM
USERCHOICE
CAPTION
WIDTHLABEL
VALUE1SPIN
SPINNERLOWVALUE
SPINNERHIGHVALUE
KEYBOARDLOWVALUE
KEYBOARDHIGHVALUE
VALUE
INCREMENT
HEIGHTLABEL
VALUE2SPIN
RESAMPLECHECK
VISIBLE
ASPECTCHECK
getuserresponse,
getselectionsU
Initp
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _RKZ11GGQM 582781840&
 WINDOWS _R2X18JWRF 582781840
 WINDOWS _R2X18JWVI 523589459
 WINDOWS _R2X18JWXH 525033722
 WINDOWS _R2X18JWYI 525033722Q
 WINDOWS _R2X18JWZK 523592060
 WINDOWS _R2X18JX7B 525033722sz
 WINDOWS _R2X18JX8D 525033722
 WINDOWS _R2X18JX9C 525033722
 WINDOWS _R2X18JXAF 525033722
 WINDOWS _R2X18JXCD 525033722
 WINDOWS _R2X18JXDZ 525033722`t
 WINDOWS _R2X18JXF9 525094324}s
 WINDOWS _R2X18JXGI 525042587op
 WINDOWS _R3S0NUR9G 582781177
 WINDOWS _R4D0Q01HR 525033722Fi
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
Name = "Dataenvironment"
SAVEOPTS
Height = 301
Width = 374
DoCreate = .T.
AutoCenter = .T.
BackColor = 192,192,192
BorderStyle = 2
Caption = "Save Options"
Closable = .T.
MaxButton = .F.
MinButton = .F.
WindowType = 1
Name = "SAVEOPTS"
VLPROCEDURE getuserselections
PARAMETERS fUserGo, nBits, nFormat, nQFactor, fAppend, fStamp
fUserGo = THISFORM.UserChoice
DO CASE
    CASE THISFORM.SaveBitsGroup.Value = 1
        nBits = 1
    CASE THISFORM.SaveBitsGroup.Value = 2
        nBits = 4
    CASE THISFORM.SaveBitsGroup.Value = 3
        nBits = 8
    CASE THISFORM.SaveBitsGroup.Value = 4
        nBits = 16
    CASE THISFORM.SaveBitsGroup.Value = 5
        nBits = 24
    CASE THISFORM.SaveBitsGroup.Value = 6
        nBits = 32
ENDCASE
nQFactor = 0
IF THISFORM.AppendCheck.Value = 1
    fAppend = .T.
    fAppend = .F.
ENDIF
IF THISFORM.SaveStampCheck.Value = 1
    fStamp = .T.
    fStamp = .F.
ENDIF
DO CASE
    CASE THISFORM.FormatBox.ListIndex = SO_LEAD
        IF nBits = 1
            nFormat = FILE_LEAD1BIT
            IF THISFORM.PredefQ.ListIndex = 1
                nQFactor = QFACTOR_LEAD_0
            ELSE
                nQFactor = QFACTOR_LEAD_1
            ENDIF
        ELSE
            nFormat = FILE_LEAD
            IF THISFORM.PredefQ.ListIndex = 10
                nQFactor = THISFORM.CustomQ.Value
            ELSE
                nQFactor = -THISFORM.PredefQ.ListIndex
            ENDIF
        ENDIF
    CASE THISFORM.FormatBox.ListIndex = SO_JPEG
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 1
                nFormat = FILE_LEAD1JFIF
            CASE THISFORM.FlavorsBox.ListIndex = 2
                nFormat = FILE_LEAD2JFIF
            CASE THISFORM.FlavorsBox.ListIndex = 3
                nFormat = FILE_JFIF
        ENDCASE
        nQFactor = THISFORM.CustomQ.Value
    CASE THISFORM.FormatBox.ListIndex = SO_CALS
            nFormat = FILE_CALS
    CASE THISFORM.FormatBox.ListIndex = SO_FAX
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 1
                nFormat = FILE_FAX_G3_1D
            CASE THISFORM.FlavorsBox.ListIndex = 2
                nFormat = FILE_FAX_G3_2D
            CASE THISFORM.FlavorsBox.ListIndex = 3
                nFormat = FILE_FAX_G4
        ENDCASE
    CASE THISFORM.FormatBox.ListIndex = SO_EPS
            nFormat = FILE_EPS
    CASE THISFORM.FormatBox.ListIndex = SO_GEM
            nFormat = FILE_GEM
    CASE THISFORM.FormatBox.ListIndex = SO_GIF
            nFormat = FILE_GIF
    CASE THISFORM.FormatBox.ListIndex = SO_IOCA
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 1
                nFormat = FILE_ICA_G3_1D
            CASE THISFORM.FlavorsBox.ListIndex = 2
                nFormat = FILE_ICA_G3_2D
            CASE THISFORM.FlavorsBox.ListIndex = 3
                nFormat = FILE_ICA_G4
        ENDCASE
    CASE THISFORM.FormatBox.ListIndex = SO_PCT
            nFormat = FILE_PCT
    CASE THISFORM.FormatBox.ListIndex = SO_MAC
            nFormat = FILE_MAC
    CASE THISFORM.FormatBox.ListIndex = SO_MSP
            nFormat = FILE_MSP
    CASE THISFORM.FormatBox.ListIndex = SO_OS2
            nFormat = FILE_OS2
    CASE THISFORM.FormatBox.ListIndex = SO_PCX
            nFormat = FILE_PCX
    CASE THISFORM.FormatBox.ListIndex = SO_PNG
            nFormat = FILE_PNG
    CASE THISFORM.FormatBox.ListIndex = SO_PSD
            nFormat = FILE_PSD
    CASE THISFORM.FormatBox.ListIndex = SO_RAS
            nFormat = FILE_RAS
    CASE THISFORM.FormatBox.ListIndex = SO_TGA
            nFormat = FILE_TGA
    CASE THISFORM.FormatBox.ListIndex = SO_TIF
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 1
                nFormat = FILE_TIF
            CASE THISFORM.FlavorsBox.ListIndex = 2
                nFormat = FILE_CCITT
            CASE THISFORM.FlavorsBox.ListIndex = 3
                nFormat = FILE_CCITT_GROUP3_1DIM
            CASE THISFORM.FlavorsBox.ListIndex = 4
                nFormat = FILE_CCITT_GROUP3_2DIM
            CASE THISFORM.FlavorsBox.ListIndex = 5
                nFormat = FILE_CCITT_GROUP4
            CASE THISFORM.FlavorsBox.ListIndex = 6
                nFormat = FILE_JTIF1JTIF
                nQFactor = THISFORM.CustomQ.Value
            CASE THISFORM.FlavorsBox.ListIndex = 7
                nFormat = FILE_LEAD2JTIF
                nQFactor = THISFORM.CustomQ.Value
            CASE THISFORM.FlavorsBox.ListIndex = 8
                nFormat = FILE_JTIF
                nQFactor = THISFORM.CustomQ.Value
            CASE THISFORM.FlavorsBox.ListIndex = 9
                nFormat = FILE_TIFLZW
            CASE THISFORM.FlavorsBox.ListIndex = 10
                nFormat = FILE_TIF_CMYK
            CASE THISFORM.FlavorsBox.ListIndex = 11
                nFormat = FILE_TIFLZW_CMYK
            CASE THISFORM.FlavorsBox.ListIndex = 12
                nFormat = FILE_TIF_PACKBITS
            CASE THISFORM.FlavorsBox.ListIndex = 13
                nFormat = FILE_TIF_PACKBITS_CMYK
            CASE THISFORM.FlavorsBox.ListIndex = 14
                nFormat = FILE_TIF_YCC
            CASE THISFORM.FlavorsBox.ListIndex = 15
                nFormat = FILE_TIFLZW_YCC
            CASE THISFORM.FlavorsBox.ListIndex = 16
                nFormat = FILE_TIF_PACKBITS_YCC
        ENDCASE
    CASE THISFORM.FormatBox.ListIndex = SO_WBMP
            nFormat = FILE_BMP
    CASE THISFORM.FormatBox.ListIndex = SO_WFX
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 1
                nFormat = FILE_WFX_G3_1D
            CASE THISFORM.FlavorsBox.ListIndex = 2
                nFormat = FILE_WFX_G4
        ENDCASE
    CASE THISFORM.FormatBox.ListIndex = SO_WMF
            nFormat = FILE_WMF
    CASE THISFORM.FormatBox.ListIndex = SO_WPG
            nFormat = FILE_WPG
    CASE THISFORM.FormatBox.ListIndex = SO_WBMP_RLE
            nFormat = FILE_BMP_RLE
    CASE THISFORM.FormatBox.ListIndex = SO_DIC_G
            nFormat = FILE_DICOM_GRAY
    CASE THISFORM.FormatBox.ListIndex = SO_AWD
            nFormat = FILE_AWD
    CASE THISFORM.FormatBox.ListIndex = SO_EXIF
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 1
                nFormat = FILE_EXIF
            CASE THISFORM.FlavorsBox.ListIndex = 2
                nFormat = FILE_EXIF_YCC
            CASE THISFORM.FlavorsBox.ListIndex = 3
                nFormat = FILE_EXIF_JPEG
                nQFactor = THISFORM.CustomQ.Value
        ENDCASE
    CASE THISFORM.FormatBox.ListIndex = SO_FPX
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 1
                nFormat = FILE_FPX
            CASE THISFORM.FlavorsBox.ListIndex = 2
                nFormat = FILE_FPX_SINGLE_COLOR
            CASE THISFORM.FlavorsBox.ListIndex = 3
                nFormat = FILE_FPX_JPEG
            CASE THISFORM.FlavorsBox.ListIndex = 4
                nFormat = FILE_FPX_JPEG_QFACTOR
                nQFactor = THISFORM.CustomQ.Value
        ENDCASE
ENDCASE
ENDPROC
PROCEDURE setbits
THISFORM.SaveBitsGroup.Bit1.Enabled = .T.
THISFORM.SaveBitsGroup.Bit4.Enabled = .T.
THISFORM.SaveBitsGroup.Bit8.Enabled = .T.
THISFORM.SaveBitsGroup.Bit16.Enabled = .T.
THISFORM.SaveBitsGroup.Bit24.Enabled = .T.
THISFORM.SaveBitsGroup.Bit32.Enabled = .T.
THISFORM.SaveBitsGroup.Bit1.Value = 0
THISFORM.SaveBitsGroup.Bit4.Value = 0
THISFORM.SaveBitsGroup.Bit8.Value = 0
THISFORM.SaveBitsGroup.Bit16.Value = 0
THISFORM.SaveBitsGroup.Bit24.Value = 0
THISFORM.SaveBitsGroup.Bit32.Value = 0
THISFORM.SaveStampCheck.Enabled = .F.
DO CASE
    CASE THISFORM.FormatBox.ListIndex = SO_LEAD OR THISFORM.FormatBox.ListIndex = SO_JPEG
        THISFORM.SaveBitsGroup.Value = 5
        THISFORM.SaveStampCheck.Enabled = .T.
        IF THISFORM.FormatBox.ListIndex <> SO_LEAD
            THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        ENDIF
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_CALS
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_FAX
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_EPS
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_GEM
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_GIF
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_IOCA
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_PCT
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_MAC
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_MSP
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_OS2
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_PCX
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_PNG
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_PSD
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_RAS
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_TGA
        THISFORM.SaveBitsGroup.Value = 5
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_TIF
        IF THISFORM.FlavorsBox.ListIndex >= 2 AND THISFORM.FlavorsBox.ListIndex <= 5
            THISFORM.SaveBitsGroup.Value = 1
            THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
            THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
            THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
            THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
            THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
        ELSE
            IF THISFORM.FlavorsBox.ListIndex >= 6 AND THISFORM.FlavorsBox.ListIndex <= 8
                THISFORM.SaveBitsGroup.Value = 5
                THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
            ELSE
                THISFORM.SaveBitsGroup.Value = 3
                THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
            ENDIF
        ENDIF
        DO CASE
            CASE THISFORM.FlavorsBox.ListIndex = 10
                THISFORM.SaveBitsGroup.Value = 6
                THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit32.Enabled = .T.
            CASE THISFORM.FlavorsBox.ListIndex = 11
                THISFORM.SaveBitsGroup.Value = 6
                THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit32.Enabled = .T.
            CASE THISFORM.FlavorsBox.ListIndex = 13
                THISFORM.SaveBitsGroup.Value = 6
                THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit32.Enabled = .T.
            CASE THISFORM.FlavorsBox.ListIndex = 14
                THISFORM.SaveBitsGroup.Value = 5
                THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit24.Enabled = .T.
            CASE THISFORM.FlavorsBox.ListIndex = 15
                THISFORM.SaveBitsGroup.Value = 5
                THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit24.Enabled = .T.
            CASE THISFORM.FlavorsBox.ListIndex = 16
                THISFORM.SaveBitsGroup.Value = 5
                THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
                THISFORM.SaveBitsGroup.Bit24.Enabled = .T.
        ENDCASE
    CASE THISFORM.FormatBox.ListIndex = SO_WBMP
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_WFX
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_WMF
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_WPG
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_WBMP_RLE
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_ICO
        THISFORM.SaveBitsGroup.Value = 2
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_CUR
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_DIC_G
        THISFORM.SaveBitsGroup.Value = 3
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_DIC_C
        THISFORM.SaveBitsGroup.Value = 5
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_AWD
        THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit24.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_EXIF
        THISFORM.SaveBitsGroup.Value = 5
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit8.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
    CASE THISFORM.FormatBox.ListIndex = SO_FPX
        THISFORM.SaveBitsGroup.Value = 5
        THISFORM.SaveBitsGroup.Bit1.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit4.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit16.Enabled = .F.
        THISFORM.SaveBitsGroup.Bit32.Enabled = .F.
ENDCASE
ENDPROC
PROCEDURE setflavors
THISFORM.FlavorsBox.Enabled = .T.
THISFORM.FlavorsBox.Clear
THISFORM.OldFlavor = 0
THISFORM.FlavorsBox.Enabled = .F.
DO CASE
    CASE THISFORM.FormatBox.ListIndex = SO_JPEG
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("JFIF 4:1:1")
        THISFORM.FlavorsBox.AddItem ("JFIF 4:2:2")
        THISFORM.FlavorsBox.AddItem ("JFIF 4:4:4")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
    CASE THISFORM.FormatBox.ListIndex = SO_FAX
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("Group 3 - 1D")
        THISFORM.FlavorsBox.AddItem ("Group 3 - 2D")
        THISFORM.FlavorsBox.AddItem ("Group 4")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
    CASE THISFORM.FormatBox.ListIndex = SO_IOCA
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("Group 3 - 1D")
        THISFORM.FlavorsBox.AddItem ("Group 3 - 2D")
        THISFORM.FlavorsBox.AddItem ("Group 4")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
    CASE THISFORM.FormatBox.ListIndex = SO_OS2
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("Type 1")
        THISFORM.FlavorsBox.AddItem ("Type 2")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
    CASE THISFORM.FormatBox.ListIndex = SO_TIF
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("Uncompressed")
        THISFORM.FlavorsBox.AddItem ("CCITT")
        THISFORM.FlavorsBox.AddItem ("CCITT G3 - 1D")
        THISFORM.FlavorsBox.AddItem ("CCITT G3 - 2D")
        THISFORM.FlavorsBox.AddItem ("CCITT G4")
        THISFORM.FlavorsBox.AddItem ("JTIF 4:1:1")
        THISFORM.FlavorsBox.AddItem ("JTIF 4:2:2")
        THISFORM.FlavorsBox.AddItem ("JTIF 4:4:4")
        THISFORM.FlavorsBox.AddItem ("LZW")
        THISFORM.FlavorsBox.AddItem ("CMYK")
        THISFORM.FlavorsBox.AddItem ("LZW CMYK")
        THISFORM.FlavorsBox.AddItem ("Packbits")
        THISFORM.FlavorsBox.AddItem ("Packbits CMYK")
        THISFORM.FlavorsBox.AddItem ("YCC")
        THISFORM.FlavorsBox.AddItem ("LZW YCC")
        THISFORM.FlavorsBox.AddItem ("Packbits YCC")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
    CASE THISFORM.FormatBox.ListIndex = SO_WFX
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("Group 3 - 1D")
        THISFORM.FlavorsBox.AddItem ("Group 4")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
    CASE THISFORM.FormatBox.ListIndex = SO_EXIF
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("Exif")
        THISFORM.FlavorsBox.AddItem ("Exif YCC")
        THISFORM.FlavorsBox.AddItem ("Exif JPEG")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
    CASE THISFORM.FormatBox.ListIndex = SO_FPX
        THISFORM.FlavorsBox.Enabled = .T.
        THISFORM.FlavorsBox.AddItem ("Uncompressed")
        THISFORM.FlavorsBox.AddItem ("Single Color")
        THISFORM.FlavorsBox.AddItem ("JPEG Def. QFactor")
        THISFORM.FlavorsBox.AddItem ("JPEG User QFactor")
        THISFORM.FlavorsBox.ListIndex = 1
        THISFORM.OldFlavor = 1
ENDCASE
ENDPROC
PROCEDURE setqfactor
THISFORM.PredefQ.Enabled = .T.
THISFORM.CustomQ.Enabled = .F.
THISFORM.PredefQ.Clear
DO CASE
    CASE THISFORM.FormatBox.ListIndex = SO_LEAD
        IF THISFORM.SaveBitsGroup.Value = 1
            THISFORM.PredefQ.AddItem ("LEAD_0")
            THISFORM.PredefQ.AddItem ("LEAD_1")
            THISFORM.PredefQ.ListIndex = 1
            THISFORM.CustomQ.Value = 0
            THISFORM.SaveStampCheck.Value = 0
            THISFORM.SaveStampCheck.Enabled = .F.
        ELSE
            THISFORM.PredefQ.AddItem ("PQ1")
            THISFORM.PredefQ.AddItem ("PQ2")
            THISFORM.PredefQ.AddItem ("QFS")
            THISFORM.PredefQ.AddItem ("QMS")
            THISFORM.PredefQ.AddItem ("QS")
            THISFORM.PredefQ.AddItem ("SQS")
            THISFORM.PredefQ.AddItem ("SQT")
            THISFORM.PredefQ.AddItem ("MCQ")
            THISFORM.PredefQ.AddItem ("MC")
            THISFORM.PredefQ.AddItem ("Custom")
            THISFORM.PredefQ.ListIndex = 1
            THISFORM.CustomQ.Value = -1
            THISFORM.SaveStampCheck.Enabled = .T.
        ENDIF
    CASE THISFORM.FormatBox.ListIndex = SO_JPEG
        THISFORM.PredefQ.ListIndex = QF_CUSTOM
        THISFORM.CustomQ.Value = THISFORM.OldCustomQ
        THISFORM.CustomQ.Enabled = .T.
        THISFORM.PredefQ.Enabled = .F.
        THISFORM.SaveStampCheck.Enabled = .T.
    CASE THISFORM.FormatBox.ListIndex = SO_EXIF
        THISFORM.PredefQ.ListIndex = QF_CUSTOM
        THISFORM.CustomQ.Value = THISFORM.OldCustomQ
        THISFORM.CustomQ.Enabled = .T.
        THISFORM.PredefQ.Enabled = .F.
        THISFORM.SaveStampCheck.Enabled = .T.
    CASE THISFORM.FormatBox.ListIndex = SO_FPX
        THISFORM.PredefQ.ListIndex = QF_CUSTOM
        THISFORM.CustomQ.Value = THISFORM.OldCustomQ
        THISFORM.CustomQ.Enabled = .T.
        THISFORM.PredefQ.Enabled = .F.
        THISFORM.SaveStampCheck.Enabled = .T.
    CASE THISFORM.FormatBox.ListIndex = SO_TIF
        IF THISFORM.FlavorsBox.ListIndex >= 6 AND THISFORM.FlavorsBox.ListIndex <= 8
            THISFORM.PredefQ.ListIndex = QF_CUSTOM
            THISFORM.CustomQ.Value = THISFORM.OldCustomQ
            THISFORM.CustomQ.Enabled = .T.
            THISFORM.PredefQ.Enabled = .F.
        ENDIF
        THISFORM.SaveStampCheck.Value = 0
        THISFORM.SaveStampCheck.Enabled = .F.
    OTHERWISE
        THISFORM.SaveStampCheck.Value = 0
        THISFORM.SaveStampCheck.Enabled = .F.
ENDCASE
ENDPROC
PROCEDURE getstampdimensions
PARAMETERS nWidth, nHeight, nBits
nWidth = THISFORM.StampWidth
nHeight = THISFORM.StampHeight
nBits = THISFORM.StampBits
ENDPROC
PROCEDURE Init
THISFORM.UserChoice = .F.
THISFORM.FormatBox.ListIndex = 1
THISFORM.OldFormat = 1
THISFORM.OldFlavor = 0
THISFORM.CustomQ.Value = 2
THISFORM.OldCustomQ = 2
THISFORM.OldBits = 5
THISFORM.SetFlavors
THISFORM.SetBits
THISFORM.SetQFactor
ENDPROC
CCITT FAX (Headerless)
GEM Image
IBM IOCA
Macintosh PICTURE
MacPaint
Microsoft Paint
OS/2 BMP
SUN Raster
Windows BMP
Winfax
Windows RLE BMP
DICOM Gray
DICOM Color
Cursor
FlashPix
THISFORM
FORMATBOX
ADDITEMU
THISFORM
OLDFORMAT
FORMATBOX
LISTINDEX
SETFLAVORS
SETBITS
SETQFACTOR
Init,
Clicka
THISFORM
Click,
Resize
STAMP DIMENSIONS
Width:
Height:
THISFORM
SAVESTAMPCHECK
VALUE
RESIZE
NWIDTH
NHEIGHT
FPALETTIZED
GETUSERRESPONSE
GETSELECTIONS
STAMPWIDTH
STAMPHEIGHT
STAMPBITS
RELEASE
USERCHOICE
Click,
THISFORM
OLDCUSTOMQ
CUSTOMQ
VALUE
InteractiveChange,
THISFORM
PREDEFQ
LISTINDEX
CUSTOMQ
VALUE
OLDCUSTOMQ
ENABLED
SAVEBITSGROUP
Click,
THISFORM
FORMATBOX
LISTINDEX
OLDBITS
SAVEBITSGROUP
VALUE
SETQFACTOR
InteractiveChange,
THISFORM
OLDFLAVOR
FLAVORSBOX
LISTINDEX
SETBITS
SETQFACTOR
Click,
"Arial, 1, 10, 6, 16, 13, 14, 3, 0
Top = 231
Left = 265
Height = 25
Width = 96
Alignment = 1
BackColor = 192,192,192
Caption = "Save \<Stamp"
TabIndex = 11
Name = "SaveStampCheck"
SAVEOPTS
SaveStampCheck
checkbox
checkbox
PROCEDURE Init
THISFORM.FormatBox.AddItem ("LEAD")
THISFORM.FormatBox.AddItem ("JPEG")
THISFORM.FormatBox.AddItem ("CALS")
THISFORM.FormatBox.AddItem ("CCITT FAX (Headerless)")
THISFORM.FormatBox.AddItem ("EPS")
THISFORM.FormatBox.AddItem ("GEM Image")
THISFORM.FormatBox.AddItem ("GIF")
THISFORM.FormatBox.AddItem ("IBM IOCA")
THISFORM.FormatBox.AddItem ("Macintosh PICTURE")
THISFORM.FormatBox.AddItem ("MacPaint")
THISFORM.FormatBox.AddItem ("Microsoft Paint")
THISFORM.FormatBox.AddItem ("OS/2 BMP")
THISFORM.FormatBox.AddItem ("PCX")
THISFORM.FormatBox.AddItem ("PNG")
THISFORM.FormatBox.AddItem ("PSD")
THISFORM.FormatBox.AddItem ("SUN Raster")
THISFORM.FormatBox.AddItem ("TGA")
THISFORM.FormatBox.AddItem ("TIF")
THISFORM.FormatBox.AddItem ("Windows BMP")
THISFORM.FormatBox.AddItem ("Winfax")
THISFORM.FormatBox.AddItem ("WMF")
THISFORM.FormatBox.AddItem ("WPG")
THISFORM.FormatBox.AddItem ("Windows RLE BMP")
THISFORM.FormatBox.AddItem ("DICOM Gray")
THISFORM.FormatBox.AddItem ("DICOM Color")
THISFORM.FormatBox.AddItem ("Icon")
THISFORM.FormatBox.AddItem ("Cursor")
THISFORM.FormatBox.AddItem ("AWD")
THISFORM.FormatBox.AddItem ("EXIF")
THISFORM.FormatBox.AddItem ("FlashPix")
ENDPROC
PROCEDURE Click
If THISFORM.OldFormat <> THISFORM.FormatBox.ListIndex
    THISFORM.SetFlavors
    THISFORM.SetBits
    THISFORM.SetQFactor
    THISFORM.OldFormat = THISFORM.FormatBox.ListIndex
ENDIF
ENDPROC
RHeight = 181
Left = 13
TabIndex = 2
Top = 24
Width = 180
Name = "FormatBox"
SAVEOPTS
    FormatBox
listbox
listbox
)PROCEDURE Click
THISFORM.Hide
ENDPROC
rTop = 268
Left = 204
Height = 25
Width = 61
Cancel = .T.
Caption = "Cancel"
TabIndex = 13
Name = "Cancel"
SAVEOPTS
Cancel
commandbutton
commandbutton
OPROCEDURE Click
fOK = .T.
IF THISFORM.SaveStampCheck.Value = 1
    DO FORM Resize WITH "STAMP DIMENSIONS", "Width:", 1, 125, 64, 1, "Height:", 1, 125, 64, 1, FORMTYPE_STAMP
    nWidth = 0
    nHeight = 0
    fPalettized = .F.
    fOK = Resize.GetUserResponse()
    IF fOK = .T.
       Resize.GetSelections (@nWidth, @nHeight, @fPalettized)
       THISFORM.StampWidth = nWidth
       THISFORM.StampHeight = nHeight
       IF fPalettized
            THISFORM.StampBits = 8
        ELSE
            THISFORM.StampBits = 24
        ENDIF
    ENDIF
    Resize.Release
ENDIF
IF fOK
    THISFORM.UserChoice = .T.
    THISFORM.Hide
ENDIF
ENDPROC
kTop = 268
Left = 108
Height = 25
Width = 61
Caption = "OK"
Default = .T.
TabIndex = 12
Name = "OK"
SAVEOPTS
commandbutton
commandbutton
Top = 207
Left = 289
Height = 25
Width = 72
Alignment = 1
BackColor = 192,192,192
Caption = "\<Append"
TabIndex = 11
Name = "AppendCheck"
SAVEOPTS
AppendCheck
checkbox
checkbox
VPROCEDURE InteractiveChange
THISFORM.OldCustomQ = THISFORM.CustomQ.Value
ENDPROC
Height = 25
InputMask = "999"
KeyboardHighValue = 255
KeyboardLowValue = 2
Left = 217
SpinnerHighValue = 255.00
SpinnerLowValue =   2.00
TabIndex = 10
Top = 170
Width = 132
Name = "CustomQ"
SAVEOPTS
CustomQ
spinner
spinner
PROCEDURE Click
IF THISFORM.PredefQ.ListIndex = QF_CUSTOM
    THISFORM.CustomQ.Value = THISFORM.OldCustomQ
    THISFORM.CustomQ.Enabled = .T.
    IF THISFORM.SaveBitsGroup.Value = 1
        THISFORM.CustomQ.Enabled = .F.
        THISFORM.CustomQ.Value = THISFORM.PredefQ.ListIndex - 1
    ELSE
        THISFORM.CustomQ.Enabled = .F.
        THISFORM.CustomQ.Value = -THISFORM.PredefQ.ListIndex
    ENDIF
ENDIF
ENDPROC
\Height = 25
Left = 216
Style = 2
TabIndex = 9
Top = 137
Width = 133
Name = "PredefQ"
SAVEOPTS
PredefQ
combobox
combobox
BackColor = 192,192,192
Caption = "\<QFactor:"
Height = 18
Left = 204
Top = 109
Width = 61
TabIndex = 7
Name = "QFactorLabel"
SAVEOPTS
QFactorLabel
label
label
ButtonCount = 0
BackColor = 192,192,192
Value = 1
Height = 76
Left = 204
Top = 128
Width = 157
TabIndex = 8
Name = "QFactorGroup"
SAVEOPTS
QFactorGroup
optiongroup
optiongroup
BackColor = 192,192,192
Caption = "\<Pixel Depth:"
Height = 18
Left = 204
Top = 6
Width = 78
TabIndex = 5
Name = "Label1"
SAVEOPTS
Label1
label
label
PROCEDURE InteractiveChange
IF THISFORM.FormatBox.ListIndex = SO_LEAD
   IF THISFORM.OldBits = 1 Or THISFORM.SaveBitsGroup.Value = 1
        THISFORM.SetQFactor
    ENDIF
ENDIF
THISFORM.OldBits = THISFORM.SaveBitsGroup.Value
ENDPROC
ButtonCount = 6
BackColor = 192,192,192
Value = 1
Height = 73
Left = 204
Top = 24
Width = 157
TabIndex = 6
Name = "SaveBitsGroup"
Option1.BackColor = 192,192,192
Option1.Caption = "\<1 Bit"
Option1.Value = 1
Option1.Height = 18
Option1.Left = 5
Option1.Top = 6
Option1.Width = 68
Option1.Name = "Bit1"
Option2.BackColor = 192,192,192
Option2.Caption = "\<4 Bits"
Option2.Value = 0
Option2.Height = 18
Option2.Left = 5
Option2.Top = 27
Option2.Width = 68
Option2.Name = "Bit4"
Option3.BackColor = 192,192,192
Option3.Caption = "\<8 Bits"
Option3.Value = 0
Option3.Height = 18
Option3.Left = 5
Option3.Top = 49
Option3.Width = 68
Option3.Name = "Bit8"
Option4.BackColor = 192,192,192
Option4.Caption = "1\<6 Bits"
Option4.Value = 0
Option4.Height = 18
Option4.Left = 84
Option4.Top = 6
Option4.Width = 68
Option4.Name = "Bit16"
Option5.BackColor = 192,192,192
Option5.Caption = "\<24 Bits"
Option5.Value = 0
Option5.Height = 18
Option5.Left = 84
Option5.Top = 27
Option5.Width = 68
Option5.Name = "Bit24"
Option6.BackColor = 192,192,192
Option6.Caption = "\<32 Bits"
Option6.Value = 0
Option6.Height = 18
Option6.Left = 84
Option6.Top = 49
Option6.Width = 68
Option6.Name = "Bit32"
SAVEOPTS
SaveBitsGroup
optiongroup
optiongroup
BackColor = 192,192,192
Caption = "\<Format:"
Height = 18
Left = 12
Top = 6
Width = 61
TabIndex = 1
Name = "FormatLabel"
SAVEOPTS
FormatLabel
label
label
BackColor = 192,192,192
Caption = "Fla\<vors:"
Height = 18
Left = 12
Top = 211
Width = 61
TabIndex = 3
Name = "FlavorsLabel"
SAVEOPTS
FlavorsLabel
label
label
PROCEDURE Click
IF THISFORM.OldFlavor <> THISFORM.FlavorsBox.ListIndex
    THISFORM.SetBits
    THISFORM.SetQFactor
    THISFORM.OldFlavor = THISFORM.FlavorsBox.ListIndex
ENDIF
ENDPROC
^Height = 24
Left = 12
Style = 2
TabIndex = 4
Top = 228
Width = 181
Name = "FlavorsBox"
SAVEOPTS
FlavorsBox
combobox
combobox
fuserchoice
userchoice
oldformat
oldflavor
oldcustomq
oldbits
stampwidth
stampheight
stampbits
*getuserselections
*setbits
*setflavors
*setqfactor
*getstampdimensions
FUSERGO
NBITS
NFORMAT
NQFACTOR
FAPPEND
FSTAMP
THISFORM
USERCHOICE
SAVEBITSGROUP
VALUE
APPENDCHECK
SAVESTAMPCHECK
FORMATBOX
LISTINDEX
PREDEFQ
CUSTOMQ
FLAVORSBOX
FILE_GEM
FILE_JTIF1JTIF
THISFORM
SAVEBITSGROUP
ENABLED
BIT16
BIT24
BIT32
VALUE
SAVESTAMPCHECK
FORMATBOX
LISTINDEX
FLAVORSBOX
JFIF 4:1:1
JFIF 4:2:2
JFIF 4:4:4
Group 3 - 1D
Group 3 - 2D
Group 4
Group 3 - 1D
Group 3 - 2D
Group 4
Type 1
Type 2
Uncompressed
CCITT
CCITT G3 - 1D
CCITT G3 - 2D
CCITT G4
JTIF 4:1:1
JTIF 4:2:2
JTIF 4:4:4
LZW CMYK
Packbits
Packbits CMYK
LZW YCC
Packbits YCC
Group 3 - 1D
Group 4
Exif YCC
Exif JPEG
Uncompressed
Single Color
JPEG Def. QFactor
JPEG User QFactor
THISFORM
FLAVORSBOX
ENABLED
CLEAR
OLDFLAVOR
FORMATBOX
LISTINDEX
ADDITEME
LEAD_0
LEAD_1
Custom
THISFORM
PREDEFQ
ENABLED
CUSTOMQ
CLEAR
FORMATBOX
LISTINDEX
SAVEBITSGROUP
VALUE
ADDITEM
SAVESTAMPCHECK
OLDCUSTOMQ
FLAVORSBOXB
NWIDTH
NHEIGHT
NBITS
THISFORM
STAMPWIDTH
STAMPHEIGHT
STAMPBITS
THISFORM
USERCHOICE
FORMATBOX
LISTINDEX
OLDFORMAT
OLDFLAVOR
CUSTOMQ
VALUE
OLDCUSTOMQ
OLDBITS
SETFLAVORS
SETBITS
SETQFACTOR
getuserselections,
setbitsu
setflavors
setqfactor
getstampdimensions
LEADTOOLS OLE Control Demo in Visual FoxPro
PROCS.PRG
Viewer
demomenu.mpr
s_pic
GZOOMFACTOR
GFCANCEL
GFSTUDENTLOADED
GMAINTITLE
GHALFVIEW
GHALFPRINT
GDITHERORDERED
GDITHERDIFFUSION
GBITONALNORMAL
GBITONALSCALETOGRAY
GBITONALFAVORBLACK
NORMALMOVE
OLDPOSITION
NEWPOSITION
VIEWER
DEMOMENU
BITONAL
DITHERING
LEAD1
DBISOPEN
DBCLOSE
S_PIC
RELEASE9
ODBC;
s_pic
picture
s_name
VIEWER
LEAD1
DBOPEN
DBREQUERY
S_NAME
GFSTUDENTLOADED
COMMANDGROUP1
ENABLED
COMMANDGROUP2
CADDNEW
CDELETE
CSAVE
CNEXT
CPREV
CFIRST
CLAST
LABEL1
LABEL3
STUDENTNAME
LABEL2
SEARCHSTRING
FINDFIRST
FINDNEXT
INSTRUCTIONS
VISIBLE
CLICK
REFRESH
DBISBOFV
cmp;jpg;jff;jtf;bmp;tif;tga;pcx;cal;mac;img;msp;wpg;ras;pct;pcd;eps;wmf
OpenOpts
Error CC
, loading file '
LOAD ERROR
NBITS
NPAGE
FPAINTWL
VIEWER
FPAINTWHILELOAD
FSTAMP
FILENAME
FSHOWOPENOPTS
OPENOPTS
GETUSERSELECTIONS
RELEASE
LEAD1
PAINTWHILELOAD
NRET
LOADSTAMP
NTEMP
FORCEREPAINT
VIEWIMAGE
SETINFO
SaveOpts
Error CC
, saving file '
SAVE ERROR
File is saved
Notice
SAVEFILE
NBITS
NFORMAT
NQFACTOR
FAPPEND
FSTAMP
SAVEOPTS
GETUSERSELECTIONS
NSTAMPWIDTH
NSTAMPHEIGHT
NSTAMPBITS
GETSTAMPDIMENSIONS
VIEWER
LEAD1
SAVEWITHSTAMP
RELEASE
NTEMP0
RGB Blue
RGB Green
RGB Red
CMYK Cyan
CMYK Magenta
CMYK Yellow
CMYK Black
HSV Hue
HSV Saturation
HSV Value
HLS Hue
HLS Lightness
HLS Saturation
CMY Cyan
CMY Magenta
CMY Yellow
Select the file containing the 'C
' plane.
Merge Data
Merged Data
Error 'CC
' merging the planes.
Merge Error
NINDEX
THEPLANES
NUMPLANES
NTEMP
THEFILENAME
VIEWER
LEAD2
BITMAP
LEAD1
COLORPLANES
STATUSINIT
COLORMERGE
FILENAME
STATUSTERM[
Captured Data
VIEWER
LEAD1
CAPTURE
WIDTH
HEIGHT
FILENAME
SETINFO
VIEWNORMAL
VIEWER
LEAD1
TWAINSELECT
Error 'CC
' scanning the image.
Scan Error
Twain Data
SAVEDSETTING
VIEWER
LEAD1
ENABLEMETHODERRORS
TWAINACQUIRE
NTEMP
FILENAME
SETINFO
VIEWNORMALn
VIEWER
MOUSEWAIT
LEAD1
PRINTSTART
RENDER
BITMAPWIDTH
BITMAPHEIGHT
PRINTEND
MOUSERESTORE5
VIEWER
LEAD1
BITMAP
Clipboard Data
VIEWER
LEAD1
PASTE
STATUSINIT
STATUSTERM
FILENAME
SETINFO
FORCEREPAINT}
VIEWER
STATUSINIT
LEAD1
PAINTEFFECT
FORCEREPAINT
CAPTION
GMAINTITLE
STATUSTERM(
VIEWER
STATUSINIT
LEAD1
STATUSTERM(
VIEWER
STATUSINIT
LEAD1
REVERSE
STATUSTERM8
GetValue
ROTATE
Angle:
NANGLE
VIEWER
LEAD1
ROTATE
GETVALUE
NUSERGO
GETUSERRESPONSE
STATUSINIT
STATUSTERM
RELEASE
RESETRECTS
GetValue
SHEAR
Angle:
GetIndex
SHEAR
Direction:
Horizontal;Vertical
GETVALUE
NUSERGO
GETUSERRESPONSE
GETINDEX
BHORIZONTAL
VIEWER
STATUSINIT
LEAD1
SHEAR
STATUSTERM
RESETRECTS
RELEASE6
VIEWER
STATUSINIT
LEAD1
DESKEW
STATUSTERM
RESETRECTS[
Resize
RESIZE
Width:
Height:
RESIZE
VIEWER
LEAD1
BITMAPWIDTH
BITMAPHEIGHT
NWIDTH
NHEIGHT
FRESAMPLE
NUSERGO
GETUSERRESPONSE
GETSELECTIONS
NRESAMPLETYPE
STATUSINIT
STATUSTERM
RESETRECTS
RELEASE
GetValue
POSTERIZE
Levels:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
POSTERIZE
STATUSTERM
RELEASE
GetValue
MOSAIC
Dimension:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
MOSAIC
STATUSTERM
RELEASE
GetValue
AVERAGE
Dimension:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
AVERAGE
STATUSTERM
RELEASE
GetValue
MEDIAN
Dimension:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
MEDIAN
STATUSTERM
RELEASE
GetValue
SHARPEN
Percent:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SHARPEN
STATUSTERM
RELEASE(
VIEWER
STATUSINIT
LEAD1
DESPECKLE
STATUSTERM
GetValue
ADD NOISE
Percent:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
ADDNOISE
STATUSTERM
RELEASE[
GetValue
EMBOSS
Depth:
GetIndex
EMBOSS
Direction:
North;North-East;East;South-East;South;South-West;West;North-West
GETVALUE
NUSERGO
GETUSERRESPONSE
GETINDEX
VIEWER
STATUSINIT
LEAD1
EMBOSS
STATUSTERM
RELEASE
Select the file containing the underlay image.
Underlay Data
Error 'CC
' underlaying the image.
Underlay Error
Error 'CC
' loading the underlay image.
Underlay Error
NTEMP
THEFILENAME
VIEWER
LEAD2
STATUSINIT
LEAD1
UNDERLAY
BITMAP
STATUSTERM
Image must be 24-Bit for this effect.  Use 'Color' / 'Resolution' first.
Edge Enhance Error
Error 'CC
' enhancing the edges of the image.
Underlay Error
Error 'CC
' preparing the edges for enhancement.
Underlay Error
VIEWER
LEAD1
BITMAPBITS
NTEMP
LEAD2
BITMAP
MOUSEWAIT
SPATIALFILTER
STATUSINIT
COMBINE
BITMAPWIDTH
BITMAPHEIGHT
STATUSTERM
GetIndex
GRADIENT
Direction:
North;North-East;East;South-East;South;South-West;West;North-West
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SPATIALFILTER
STATUSTERM
RELEASE
GetIndex
LAPLACIAN
Filter:
Filter 1;Filter 2;Filter 3;Diagonal;Horizontal;Vertical
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SPATIALFILTER
STATUSTERM
RELEASE
GetIndex
SOBEL
Direction:
Horizontal;Vertical
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SPATIALFILTER
STATUSTERM
RELEASE
GetIndex
PREWITT
Direction:
Horizontal;Vertical
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SPATIALFILTER
STATUSTERM
RELEASE5
GetIndex
SHIFT AND DIFFERENCE
Direction:
Diagonal;Horizontal;Vertical
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SPATIALFILTER
STATUSTERM
RELEASE^
GetIndex
LINE SEGMENT
Direction:
Horizontal;Vertical;Left To Right;Right To Left
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SPATIALFILTER
STATUSTERM
RELEASEK
GetIndex
EROSION
Direction:
Omni;Horizontal;Vertical;Diagonal
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
BINARYFILTER
STATUSTERM
RELEASEL
GetIndex
DILATION
Direction:
Omni;Horizontal;Vertical;Diagonal
GETINDEX
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
BINARYFILTER
STATUSTERM
RELEASE
GetValue
HALFTONE
Angle:
HALFTONETYPE
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
HALFTONE
STATUSTERM
RELEASE2
VIEWER
STATUSINIT
LEAD1
GRAYSCALE
STATUSTERM
ColorRes
COLORRES
NBITS
NPALETTE
NDITHER
NUSERGO
GETUSERRESPONSE
GETSELECTIONS
VIEWER
STATUSINIT
LEAD1
STATUSTERM
RELEASE(
VIEWER
STATUSINIT
LEAD1
INVERT
STATUSTERM
GetValue
BRIGHTNESS
Percent:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
INTENSITY
STATUSTERM
RELEASE
GetValue
CONTRAST
Percent:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
CONTRAST
STATUSTERM
RELEASE
GetValue
HISTOGRAM CONTRAST
Percent:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
HISTOCONTRAST
STATUSTERM
RELEASE
GetValue
Degree:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
STATUSTERM
RELEASE
GetValue
SATURATION
Percent:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
SATURATION
STATUSTERM
RELEASE(
VIEWER
STATUSINIT
LEAD1
HISTOEQUALIZE
STATUSTERM(
VIEWER
STATUSINIT
LEAD1
STRETCHINTENSITY
STATUSTERM
GetValue
GAMMA CORRECT
Gamma:
GETVALUE
NUSERGO
GETUSERRESPONSE
VIEWER
STATUSINIT
LEAD1
GAMMACORRECT
STATUSTERM
RELEASE
Resize
INTENSITY DETECT
Low Value:
High Value:
RESIZE
NHIGH
FTEMP
NUSERGO
GETUSERRESPONSE
GETSELECTIONS
VIEWER
STATUSINIT
LEAD1
INTENSITYDETECT
STATUSTERM
RELEASER
NCOLOR
VIEWER
STATUSINIT
LEAD1
STATUSTERM
RGB_B.BMP
RGB_G.BMP
RGB_R.BMP
CMYK_C.BMP
CMYK_M.BMP
CMYK_Y.BMP
CMYK_K.BMP
HSV_H.BMP
HSV_S.BMP
HSV_V.BMP
HLS_H.BMP
HLS_L.BMP
HLS_S.BMP
CMY_C.BMP
CMY_M.BMP
CMY_Y.BMP
Error 'CC
' saving the '
' plane.
Color Separate Error
Planes have been saved to the directory '
' as BMP files like '
', etc.
Color Separation Success
Error 'CC
' separating the image into planes.
Color Separate Error
NINDEX
THEPLANES
VIEWER
STATUSINIT
LEAD1
COLORSEPARATE
STATUSTERM
MOUSEWAIT
NUMPLANES
THEDIR
LEAD2
BITMAP
COLORPLANES
MOUSERESTORE
NTEMP
NDITHERTYPE
VIEWER
LEAD1
PAINTDITHER
DITHERING
FORCEREPAINT.
NBITONALTYPE
VIEWER
LEAD1
BITONALSCALING
FORCEREPAINTu
VIEWER
FPAINTWHILELOAD
LEAD1
PAINTWHILELOAD
PREFERENCE
VIEWER
LEAD1
PAINTPALETTE
PREFERENCE/
VIEWER
FSHOWOPENOPTS
PREFERENCE
About
ABOUT
RELEASE
FileOpenDatabase,
FileLoadImage2
FileSaveImage`
FileMerge4
FileScreenCapture
FileTwainSelect
FileTwainAcquire
FilePrintP
EditCopy(
EditPaste~
ViewDemoEffects
ImageFliph
ImageReverse
ImageRotate
ImageShear
ImageDeskew
ImageResize[
EffectsPosterizey
EffectsMosaic
EffectsAverage
EffectsMedian
EffectsSharpen
EffectsDespeckle
EffectsAddNoise
EffectsEmboss
EffectsUnderlay
EffectsEdgeEnhance
SpatialGradient
SpatialLaplacian
SpatialSobel
SpatialPrewittN.
SpatialShiftDiff
SpatialLineSegR1
BinaryErosion
BinaryDilation
ColorHalftonez6
ColorGrayscale
ColorResolution#8
ColorInvertf9
ColorBrightness
ColorContrast
ColorHistoContrast
ColorHue
ColorSaturation
ColorHistoEqualization
ColorStretchIntensityt?
ColorGammaCorrect
ColorIntensityDetect
ColorFill
ColorSeparate=C
PrefsDithering
PrefsBitonal
PrefsPWL
PrefsProgress
PrefsFixedPalette
PrefsShowOpenOpts[K
HelpAbout
\<File
Creates, opens, saves, prints files or quits Visual FoxPro
ALT+F
\<Edit
Edits text or current selection
ALT+E
\<View
Changes display options
ALT+V
\<Image
ALT+I
\<Color
ALT+C
\<Preferences
ALT+P
\<Tools
Sets options, runs Wizards and other tools
ALT+T
\<Program
Runs, debugs, compiles, and suspends programs
ALT+P
\<Window
Manipulates windows, displays Command and View windows
ALT+W
\<Help
Displays Help on Visual FoxPro
ALT+H
\<New...
Creates a new file
CTRL+N
Ctrl+N
\<Open...
Opens an existing file
CTRL+O
Ctrl+O
\<Close
Closes the current file
Close All
Closes all windows
Open \<Database
\<Load Image...
\<Save
Saves changes to the current file
CTRL+S
Ctrl+S
Save \<As...
Saves changes to the current file with a new name
\<Revert
Reverts the current file to the last saved version
\<Save Image...
\<Import...
Imports a Visual FoxPro file or a file from another application
\<Export...
Exports a Visual FoxPro file to another application's file
\<Merge
Screen \<Capture
Ac\<quire...
Se\<lect Source...
Page Set\<up...
Changes the page layout and printer settings
Print Pre\<view
Displays full pages as they will be printed
\<Print...
Print the Image from the LEAD Control
CTRL+P
Ctrl+P
Sen\<d...
Displays Mail window for sending e-mail
Q\<uit Application
E\<xit
Quits Visual FoxPro
DO _rqn0s5uwu  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uwy  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5ux1  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5ux5  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5ux9  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uxc  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uxf  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uxj  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<RGB
CMY\<K
HS\<V
H\<LS
\<CMY
DO _rqn0s5uxs  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uxv  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uxz  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uy2  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uy5  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Undo
Undoes the last command or action
CTRL+Z
Ctrl+Z
Re\<do
Repeats the last command or action
CTRL+R
Ctrl+R
Cu\<t
Removes the selection and places it onto the Clipboard
CTRL+X
Ctrl+X
\<Copy
Copies the Image onto the Clipboard
CTRL+C
Ctrl+C
\<Paste
Pastes the contents of the Clipboard
CTRL+V
Ctrl+V
Paste \<Special...
Pastes the Clipboard contents as a linked object, embedded object, or other object type
Cle\<ar
Removes the selection and does not place it onto the Clipboard
Se\<lect All
Selects all text or items in the current window
CTRL+A
Ctrl+A
\<Find...
Searches for specified text
CTRL+F
Ctrl+F
R\<eplace...
Replaces specified text with different text
CTRL+L
Ctrl+L
\<Insert Object...
Embeds an object in a General field type
\<Object...
Edits the selected object
Lin\<ks...
Opens linked files or changes links
DO _rqn0s5uys  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uyv  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Normal
\<Zoom...
\<Fit Image To Window
\<Stretch Image To Window
\<Demo Effects
\<Toolbars...
Shows, hides, or customizes toolbars
DO _rqn0s5uz9  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uzc  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uzf  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uzj  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5uzm  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Flip
\<Reverse
R\<otate
\<Shear...
\<Deskew
R\<esize...
Effe\<cts
S\<patial Filters
\<Binary Filters
DO _rqn0s5v01  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v04  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v07  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v0a  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v0e  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<90 Degrees
\<180 Degrees
\<270 Degrees
\<Any Angle...
DO _rqn0s5v0o  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v0r  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v0u  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v0y  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Posterize...
\<Mosaic...
\<Average...
M\<edian...
\<Sharpen...
\<Despeckle
Add \<Noise...
Em\<boss...
\<Underlay...
Ed\<ge Enhance
DO _rqn0s5v1b  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v1e  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v1h  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v1k  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v1n  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v1q  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v1u  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v1x  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v20  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v23  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Gradient...
\<Laplacian...
\<Sobel...
\<Prewitt...
S\<hift and Difference...
L\<ine Segment...
DO _rqn0s5v2e  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v2h  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v2l  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v2o  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v2r  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v2u  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Erosion...
\<Dilation...
DO _rqn0s5v33  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v36  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Halftone
\<Grayscale
\<Resolution...
\<Invert
\<Brightness...
\<Contrast...
Histogram C\<ontrast
\<Hue...
\<Saturation...
Histogram E\<qualize
S\<tretch Intensity
Ga\<mma Correct...
Intensity \<Detect...
\<Fill...
S\<eparation
DO _rqn0s5v3p  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v3s  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v3v  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v3y  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v42  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v45  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v48  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v4b  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v4e  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v4h  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v4k  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v4o  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v4r  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<View...
\<Print...
DO _rqn0s5v4z  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v52  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<RGB
CMY\<K
HS\<V
H\<LS
\<CMY
DO _rqn0s5v5d  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v5g  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v5j  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v5m  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v5p  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Dithering
\<Bitonal Scaling
Paint While \<Load
\<Progress Bar
\<Fixed Palette
\<Show Open Options
DO _rqn0s5v61  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v64  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v68  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v6b  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Ordered
\<Error Diffusion
DO _rqn0s5v6j  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v6m  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Normal
\<Scale To Gray
\<Favor Black
DO _rqn0s5v6v  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v6z  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
DO _rqn0s5v72  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
\<Wizards
Runs the selected wizard
\<Spelling...
Checks spelling
M\<acros...
Creates, deletes, or revises a keyboard macro
\<Trace Window
Displays the Trace window
De\<bug Window
Displays the Debug window
\<Options...
Changes various categories for Visual FoxPro options
\<Table
Runs the Table Wizard
\<Query
Runs the Query, Cross-Tab, Graph, Local View, and Remote View Wizards
\<Form
Runs the Form and One-to-Many Form Wizards
\<Report
Runs the Report and One-to-Many Report Wizards
\<Label
Runs the Label Wizard
\<Mail Merge
Runs the Mail Merge Wizard
\<PivotTable
Runs the PivotTable Wizard
\<Import
Runs the Import Wizard
\<Documenting
Runs the Documenting Wizard
\<Setup
Runs the Setup Wizard
\<Upsizing
Runs the Upsizing Wizard
\<All
Displays a list of all wizards
\<Do...
Runs a program, application, form, report, query, or menu
CTRL+D
Ctrl+D
\<Cancel
Stops running the current program
\<Resume
Resumes running the current suspended program
CTRL+M
Ctrl+M
\<Suspend
Suspends the currently running program
Co\<mpile...
Compiles the current or selected program
\<Arrange All
Arranges windows as non-overlapping tiles
\<Hide
Hides the active window
Hide All
Hides all windows
Sh\<ow All
Shows all hidden windows
Clea\<r
Clears text from the application workspace or the current output window
C\<ycle
Cycles through all open windows
CTRL+F1
Ctrl+F1
\<Command Window
Displays the Command window
CTRL+F2
Ctrl+F2
\<View Window
Displays the View window
\<Contents
Displays Help table of contents
\<Search for Help on...
Searches for Help topics by keyword
\<Technical Support
Displays Help on technical support and common questions for Microsoft Visual FoxPro
\<Office Compatible
Displays information about Microsoft Office compatibility
\<About Microsoft Visual FoxPro...
Displays information about Visual FoxPro and the system configuration
About \<LEADTOOLS Demo...
DO _rqn0s5v8z  IN LOCFILE("FOX\DEMOMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is DEMOMENU?")
VIEWER
LEAD1
BITMAP
_RQN0S5UVG
_RQN0S5UVI
_RQN0S5UVK
IMAGE
COLOR
PREFERENCE
GFSTUDENTLOADED
MERGE
ROTATE
EFFECTS
SPATIALFIL
BINARYFILT
HALFTONE
SEPARATION
DITHERING
BITONAL
FILEOPENDATABASE
FILELOADIMAGE
FILESAVEIMAGE
FILESCREENCAPTURE
FILETWAINACQUIRE
FILETWAINSELECT
FILEPRINT
FILEMERGE
FILEMERGE
FILEMERGE
FILEMERGE
FILEMERGE
EDITCOPY
EDITPASTE
VIEWER
VIEWNORMAL
VIEWER
VIEWZOOM
VIEWER
VIEWFIT
VIEWER
VIEWSTRETCH
VIEWDEMOEFFECTS
IMAGEFLIP
IMAGEREVERSE
IMAGESHEAR
IMAGEDESKEW
IMAGERESIZE
IMAGEROTATE
IMAGEROTATE
IMAGEROTATE
IMAGEROTATE
EFFECTSPOSTERIZE
EFFECTSMOSAIC
EFFECTSAVERAGE
EFFECTSMEDIAN
EFFECTSSHARPEN
EFFECTSDESPECKLE
EFFECTSADDNOISE
EFFECTSEMBOSS
EFFECTSUNDERLAY
EFFECTSEDGEENHANCE
SPATIALGRADIENT
SPATIALLAPLACIAN
SPATIALSOBEL
SPATIALPREWITT
SPATIALSHIFTDIFF
SPATIALLINESEG
BINARYEROSION
BINARYDILATION
COLORGRAYSCALE
COLORRESOLUTION
COLORINVERT
COLORBRIGHTNESS
COLORCONTRAST
COLORHISTOCONTRAST
COLORHUE
COLORSATURATION
COLORHISTOEQUALIZATION
COLORSTRETCHINTENSITY
COLORGAMMACORRECT
COLORINTENSITYDETECT
COLORFILL
COLORHALFTONE
GHALFVIEW
COLORHALFTONE
GHALFPRINT
COLORSEPARATE
COLORSEPARATE
COLORSEPARATE
COLORSEPARATE
COLORSEPARATE
PREFSPWL
PREFSPROGRESS
PREFSFIXEDPALETTE
PREFSSHOWOPENOPTS
PREFSDITHERING
GDITHERORDERED
PREFSDITHERING
GDITHERDIFFUSION0
PREFSBITONAL
GBITONALNORMAL
BITONAL0
PREFSBITONAL
GBITONALSCALETOGRAY
BITONAL0
PREFSBITONAL
GBITONALFAVORBLACK
BITONAL
HELPABOUT
_rqn0s5uwu$E
_rqn0s5uwyDE
_rqn0s5ux1aE
_rqn0s5ux5~E
_rqn0s5ux9
_rqn0s5uxc
_rqn0s5uxf
_rqn0s5uxj
_rqn0s5uxs
_rqn0s5uxv"F
_rqn0s5uxzAF
_rqn0s5uy2`F
_rqn0s5uy5
_rqn0s5uys
_rqn0s5uyv
_rqn0s5uz9
_rqn0s5uzc
_rqn0s5uzf
_rqn0s5uzj9G
_rqn0s5uzm_G
_rqn0s5v01~G
_rqn0s5v04
_rqn0s5v07
_rqn0s5v0a
_rqn0s5v0e
_rqn0s5v0o
_rqn0s5v0r$H
_rqn0s5v0uEH
_rqn0s5v0ygH
_rqn0s5v1b
_rqn0s5v1e
_rqn0s5v1h
_rqn0s5v1k
_rqn0s5v1n
_rqn0s5v1q
_rqn0s5v1u>I
_rqn0s5v1x]I
_rqn0s5v20zI
_rqn0s5v23
_rqn0s5v2e
_rqn0s5v2h
_rqn0s5v2l
_rqn0s5v2o
_rqn0s5v2r4J
_rqn0s5v2uTJ
_rqn0s5v33rJ
_rqn0s5v36
_rqn0s5v3p
_rqn0s5v3s
_rqn0s5v3v
_rqn0s5v3y
_rqn0s5v42$K
_rqn0s5v45AK
_rqn0s5v48cK
_rqn0s5v4b{K
_rqn0s5v4e
_rqn0s5v4h
_rqn0s5v4k
_rqn0s5v4o
_rqn0s5v4r*L
_rqn0s5v4zCL
_rqn0s5v52oL
_rqn0s5v5d
_rqn0s5v5g
_rqn0s5v5j
_rqn0s5v5m
_rqn0s5v5p(M
_rqn0s5v61KM
_rqn0s5v64cM
_rqn0s5v68
_rqn0s5v6b
_rqn0s5v6j
_rqn0s5v6m
_rqn0s5v6v(N
_rqn0s5v6z
_rqn0s5v72
_rqn0s5v8zBO
&& ColorResPaletteConstants
#DEFINE CRP_FIXEDPALETTE 1
#DEFINE CRP_OPTIMIZEDPALETTE 2
#DEFINE CRP_BYTEORDERBGR 4
#DEFINE CRP_BYTEORDERRGB 0
#DEFINE CRP_IDENTITYPALETTE 8
#DEFINE CRP_USERPALETTE 16
#DEFINE CRP_NETSCAPEPALETTE 64
&& ColorResDitherConstants
#DEFINE CRD_NODITHERING 0
#DEFINE CRD_FLOYDSTEINDITHERING 1
#DEFINE CRD_STUCKIDITHERING 2
#DEFINE CRD_BURKESDITHERING 3
#DEFINE CRD_SIERRADITHERING 4
#DEFINE CRD_STEVENSONARCEDITHERING 5
#DEFINE CRD_JARVISDITHERING 6
#DEFINE CRD_ORDEREDDITHERING 7
&& PaintEffectConstants
#DEFINE EFX_EFFECT_NONE                    0
#DEFINE EFX_EFFECT_NO_PICTURE              1
#DEFINE EFX_EFFECT_LEFT_TO_RIGHT           2
#DEFINE EFX_EFFECT_RIGHT_TO_LEFT           3
#DEFINE EFX_EFFECT_TOP_TO_BOTTOM           4
#DEFINE EFX_EFFECT_BOTTOM_TO_TOP           5
#DEFINE EFX_EFFECT_DIAG_TL_TO_BR           6
#DEFINE EFX_EFFECT_DIAG_BL_TO_TR           7
#DEFINE EFX_EFFECT_DIAG_TR_TO_BL           8
#DEFINE EFX_EFFECT_DIAG_BR_TO_TL           9
#DEFINE EFX_EFFECT_DBL_DIAG_TL_TO_BR       10
#DEFINE EFX_EFFECT_DBL_DIAG_TR_TO_BL       11
#DEFINE EFX_EFFECT_DIAG_OUT_TL_TO_BR       12
#DEFINE EFX_EFFECT_DIAG_OUT_TR_TO_BL       13
#DEFINE EFX_EFFECT_HORZ_INTERLACE          14
#DEFINE EFX_EFFECT_VERT_INTERLACE          15
#DEFINE EFX_EFFECT_HORZ_DBL_PASS           16
#DEFINE EFX_EFFECT_VERT_DBL_PASS           17
#DEFINE EFX_EFFECT_HORZ_DBL_PASS_2         18
#DEFINE EFX_EFFECT_VERT_DBL_PASS_2         19
#DEFINE EFX_EFFECT_HORZ_BLIND              20
#DEFINE EFX_EFFECT_VERT_BLIND              21
#DEFINE EFX_EFFECT_DBL_BLIND               22
#DEFINE EFX_EFFECT_ZOOM_OUT                23
#DEFINE EFX_EFFECT_ZOOM_IN                 24
#DEFINE EFX_EFFECT_SWIRL_IN                25
#DEFINE EFX_EFFECT_SWIRL_OUT               26
#DEFINE EFX_EFFECT_CORNERS_OUT             27
#DEFINE EFX_EFFECT_CHECKERBOARD            28
#DEFINE EFX_EFFECT_KALEIDOSCOPE            29
#DEFINE EFX_EFFECT_DRIP                    30
#DEFINE EFX_EFFECT_RANDOM_BARS_LEFT        31
#DEFINE EFX_EFFECT_RANDOM_BARS_RIGHT       32
#DEFINE EFX_EFFECT_RANDOM_BARS_UP          33
#DEFINE EFX_EFFECT_RANDOM_BARS_DOWN        34
#DEFINE EFX_EFFECT_RANDOM_LINES            35
#DEFINE EFX_EFFECT_RANDOM_BLOCK            36
#DEFINE EFX_EFFECT_SPARKLE_LEFT            37
#DEFINE EFX_EFFECT_SPARKLE_RIGHT           38
#DEFINE EFX_EFFECT_SPARKLE_UP              39
#DEFINE EFX_EFFECT_SPARKLE_DOWN            40
#DEFINE EFX_EFFECT_SEMICIRCLE_LR           41
#DEFINE EFX_EFFECT_SEMICIRCLE_RL           42
#DEFINE EFX_EFFECT_SEMICIRCLE_IN           43
#DEFINE EFX_EFFECT_SEMICIRCLE_OUT          44
#DEFINE EFX_EFFECT_DIAG_QUAD               45
#DEFINE EFX_EFFECT_CIRCULAR_QUAD           46
#DEFINE EFX_EFFECT_ROTATE_FROM_LEFT        47
#DEFINE EFX_EFFECT_ROTATE_FROM_RIGHT       48
#DEFINE EFX_EFFECT_ROTATE_FROM_TOP         49
#DEFINE EFX_EFFECT_ROTATE_FROM_BOTTOM      50
#DEFINE EFX_EFFECT_HORZ_CENTER_STRETCH     51
#DEFINE EFX_EFFECT_VERT_CENTER_STRETCH     52
#DEFINE EFX_EFFECT_HORZ_STRETCH_TO_CENTER  53
#DEFINE EFX_EFFECT_VERT_STRETCH_TO_CENTER  54
#DEFINE EFX_EFFECT_BLOCKS_TB               55
#DEFINE EFX_EFFECT_BLOCKS_BT               56
#DEFINE EFX_EFFECT_BLOCKS_LR               57
#DEFINE EFX_EFFECT_BLOCKS_RL               58
#DEFINE EFX_EFFECT_GROWING_BLIND_LR        59
#DEFINE EFX_EFFECT_GROWING_BLIND_RL        60
#DEFINE EFX_EFFECT_GROWING_BLIND_TB        61
#DEFINE EFX_EFFECT_GROWING_BLIND_BT        62
#DEFINE EFX_EFFECT_ROLL_LR                 63
#DEFINE EFX_EFFECT_ROLL_RL                 64
#DEFINE EFX_EFFECT_ROLL_TB                 65
#DEFINE EFX_EFFECT_ROLL_BT                 66
#DEFINE EFX_EFFECT_DBL_DIAG_UP             67
#DEFINE EFX_EFFECT_DBL_DIAG_DOWN           68
#DEFINE EFX_EFFECT_DBL_DIAG_LEFT           69
#DEFINE EFX_EFFECT_DBL_DIAG_RIGHT          70
#DEFINE EFX_EFFECT_CLOCKWISE               71
#DEFINE EFX_EFFECT_COUNTER_CLOCKWISE       72
#DEFINE EFX_EFFECT_DBL_CLOCKWISE           73
#DEFINE EFX_EFFECT_DBL_PASS_LEFT_TO_RIGHT  74
#DEFINE EFX_EFFECT_DBL_PASS_RIGHT_TO_LEFT  75
#DEFINE EFX_EFFECT_DBL_PASS_TOP_TO_BOTTOM  76
#DEFINE EFX_EFFECT_DBL_PASS_BOTTOM_TO_TOP  77
#DEFINE EFX_EFFECT_HORZ_WIPE_IN            78
#DEFINE EFX_EFFECT_HORZ_WIPE_OUT           79
#DEFINE EFX_EFFECT_VERT_WIPE_IN            80
#DEFINE EFX_EFFECT_VERT_WIPE_OUT           81
#DEFINE EFX_EFFECT_DBL_PASS_HORZ_WIPE_IN   82
#DEFINE EFX_EFFECT_DBL_PASS_HORZ_WIPE_OUT  83
#DEFINE EFX_EFFECT_DBL_PASS_VERT_WIPE_IN   84
#DEFINE EFX_EFFECT_DBL_PASS_VERT_WIPE_OUT  85
#DEFINE EFX_EFFECT_VERT_DBL_WIPE           86
#DEFINE EFX_EFFECT_HORZ_DBL_WIPE           87
#DEFINE EFX_EFFECT_DBL_WIPE_OUT            88
#DEFINE EFX_EFFECT_DBL_WIPE_IN             89
#DEFINE EFX_EFFECT_EXPLODE                 90
#DEFINE EFX_EFFECT_IMPLODE                 91
#DEFINE EFX_EFFECT_DBL_PASS_IMPLODE        92
#DEFINE EFX_EFFECT_DBL_PASS_EXPLODE        93
#DEFINE EFX_EFFECT_SLIDE_LEFT              94
#DEFINE EFX_EFFECT_SLIDE_RIGHT             95
#DEFINE EFX_EFFECT_SLIDE_UP                96
#DEFINE EFX_EFFECT_SLIDE_DOWN              97
#DEFINE EFX_EFFECT_DIAG_SLIDE_TL_TO_BR     98
#DEFINE EFX_EFFECT_DIAG_SLIDE_TR_TO_BL     99
#DEFINE EFX_EFFECT_DIAG_SLIDE_BL_TO_TR     100
#DEFINE EFX_EFFECT_DIAG_SLIDE_BR_TO_TL     101
#DEFINE EFX_EFFECT_HORZ_DBL_SLIDE          102
#DEFINE EFX_EFFECT_VERT_DBL_SLIDE          103
#DEFINE EFX_EFFECT_HORZ_INTERLACE_SLIDE    104
#DEFINE EFX_EFFECT_VERT_INTERLACE_SLIDE    105
#DEFINE EFX_EFFECT_PUSH_LEFT               106
#DEFINE EFX_EFFECT_PUSH_RIGHT              107
#DEFINE EFX_EFFECT_PUSH_UP                 108
#DEFINE EFX_EFFECT_PUSH_DOWN               109
#DEFINE EFX_EFFECT_VERT_SQUASH             110
#DEFINE EFX_EFFECT_HORZ_SQUASH             111
#DEFINE EFX_EFFECT_VERT_PULL               112
#DEFINE EFX_EFFECT_HORZ_PULL               113
#DEFINE EFX_EFFECT_MAX                     114
#DEFINE EFFECT_NORMAL               EFX_EFFECT_NONE
#DEFINE EFFECT_WIPE_DOWN            EFX_EFFECT_TOP_TO_BOTTOM
#DEFINE EFFECT_WIPE_UP              EFX_EFFECT_BOTTOM_TO_TOP
#DEFINE EFFECT_WIPE_RIGHT           EFX_EFFECT_LEFT_TO_RIGHT
#DEFINE EFFECT_WIPE_LEFT            EFX_EFFECT_RIGHT_TO_LEFT
#DEFINE EFFECT_RANDOM_PIXEL         EFX_EFFECT_RANDOM_BLOCK     && close match
#DEFINE EFFECT_RANDOM_SMALLBOX      EFX_EFFECT_RANDOM_BLOCK     && close match
#DEFINE EFFECT_RANDOM_MEDIUMBOX     EFX_EFFECT_RANDOM_BLOCK     && close match
#DEFINE EFFECT_RANDOM_LARGEBOX      EFX_EFFECT_RANDOM_BLOCK     && close match
#DEFINE EFFECT_RANDOM_HLINE         EFX_EFFECT_RANDOM_LINES     && close match
#DEFINE EFFECT_RANDOM_VLINE         EFX_EFFECT_RANDOM_LINES     && close match
#DEFINE EFFECT_VMIDDLE_OUTWARD      EFX_EFFECT_HORZ_WIPE_OUT
#DEFINE EFFECT_VMIDDLE              EFFECT_VMIDDLE_OUTWARD
#DEFINE EFFECT_HMIDDLE_OUTWARD      EFX_EFFECT_VERT_WIPE_OUT
#DEFINE EFFECT_HMIDDLE              EFFECT_HMIDDLE_OUTWARD
#DEFINE EFFECT_HINTERLACE_OUTWARD   EFX_EFFECT_DBL_PASS_HORZ_WIPE_OUT   && close match
#DEFINE EFFECT_HINTERLACE           EFFECT_HINTERLACE_OUTWARD
#DEFINE EFFECT_VINTERLACE_OUTWARD   EFX_EFFECT_DBL_PASS_VERT_WIPE_OUT   && close match
#DEFINE EFFECT_VINTERLACE           EFFECT_VINTERLACE_OUTWARD
#DEFINE EFFECT_OUTTOIN              EFX_EFFECT_IMPLODE
#DEFINE EFFECT_INTOOUT              EFX_EFFECT_EXPLODE
#DEFINE EFFECT_OUTTOIN_INTERLACE    EFX_EFFECT_DBL_PASS_IMPLODE         && close match
#DEFINE EFFECT_INTOOUT_INTERLACE    EFX_EFFECT_DBL_PASS_EXPLODE         && close match
#DEFINE EFFECT_SPIRAL_IN            EFX_EFFECT_SWIRL_IN
#DEFINE EFFECT_SPIRAL_OUT           EFX_EFFECT_SWIRL_OUT
#DEFINE EFFECT_HMIDDLE_INWARD       EFX_EFFECT_VERT_WIPE_IN
#DEFINE EFFECT_VMIDDLE_INWARD       EFX_EFFECT_HORZ_WIPE_IN
#DEFINE EFFECT_VINTERLACE_INWARD    EFX_EFFECT_DBL_PASS_HORZ_WIPE_IN    && close match
#DEFINE EFFECT_HINTERLACE_INWARD    EFX_EFFECT_DBL_PASS_VERT_WIPE_IN    && close match
#DEFINE EFFECT_VINTERLACE_RIGHT     EFX_EFFECT_VERT_BLIND               && close match
#DEFINE EFFECT_VINTERLACE_LEFT      EFX_EFFECT_VERT_BLIND               && close match
#DEFINE EFFECT_HINTERLACE_UP        EFX_EFFECT_HORZ_BLIND               && close match
#DEFINE EFFECT_HINTERLACE_DOWN      EFX_EFFECT_HORZ_BLIND               && close match
#DEFINE EFFECT_PUSH_RIGHT           EFX_EFFECT_PUSH_RIGHT
#DEFINE EFFECT_PUSH_LEFT            EFX_EFFECT_PUSH_LEFT
#DEFINE EFFECT_PUSH_UP              EFX_EFFECT_PUSH_UP
#DEFINE EFFECT_PUSH_DOWN            EFX_EFFECT_PUSH_DOWN
&& SpatialFilterConstants
#DEFINE FLT_EMBOSS_N 0
#DEFINE FLT_EMBOSS_NE 1
#DEFINE FLT_EMBOSS_E 2
#DEFINE FLT_EMBOSS_SE 3
#DEFINE FLT_EMBOSS_S 4
#DEFINE FLT_EMBOSS_SW 5
#DEFINE FLT_EMBOSS_W 6
#DEFINE FLT_EMBOSS_NW 7
#DEFINE FLT_GRADIENT_N 8
#DEFINE FLT_GRADIENT_NE 9
#DEFINE FLT_GRADIENT_E 10
#DEFINE FLT_GRADIENT_SE 11
#DEFINE FLT_GRADIENT_S 12
#DEFINE FLT_GRADIENT_SW 13
#DEFINE FLT_GRADIENT_W 14
#DEFINE FLT_GRADIENT_NW 15
#DEFINE FLT_LAPLACE_1 16
#DEFINE FLT_LAPLACE_2 17
#DEFINE FLT_LAPLACE_3 18
#DEFINE FLT_LAPLACE_DIAG 19
#DEFINE FLT_LAPLACE_HORZ 20
#DEFINE FLT_LAPLACE_VERT 21
#DEFINE FLT_SOBEL_HORZ 22
#DEFINE FLT_SOBEL_VERT 23
#DEFINE FLT_PREWITT_HORZ 24
#DEFINE FLT_PREWITT_VERT 25
#DEFINE FLT_SHIFTDIFF_DIAG 26
#DEFINE FLT_SHIFTDIFF_HORZ 27
#DEFINE FLT_SHIFTDIFF_VERT 28
#DEFINE FLT_LINESEG_HORZ 29
#DEFINE FLT_LINESEG_VERT 30
#DEFINE FLT_LINESEG_LTOR 31
#DEFINE FLT_LINESEG_RTOL 32
&& HalftoneConstants
#DEFINE HALFTONE_PRINT 0
#DEFINE HALFTONE_VIEW 1
&& QFactorConstants
#DEFINE QFACTOR_LEAD_0 0
#DEFINE QFACTOR_LEAD_1 1
#DEFINE QFACTOR_PQ1 -1
#DEFINE QFACTOR_PQ2 -2
#DEFINE QFACTOR_QFS -3
#DEFINE QFACTOR_QMS -4
#DEFINE QFACTOR_QS -5
#DEFINE QFACTOR_SQS -6
#DEFINE QFACTOR_SQT -7
#DEFINE QFACTOR_MCQ -8
#DEFINE QFACTOR_MC -9
&& BinaryFilterConstants
#DEFINE BFLT_EROSION_OMNI 0
#DEFINE BFLT_EROSION_HORZ 1
#DEFINE BFLT_EROSION_VERT 2
#DEFINE BFLT_EROSION_DIAG 3
#DEFINE BFLT_DILATION_OMNI 4
#DEFINE BFLT_DILATION_HORZ 5
#DEFINE BFLT_DILATION_VERT 6
#DEFINE BFLT_DILATION_DIAG 7
&& ColorSeparationConstants
#DEFINE COLORSEP_RGB 0
#DEFINE COLORSEP_CMYK 1
#DEFINE COLORSEP_HSV 2
#DEFINE COLORSEP_HLS 3
#DEFINE COLORSEP_CMY 4
&& ChannelConstants
#DEFINE CHANNEL_MASTER 0
#DEFINE CHANNEL_RED 1
#DEFINE CHANNEL_GREEN 2
#DEFINE CHANNEL_BLUE 3
&& CombineConstants
#DEFINE CB_SRC_NOP 0
#DEFINE CB_SRC_NOT 1
#DEFINE CB_SRC_0 2
#DEFINE CB_SRC_1 3
#DEFINE CB_DST_NOP 0
#DEFINE CB_DST_NOT 16
#DEFINE CB_DST_0 (2 * 16)
#DEFINE CB_DST_1 (3 * 16)
#DEFINE CB_OP_AND 0
#DEFINE CB_OP_OR 256
#DEFINE CB_OP_XOR (2 * 256)
#DEFINE CB_OP_ADD (3 * 256)
#DEFINE CB_OP_SUBSRC (4 * 256)
#DEFINE CB_OP_SUBDST (5 * 256)
#DEFINE CB_OP_MUL (6 * 256)
#DEFINE CB_OP_DIVSRC (7 * 156)
#DEFINE CB_OP_DIVDST (8 * 256)
#DEFINE CB_OP_AVG (9 * 256)
#DEFINE CB_OP_MIN (10 * 256)
#DEFINE CB_OP_MAX (11 * 256)
#DEFINE CB_RES_NOP 0
#DEFINE CB_RES_NOT 4096
#DEFINE CB_RES_0 (2 * 4096)
#DEFINE CB_RES_1 (3 * 4096)
&& EmbossConstants
#DEFINE EMBOSS_N 0
#DEFINE EMBOSS_NE 1
#DEFINE EMBOSS_E 2
#DEFINE EMBOSS_SE 3
#DEFINE EMBOSS_S 4
#DEFINE EMBOSS_SW 5
#DEFINE EMBOSS_W 6
#DEFINE EMBOSS_NW 7
&& CopyConstants
#DEFINE COPY_EMPTY 1
#DEFINE COPY_DIB 2
#DEFINE COPY_DDB 4
#DEFINE COPY_PALETTE 8
#DEFINE COPY_RGN 10
&& UnderlayConstants
#DEFINE UNDERLAY_TILE 0
#DEFINE UNDERLAY_STRETCH 1
&& VersionLevelConstants
#DEFINE VERSIONLEVEL_EXP 0
#DEFINE VERSIONLEVEL_PRO 1
&& FileConstants
#DEFINE FILE_PCX 1
#DEFINE FILE_GIF 2
#DEFINE FILE_TIF 3
#DEFINE FILE_TGA 4
#DEFINE FILE_CMP 5
#DEFINE FILE_BMP 6
#DEFINE FROM_BUFFER 7
#DEFINE FILE_BITMAP 9
#DEFINE FILE_JFIF 10
#DEFINE FILE_JTIF 11
#DEFINE FILE_BIN 12
#DEFINE FILE_HANDLE 13
#DEFINE FILE_OS2 14
#DEFINE FILE_WMF 15
#DEFINE FILE_EPS 16
#DEFINE FILE_TIFLZW 17
#DEFINE FILE_LEAD 20
#DEFINE FILE_LEAD1JFIF 21
#DEFINE FILE_LEAD1JTIF 22
#DEFINE FILE_LEAD2JFIF 23
#DEFINE FILE_LEAD2JTIF 24
#DEFINE FILE_CCITT 25
#DEFINE FILE_LEAD1BIT 26
#DEFINE FILE_CCITT_GROUP3_1DIM 27
#DEFINE FILE_CCITT_GROUP3_2DIM 28
#DEFINE FILE_CCITT_GROUP4 29
#DEFINE FILE_LEAD_NOLOSS 30
#DEFINE FILE_CALS 50
#DEFINE FILE_MAC 51
#DEFINE FILE_IMG 52
#DEFINE FILE_MSP 53
#DEFINE FILE_WPG 54
#DEFINE FILE_RAS 55
#DEFINE FILE_PCT 56
#DEFINE FILE_PCD 57
#DEFINE FILE_DXF 58
#DEFINE FILE_AVI 59
#DEFINE FILE_WAV 60
#DEFINE FILE_FLI 61
#DEFINE FILE_CGM 62
#DEFINE FILE_EPSTIFF 63
#DEFINE FILE_EPSWMF 64
#DEFINE FILE_CMPNOLOSS 65
#DEFINE FILE_FAX_G3_1D 66
#DEFINE FILE_FAX_G3_2D 67
#DEFINE FILE_FAX_G4 68
#DEFINE FILE_WFX_G3_1D 69
#DEFINE FILE_WFX_G4 70
#DEFINE FILE_ICA_G3_1D 71
#DEFINE FILE_ICA_G3_2D 72
#DEFINE FILE_ICA_G4 73
#DEFINE FILE_OS2_2 74
#DEFINE FILE_PNG 75
#DEFINE FILE_PSD 76
#DEFINE FILE_RAWICA_G3_1D 77
#DEFINE FILE_RAWICA_G3_2D 78
#DEFINE FILE_RAWICA_G4 79
#DEFINE FILE_FPX 80
#DEFINE FILE_FPX_SINGLE_COLOR 81
#DEFINE FILE_FPX_JPEG 82
#DEFINE FILE_FPX_JPEG_QFACTOR 83
#DEFINE FILE_BMP_RLE 84
#DEFINE FILE_TIF_CMYK 85
#DEFINE FILE_TIFLZW_CMYK 86
#DEFINE FILE_TIF_PACKBITS 87
#DEFINE FILE_TIF_PACKBITS_CMYK 88
#DEFINE FILE_DICOM_GRAY 89
#DEFINE FILE_DICOM_COLOR 90
#DEFINE FILE_WIN_ICO 91
#DEFINE FILE_WIN_CUR 92
#DEFINE FILE_TIF_YCC 93
#DEFINE FILE_TIFLZW_YCC 94
#DEFINE FILE_TIF_PACKBITS_YCC 95
#DEFINE FILE_EXIF 96
#DEFINE FILE_EXIF_YCC 97
#DEFINE FILE_EXIF_JPEG 98
#DEFINE FILE_AWD 99
#DEFINE FILE_FASTEST 100
&& BitonalScalingConstants
#DEFINE BITONALSCALING_NORMAL 0
#DEFINE BITONALSCALING_FAVORBLACK 1
#DEFINE BITONALSCALING_SCALETOGRAY 2
&& PaintDitherConstants
#DEFINE PAINTDITHER_ORDERED 0
#DEFINE PAINTDITHER_DIFFUSION 1
&& PaintPaletteConstants
#DEFINE PAINTPALETTE_AUTO 0
#DEFINE PAINTPALETTE_FIXED 1
#DEFINE PAINTPALETTE_AUTONETSCAPE 2
#DEFINE PAINTPALETTE_FIXEDNETSCAPE 3
&& ResizeConstants
#DEFINE RESIZE_NORMAL 0
#DEFINE RESIZE_RESAMPLE 1
#DEFINE RESIZE_FAVORBLACK 2
#DEFINE RESIZE_FAVORBLACK_OR_RESAMPLE 3
&& PasteConstants
#DEFINE  PASTE_ISREADY 16384
&& ErrorConstants
#DEFINE ERROR_FAILURE 20000
#DEFINE ERROR_NO_MEMORY 20001
#DEFINE ERROR_NO_BITMAP 20002
#DEFINE ERROR_MEMORY_TOO_LOW 20003
#DEFINE ERROR_FILE_LSEEK 20004
#DEFINE ERROR_FILE_WRITE 20005
#DEFINE ERROR_FILE_GONE 20006
#DEFINE ERROR_FILE_READ 20007
#DEFINE ERROR_INV_FILENAME 20008
#DEFINE ERROR_FILE_FORMAT 20009
#DEFINE ERROR_FILENOTFOUND 20010
#DEFINE ERROR_INV_RANGE 20011
#DEFINE ERROR_IMAGE_TYPE 20012
#DEFINE ERROR_INV_PARAMETER 20013
#DEFINE ERROR_FILE_OPEN 20014
#DEFINE ERROR_UNKNOWN_COMP 20015
#DEFINE ERROR_FEATURE_NOT_SUPPORTED 20016
#DEFINE ERROR_NOT_256_COLOR 20017
#DEFINE ERROR_PRINTER 20018
#DEFINE ERROR_CRC_CHECK 20019
#DEFINE ERROR_QFACTOR 20021
#DEFINE ERROR_TARGAINSTALL 20022
#DEFINE ERROR_OUTPUTTYPE 20023
#DEFINE ERROR_XORIGIN 20024
#DEFINE ERROR_YORIGIN 20025
#DEFINE ERROR_VIDEOTYPE 20026
#DEFINE ERROR_BITPERPIXEL 20027
#DEFINE ERROR_WINDOWSIZE 20028
#DEFINE ERROR_NORMAL_ABORT 20029
#DEFINE ERROR_NOT_INITIALIZED 20030
#DEFINE ERROR_CU_BUSY 20031
#DEFINE ERROR_INVALID_TABLE_TYPE 20032
#DEFINE ERROR_UNEQUAL_TABLES 20033
#DEFINE ERROR_INVALID_BUFFER 20034
#DEFINE ERROR_MISSING_TILE_DATA 20035
#DEFINE ERROR_INVALID_QVALUE 20036
#DEFINE ERROR_INVALIDDATA 20037
#DEFINE ERROR_INVALID_COMPRESSED_TYPE 20038
#DEFINE ERROR_INVALID_COMPONENT_NUM 20039
#DEFINE ERROR_INVALID_PIXEL_TYPE 20040
#DEFINE ERROR_INVALID_PIXEL_SAMPLING 20041
#DEFINE ERROR_INVALID_SOURCE_FILE 20042
#DEFINE ERROR_INVALID_TARGET_FILE 20043
#DEFINE ERROR_INVALID_IMAGE_DIMS 20044
#DEFINE ERROR_INVALID_TILE_DIMS 20045
#DEFINE ERROR_INVALID_PIX_BUFF_DIMS 20046
#DEFINE ERROR_SEGMENT_OVERFLOW 20047
#DEFINE ERROR_INVALID_SUBSAMPLING 20048
#DEFINE ERROR_INVALID_Q_VIS_TABLE 20049
#DEFINE ERROR_INVALID_DC_CODE_TABLE 20050
#DEFINE ERROR_INVALID_AC_CODE_TABLE 20051
#DEFINE ERROR_INSUFFICIENT_DATA 20052
#DEFINE ERROR_MISSING_FUNC_POINTER 20053
#DEFINE ERROR_TOO_MANY_DC_CODE_TABLES 20054
#DEFINE ERROR_TOO_MANY_AC_CODE_TABLES 20055
#DEFINE ERROR_INVALID_SUBIMAGE 20056
#DEFINE ERROR_INVALID_ABORTION 20057
#DEFINE ERROR_CU_NO_SUPPORT 20058
#DEFINE ERROR_CU_FAILURE 20059
#DEFINE ERROR_BAD_POINTER 20060
#DEFINE ERROR_HEADER_DATA_FAILURE 20061
#DEFINE ERROR_COMPRESSED_DATA_FAILURE 20062
#DEFINE ERROR_FIXEDPAL_DATA 20063
#DEFINE ERROR_LOADFONT_DATA 20064
#DEFINE ERROR_NO_STAMP 20065
#DEFINE ERROR_G3CODE_INVALID 20070
#DEFINE ERROR_G3CODE_EOF 20071
#DEFINE ERROR_G3CODE_EOL 20072
#DEFINE ERROR_PREMATURE_EOF 20073
#DEFINE ERROR_PREMATURE_EOL 20074
#DEFINE ERROR_UNCOMP_EOF 20075
#DEFINE ERROR_ACT_INCOMP 20076
#DEFINE ERROR_BAD_DECODE_STATE 20077
#DEFINE ERROR_VERSION_NUMBER 20078
#DEFINE ERROR_TWAIN_NODSM 20079
#DEFINE ERROR_TWAIN_BUMMER 20080
#DEFINE ERROR_TWAIN_LOWMEMORY 20081
#DEFINE ERROR_TWAIN_NODS 20082
#DEFINE ERROR_TWAIN_MAXCONNECTIONS 20083
#DEFINE ERROR_TWAIN_OPERATIONERROR 20084
#DEFINE ERROR_TWAIN_BADCAP 20085
#DEFINE ERROR_TWAIN_BADPROTOCOL 20086
#DEFINE ERROR_TWAIN_BADVALUE 20087
#DEFINE ERROR_TWAIN_SEQERROR 20088
#DEFINE ERROR_TWAIN_BADDEST 20089
#DEFINE ERROR_TWAIN_CANCEL 20090
#DEFINE ERROR_USER_ABORT 20100
#DEFINE ERROR_FPX_INVALID_FORMAT_ERROR 20101
#DEFINE ERROR_FPX_FILE_WRITE_ERROR 20102
#DEFINE ERROR_FPX_FILE_READ_ERROR 20103
#DEFINE ERROR_FPX_FILE_NOT_FOUND 20104
#DEFINE ERROR_FPX_COLOR_CONVERSION_ERROR 20105
#DEFINE ERROR_FPX_SEVER_INIT_ERROR 20106
#DEFINE ERROR_FPX_LOW_MEMORY_ERROR 20107
#DEFINE ERROR_FPX_IMAGE_TOO_BIG_ERROR 20108
#DEFINE ERROR_FPX_INVALID_COMPRESSION_ERROR 20109
#DEFINE ERROR_FPX_INVALID_RESOLUTION 20110
#DEFINE ERROR_FPX_INVALID_FPX_HANDLE 20111
#DEFINE ERROR_FPX_TOO_MANY_LINES 20112
#DEFINE ERROR_FPX_BAD_COORDINATES 20113
#DEFINE ERROR_FPX_FILE_SYSTEM_FULL 20114
#DEFINE ERROR_FPX_MISSING_TABLE 20115
#DEFINE ERROR_FPX_RETURN_PARAMETER_TOO_LARGE 20116
#DEFINE ERROR_FPX_NOT_A_VIEW 20117
#DEFINE ERROR_FPX_VIEW_IS_TRANFORMLESS 20118
#DEFINE ERROR_FPX_ERROR 20119
#DEFINE ERROR_FPX_UNIMPLEMENTED_FUNCTION 20120
#DEFINE ERROR_FPX_INVALID_IMAGE_DESC 20121
#DEFINE ERROR_FPX_INVALID_JPEG_TABLE 20122
#DEFINE ERROR_FPX_ILLEGAL_JPEG_ID 20123
#DEFINE ERROR_FPX_MEMORY_ALLOCATION_FAILED 20124
#DEFINE ERROR_FPX_NO_MEMORY_MANAGEMENT 20125
#DEFINE ERROR_FPX_OBJECT_CREATION_FAILED 20126
#DEFINE ERROR_FPX_EXTENSION_FAILED 20127
#DEFINE ERROR_FPX_FREE_NULL_PTR 20128
#DEFINE ERROR_FPX_INVALID_TILE 20129
#DEFINE ERROR_FPX_FILE_IN_USE 20130
#DEFINE ERROR_FPX_FILE_CREATE_ERROR 20131
#DEFINE ERROR_FPX_FILE_NOT_OPEN_ERROR 20132
#DEFINE ERROR_FPX_USER_ABORT 20133
#DEFINE ERROR_FPX_OLE_FILE_ERROR 20134
#DEFINE ERROR_BAD_TAG 20140
#DEFINE ERROR_INVALID_STAMP_SIZE 20141
#DEFINE ERROR_BAD_STAMP 20142
#DEFINE ERROR_EXPRESS_NOT_ENABLED 20143
#DEFINE ERROR_IMAGE_EMPTY 20144
#DEFINE ERROR_NO_CHANGE 20145
#DEFINE ERROR_LZW_LOCKED 20146
#DEFINE ERROR_FPXEXTENSIONS_LOCKED 10147
#DEFINE ERROR_ANN_LOCKED 20148
#DEFINE ERROR_DLG_CANCELED 20150
#DEFINE ERROR_DLG_FAILED 20151
#DEFINE ERROR_ISIS_NOCURSCANNER 20160
#DEFINE ERROR_ISIS_SCANDRIVER_NOT_LOADED 20161
#DEFINE ERROR_ISIS_CANCEL 20162
#DEFINE ERROR_ISIS_BAD_TAG_OR_VALUE 20163
#DEFINE ERROR_ISIS_NOT_READY 20164
#DEFINE ERROR_ISIS_NO_PAGE 20165
#DEFINE ERROR_ISIS_JAM 20166
#DEFINE ERROR_ISIS_SCANNER_ERROR 20167
#DEFINE ERROR_ISIS_BUSY 20168
#DEFINE ERROR_ISIS_FILE_ERROR 20169
#DEFINE ERROR_ISIS_NETWORK_ERROR 20170
#DEFINE ERROR_ISIS_NOT_INSTALLED 20171
&& Photo CD Resolutions
#DEFINE PCDRES_BASE_OVER_64 0
#DEFINE PCDRES_BASE_OVER_16 1
#DEFINE PCDRES_BASE_OVER_4 2
#DEFINE PCDRES_BASE 3
#DEFINE PCDRES_4BASE 4
#DEFINE PCDRES_16BASE 5
&& DBEditModeConstants
#DEFINE DB_EDITMODE_NONE 0
#DEFINE DB_EDITMODE_EDIT 1
#DEFINE DB_EDITMODE_ADDNEW 2
&& DBOpenOptionsConstants
#DEFINE DB_OPENOPTIONS_NONE 0
#DEFINE DB_OPENOPTIONS_READONLY 4
#DEFINE DB_OPENOPTIONS_APPENDONLY 8
&& DBLockingModeConstants
#DEFINE DB_LOCKINGMODE_OPTIMISTIC 0
#DEFINE DB_LOCKINGMODE_PESSIMISTIC 1
&& TwainPixelTypeConstants
#DEFINE TWAIN_PIX_DEFAULT -1
#DEFINE TWAIN_PIX_HALF 0
#DEFINE TWAIN_PIX_GRAY 1
#DEFINE TWAIN_PIX_RGB 2
#DEFINE TWAIN_PIX_PALETTE 3
&& TwainFlagConstants
#DEFINE TWAIN_SHOWUI 1
#DEFINE TWAIN_SHOWSTATUS 2
#DEFINE TWAIN_NATIVEXFER 4
#DEFINE TWAIN_KEEPOPEN 8
#DEFINE TWAIN_UPDATE_DEFAULTS_ONLY 16
#DEFINE TWAIN_UPDATE_NON_DEFAULTS (2 * 16)
#DEFINE TWAIN_DEFAULT_BRIGHTNESS 2000
#DEFINE TWAIN_DEFAULT_INTENSITY 2000
#DEFINE TWAIN_DEFAULT_CONTRAST 2000
#DEFINE TWAIN_DEFAULT_ORIENTATION -1
#DEFINE TWAIN_FEEDER_DONTCARE 2
#DEFINE TWAINFEEDER_DEFAULT   2
#DEFINE TWAINAUTOFEED_DEFAULT 2
#DEFINE TWAIN_ROT0       0
#DEFINE TWAIN_ROT90      1
#DEFINE TWAIN_ROT180     2
#DEFINE TWAIN_ROT270     3
#DEFINE TWAIN_PORTRAIT   0
#DEFINE TWAIN_LANDSCAPE  3
&& IsGrayscaleConstants
#DEFINE GRAY_NO 0
#DEFINE GRAY_ORDEREDNORMAL 1
#DEFINE GRAY_ORDEREDREVERSE 2
#DEFINE GRAY_ORDEREDINVERSE 2
#DEFINE GRAY_NOTORDERED 3
&& SupportLockConstants
#DEFINE L_SUPPORT_EXPRESS 0
#DEFINE L_SUPPORT_GIFLZW 1
#DEFINE L_SUPPORT_TIFLZW 2
#DEFINE L_SUPPORT_FPXEXTENSIONS 3
&& Support Unlock Key Constants
#DEFINE L_KEY_EXPRESS ""
#DEFINE L_KEY_GIFLZW ""
#DEFINE L_KEY_TIFLZW ""
#DEFINE L_KEY_FPXEXTENSIONS ""
&& RgnCombineModeConstants
#DEFINE L_RGN_AND 0
#DEFINE L_RGN_SET 1
#DEFINE L_RGN_ANDNOTBITMAP 2
#DEFINE L_RGN_ANDNOTRGN 3
#DEFINE L_RGN_OR 4
#DEFINE L_RGN_XOR 5
#DEFINE L_RGN_SETNOT 6
&& RgnMarkingModeConstants
#DEFINE RGNMARK_NONE 0
#DEFINE RGNMARK_RECT 1
#DEFINE RGNMARK_ROUNDRECT 2
#DEFINE RGNMARK_ELLIPSE 3
#DEFINE RGNMARK_FREEHAND 4
&& RgnFrameTypeConstants
#DEFINE RGNFRAME_NONE 0
#DEFINE RGNFRAME_STATIC 1
#DEFINE RGNFRAME_ANIMATED 2
&& RgnPolygonFillModeConstants
#DEFINE L_POLY_WINDING 0
#DEFINE L_POLY_ALTERNATE 1
&& AnnUserModeConstants
#DEFINE ANNUSERMODE_NONE 0
#DEFINE ANNUSERMODE_DESIGN 1
#DEFINE ANNUSERMODE_RUN 2
&& AnnToolConstants
#DEFINE ANNTOOL_SELECT 0
#DEFINE ANNTOOL_LINE 1
#DEFINE ANNTOOL_RECT 2
#DEFINE ANNTOOL_ELLIPSE 3
#DEFINE ANNTOOL_POLYLINE 4
#DEFINE ANNTOOL_POLYGON 5
#DEFINE ANNTOOL_POINTER 6
#DEFINE ANNTOOL_FREEHAND 7
#DEFINE ANNTOOL_HILITE 8
#DEFINE ANNTOOL_REDACT 9
#DEFINE ANNTOOL_TEXT 10
#DEFINE ANNTOOL_NOTE 11
#DEFINE ANNTOOL_STAMP 12
#DEFINE ANNTOOL_BUTTON 13
#DEFINE ANNTOOL_HOTSPOT 14
#DEFINE ANNTOOL_AUDIO 15
&& AnnObjectConstants
#DEFINE ANNOBJECT_CONTAINER 0
#DEFINE ANNOBJECT_POINTER 1
#DEFINE ANNOBJECT_AUDIO 2
#DEFINE ANNOBJECT_BUTTON 3
#DEFINE ANNOBJECT_ELLIPSE 4
#DEFINE ANNOBJECT_FREEHAND 5
#DEFINE ANNOBJECT_HILITE 6
#DEFINE ANNOBJECT_HOTSPOT 7
#DEFINE ANNOBJECT_LINE 8
#DEFINE ANNOBJECT_NOTE 9
#DEFINE ANNOBJECT_POLYGON 10
#DEFINE ANNOBJECT_POLYLINE 11
#DEFINE ANNOBJECT_RECT 12
#DEFINE ANNOBJECT_REDACT 13
#DEFINE ANNOBJECT_STAMP 14
#DEFINE ANNOBJECT_TEXT 15
#DEFINE ANNOBJECT_AUTOMATION 16
&& AnnFormatConstants
#DEFINE ANNFMT_NATIVE 0
#DEFINE ANNFMT_WMF 1
&& LoadInfoFlagConstants
#DEFINE LOADINFO_TOPLEFT 1
#DEFINE LOADINFO_ORDERRGB 2
#DEFINE LOADINFO_WHITEONBLACK 4
#DEFINE LOADINFO_LSB 8
&& PaintSizeModeConstants
#DEFINE PAINTSIZEMODE_NORMAL 0
#DEFINE PAINTSIZEMODE_STRETCH 1
#DEFINE PAINTSIZEMODE_FITSIDES 2
#DEFINE PAINTSIZEMODE_FIT 3
#DEFINE PAINTSIZEMODE_ZOOM 4
&& AutoAnimationLoopConstants
#DEFINE AUTOANIMATIONLOOP_DEFAULT 0
#DEFINE AUTOANIMATIONLOOP_INFINITE 1
&& ProgressivePassesConstants
#DEFINE PROGRESSIVEPASSES_WHEN_MEANINGFUL -1
#DEFINE PROGRESSIVEPASSES_ALWAYS -2
#DEFINE PROGRESSIVEPASSES_ONCE 0
&& AnimationDisposalConstants
#DEFINE ANIMATIONDISPOSAL_NONE 0
#DEFINE ANIMATIONDISPOSAL_LEAVE 1
#DEFINE ANIMATIONDISPOSAL_RESTOREBACKGROUND 2
#DEFINE ANIMATIONDISPOSAL_RESTOREPREVIOUS 3
&&  AnnAutoTextConstants
#DEFINE ANNAUTOTEXT_MENU_UNDO 0
#DEFINE ANNAUTOTEXT_MENU_CUT 1
#DEFINE ANNAUTOTEXT_MENU_COPY 2
#DEFINE ANNAUTOTEXT_MENU_PASTE 3
#DEFINE ANNAUTOTEXT_MENU_DELETE 4
#DEFINE ANNAUTOTEXT_MENU_SELECTALL 5
#DEFINE ANNAUTOTEXT_MENU_BRINGTOFRONT 6
#DEFINE ANNAUTOTEXT_MENU_SENDTOBACK 7
#DEFINE ANNAUTOTEXT_MENU_DEFAULTPROPERTIES 8
#DEFINE ANNAUTOTEXT_MENU_SELECTEDPROPERTIES 9
#DEFINE ANNAUTOTEXT_MENU_CONTAINERPROPERTIES 10
#DEFINE ANNAUTOTEXT_MENU_POINTERPROPERTIES 11
#DEFINE ANNAUTOTEXT_MENU_AUDIOPROPERTIES 12
#DEFINE ANNAUTOTEXT_MENU_BUTTONPROPERTIES 13
#DEFINE ANNAUTOTEXT_MENU_ELLIPSEPROPERTIES 14
#DEFINE ANNAUTOTEXT_MENU_FREEHANDPROPERTIES 15
#DEFINE ANNAUTOTEXT_MENU_HILITEPROPERTIES 16
#DEFINE ANNAUTOTEXT_MENU_HOTSPOTPROPERTIES 17
#DEFINE ANNAUTOTEXT_MENU_LINEPROPERTIES 18
#DEFINE ANNAUTOTEXT_MENU_NOTEPROPERTIES 19
#DEFINE ANNAUTOTEXT_MENU_POLYGONPROPERTIES 20
#DEFINE ANNAUTOTEXT_MENU_POLYLINEPROPERTIES 21
#DEFINE ANNAUTOTEXT_MENU_RECTANGLEPROPERTIES 22
#DEFINE ANNAUTOTEXT_MENU_REDACTPROPERTIES 23
#DEFINE ANNAUTOTEXT_MENU_STAMPPROPERTIES 24
#DEFINE ANNAUTOTEXT_MENU_TEXTPROPERTIES 25
#DEFINE ANNAUTOTEXT_MENU_AUTOMATIONPROPERTIES 26
#DEFINE ANNAUTOTEXT_MENU_LINE 27
#DEFINE ANNAUTOTEXT_MENU_FILL 28
#DEFINE ANNAUTOTEXT_MENU_FOREGROUNDCOLOR 29
#DEFINE ANNAUTOTEXT_MENU_BACKGROUNDCOLOR 30
#DEFINE ANNAUTOTEXT_MENU_FONT 31
#DEFINE ANNAUTOTEXT_MENU_BITMAP 32
#DEFINE ANNAUTOTEXT_MENU_TEXT 33
#DEFINE ANNAUTOTEXT_MENU_FILE 34
#DEFINE ANNAUTOTEXT_LINE_CAPTION 35
#DEFINE ANNAUTOTEXT_LINE_WIDTH 36
#DEFINE ANNAUTOTEXT_LINE_STYLE 37
#DEFINE ANNAUTOTEXT_LINE_OK 38
#DEFINE ANNAUTOTEXT_LINE_CANCEL 39
#DEFINE ANNAUTOTEXT_LINE_SOLID 40
#DEFINE ANNAUTOTEXT_LINE_DASH 41
#DEFINE ANNAUTOTEXT_LINE_DOT 42
#DEFINE ANNAUTOTEXT_LINE_DASHDOT 43
#DEFINE ANNAUTOTEXT_LINE_DASHDOTDOT 44
#DEFINE ANNAUTOTEXT_LINE_NULL 45
#DEFINE ANNAUTOTEXT_FILL_CAPTION 46
#DEFINE ANNAUTOTEXT_FILL_MODE 47
#DEFINE ANNAUTOTEXT_FILL_PATTERNS 48
#DEFINE ANNAUTOTEXT_FILL_POLYGON 49
#DEFINE ANNAUTOTEXT_FILL_OK 50
#DEFINE ANNAUTOTEXT_FILL_CANCEL 51
#DEFINE ANNAUTOTEXT_FILL_TRANSPARENT 52
#DEFINE ANNAUTOTEXT_FILL_TRANSLUCENT 53
#DEFINE ANNAUTOTEXT_FILL_OPAQUE 54
#DEFINE ANNAUTOTEXT_FILL_SOLID 55
#DEFINE ANNAUTOTEXT_FILL_BACKWARDDIAGONAL 56
#DEFINE ANNAUTOTEXT_FILL_CROSS 57
#DEFINE ANNAUTOTEXT_FILL_DIAGONALCROSS 58
#DEFINE ANNAUTOTEXT_FILL_FORWARDDIAGONAL 59
#DEFINE ANNAUTOTEXT_FILL_HORIZONTAL 60
#DEFINE ANNAUTOTEXT_FILL_VERTICAL 61
#DEFINE ANNAUTOTEXT_FILL_WINDING 62
#DEFINE ANNAUTOTEXT_FILL_ALTERNATE 63
#DEFINE ANNAUTOTEXT_TEXT_CAPTION 64
#DEFINE ANNAUTOTEXT_TEXT_OK 65
#DEFINE ANNAUTOTEXT_TEXT_CANCEL 66
#DEFINE ANNAUTOTEXT_AUDIOFILE_CAPTION 67
#DEFINE ANNAUTOTEXT_AUDIOFILE_FILTER 68
#DEFINE ANNAUTOTEXT_STAMPFILE_CAPTION 69
#DEFINE ANNAUTOTEXT_STAMPFILE_FILTER 70
#DEFINE ANNAUTOTEXT_ITEM_DEFAULTTEXT 71
#DEFINE ANNAUTOTEXT_MAX 71
&& AppearanceConstants
#DEFINE APPEARANCE_FLAT 0
#DEFINE APPEARANCE_THREED 1
&& ReadyStateConstants
#DEFINE READYSTATE_UNINITIALIZED    0
#DEFINE READYSTATE_LOADING    1
#DEFINE READYSTATE_LOADED 2
#DEFINE READYSTATE_INTERACTIVE 3
#DEFINE READYSTATE_COMPLETE 4
&&Comment constants
#DEFINE CMNT_SZARTIST 0
#DEFINE CMNT_SZCOPYRIGHT 1
#DEFINE CMNT_SZDATETIME 2
#DEFINE CMNT_SZDESC 3
#DEFINE CMNT_SZHOSTCOMP 4
#DEFINE CMNT_SZMAKE 5
#DEFINE CMNT_SZMODEL 6
#DEFINE CMNT_SZNAMEOFDOC 7
#DEFINE CMNT_SZNAMEOFPAGE 8
#DEFINE CMNT_SZSOFTWARE 9
#DEFINE CMNT_SZPATIENTNAME 10
#DEFINE CMNT_SZPATIENTID 11
#DEFINE CMNT_SZPATIENTBIRTHDATE 12
#DEFINE CMNT_SZPATIENTSEX 13
#DEFINE CMNT_SZSTUDYINSTANCE 14
#DEFINE CMNT_SZSTUDYDATE 15
#DEFINE CMNT_SZSTUDYTIME 16
#DEFINE CMNT_SZSTUDYREFERRINGPHYSICIAN 17
#DEFINE CMNT_SZSERIESMODALITY 18
#DEFINE CMNT_SZSERIESID 19
#DEFINE CMNT_SZSERIESNUMBER 20
#DEFINE CMNT_EXIFVERSION 21
#DEFINE CMNT_SZDATETIMEORIGINAL 22
#DEFINE CMNT_SZDATETIMEDIGITIZED 23
#DEFINE CMNT_SHUTTERSPEEDVALUE 24
#DEFINE CMNT_APERTURE 25
#DEFINE CMNT_BRIGHTNESS 26
#DEFINE CMNT_EXPOSUREBIAS 27
#DEFINE CMNT_MAXAPERTURE 28
#DEFINE CMNT_SUBJECTDISTANCE 29
#DEFINE CMNT_METERINGMODE 30
#DEFINE CMNT_LIGHTSOURCE 31
#DEFINE CMNT_FLASH 32
#DEFINE CMNT_FOCALLENGTH 33
#DEFINE CMNT_EXPOSURETIME 34
#DEFINE CMNT_FNUMBER 35
#DEFINE CMNT_MAKERNOTE 36
#DEFINE CMNT_USERCOMMENT 37
#DEFINE CMNT_SZSUBSECTIME 38
#DEFINE CMNT_SZSUBSECTIMEORIGINAL 39
#DEFINE CMNT_SZSUBSECTIMEDIGITIZED 40
#DEFINE CMNT_GPSVERSIONID 41
#DEFINE CMNT_GPSLATITUDEREF 42
#DEFINE CMNT_GPSLATITUDE 43
#DEFINE CMNT_GPSLONGITUDEREF 44
#DEFINE CMNT_GPSLONGITUDE 45
#DEFINE CMNT_GPSALTITUDEREF 46
#DEFINE CMNT_GPSALTITUDE 47
#DEFINE CMNT_GPSTIMESTAMP 48
#DEFINE CMNT_GPSSATELLITES 49
#DEFINE CMNT_GPSSTATUS 50
#DEFINE CMNT_GPSMEASUREMODE 51
#DEFINE CMNT_GPSDOP 52
#DEFINE CMNT_GPSSPEEDREF 53
#DEFINE CMNT_GPSSPEED 54
#DEFINE CMNT_GPSTRACKREF 55
#DEFINE CMNT_GPSTRACK 56
#DEFINE CMNT_GPSIMGDIRECTIONREF 57
#DEFINE CMNT_GPSIMGDIRECTION 58
#DEFINE CMNT_GPSMAPDATUM 59
#DEFINE CMNT_GPSDESTLATITUDEREF 60
#DEFINE CMNT_GPSDESTLATITUDE 61
#DEFINE CMNT_GPSDESTLONGITUDERE 62
#DEFINE CMNT_GPSDESTLONGITUDE 63
#DEFINE CMNT_GPSDESTBEARINGREF 64
#DEFINE CMNT_GPSDESTBEARING 65
#DEFINE CMNT_GPSDESTDISTANCEREF 66
#DEFINE CMNT_GPSDESTDISTANCE 67
#DEFINE CMNT_LAST 67
&&Drawing Fill Style constants
#DEFINE DRAWFILLSTYLE_SOLID 0
#DEFINE DRAWFILLSTYLE_TRANSPARENT 1
#DEFINE DRAWFILLSTYLE_HORIZONTAL_LINE 2
#DEFINE DRAWFILLSTYLE_VERTICAL_LINE 3
#DEFINE DRAWFILLSTYLE_UPWARD_DIAGONAL 4
#DEFINE DRAWFILLSTYLE_DOWNWARD_DIAGONAL 5
#DEFINE DRAWFILLSTYLE_CROSS 6
#DEFINE DRAWFILLSTYLE_DIAGONAL_CROSS 7
#DEFINE DRAWFILLSTYLE_DIAGONAL_LAST 7
&&Drawing Pen Style constants
#DEFINE DRAWPENSTYLE_SOLID 0
#DEFINE DRAWPENSTYLE_DASH 1
#DEFINE DRAWPENSTYLE_DOT 2
#DEFINE DRAWPENSTYLE_DASH_DOT 3
#DEFINE DRAWPENSTYLE_DASH_DOT_DOT 4
#DEFINE DRAWPENSTYLE_TRANSPARENT 5
#DEFINE DRAWPENSTYLE_INSIDE_SOLID 6
#DEFINE DRAWPENSTYLE_LAST 6
&&Drawing mode constants
#DEFINE DRAWMODE_BLACKNESS 1
#DEFINE DRAWMODE_NOT_MERGE_PEN 2
#DEFINE DRAWMODE_MASK_NOT_PEN 3
#DEFINE DRAWMODE_NOT_COPY_PEN 4
#DEFINE DRAWMODE_MASK_PEN_NOT 5
#DEFINE DRAWMODE_INVERT 6
#DEFINE DRAWMODE_XOR_PEN 7
#DEFINE DRAWMODE_NOT_MASK_PEN 8
#DEFINE DRAWMODE_MASK_PEN 9
#DEFINE DRAWMODE_NOT_XOR_PEN 10
#DEFINE DRAWMODE_NOP 11
#DEFINE DRAWMODE_MERGE_NOT_PEN 12
#DEFINE DRAWMODE_COPY_PEN 13
#DEFINE DRAWMODE_MERGE_PEN_NOT 14
#DEFINE DRAWMODE_MERGE_PEN 15
#DEFINE DRAWMODE_WHITENESS 16
#DEFINE DRAWMODE_LAST 16
&& Transition Styles
#DEFINE EFX_TRANSITION_NONE 0
#DEFINE EFX_TRANSITION_GRADIENT 1
#DEFINE EFX_TRANSITION_PATTERN 2
#DEFINE EFX_TRANSITION_MAX 2
&& Gradient Styles
#DEFINE EFX_GRADIENT_LEFT_TO_RIGHT 0
#DEFINE EFX_GRADIENT_RIGHT_TO_LEFT 1
#DEFINE EFX_GRADIENT_TOP_TO_BOTTOM 2
#DEFINE EFX_GRADIENT_BOTTOM_TO_TOP 3
#DEFINE EFX_GRADIENT_OUT_TO_CENTER 4
#DEFINE EFX_GRADIENT_CENTER_TO_OUT 5
#DEFINE EFX_GRADIENT_DIAG_TL_TO_BR 6
#DEFINE EFX_GRADIENT_DIAG_BR_TO_TL 7
#DEFINE EFX_GRADIENT_DIAG_TR_TO_BL 8
#DEFINE EFX_GRADIENT_DIAG_BL_TO_TR 9
#DEFINE EFX_GRADIENT_DIAG_TLBR_TO_CENTER 10
#DEFINE EFX_GRADIENT_DIAG_CENTER_TO_TLBR 11
#DEFINE EFX_GRADIENT_DIAG_TRBL_TO_CENTER 12
#DEFINE EFX_GRADIENT_DIAG_CENTER_TO_TRBL 13
#DEFINE EFX_GRADIENT_ELLIPSE_TO_CENTER 14
#DEFINE EFX_GRADIENT_ELLIPSE_FROM_CENTER 15
#DEFINE EFX_GRADIENT_MAX 15
&& Pattern Styles
#DEFINE EFX_PATTERN_SOLID 0
#DEFINE EFX_PATTERN_TRANSPARENT 1
#DEFINE EFX_PATTERN_HORZ_LINE 2
#DEFINE EFX_PATTERN_VERT_LINE 3
#DEFINE EFX_PATTERN_DOWNWARD_DIAG 4
#DEFINE EFX_PATTERN_UPWARD_DIAG 5
#DEFINE EFX_PATTERN_CROSS 6
#DEFINE EFX_PATTERN_DIAG_CROSS 7
#DEFINE EFX_PATTERN_MAX 7
&& Notify Constants
#DEFINE EFX_NOTIFY_TRANSITION 0
#DEFINE EFX_NOTIFY_IMAGE 1
&& Shape Constants
#DEFINE EFX_SHAPE_RECT 0
#DEFINE EFX_SHAPE_SQUARE 1
#DEFINE EFX_SHAPE_OVAL 2
#DEFINE EFX_SHAPE_CIRCLE 3
#DEFINE EFX_SHAPE_ROUNDEDRECT 4
#DEFINE EFX_SHAPE_ROUNDEDSQUARE 5
#DEFINE EFX_SHAPE_OCTAGON 6
#DEFINE EFX_SHAPE_STAR 7
#DEFINE EFX_SHAPE_TRIANGLEEQ 8
#DEFINE EFX_SHAPE_TRIANGLERIGHT 9
#DEFINE EFX_SHAPE_TRIANGLEUP 10
#DEFINE EFX_SHAPE_TRIANGLELEFT 11
#DEFINE EFX_SHAPE_TRIANGLEDOWN 12
#DEFINE EFX_SHAPE_DIAMOND 13
#DEFINE EFX_SHAPE_PENTAGON 14
#DEFINE EFX_SHAPE_HEXAGON 15
#DEFINE EFX_SHAPE_LINE 16
#DEFINE EFX_SHAPE_REGION 17
#DEFINE EFX_SHAPE_MAX 17
&& BackStyle Constants
#DEFINE EFX_BACKSTYLE_TRANSPARENT 0
#DEFINE EFX_BACKSTYLE_OPAQUE 1
#DEFINE EFX_BACKSTYLE_TRANSLUCENT 2
#DEFINE EFX_BACKSTYLE_TILED_IMAGE 3
#DEFINE EFX_BACKSTYLE_TRANSLUCENT_TILED_IMAGE 4
#DEFINE EFX_BACKSTYLE_GRADIENT 5
#DEFINE EFX_BACKSTYLE_TRANSLUCENT_GRADIENT 6
#DEFINE EFX_BACKSTYLE_MAX 6
&& BorderStyle Constants
#DEFINE EFX_BORDERSTYLE_TRANSPARENT 0
#DEFINE EFX_BORDERSTYLE_SOLID 1
#DEFINE EFX_BORDERSTYLE_DASH 2
#DEFINE EFX_BORDERSTYLE_DOT 3
#DEFINE EFX_BORDERSTYLE_DASHDOT 4
#DEFINE EFX_BORDERSTYLE_DASHDOTDOT 5
#DEFINE EFX_BORDERSTYLE_MAX 5
&& InnerStyle Constants
#DEFINE EFX_INNERSTYLE_INSET 0
#DEFINE EFX_INNERSTYLE_RAISED 1
#DEFINE EFX_INNERSTYLE_MAX 1
&& OuterStyle Constants
#DEFINE EFX_OUTERSTYLE_INSET 0
#DEFINE EFX_OUTERSTYLE_RAISED 1
#DEFINE EFX_OUTERSTYLE_MAX 1
&& TextStyle Constants
#DEFINE EFX_TEXTSTYLE_NORMAL 0
#DEFINE EFX_TEXTSTYLE_INSETLIGHT 1
#DEFINE EFX_TEXTSTYLE_INSETHEAVY 2
#DEFINE EFX_TEXTSTYLE_RAISEDLIGHT 3
#DEFINE EFX_TEXTSTYLE_RAISEDHEAVY 4
#DEFINE EFX_TEXTSTYLE_DROPSHADOW 5
#DEFINE EFX_TEXTSTYLE_BLOCKSHADOW 6
#DEFINE EFX_TEXTSTYLE_OUTLINEBLOCK 7
#DEFINE EFX_TEXTSTYLE_MAX 7
&& TextAlign Constants
#DEFINE EFX_TEXTALIGN_LEFT_TOP 0
#DEFINE EFX_TEXTALIGN_LEFT_VCENTER 1
#DEFINE EFX_TEXTALIGN_LEFT_BOTTOM 2
#DEFINE EFX_TEXTALIGN_HCENTER_TOP 3
#DEFINE EFX_TEXTALIGN_HCENTER_VCENTER 4
#DEFINE EFX_TEXTALIGN_HCENTER_BOTTOM 5
#DEFINE EFX_TEXTALIGN_RIGHT_TOP 6
#DEFINE EFX_TEXTALIGN_RIGHT_VCENTER 7
#DEFINE EFX_TEXTALIGN_RIGHT_BOTTOM 8
#DEFINE EFX_TEXTALIGN_MAX 8
&& AnnHyperlinkTypeConstants
#DEFINE ANNLINK_NONE 0
#DEFINE ANNLINK_ANNEVENT 1
#DEFINE ANNLINK_ANNEVENT5 2
#DEFINE ANNLINK_RUN 3
#DEFINE ANNLINK_WEBPAGE 4
#INCLUDE L_FOX.H
#DEFINE VIEW_NORMAL 100
#DEFINE VIEW_FIT 0
#DEFINE VIEW_STRETCH -1
#DEFINE MB_OK 0
#DEFINE MB_EP 48
#DEFINE FORMTYPE_RESIZE 0
#DEFINE FORMTYPE_STAMP 1
#DEFINE FORMTYPE_DETECT 2
#DEFINE SO_LEAD 1
#DEFINE SO_JPEG 2
#DEFINE SO_CALS 3
#DEFINE SO_FAX 4
#DEFINE SO_EPS 5
#DEFINE SO_GEM 6
#DEFINE SO_GIF 7
#DEFINE SO_IOCA 8
#DEFINE SO_PCT 9
#DEFINE SO_MAC 10
#DEFINE SO_MSP 11
#DEFINE SO_OS2 12
#DEFINE SO_PCX 13
#DEFINE SO_PNG 14
#DEFINE SO_PSD 15
#DEFINE SO_RAS 16
#DEFINE SO_TGA 17
#DEFINE SO_TIF 18
#DEFINE SO_WBMP 19
#DEFINE SO_WFX 20
#DEFINE SO_WMF 21
#DEFINE SO_WPG 22
#DEFINE SO_WBMP_RLE 23
#DEFINE SO_DIC_G 24
#DEFINE SO_DIC_C 25
#DEFINE SO_ICO 26
#DEFINE SO_CUR 27
#DEFINE SO_AWD 28
#DEFINE SO_EXIF 29
#DEFINE SO_FPX 30
#DEFINE QF_CUSTOM 10
l_fox.dbc
 IMAGE1.CMP                                                                                                                                                                                                                                                     IMAGE2.CMP
PLATFORM
UNIQUEID
TIMESTAMP
CLASS
CLASSLOC
BASECLASS
OBJNAME
PARENT
PROPERTIES
PROTECTED
METHODS
OBJCODE
RESERVED1
RESERVED2
RESERVED3
RESERVED4
RESERVED5
RESERVED6
RESERVED7
RESERVED8
 COMMENT Screen
 WINDOWS _RQN0RQGK2 596797196&
 WINDOWS _RQN0RQGK4 596797196
 WINDOWS _R2L0YVONT 596797196
 WINDOWS _R2S0QD8AN 544825872n-
 WINDOWS _R4L18HI29 544639451&.
 WINDOWS _R4L18HIAL 544639451
 WINDOWS _R4L18HIB5 544827780
 WINDOWS _R8Y0PVOM4 544629638z?
 WINDOWS _R8Y0PVOMG 544629543*@
 WINDOWS _R8Y0PVOMX 582326588
 WINDOWS _R8Y0PVOU7 582326589
 WINDOWS _R8Y0ZCIK5 544639452vJ
 WINDOWS _R8Y10YYJF 5446394522J
 WINDOWS _R920LE5Z3 582326592
 WINDOWS _RQN0RQKIX 596797198xE
 WINDOWS _RQN0RQKJX 596797198
 COMMENT FONTINFO
VERSION =   3.00
demo.h
dataenvironment
dataenvironment
Dataenvironment
KLeft = 22
Top = 154
Width = 382
Height = 127
Name = "Dataenvironment"
cursor
cursor
Cursor1
Dataenvironment
Left = 20
Top = 10
Width = 95
Height = 90
Alias = "s_name"
Database = l_fox.dbc
CursorSource = "s_name"
Name = "Cursor1"
VIEWER
YTop = 3
Left = 3
Height = 360
Width = 587
DoCreate = .T.
AutoCenter = .F.
BackColor = 192,192,192
BorderStyle = 2
Caption = "LEADTOOLS OLE Control Demo in Visual FoxPro"
Closable = .T.
MaxButton = .F.
MinButton = .F.
MDIForm = .T.
FillStyle = 0
KeyPreview = .T.
WindowType = 0
WindowState = 0
LockScreen = .F.
Name = "VIEWER"
'PROCEDURE mousewait
THISFORM.MousePointer = 11
ENDPROC
PROCEDURE mouserestore
THISFORM.MousePointer = 0
ENDPROC
PROCEDURE viewnormal
gZoomFactor = VIEW_NORMAL
SET MARK OF POPUP _mview TO .F.
SET MARK OF BAR 1 Of _mview TO .T.
THISFORM.ViewImage
ENDPROC
PROCEDURE viewfit
gZoomFactor = VIEW_FIT
SET MARK OF POPUP _mview TO .F.
SET MARK OF BAR 3 Of _mview TO .T.
THISFORM.ViewImage
ENDPROC
PROCEDURE viewstretch
gZoomFactor = VIEW_STRETCH
SET MARK OF POPUP _mview TO .F.
SET MARK OF BAR 4 Of _mview TO .T.
THISFORM.ViewImage
ENDPROC
PROCEDURE viewzoom
CurZoom = gZoomFactor
IF CurZoom < 1
    CurZoom = 100
ENDIF
DO FORM GetValue WITH "ZOOM", "Percent:", 0, 800, CurZoom, 5, .F.
nUserGo = GetValue.GetUserResponse()
IF nUserGo = .T.
   gZoomFactor = GetValue.GetValue()
   SET MARK OF POPUP _mview TO .F.
    SET MARK OF BAR 2 Of _mview TO .T.
   THISFORM.ViewImage
ENDIF
GetValue.Release
ENDPROC
PROCEDURE resetrects
IF gZoomFactor > 0
   THISFORM.Lead1.SetDstRect (0, 0, THISFORM.Lead1.BitmapWidth * gZoomFactor / 100, THISFORM.Lead1.BitmapHeight * gZoomFactor / 100)
   THISFORM.Lead1.SetDstClipRect (0, 0, THISFORM.Lead1.BitmapWidth * gZoomFactor / 100, THISFORM.Lead1.BitmapHeight * gZoomFactor / 100)
    THISFORM.Lead1.ForceRepaint
    IF gZoomFactor = VIEW_FIT
       THISFORM.ViewFit
    ELSE
        THISFORM.ViewStretch
    ENDIF
ENDIF
ENDPROC
PROCEDURE setinfo
IF THISFORM.Lead1.Bitmap <> 0
    THISFORM.ImageStats.Caption = THISFORM.Filename + "  " + LTRIM(STR(THISFORM.Lead1.BitmapWidth)) + " x " + LTRIM(STR(THISFORM.Lead1.BitmapHeight)) + " ( " + LTRIM(STR(THISFORM.Lead1.BitmapBits)) + " BPP )"
    THISFORM.ImageStats.Caption = ""
ENDIF
THISFORM.Refresh
ENDPROC
PROCEDURE makedecintensityvals
PARAMETERS nInitVal
RETURN RGB(nInitVal, nInitVal - 1, nInitVal - 2) * 256 + nInitVal - 3
ENDPROC
PROCEDURE statusinit
THISFORM.LEAD1.EnableProgressEvent = .T.
THISFORM.MouseWait
THISFORM.Refresh
ENDPROC
PROCEDURE statusterm
LPARAMETERS fNoRepaint
THISFORM.LEAD1.EnableProgressEvent = .F.
THISFORM.SetInfo
THISFORM.MouseRestore
IF Not fNoRepaint && More Procs WANT a Repaint, so this double-negative allows more procs to leave the argument off
    THISFORM.Lead1.ForceRepaint
ENDIF
ON KEY
ENDPROC
PROCEDURE viewimage
&& Synchronize the image with the FoxPro record number
IF NormalMove = .T.
    && The current position is the NewPosition
    && The OldPosition is the previous position
    OldPosition = NewPosition
    NewPosition = RECNO()
    THISFORM.Lead1.dbMove(NewPosition - OldPosition)
ENDIF
&& Synchronization is turned off by default
NormalMove = .F.
&& If there is no bitmap, show the empty control and return.
IF THISFORM.Lead1.Bitmap = 0
    THISFORM.LEAD1.ForceRepaint
    RETURN
ENDIF
DO CASE
    CASE gZoomFactor = VIEW_NORMAL
        THISFORM.Lead1.AutoScroll = .T.
        THISFORM.Lead1.SetDstRect (0, 0, THISFORM.Lead1.BitmapWidth, THISFORM.Lead1.BitmapHeight)
        THISFORM.Lead1.SetDstClipRect (0, 0, THISFORM.Lead1.BitmapWidth, THISFORM.Lead1.BitmapHeight)
    CASE gZoomFactor = VIEW_FIT
        THISFORM.Lead1.AutoScroll = .F.
        nWidth = THISFORM.Lead1.Width
        nHeight = THISFORM.Lead1.Height
        IF nWidth * THISFORM.Lead1.BitmapHeight / nHeight > THISFORM.Lead1.BitmapWidth
            nWidth = nHeight * THISFORM.Lead1.BitmapWidth / THISFORM.Lead1.BitmapHeight
        ELSE
            nHeight = nWidth * THISFORM.Lead1.BitmapHeight / THISFORM.Lead1.BitmapWidth
        ENDIF
        THISFORM.Lead1.SetDstRect (0, 0, nWidth, nHeight)
        THISFORM.Lead1.SetDstClipRect (0, 0, THISFORM.Lead1.Width, THISFORM.Lead1.Height)
    CASE gZoomFactor = VIEW_STRETCH
        THISFORM.Lead1.AutoScroll = .F.
        THISFORM.Lead1.SetDstRect (0, 0, THISFORM.Lead1.Width, THISFORM.Lead1.Height)
        THISFORM.Lead1.SetDstClipRect (0, 0, THISFORM.Lead1.Width, THISFORM.Lead1.Height)
    OTHERWISE
        THISFORM.Lead1.AutoScroll = .T.
           THISFORM.Lead1.SetDstRect (0, 0, THISFORM.Lead1.BitmapWidth * gZoomFactor / 100, THISFORM.Lead1.BitmapHeight * gZoomFactor / 100)
        THISFORM.Lead1.SetDstClipRect (0, 0, THISFORM.Lead1.BitmapWidth * gZoomFactor / 100, THISFORM.Lead1.BitmapHeight * gZoomFactor / 100)
ENDCASE
THISFORM.Lead1.ForceRepaint
ENDPROC
PROCEDURE QueryUnload
&& Cancel the default behavior of closing the form.
&& We need to reference the form before we shut down the application.
NODEFAULT
&& Shut down the application by letting DEMO.PRG continue execution.
CLEAR EVENTS
ENDPROC
PROCEDURE Init
THISFORM.Caption = gMainTitle
THISFORM.Lead1.UnlockSupport(L_SUPPORT_EXPRESS, L_KEY_EXPRESS)
THISFORM.Lead1.UnlockSupport(L_SUPPORT_GIFLZW, L_KEY_GIFLZW)
THISFORM.Lead1.UnlockSupport(L_SUPPORT_TIFLZW, L_KEY_TIFLZW)
THISFORM.Lead2.Visible = .F.
THISFORM.Lead2.EnableMethodErrors = .F.
THISFORM.Lead1.Visible = .T.
THISFORM.Lead1.EnableMethodErrors = .F.
THISFORM.Lead1.Enabled = .T.
THISFORM.Lead1.AutoRepaint = .F.
THISFORM.Lead1.AutoScroll = .T.
THISFORM.fPaintWhileLoad = .F.
THISFORM.fShowOpenOpts = .F.
THISFORM.ImageStats.Caption = ""
THISFORM.Cls
THISFORM.Commandgroup1.Enabled = .F.
THISFORM.Commandgroup2.Enabled = .F.
THISFORM.Commandgroup2.cAddNew.Enabled = .F.
THISFORM.Commandgroup2.cDelete.Enabled = .F.
THISFORM.Commandgroup2.cSave.Enabled = .F.
THISFORM.Commandgroup1.cNext.Enabled = .F.
THISFORM.Commandgroup1.cPrev.Enabled = .F.
THISFORM.Commandgroup1.cFirst.Enabled = .F.
THISFORM.Commandgroup1.cLast.Enabled = .F.
THISFORM.Label1.Enabled = .F.
THISFORM.Label3.Enabled = .F.
THISFORM.StudentName.Enabled = .F.
THISFORM.Label2.Enabled = .F.
THISFORM.SearchString.Enabled = .F.
THISFORM.FindFirst.Enabled = .F.
THISFORM.FindNext.Enabled = .F.
ENDPROC
To work with an individual image file, choose File > Load Image.C
To work with a database, choose File > Open Database,
then select or create an ODBC data source that references this demo directory.
Instructions
ANSWER
Click,
You cannot update this database.
Error
cmp;jpg;jff;jtf;bmp;tif;tga;pcx;cal;mac;img;msp;wpg;ras;pct;pcd;eps;wmf
Invalid file
Error
Database is updated.
THISFORM
LEAD1
DBCANUPDATE
ANSWER
DBISEOF
ADDINGFIRSTRECORD
DBADDNEW
MYFILE
DBMOVEPREV
DBMOVENEXT
BITMAPBITS
DBUPDATE
ISGRAYSCALE
DBMOVELAST
NEWPOSITION
STUDENTNAME
VALUE
VIEWIMAGE
SETINFO
You cannot update this database.
Error
The database is empty.
Notice
The database is empty.
Notice
Database is updated.
THISFORM
LEAD1
DBCANUPDATE
ANSWER
DBISEOF
DBISBOF
DBDELETE
DBREQUERY
FORCEREPAINT
SETINFO
STUDENTNAME
VALUE
S_NAME
DBMOVEFIRST
NORMALMOVE
NEWPOSITION
VIEWIMAGEP
You cannot update this database.
Error
The database is empty.
Notice
Update failed. LEAD error: C
Notice
Database is updated.
THISFORM
LEAD1
DBCANUPDATE
ANSWER
DBISEOF
DBISBOF
BITMAPBITS
DBUPDATE
ISGRAYSCALE
cAddNew.Click,
cDelete.Click8
cSave.Click
Not found
Notice
CURRENTRECORD
THISFORM
STUDENTNAME
VALUE
NORMALMOVE
VIEWIMAGE
ANSWER
Click,
Not found
Notice
CURRENTRECORD
THISFORM
SEARCHSTRING
VALUE
STUDENTNAME
NORMALMOVE
VIEWIMAGE
ANSWER
Click,
"Arial, 1, 10, 6, 16, 13, 14, 3, 0
,OLEObject = C:\WINDOWS\SYSTEM\LTOCX90N.OCX
VIEWER
filename
fcancel
fshowopenopts
fpaintwhileload
*mousewait
*mouserestore
*viewnormal
*viewfit
*viewstretch
*viewzoom
*resetrects
*setinfo
*makedecintensityvals
*statusinit
*statusterm
*viewimage
label
label
ImageStats
VIEWER
vBackColor = 192,192,192
Caption = "ImageStats"
Height = 25
Left = 12
Top = 324
Width = 397
Name = "ImageStats"
commandgroup
commandgroup
Commandgroup1
VIEWER
ButtonCount = 4
BackColor = 192,192,192
Value = 1
Height = 37
Left = 420
Top = 144
Width = 155
Name = "Commandgroup1"
Command1.Top = 6
Command1.Left = 83
Command1.Height = 25
Command1.Width = 29
Command1.Caption = ">"
Command1.Name = "cNext"
Command2.Top = 6
Command2.Left = 43
Command2.Height = 25
Command2.Width = 29
Command2.Caption = "<"
Command2.Name = "cPrev"
Command3.Top = 6
Command3.Left = 8
Command3.Height = 25
Command3.Width = 29
Command3.Caption = "| <"
Command3.Name = "cFirst"
Command4.Top = 6
Command4.Left = 118
Command4.Height = 25
Command4.Width = 29
Command4.Caption = "> |"
Command4.Name = "cLast"
IPROCEDURE cNext.Click
&& Move to the next record.
TheRec = RECNO()
LOCATE FOR RECNO() = TheRec + 1
IF EOF() = .T.
    && If this is the end of the file, go back to where we were.
    LOCATE FOR RECNO() = TheRec
    Msg = "Already at last record"
    answer = MESSAGEBOX(Msg, 0, "Notice")
    && Otherwise, display current name; then synchronize and display the LEAD image.
    THISFORM.StudentName.Value = s_name.name
    NormalMove = .T.
    THISFORM.Filename = "Database Image"
    THISFORM.ViewImage
    && Display the bitmap information.
    THISFORM.SetInfo
ENDIF
ENDPROC
PROCEDURE cPrev.Click
&& Move to the previous record.
TheRec = RECNO()
LOCATE FOR RECNO() = TheRec - 1
IF EOF() = .T. && This works here, but BOF() does not.
    && If this is the beginning of the file, go back to where we were.
    LOCATE FOR RECNO() = TheRec
    Msg = "Already at first record"
    answer = MESSAGEBOX(Msg, 0, "Notice")
    && Otherwise, display the current name; then synchronize and display the LEAD image.
    THISFORM.Filename = "Database Image"
    THISFORM.StudentName.Value = s_name.name
    NormalMove = .T.
    THISFORM.ViewImage
    && Display the bitmap information.
    THISFORM.SetInfo
ENDIF
ENDPROC
PROCEDURE cFirst.Click
&& Move to the first record.
LOCATE FOR RECNO() = 1
THISFORM.StudentName.Value = s_name.name
&& Synchronize and display the LEAD image.
NormalMove = .T.
THISFORM.ViewImage
THISFORM.Filename = "Database Image"
&& Display the bitmap information.
THISFORM.SetInfo
ENDPROC
PROCEDURE cLast.Click
&& Go to the last record
LOCATE FOR RECNO() = RECCOUNT()
THISFORM.StudentName.Value = s_name.name
&& Synchronize and display the LEAD image.
NormalMove = .T.
THISFORM.ViewImage
THISFORM.Filename = "Database Image"
&& Display the bitmap information.
THISFORM.SetInfo
ENDPROC
Already at last record
Notice
Database Image
THEREC
ANSWER
THISFORM
STUDENTNAME
VALUE
S_NAME
NORMALMOVE
FILENAME
VIEWIMAGE
SETINFO
Already at first record
Notice
Database Image
THEREC
ANSWER
THISFORM
FILENAME
STUDENTNAME
VALUE
S_NAME
NORMALMOVE
VIEWIMAGE
SETINFOc
Database Image
THISFORM
STUDENTNAME
VALUE
S_NAME
NORMALMOVE
VIEWIMAGE
FILENAME
SETINFOb
Database Image
THISFORM
STUDENTNAME
VALUE
S_NAME
NORMALMOVE
VIEWIMAGE
FILENAME
SETINFO
cNext.Click,
cPrev.Clickt
cFirst.Click
cLast.Clickz
label
label
Label1
VIEWER
BackColor = 192,192,192
BackStyle = 0
Caption = "Student Name:"
Height = 25
Left = 420
Top = 186
Width = 157
Name = "Label1"
textbox
textbox
StudentName
VIEWER
ControlSource = "s_name.name"
Height = 25
Left = 420
Top = 204
Width = 156
DisabledForeColor = 128,128,128
DisabledBackColor = 255,255,255
Name = "StudentName"
label
label
Label2
VIEWER
rBackStyle = 0
Caption = "Search for Student:"
Height = 25
Left = 420
Top = 235
Width = 133
Name = "Label2"
textbox
textbox
SearchString
VIEWER
HHeight = 25
Left = 420
Top = 252
Width = 157
Name = "SearchString"
commandbutton
commandbutton
    FindFirst
VIEWER
\Top = 288
Left = 420
Height = 25
Width = 73
Caption = "Find First"
Name = "FindFirst"
PROCEDURE Click
&& Save the current record number
CurrentRecord = RECNO()
&& Find the first record that contains the specified string.
&& Make both operands uppercase to make the search case insensitive.
LOCATE FOR LIKE("*" + UPPER(ALLTRIM(THISFORM.SearchString.Value))+ "*",UPPER(name))
IF FOUND()
    && If a match is found, display the current name;
    && then synchronize and display the LEAD image.
    THISFORM.StudentName.Value = name
    NormalMove = .T.
    THISFORM.viewimage
    && Otherwise return to the current record and display a message.
    LOCATE FOR RECNO() = CurrentRecord
    Msg = "Not found"
    answer = MESSAGEBOX(Msg, 0, "Notice")
ENDIF
ENDPROC
^Top = 324
Left = 444
Height = 25
Width = 25
Visible = .F.
BackColor = 0
Name = "Lead2"
Lead2
olecontrol
olecontrol
,OLEObject = C:\WINDOWS\SYSTEM\LTOCX90N.OCX
OTop = 0
Left = 12
Height = 313
Width = 397
Appearance = 1
Name = "Lead1"
VIEWER
Lead1
olecontrol
olecontrol
VIEWER
Instructions
commandbutton
commandbutton
VIEWER
Label3
label
commandbutton
commandbutton
FindNext
VIEWER
ZTop = 288
Left = 504
Height = 25
Width = 73
Caption = "Find Next"
Name = "FindNext"
.PROCEDURE Click
&& Save the current record number
CurrentRecord = RECNO()
&& Find the next record that matches the previous LOCATE command.
CONTINUE
IF FOUND()
    && If a match is found, display the current name;
    && then synchronize and display the LEAD image.
    THISFORM.StudentName.Value = name
    NormalMove = .T.
    THISFORM.viewimage
    && Otherwise return to the current record and display a message.
    LOCATE FOR RECNO() = CurrentRecord
    Msg = "Not found"
    answer = MESSAGEBOX(Msg, 0, "Notice")
ENDIF
ENDPROC
KPROCEDURE Click
msg = "To work with an individual image file, choose File > Load Image." + Chr(13)
msg = msg + "To work with a database, choose File > Open Database," + Chr(13)
msg = msg + "then select or create an ODBC data source that references this demo directory."
answer = MESSAGEBOX(Msg, 0, "Instructions")
ENDPROC
label
VIEWER
Commandgroup2
commandgroup
commandgroup
~ButtonCount = 3
BackStyle = 0
BackColor = 192,192,192
BorderStyle = 0
Value = 1
Height = 109
Left = 420
Top = 36
Width = 156
Visible = .T.
Name = "Commandgroup2"
Command1.Top = 0
Command1.Left = 0
Command1.Height = 25
Command1.Width = 157
Command1.Caption = "\<Add Record"
Command1.Name = "cAddNew"
Command2.AutoSize = .F.
Command2.Top = 36
Command2.Left = 0
Command2.Height = 25
Command2.Width = 157
Command2.Caption = "\<Delete Record"
Command2.Name = "cDelete"
Command3.Top = 72
Command3.Left = 0
Command3.Height = 25
Command3.Width = 157
Command3.Caption = "\<Save Image Changes"
Command3.Name = "cSave"
rPROCEDURE cAddNew.Click
&& Quit if we cannot update the ODBC data source
IF THISFORM.Lead1.dbCanUpdate = .F.
    Msg = "You cannot update this database."
    answer = MESSAGEBOX(Msg, 0, "Error")
    RETURN
ENDIF
IF THISFORM.Lead1.dbIsEOF = .F.
    AddingFirstRecord = .F.
    AddingFirstRecord = .T.
ENDIF
&& Add a record to the ODBC data source.
&& The record is not added to the database until dbUpdate is called.
THISFORM.Lead1.dbAddNew
&& Get the file name.
&& This list includes all extensions except GIF, which requires a separate license.
MyFile = GETFILE('cmp;jpg;jff;jtf;bmp;tif;tga;pcx;cal;mac;img;msp;wpg;ras;pct;pcd;eps;wmf')
IF EMPTY(MyFile)
    RETURN
ENDIF
&& Load the image file into the LEAD control
nRet = THISFORM.Lead1.Load(MyFile, 0, 0, 1)
IF nRet <> 0
    Msg = "Invalid file"
    answer = MESSAGEBOX(Msg, 0, "Error")
    THISFORM.Lead1.dbMovePrev
    THISFORM.Lead1.dbMoveNext
    ACTIVATE MENU _MSYSMENU NOWAIT
    RETURN
ENDIF
&& Update the recordset using the appropriate format
IF THISFORM.Lead1.BitmapBits = 1
    THISFORM.Lead1.dbUpdate(FILE_LEAD1BIT, 1, 0)
ELSE
    IF THISFORM.Lead1.BitmapBits = 4
        THISFORM.Lead1.dbUpdate(FILE_PCX, 4, 0)
     ELSE
        IF THISFORM.Lead1.IsGrayscale = GRAY_NO
            THISFORM.Lead1.dbUpdate(FILE_LEAD, 24, QFACTOR_QMS)
        ELSE && save as grayscale
            THISFORM.Lead1.dbUpdate(FILE_LEAD, 8, QFACTOR_QMS)
        ENDIF
    ENDIF
ENDIF
&& Use dbMoveLast to keep the record counts synchronized
THISFORM.Lead1.dbMoveLast
&& Add a record to the FoxPro 3 table, if necessary.
&& If we try to delete all records, FoxPro retains one blank record.
&& Therefore, we append a blank record if the database is not empty (dbIsEOF = .F.),
&& or if this is the first use of the Foxpro database (RECCOUNT() = 0).
IF AddingFirstRecord = .F.
    APPEND BLANK
    ACTIVATE MENU _MSYSMENU NOWAIT
ENDIF
&& Update the record position
LOCATE FOR RECNO() = RECCOUNT()
NewPosition = RECNO()
&& Update the text box, and display the image.
THISFORM.StudentName.Value = MyFile
THISFORM.ViewImage
&& Display the bitmap information.
THISFORM.SetInfo
Msg = "Database is updated."
answer = MESSAGEBOX(Msg, 0, "LEAD")
ENDPROC
PROCEDURE cDelete.Click
&& Quit if we cannot update the ODBC data source
IF THISFORM.Lead1.dbCanUpdate = .F.
    Msg = "You cannot update this database."
    answer = MESSAGEBOX(Msg, 0, "Error")
    RETURN
ENDIF
&& Quit if the database is empty
IF THISFORM.Lead1.dbIsEOF = .T. AND THISFORM.Lead1.dbIsBOF = .T.
    Msg = "The database is empty."
    answer = MESSAGEBOX(Msg, 0, "Notice")
    RETURN
ENDIF
&& Delete the LEAD image
THISFORM.LEAD1.dbDelete
&& Delete the FoxPro record, and pack the table to keep the record count right.
DELETE
THISFORM.LEAD1.dbRequery
&& THISFORM.Refresh
&& Quit if the database is empty
IF THISFORM.Lead1.dbIsEOF = .T. AND THISFORM.Lead1.dbIsBOF = .T.
    THISFORM.LEAD1.ForceRepaint
    && Display the bitmap information.
    THISFORM.SetInfo
    Msg = "The database is empty."
    answer = MESSAGEBOX(Msg, 0, "Notice")
    ACTIVATE MENU _MSYSMENU
    RETURN
ENDIF
&& Display the name in the current record, which is the first record
THISFORM.StudentName.Value = s_name.name
&& Go to the first image and display it.
THISFORM.LEAD1.dbMoveFirst
NormalMove = .F.
NewPosition = 1
THISFORM.ViewImage
&& Display the bitmap information.
THISFORM.SetInfo
Msg = "Database is updated."
answer = MESSAGEBOX(Msg, 0, "LEAD")
ENDPROC
PROCEDURE cSave.Click
&& Quit if we cannot update the ODBC data source
IF THISFORM.Lead1.dbCanUpdate = .F.
    Msg = "You cannot update this database."
    answer = MESSAGEBOX(Msg, 0, "Error")
    RETURN
ENDIF
&& Quit if the database is empty
IF THISFORM.Lead1.dbIsEOF = .T. AND THISFORM.Lead1.dbIsBOF = .T.
    Msg = "The database is empty."
    answer = MESSAGEBOX(Msg, 0, "Notice")
    RETURN
ENDIF
&& Update the recordset using the appropriate format
IF THISFORM.Lead1.BitmapBits = 1
    nRet = THISFORM.Lead1.dbUpdate(FILE_LEAD1BIT, 1, 0)
ELSE
    IF THISFORM.Lead1.BitmapBits = 4
        nRet = THISFORM.Lead1.dbUpdate(FILE_PCX, 4, 0)
     ELSE
        IF THISFORM.Lead1.IsGrayscale = GRAY_NO
            nRet = THISFORM.Lead1.dbUpdate(FILE_LEAD, 24, QFACTOR_QMS)
        ELSE && save as grayscale
            nRet = THISFORM.Lead1.dbUpdate(FILE_LEAD, 8, QFACTOR_QMS)
        ENDIF
    ENDIF
ENDIF
&& Quit if the database is empty
IF nRet <> 0
    Msg = "Update failed. LEAD error: " + STR(nRet)
    answer = MESSAGEBOX(Msg, 0, "Notice")
    RETURN
ENDIF
Msg = "Database is updated."
answer = MESSAGEBOX(Msg, 0, "LEAD")
ENDPROC
LEADTOOLS OCX Copyright (c) 1997 LEAD Technologies, Inc.
Top = 0
Left = 421
Height = 27
Width = 156
Caption = "How to use this demo"
ForeColor = 128,0,255
Name = "Instructions"
vAlignment = 2
BackStyle = 0
Caption = "Database "
Height = 18
Left = 420
Top = 12
Width = 157
Name = "Label3"
LEADTOOLS OCX Copyright (c) 1997 LEAD Technologies, Inc.
THISFORM
MOUSEPOINTER
THISFORM
MOUSEPOINTER:
GZOOMFACTOR
THISFORM
VIEWIMAGE:
GZOOMFACTOR
THISFORM
VIEWIMAGE;
GZOOMFACTOR
THISFORM
VIEWIMAGE
GetValue
Percent:
CURZOOM
GZOOMFACTOR
GETVALUE
NUSERGO
GETUSERRESPONSE
THISFORM
VIEWIMAGE
RELEASE
GZOOMFACTOR
THISFORM
LEAD1
SETDSTRECT
BITMAPWIDTH
BITMAPHEIGHT
SETDSTCLIPRECT
FORCEREPAINT
VIEWFIT
VIEWSTRETCH
 BPP )
THISFORM
LEAD1
BITMAP
IMAGESTATS
CAPTION
FILENAME
BITMAPWIDTH
BITMAPHEIGHT
BITMAPBITS
REFRESH1
NINITVAL(
THISFORM
LEAD1
ENABLEPROGRESSEVENT
MOUSEWAIT
REFRESHV
FNOREPAINT
THISFORM
LEAD1
ENABLEPROGRESSEVENT
SETINFO
MOUSERESTORE
FORCEREPAINT
NORMALMOVE
OLDPOSITION
NEWPOSITION
THISFORM
LEAD1
DBMOVE
BITMAP
FORCEREPAINT
GZOOMFACTOR
AUTOSCROLL
SETDSTRECT
BITMAPWIDTH
BITMAPHEIGHT
SETDSTCLIPRECT
NWIDTH
WIDTH
NHEIGHT
HEIGHT
THISFORM
CAPTION
GMAINTITLE
LEAD1
UNLOCKSUPPORT
LEAD2
VISIBLE
ENABLEMETHODERRORS
ENABLED
AUTOREPAINT
AUTOSCROLL
FPAINTWHILELOAD
FSHOWOPENOPTS
IMAGESTATS
COMMANDGROUP1
COMMANDGROUP2
CADDNEW
CDELETE
CSAVE
CNEXT
CPREV
CFIRST
CLAST
LABEL1
LABEL3
STUDENTNAME
LABEL2
SEARCHSTRING
FINDFIRST
FINDNEXT
mousewait,
mouserestore[
viewnormal
viewfit
viewstretchJ
viewzoom
resetrects
setinfo0
makedecintensityvals=
statusinit|
statusterm
viewimage
QueryUnloadf
Initv
about.scx
about.sct
colorres.scx
colorres.sct
getindex.scx
getindex.sct
getvalue.scx
getvalue.sct
info.scx
info.sct
openopts.scx
openopts.sct
resize.scx
resize.sct
saveopts.scx
saveopts.sct
e:\temp\
demo.fxp
procs.fxp
demomenu.mpx
l_fox.h
demo.h
s_name.dbf
viewer.scx
viewer.sct