You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1367 lines
52 KiB
1367 lines
52 KiB
module libxl
|
|
|
|
use ifnls
|
|
|
|
integer, parameter :: ALIGNH_GENERAL=0, ALIGNH_LEFT=1, ALIGNH_CENTER=2, ALIGNH_RIGHT=3, ALIGNH_FILL=4, ALIGNH_JUSTIFY=5, ALIGNH_MERGE=6, ALIGNH_DISTRIBUTED=7
|
|
integer, parameter :: ALIGNV_TOP=0,ALIGNV_CENTER=1,ALIGNV_BOTTOM=2,ALIGNV_JUSTIFY=3,ALIGNV_DISTRIBUTED=4
|
|
integer, parameter :: BORDERSTYLE_NONE=0,BORDERSTYLE_THIN=1,BORDERSTYLE_MEDIUM=2,BORDERSTYLE_DASHED=3,BORDERSTYLE_DOTTED=4,BORDERSTYLE_THICK=5,BORDERSTYLE_DOUBLE=6,BORDERSTYLE_HAIR=7,BORDERSTYLE_MEDIUMDASHED=8,BORDERSTYLE_DASHDOT=9,BORDERSTYLE_MEDIUMDASHDOT=10,BORDERSTYLE_DASHDOTDOT=11,BORDERSTYLE_MEDIUMDASHDOTDOT=12,BORDERSTYLE_SLANTDASHDOT=13
|
|
integer, parameter :: BORDERDIAGONAL_NONE=0,BORDERDIAGONAL_DOWN=1,BORDERDIAGONAL_UP=2,BORDERDIAGONAL_BOTH=3
|
|
integer, parameter :: FILLPATTERN_NONE=0,FILLPATTERN_SOLID=1,FILLPATTERN_GRAY50=2,FILLPATTERN_GRAY75=3,FILLPATTERN_GRAY25=4,FILLPATTEN_HORSTRIPE=5,FILLPATTERN_VERSTRIPE=6,FILLPATTERN_REVDIAGSTRIPE=7,FILLPATTERN_DIAGSTRIPE=8,FILLPATTERN_DIAGCROSSHATCH=9,FILLPATTERN_THICKDIAGCROSSHATCH=10,FILLPATTERN_THINHORSTRIPE=11,FILLPATTERN_THINVERSTRIPE=12,FILLPATTERN_THINREVDIAGSTRIPE=13,FILLPATTERN_THINDIAGSTRIPE=14,FILLPATTERN_THINHORCROSSHATCH=15,FILLPATTERN_THINDIAGCROSSHATCH=16,FILLPATTERN_GRAY12P5=17,FILLPATTERN_GRAY6P25=18
|
|
integer, parameter :: NUMFORMAT_GENERAL=0,NUMFORMAT_NUMBER=1,NUMFORMAT_NUMBER_D2=2,NUMFORMAT_NUMBER_SEP=3,NUMFORMAT_NUMBER_SEP_D2=4,NUMFORMAT_CURRENCY_NEGBRA=5,NUMFORMAT_CURRENCY_NEGBRARED=6,NUMFORMAT_CURRENCY_D2_NEGBRA=7,NUMFORMAT_CURRENCY_D2_NEGBRARED=8,NUMFORMAT_PERCENT=9,NUMFORMAT_PERCENT_D2=10,NUMFORMAT_SCIENTIFIC_D2=11,NUMFORMAT_FRACTION_ONEDIG=12,NUMFORMAT_FRACTION_TWODIG=13,NUMFORMAT_DATE=14,NUMFORMAT_CUSTOM_D_MON_YY=15,NUMFORMAT_CUSTOM_D_MON=16,NUMFORMAT_CUSTOM_MON_YY=17,NUMFORMAT_CUSTOM_HMM_AM=18,NUMFORMAT_CUSTOM_HMMSS_AM=19,NUMFORMAT_CUSTOM_HMM=20,NUMFORMAT_CUSTOM_HMMSS=21,NUMFORMAT_CUSTOM_MDYYYY_HMM=22,NUMFORMAT_NUMBER_SEP_NEGBRA=37,NUMFORMAT_NUMBER_SEP_NEGBRARED=38,NUMFORMAT_NUMBER_D2_SEP_NEGBRA=39,NUMFORMAT_NUMBER_D2_SEP_NEGBRARED=40,NUMFORMAT_ACCOUNT=41,NUMFORMAT_ACCOUNTCUR=42,NUMFORMAT_ACCOUNT_D2=43,NUMFORMAT_ACCOUNT_D2_CUR=44,NUMFORMAT_CUSTOM_MMSS=45,NUMFORMAT_CUSTOM_H0MMSS=46,NUMFORMAT_CUSTOM_MMSS0=47,NUMFORMAT_CUSTOM_000P0E_PLUS0=48,NUMFORMAT_TEXT=49
|
|
integer, parameter :: COLOR_BLACK=8,COLOR_WHITE=9,COLOR_RED=10,COLOR_BRIGHTGREEN=11,COLOR_BLUE=12,COLOR_YELLOW=13,COLOR_PINK=14,COLOR_TURQUOISE=15,COLOR_DARKRED=16,COLOR_GREEN=17,COLOR_DARKBLUE=18,COLOR_DARKYELLOW=19,COLOR_VIOLET=20,COLOR_TEAL=21,COLOR_GRAY25=22,COLOR_GRAY50=23,COLOR_PERIWINKLE_CF=24,COLOR_PLUM_CF=25,COLOR_IVORY_CF=26,COLOR_LIGHTTURQUOISE_CF=27,COLOR_DARKPURPLE_CF=28,COLOR_CORAL_CF=29,COLOR_OCEANBLUE_CF=30,COLOR_ICEBLUE_CF=31,COLOR_DARKBLUE_CL=32,COLOR_PINK_CL=33,COLOR_YELLOW_CL=34,COLOR_TURQUOISE_CL=35,COLOR_VIOLET_CL=36,COLOR_DARKRED_CL=37,COLOR_TEAL_CL=38,COLOR_BLUE_CL=39,COLOR_SKYBLUE=40,COLOR_LIGHTTURQUOISE=41,COLOR_LIGHTGREEN=42,COLOR_LIGHTYELLOW=43,COLOR_PALEBLUE=44,COLOR_ROSE=45,COLOR_LAVENDER=46,COLOR_TAN=47,COLOR_LIGHTBLUE=48,COLOR_AQUA=49,COLOR_LIME=50,COLOR_GOLD=51,COLOR_LIGHTORANGE=52,COLOR_ORANGE=53,COLOR_BLUEGRAY=54,COLOR_GRAY40=55,COLOR_DARKTEAL=56,COLOR_SEAGREEN=57,COLOR_DARKGREEN=58,COLOR_OLIVEGREEN=59,COLOR_BROWN=60,COLOR_PLUM=61,COLOR_INDIGO=62,COLOR_GRAY80=63,COLOR_DEFAULT_FOREGROUND=64,COLOR_DEFAULT_BACKGROUND=65,COLOR_TOOLTIP=81,COLOR_AUTO=32767
|
|
integer, parameter :: CELLTYPE_EMPTY=0,CELLTYPE_NUMBER=1,CELLTYPE_STRING=2,CELLTYPE_BOOLEAN=3,CELLTYPE_BLANK=4,CELLTYPE_ERROR=5
|
|
integer, parameter :: ERRORTYPE_NULL=0,ERRORTYPE_DIV_0=7,ERRORTYPE_VALUE=15,ERRORTYPE_REF=23,ERRORTYPE_NAME=29,ERRORTYPE_NUM=36,ERRORTYPE_NA=42,ERRORTYPE_NOERROR=255
|
|
integer, parameter :: PANETYPE_BOTRIGHT=0,PANETYPE_TOPRIGHT=1,PANETYPE_BOTTOMLEFT=2,PANETYPE_TOPLEFT=3
|
|
integer, parameter :: PAPER_DEFAULT=0,PAPER_LETTER=1,PAPER_LETTERSMALL=2,PAPER_TABLOID=3,PAPER_LEDGER=4,PAPER_LEGAL=5,PAPER_STATEMENT=6,PAPER_EXECUTIVE=7,PAPER_A3=8,PAPER_A4=9,PAPER_A4SMALL=10,PAPER_A5=11,PAPER_B4=12,PAPER_B5=13,PAPER_FOLIO=14,PAPER_QUATRO=15,PAPER_10x14=16,PAPER_10x17=17,PAPER_NOTE=18,PAPER_ENVELOPE_9=19,PAPER_ENVELOPE_10=20,PAPER_ENVELOPE_11=21,PAPER_ENVELOPE_12=22,PAPER_ENVELOPE_14=23,PAPER_C_SIZE=24,PAPER_D_SIZE=25,PAPER_E_SIZE=26,PAPER_ENVELOPE_DL=27,PAPER_ENVELOPE_C5=28,PAPER_ENVELOPE_C3=29,PAPER_ENVELOPE_C4=30,PAPER_ENVELOPE_C6=31,PAPER_ENVELOPE_C65=32,PAPER_ENVELOPE_B4=33,PAPER_ENVELOPE_B5=34,PAPER_ENVELOPE_B6=35,PAPER_ENVELOPE=36,PAPER_ENVELOPE_MONARCH=37,PAPER_US_ENVELOPE=38,PAPER_FANFOLD=39,PAPER_GERMAN_STD_FANFOLD=40,PAPER_GERMAN_LEGAL_FANFOLD=41,PAPER_B4_ISO=42,PAPER_JAPANESE_POSTCARD=43,PAPER_9x11=44,PAPER_10x11=45,PAPER_15x11=46,PAPER_ENVELOPE_INVITE=47,PAPER_US_LETTER_EXTRA=50,PAPER_US_LEGAL_EXTRA=51,PAPER_US_TABLOID_EXTRA=52,PAPER_A4_EXTRA=53,PAPER_LETTER_TRANSVERSE=54,PAPER_A4_TRANSVERSE=55,PAPER_LETTER_EXTRA_TRANSVERSE=56,PAPER_SUPERA=57,PAPER_SUPERB=58,PAPER_US_LETTER_PLUS=59,PAPER_A4_PLUS=60,PAPER_A5_TRANSVERSE=61,PAPER_B5_TRANSVERSE=62,PAPER_A3_EXTRA=63,PAPER_A5_EXTRA=64,PAPER_B5_EXTRA=65,PAPER_A2=66,PAPER_A3_TRANSVERSE=67,PAPER_A3_EXTRA_TRANSVERSE=68,PAPER_JAPANESE_DOUBLE_POSTCARD=69,PAPER_A6=70,PAPER_JAPANESE_ENVELOPE_KAKU2=71,PAPER_JAPANESE_ENVELOPE_KAKU3=72,PAPER_JAPANESE_ENVELOPE_CHOU3=73,PAPER_JAPANESE_ENVELOPE_CHOU4=74,PAPER_LETTER_ROTATED=75,PAPER_A3_ROTATED=76,PAPER_A4_ROTATED=77,PAPER_A5_ROTATED=78,PAPER_B4_ROTATED=79,PAPER_B5_ROTATED=80,PAPER_JAPANESE_POSTCARD_ROTATED=81,PAPER_DOUBLE_JAPANESE_POSTCARD_ROTATED=82,PAPER_A6_ROTATED=83,PAPER_JAPANESE_ENVELOPE_KAKU2_ROTATED=84,PAPER_JAPANESE_ENVELOPE_KAKU3_ROTATED=85,PAPER_JAPANESE_ENVELOPE_CHOU3_ROTATED=86,PAPER_JAPANESE_ENVELOPE_CHOU4_ROTATED=87,PAPER_B6=88,PAPER_B6_ROTATED=89,PAPER_12x11=90,PAPER_JAPANESE_ENVELOPE_YOU4=91,PAPER_JAPANESE_ENVELOPE_YOU4_ROTATED=92,PAPER_PRC16K=93,PAPER_PRC32K=94,PAPER_PRC32K_BIG=95,PAPER_PRC_ENVELOPE1=96,PAPER_PRC_ENVELOPE2=97,PAPER_PRC_ENVELOPE3=98,PAPER_PRC_ENVELOPE4=99,PAPER_PRC_ENVELOPE5=100,PAPER_PRC_ENVELOPE6=101,PAPER_PRC_ENVELOPE7=102,PAPER_PRC_ENVELOPE8=103,PAPER_PRC_ENVELOPE9=104,PAPER_PRC_ENVELOPE10=105,PAPER_PRC16K_ROTATED=106,PAPER_PRC32K_ROTATED=107,PAPER_PRC32KBIG_ROTATED=108,PAPER_PRC_ENVELOPE1_ROTATED=109,PAPER_PRC_ENVELOPE2_ROTATED=110,PAPER_PRC_ENVELOPE3_ROTATED=111,PAPER_PRC_ENVELOPE4_ROTATED=112,PAPER_PRC_ENVELOPE5_ROTATED=113,PAPER_PRC_ENVELOPE6_ROTATED=114,PAPER_PRC_ENVELOPE7_ROTATED=115,PAPER_PRC_ENVELOPE8_ROTATED=116,PAPER_PRC_ENVELOPE9_ROTATED=117,PAPER_PRC_ENVELOPE10_ROTATED=118
|
|
integer, parameter :: UNDERLINE_NONE=0,UNDERLINE_SINGLE=1,UNDERLINE_DOUBLE=2,UNDERLINE_SINGLEACC=33,UNDERLINE_DOUBLEACC=34
|
|
integer, parameter :: SCRIPT_NORMAL=0,SCRIPT_SUPER=1,SCRIPT_SUB=2
|
|
|
|
type BookHandle
|
|
integer point
|
|
end type
|
|
|
|
type SheetHandle
|
|
integer point
|
|
end type
|
|
|
|
type FormatHandle
|
|
integer point
|
|
end type
|
|
|
|
type FontHandle
|
|
integer point
|
|
end type
|
|
|
|
interface
|
|
|
|
type(BookHandle) function xlCreateBook()
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlCreateBookA':: xlCreateBook
|
|
import
|
|
end function
|
|
|
|
type(BookHandle) function xlCreateXMLBook()
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlCreateXMLBookA':: xlCreateXMLBook
|
|
import
|
|
end function
|
|
|
|
integer(4) function xlBookLoad(handle,filename)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookLoadA':: xlBookLoad
|
|
!DEC$ATTRIBUTES REFERENCE :: filename
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) filename
|
|
end function
|
|
|
|
integer(4) function xlBookSave(handle,filename)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSaveA' :: xlBookSave
|
|
!DEC$ATTRIBUTES REFERENCE :: filename
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) filename
|
|
end function
|
|
|
|
integer(4) function xlBookLoadRaw(handle,data_,size)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookLoadRawA' :: xlBookLoadRaw
|
|
!DEC$ATTRIBUTES REFERENCE :: data_
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) data_
|
|
integer(4) size
|
|
end function
|
|
|
|
integer(4) function xlBookSaveRaw(handle,data_,size)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSaveRawA' :: xlBookSaveRaw
|
|
!DEC$ATTRIBUTES REFERENCE :: data_
|
|
!DEC$ATTRIBUTES REFERENCE :: size
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) data_
|
|
integer(4) size
|
|
end function
|
|
|
|
type(SheetHandle) function xlBookAddSheet(handle,name,initSheet)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookAddSheetA' :: xlBookAddSheet
|
|
!DEC$ATTRIBUTES REFERENCE :: name
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) name
|
|
type(SheetHandle) initSheet
|
|
end function
|
|
|
|
type(SheetHandle) function xlBookGetSheet(handle,index)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookGetSheetA' :: xlBookGetSheet
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) index
|
|
end function
|
|
|
|
integer(4) function xlBookDelSheet(handle,index)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookDelSheetA' :: xlBookDelSheet
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) index
|
|
end function
|
|
|
|
integer(4) function xlBookSheetCount(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSheetCountA' :: xlBookSheetCount
|
|
import
|
|
type(BookHandle) handle
|
|
end function
|
|
|
|
type(FormatHandle) function xlBookAddFormat(handle,initFormat)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookAddFormatA' :: xlBookAddFormat
|
|
import
|
|
type(BookHandle) handle
|
|
type(FormatHandle) initFormat
|
|
end function
|
|
|
|
type(FontHandle) function xlBookAddFont(handle,initFont)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookAddFontA' :: xlBookAddFont
|
|
import
|
|
type(BookHandle) handle
|
|
type(FontHandle) initFont
|
|
end function
|
|
|
|
integer(4) function xlBookAddCustomNumFormat(handle,customNumFormat)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookAddCustomNumFormatA' :: xlBookAddCustomNumFormat
|
|
!DEC$ATTRIBUTES REFERENCE :: customNumFormat
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) customNumFormat
|
|
end function
|
|
|
|
integer(4) function xlBookCustomNumFormat(handle,fmt)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookCustomNumFormatA' :: xlBookCustomNumFormat
|
|
!DEC$ATTRIBUTES REFERENCE :: xlBookCustomNumFormat
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) fmt
|
|
end function
|
|
|
|
type(FormatHandle) function xlBookFormat(handle,index)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookFormatA' :: xlBookFormat
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) index
|
|
end function
|
|
|
|
integer(4) function xlBookFormatSize(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookFormatSizeA' :: xlBookFormatSize
|
|
import
|
|
type(BookHandle) handle
|
|
end function
|
|
|
|
type(FontHandle) function xlBookFont(handle,index)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookFontA' :: xlBookFont
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) index
|
|
end function
|
|
|
|
integer(4) function xlBookFontSize(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookFontSizeA' :: xlBookFontSize
|
|
import
|
|
type(BookHandle) handle
|
|
end function
|
|
|
|
double precision function xlBookDatePack(handle,year,month,day,hour,min,sec,msec)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookDatePackA' :: xlBookDatePack
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) year
|
|
integer(4) month
|
|
integer(4) day
|
|
integer(4) hour
|
|
integer(4) min
|
|
integer(4) sec
|
|
integer(4) msec
|
|
end function
|
|
|
|
integer(4) function xlBookDateUnpack(handle,value_,year,month,day,hour,min,sec,msec)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookDateUnpackA' :: xlBookDateUnpack
|
|
!DEC$ATTRIBUTES REFERENCE :: year,month,day,hour,min,sec,msec
|
|
import
|
|
type(BookHandle) handle
|
|
double precision value_
|
|
integer(4) year
|
|
integer(4) month
|
|
integer(4) day
|
|
integer(4) hour
|
|
integer(4) min
|
|
integer(4) sec
|
|
integer(4) msec
|
|
end function
|
|
|
|
integer(4) function xlBookColorPack(handle,red,green,blue)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookColorPackA' :: xlBookColorPack
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) red
|
|
integer(4) green
|
|
integer(4) blue
|
|
end function
|
|
|
|
subroutine xlBookColorUnpack(handle,color,red,green,blue)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookColorUnpackA' :: xlBookColorUnpack
|
|
!DEC$ATTRIBUTES REFERENCE :: red,green,blue
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) color
|
|
integer(4) red
|
|
integer(4) green
|
|
integer(4) blue
|
|
end subroutine
|
|
|
|
integer(4) function xlBookActiveSheet(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookActiveSheetA' :: xlBookActiveSheet
|
|
import
|
|
type(BookHandle) handle
|
|
end function
|
|
|
|
subroutine xlBookSetActiveSheet(handle,index)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSetActiveSheetA' :: xlBookSetActiveSheet
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) index
|
|
end subroutine
|
|
|
|
integer(4) function xlBookAddPicture(handle,filename)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookAddPictureA' :: xlBookAddPicture
|
|
!DEC$ATTRIBUTES REFERENCE :: filename
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) filename
|
|
end function
|
|
|
|
integer(4) function xlBookAddPicture2(handle,data_,size)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookAddPicture2A' :: xlBookAddPicture2
|
|
!DEC$ATTRIBUTES REFERENCE :: data_
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) data_
|
|
integer(4) size
|
|
end function
|
|
|
|
integer(4) function xlBookDefaultFont(handle,fontSize)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookDefaultFontA' :: xlBookDefaultFont
|
|
!DEC$ATTRIBUTES REFERENCE :: xlBookDefaultFont
|
|
!DEC$ATTRIBUTES REFERENCE :: fontSize
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) fontSize
|
|
end function
|
|
|
|
subroutine xlBookSetDefaultFont(handle,fontName,fontSize)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSetDefaultFontA' :: xlBookSetDefaultFont
|
|
!DEC$ATTRIBUTES REFERENCE :: fontName
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) fontName
|
|
integer(4) fontSize
|
|
end subroutine
|
|
|
|
subroutine xlBookSetKeyPrivate(handle,name,key)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSetKeyA' :: xlBookSetKeyPrivate
|
|
!DEC$ATTRIBUTES REFERENCE :: name
|
|
!DEC$ATTRIBUTES REFERENCE :: key
|
|
import
|
|
type(BookHandle) handle
|
|
integer(2), dimension(*) :: name
|
|
integer(2), dimension(*) :: key
|
|
end subroutine
|
|
|
|
integer(4) function xlBookRgbMode(hanlde)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookRgbModeA' :: xlBookRgbMode
|
|
import
|
|
type(BookHandle) handle
|
|
end function
|
|
|
|
subroutine xlBookSetRgbMode(handle,rgbMode)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSetRgbModeA' :: xlBookSetRgbMode
|
|
import
|
|
type(BookHandle) handle
|
|
integer(4) rgbMode
|
|
end subroutine
|
|
|
|
subroutine xlBookSetLocale(handle,locale)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookSetLocaleA' :: xlBookSetLocale
|
|
!DEC$ATTRIBUTES REFERENCE :: locale
|
|
import
|
|
type(BookHandle) handle
|
|
character(*) locale
|
|
end subroutine
|
|
|
|
integer(4) function xlBookErrorMessage(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookErrorMessageA' :: xlBookErrorMessage
|
|
!DEC$ATTRIBUTES REFERENCE :: xlBookErrorMessage
|
|
import
|
|
type(BookHandle) handle
|
|
end function
|
|
|
|
subroutine xlBookRelease(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlBookReleaseA' :: xlBookRelease
|
|
import
|
|
type(BookHandle) handle
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetCellType(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetCellTypeA' :: xlSheetCellType
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end function
|
|
|
|
integer(4) function xlSheetIsFormula(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetIsFormulaA' :: xlSheetIsFormula
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end function
|
|
|
|
type(FormatHandle) function xlSheetCellFormat(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetCellFormatA' :: xlSheetCellFormat
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end function
|
|
|
|
subroutine xlSheetSetCellFormat(handle,row,col,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetCellFormatA' :: xlSheetSetCellFormat
|
|
!!DEC$ATTRIBUTES REFERENCE :: format_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
type(FormatHandle) format_
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetReadStr(handle,row,col,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetReadStrA' :: xlSheetReadStr
|
|
!!DEC$ATTRIBUTES REFERENCE :: xlSheetReadStr
|
|
!!DEC$ATTRIBUTES REFERENCE :: format_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetWriteStr(handle,row,col,value_,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetWriteStrA' :: xlSheetWriteStr
|
|
!DEC$ATTRIBUTES REFERENCE :: value_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
character(*) value_
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
double precision function xlSheetReadNum(handle,row,col,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetReadNumA' :: xlSheetReadNum
|
|
!DEC$ATTRIBUTES REFERENCE :: format_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetWriteNum(handle,row,col,value_,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetWriteNumA' :: xlSheetWriteNum
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
double precision value_
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetReadBool(handle,row,col,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetReadBoolA' :: xlSheetReadBool
|
|
!DEC$ATTRIBUTES REFERENCE :: format_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetWriteBool(handle,row,col,value_,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetWriteBoolA' :: xlSheetWriteBool
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col,value_
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetReadBlank(handle,row,col,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetReadBlankA' :: xlSheetReadBlank
|
|
!DEC$ATTRIBUTES REFERENCE :: format_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetWriteBlank(handle,row,col,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetWriteBlankA' :: xlSheetWriteBlank
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetReadFormula(handle,row,col,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetReadFormulaA' :: xlSheetReadFormula
|
|
!DEC$ATTRIBUTES REFERENCE :: xlSheetReadFormula
|
|
!DEC$ATTRIBUTES REFERENCE :: format_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetWriteFormula(handle,row,col,value_,format_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetWriteFormulaA' :: xlSheetWriteFormula
|
|
!DEC$ATTRIBUTES REFERENCE :: value_
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
character(*) value_
|
|
type(FormatHandle) format_
|
|
end function
|
|
|
|
integer(4) function xlSheetReadComment(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetReadCommentA' :: xlSheetReadComment
|
|
!DEC$ATTRIBUTES REFERENCE :: xlSheetReadComment
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end function
|
|
|
|
subroutine xlSheetWriteComment(handle,row,col,value_,author,width,height)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetWriteCommentA' :: xlSheetWriteComment
|
|
!DEC$ATTRIBUTES REFERENCE :: value_
|
|
!DEC$ATTRIBUTES REFERENCE :: author
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
character(*) value_
|
|
character(*) author
|
|
integer(4) width
|
|
integer(4) height
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetIsDate(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetIsDateA' :: xlSheetIsDate
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end function
|
|
|
|
integer(4) function xlSheetReadError(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetReadErrorA' :: xlSheetReadError
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end function
|
|
|
|
double precision function xlSheetColWidth(handle,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetColWidthA' :: xlSheetColWidth
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) col
|
|
end function
|
|
|
|
double precision function xlSheetRowHeight(handle,row)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetRowHeightA' :: xlSheetRowHeight
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
end function
|
|
|
|
integer(4) function xlSheetSetCol(handle,colFirst,colLast,width,format_,hidden)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetColA' :: xlSheetSetCol
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) colFirst
|
|
integer(4) colLast
|
|
double precision width
|
|
type(FormatHandle) format_
|
|
integer(4) hidden
|
|
end function
|
|
|
|
integer(4) function xlSheetSetRow(handle,row,height,format_,hidden)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetRowA' :: xlSheetSetRow
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
double precision height
|
|
type(FormatHandle) format_
|
|
integer(4) hidden
|
|
end function
|
|
|
|
integer(4) function xlSheetGetMerge(handle,row,col,rowFirst,rowLast,colFirst,colLast)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetGetMergeA' :: xlSheetGetMerge
|
|
!DEC$ATTRIBUTES REFERENCE :: rowFirst,rowLast,colFirst,colLast
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
integer(4) rowFirst
|
|
integer(4) rowLast
|
|
integer(4) colFirst
|
|
integer(4) colLast
|
|
end function
|
|
|
|
integer(4) function xlSheetSetMerge(handle,rowFirst,rowLast,colFirst,colLast)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetMergeA' :: xlSheetSetMerge
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) rowFirst
|
|
integer(4) rowLast
|
|
integer(4) colFirst
|
|
integer(4) colLast
|
|
end function
|
|
|
|
integer(4) function xlSheetDelMerge(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetDelMergeA' :: xlSheetDelMerge
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end function
|
|
|
|
subroutine xlSheetSetPicture(handle,row,col,pictureId,scale)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetPictureA' :: xlSheetSetPicture
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
integer(4) pictureId
|
|
double precision scale
|
|
end subroutine
|
|
|
|
subroutine xlSheetSetPicture2(handle,row,col,pictureId,width,height)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetPicture2A' :: xlSheetSetPicture2
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
integer(4) pictureId
|
|
integer(4) width
|
|
integer(4) height
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetSetHorPageBreak(handle,row,pageBreak)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetHorPageBreakA' :: xlSheetSetHorPageBreak
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) pageBreak
|
|
end function
|
|
|
|
integer(4) function xlSheetSetVerPageBreak(handle,col,pageBreak)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetVerPageBreakA' :: xlSheetSetVerPageBreak
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) col
|
|
integer(4) pageBreak
|
|
end function
|
|
|
|
subroutine xlSheetSplit(handle,row,col)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSplitA' :: xlSheetSplit
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) row
|
|
integer(4) col
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetGroupRows(handle,rowFirst,rowLast,collapsed)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetGroupRowsA' :: xlSheetGroupRows
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) rowFirst
|
|
integer(4) rowLast
|
|
integer(4) collapsed
|
|
end function
|
|
|
|
integer(4) function xlSheetGroupCols(handle,colFirst,colLast,collapsed)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetGroupColsA' :: xlSheetGroupCols
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) colFirst
|
|
integer(4) colLast
|
|
integer(4) collapsed
|
|
end function
|
|
|
|
subroutine xlSheetClear(handle,rowFirst,rowLast,colFirst,colLast)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetClearA' :: xlSheetClear
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) rowFirst
|
|
integer(4) rowLast
|
|
integer(4) colFirst
|
|
integer(4) colLast
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetInsertRow(handle,rowFirst,rowLast)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetInsertRowA' :: xlSheetInsertRow
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) rowFirst
|
|
integer(4) rowLast
|
|
end function
|
|
|
|
integer(4) function xlSheetInsertCol(handle,colFirst,colLast)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetInsertColA' :: xlSheetInsertCol
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) colFirst
|
|
integer(4) colLast
|
|
end function
|
|
|
|
integer(4) function xlSheetRemoveRow(handle,rowFirst,rowLast)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetRemoveRowA' :: xlSheetRemoveRow
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) rowFirst
|
|
integer(4) rowLast
|
|
end function
|
|
|
|
integer(4) function xlSheetRemoveCol(handle,colFirst,colLast)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetRemoveColA' :: xlSheetRemoveCol
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) colFirst
|
|
integer(4) colLast
|
|
end function
|
|
|
|
integer(4) function xlSheetCopyCell(handle,rowSrc,colSrc,rowDst,colDst)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetCopyCellA' :: xlSheetCopyCell
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) rowSrc
|
|
integer(4) colSrc
|
|
integer(4) rowDst
|
|
integer(4) colDst
|
|
end function
|
|
|
|
integer(4) function xlSheetFirstRow(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetFirstRowA' :: xlSheetFirstRow
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetLastRow(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetLastRowA' :: xlSheetLastRow
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetFirstCol(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetFirstColA' :: xlSheetFirstCol
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetLastCol(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetLastColA' :: xlSheetLastCol
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetDisplayGridlines(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetDisplayGridlineA' :: xlSheetSetDisplayGridline
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetDisplayGridlines(handle,show)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetDisplayGridlinesA' :: xlSheetSetDisplayGridlines
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) show
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetPrintGridlines(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetPrintGridlinesA' :: xlSheetPrintGridlines
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetPrintGridlines(handle,print_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetPrintGridlinesA' :: xlSheetSetPrintGridlines
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) print_
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetZoom(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetZoomA' :: xlSheetZoom
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetZoom(handle,zoom)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetZoomA' :: xlSheetSetZoom
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) zoom
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetPrintZoom(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetPrintZoomA' :: xlSheetPrintZoom
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetPrintZoom(handle,zoom)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetPrintZoomA' :: xlSheetSetPrintZoom
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) zoom
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetLandscape(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetLandscapeA' :: xlSheetLandscape
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetLandscape(handle,landscape)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetLandscapeA' :: xlSheetSetLandscape
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) landscape
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetPaper(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetPaperA' :: xlSheetPaper
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetPaper(handle,paper)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetPaperA' :: xlSheetSetPaper
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) paper
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetHeader(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetHeaderA' :: xlSheetHeader
|
|
!DEC$ATTRIBUTES REFERENCE :: xlSheetHeader
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetSetHeader(handle,header,margin)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetHeaderA' :: xlSheetSetHeader
|
|
!DEC$ATTRIBUTES REFERENCE :: header
|
|
import
|
|
type(SheetHandle) handle
|
|
character(*) header
|
|
double precision margin
|
|
end function
|
|
|
|
double precision function xlSheetHeaderMargin(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetHeaderMarginA' :: xlSheetHeaderMargin
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetFooter(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetFooterA' :: xlSheetFooter
|
|
!DEC$ATTRIBUTES REFERENCE :: xlSheetFooter
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetSetFooter(handle,footer,margin)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetFooterA' :: xlSheetSetFooter
|
|
!DEC$ATTRIBUTES REFERENCE :: footer
|
|
import
|
|
type(SheetHandle) handle
|
|
character(*) footer
|
|
double precision margin
|
|
end function
|
|
|
|
double precision function xlSheetFooterMargin(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetFooterMarginA' :: xlSheetFooterMargin
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlSheetHCenter(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetHCenterA' :: xlSheetHCenter
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetHCenter(handle,hCenter)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetHCenterA' :: xlSheetSetHCenter
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) hCenter
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetVCenter(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetVCenterA' :: xlSheetVCenter
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetVCenter(handle,vCenter)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetVCenterA' :: xlSheetSetVCenter
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) vCenter
|
|
end subroutine
|
|
|
|
double precision function xlSheetMarginLeft(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetMarginLeftA' :: xlSheetMarginLeft
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetMarginLeft(handle,margin)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetMarginLeftA' :: xlSheetSetMarginLeft
|
|
import
|
|
type(SheetHandle) handle
|
|
double precision margin
|
|
end subroutine
|
|
|
|
double precision function xlSheetMarginRight(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetMarginRightA' :: xlSheetMarginRight
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetMarginRight(handle,margin)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetMarginRightA' :: xlSheetSetMarginRight
|
|
import
|
|
type(SheetHandle) handle
|
|
double precision margin
|
|
end subroutine
|
|
|
|
double precision function xlSheetMarginTop(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetMarginTopA' :: xlSheetMarginTop
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetMarginTop(handle,margin)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetMarginTopA' :: xlSheetSetMarginTop
|
|
import
|
|
type(SheetHandle) handle
|
|
double precision margin
|
|
end subroutine
|
|
|
|
double precision function xlSheetMarginBottom(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetMarginBottomA' :: xlSheetMarginBottom
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetMarginBottom(handle,margin)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetMarginBottomA' :: xlSheetSetMarginBottom
|
|
import
|
|
type(SheetHandle) handle
|
|
double precision margin
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetPrintRowCol(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetPrintRowColA' :: xlSheetPrintRowCol
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetPrintRowCol(handle,print_)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetPrintRowColA' :: xlSheetSetPrintRowCol
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) print_
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetName(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetNameA' :: xlSheetName
|
|
!DEC$ATTRIBUTES REFERENCE :: xlSheetName
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetName(handle,name)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetNameA' :: xlSheetSetName
|
|
!DEC$ATTRIBUTES REFERENCE :: name
|
|
import
|
|
type(SheetHandle) handle
|
|
character(*) name
|
|
end subroutine
|
|
|
|
integer(4) function xlSheetProtect(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetProtectA' :: xlSheetProtect
|
|
import
|
|
type(SheetHandle) handle
|
|
end function
|
|
|
|
subroutine xlSheetSetProtect(handle,protect)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlSheetSetProtectA' :: xlSheetSetProtect
|
|
import
|
|
type(SheetHandle) handle
|
|
integer(4) protect
|
|
end subroutine
|
|
|
|
type(FontHandle) function xlFormatFont(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatFontA' :: xlFormatFont
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlFormatSetFont(handle,FHandle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetFontA' :: xlFormatSetFont
|
|
import
|
|
type(FormatHandle) handle
|
|
type(FontHandle) FHandle
|
|
end function
|
|
|
|
integer(4) function xlFormatNumFormat(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatNumFormatA' :: xlFormatNumFormat
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetNumFormat(handle,numFormat)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetNumFormatA' :: xlFormatSetNumFormat
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) numFormat
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatAlignH(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatAlignHA' :: xlFormatAlignH
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetAlignH(handle,align)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetAlignHA' :: xlFormatSetAlignH
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) align
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatAlignV(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatAlignVA' :: xlFormatAlignV
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetAlignV(handle,align)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetAlignVA' :: xlFormatSetAlignV
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) align
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatWrap(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatWrapA' :: xlFormatWrap
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetWrap(handle,wrap)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetWrapA' :: xlFormatSetWrap
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) wrap
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatRotation(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatRotationA' :: xlFormatRotation
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlFormatSetRotation(handle,rotation)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetRotationA' :: xlFormatSetRotation
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) rotation
|
|
end function
|
|
|
|
integer(4) function xlFormatIndent(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatIndentA' :: xlFormatIndent
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetIndent(handle,indent)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetIndentA' :: xlFormatSetIndent
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) indent
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatShrinkToFit(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatShrinkToFitA' :: xlFormatShrinkToFit
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetShrinkToFit(handle,shrinkToFit)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetShrinkToFitA' :: xlFormatSetShrinkToFit
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) shrinkToFit
|
|
end subroutine
|
|
|
|
subroutine xlFormatSetBorder(handle,style)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderA' :: xlFormatSetBorder
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) style
|
|
end subroutine
|
|
|
|
subroutine xlFormatSetBorderColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderColorA' :: xlFormatSetBorderColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderLeft(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderLeftA' :: xlFormatBorderLeft
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderLeft(handle,style)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderLeftA' :: xlFormatSetBorderLeft
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) style
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderRight(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderRightA' :: xlFormatBorderRight
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderRight(handle,style)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderRightA' :: xlFormatSetBorderRight
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) style
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderTop(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderTopA' :: xlFormatBorderTop
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderTop(handle,style)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderTopA' :: xlFormatSetBorderTop
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) style
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderBottom(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderBottomA' :: xlFormatBorderBottom
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderBottom(handle,style)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderBottomA' :: xlFormatSetBorderBottom
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) style
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderLeftColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderLeftColorA' :: xlFormatBorderLeftColor
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderLeftColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderLeftColorA' :: xlFormatSetBorderLeftColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderRightColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderRightColorA' :: xlFormatBorderRightColor
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderRightColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderRightColorA' :: xlFormatSetBorderRightColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderTopColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderTopColorA' :: xlFormatBorderTopColor
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderTopColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderTopColorA' :: xlFormatSetBorderTopColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderBottomColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderBottomColorA' :: xlFormatBorderBottomColor
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderBottomColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderBottomColorA' :: xlFormatSetBorderBottomColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderDiagonal(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderDiagonalA' :: xlFormatBorderDiagonal
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderDiagonal(handle,border)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderDiagonalA' :: xlFormatSetBorderDiagonal
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) border
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatBorderDiagonalColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatBorderDiagonalColorA' :: xlFormatBorderDiagonalColor
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetBorderDiagonalColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetBorderDiagonalColorA' :: xlFormatSetBorderDiagonalColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatFillPattern(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatFillPatternA' :: xlFormatFillPattern
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetFillPattern(handle,pattern)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetFillPatternA' :: xlFormatSetFillPattern
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) pattern
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatPatternForegroundColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatPatternForegroundColorA' :: xlFormatPatternForegroundColor
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetPatternForegroundColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetPatternForegroundColorA' :: xlFormatSetPatternForegroundColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatPatternBackgroundColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatPatternBackgroundColorA' :: xlFormatPatternBackgroundColor
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetPatternBackgroundColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetPatternBackgroundColorA' :: xlFormatSetPatternBackgroundColor
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatLocked(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatLockedA' :: xlFormatLocked
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetLocked(handle,locked)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetLockedA' :: xlFormatSetLocked
|
|
import
|
|
type(FormatHandle) handle
|
|
integer(4) locked
|
|
end subroutine
|
|
|
|
integer(4) function xlFormatHidden(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatHiddenA' :: xlFormatHidden
|
|
import
|
|
type(FormatHandle) handle
|
|
end function
|
|
|
|
subroutine xlFormatSetHidden(handle,hidden)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFormatSetHiddenA' :: xlFormatSetHidden
|
|
import
|
|
integer(4) hidden
|
|
type(FormatHandle) handle
|
|
end subroutine
|
|
|
|
integer(4) function xlFontSize(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSizeA' :: xlFontSize
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
subroutine xlFontSetSize(handle,size)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetSizeA' :: xlFontSetSize
|
|
import
|
|
type(FontHandle) handle
|
|
integer(4) size
|
|
end subroutine
|
|
|
|
integer(4) function xlFontItalic(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontItalicA' :: xlFontItalic
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
subroutine xlFontSetItalic(handle,italic)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetItalicA' :: xlFontSetItalic
|
|
import
|
|
type(FontHandle) handle
|
|
integer(4) italic
|
|
end subroutine
|
|
|
|
integer(4) function xlFontStrikeOut(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontStrikeOutA' :: xlFontStrikeOut
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
subroutine xlFontSetStrikeOut(handle,strikeOut)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetStrikeOutA' :: xlFontSetStrikeOut
|
|
import
|
|
type(FontHandle) handle
|
|
integer(4) strikeOut
|
|
end subroutine
|
|
|
|
integer(4) function xlFontColor(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontColorA' :: xlFontColor
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
subroutine xlFontSetColor(handle,color)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetColorA' :: xlFontSetColor
|
|
import
|
|
type(FontHandle) handle
|
|
integer(4) color
|
|
end subroutine
|
|
|
|
integer(4) function xlFontBold(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontBoldA' :: xlFontBold
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
subroutine xlFontSetBold(handle,bold)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetBoldA' :: xlFontSetBold
|
|
import
|
|
type(FontHandle) handle
|
|
integer(4) bold
|
|
end subroutine
|
|
|
|
integer(4) function xlFontScript(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontScriptA' :: xlFontScript
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
subroutine xlFontSetScript(handle,script)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetScriptA' :: xlFontSetScript
|
|
import
|
|
type(FontHandle) handle
|
|
integer(4) script
|
|
end subroutine
|
|
|
|
integer(4) function xlFontUnderline(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontUnderlineA' :: xlFontUnderline
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
subroutine xlFontSetUnderline(handle,underline)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetUnderlineA' :: xlFontSetUnderline
|
|
import
|
|
type(FontHandle) handle
|
|
integer(4) underline
|
|
end subroutine
|
|
|
|
integer(4) function xlFontName(handle)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontNameA' :: xlFontName
|
|
!DEC$ATTRIBUTES REFERENCE :: xlFontName
|
|
import
|
|
type(FontHandle) handle
|
|
end function
|
|
|
|
integer(4) function xlFontSetName(handle,name)
|
|
!DEC$ATTRIBUTES C, DLLIMPORT, ALIAS:'xlFontSetNameA' :: xlFontSetName
|
|
!DEC$ATTRIBUTES REFERENCE :: name
|
|
import
|
|
type(FontHandle) handle
|
|
character(*) name
|
|
end function
|
|
|
|
end interface
|
|
|
|
contains
|
|
|
|
subroutine xlBookSetKey(handle,name,key)
|
|
type(BookHandle) handle
|
|
character(*) name,key
|
|
integer i,ii,iii
|
|
integer(2),allocatable,dimension(:) :: buff1,buff2
|
|
i=len(name)
|
|
ii=len(key)
|
|
allocate(buff1(i+1),buff2(ii+1))
|
|
iii = MBConvertMBToUnicode(name,buff1)
|
|
iii = MBConvertMBToUnicode(key,buff2)
|
|
buff1(i+1)=0
|
|
buff2(ii+1)=0
|
|
call xlBookSetKeyPrivate(handle,buff1,buff2)
|
|
deallocate(buff1,buff2)
|
|
end subroutine
|
|
|
|
end module
|
|
|