fb 1.07 tests

For other topics related to the FreeBASIC project or its community.
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 29, 2019 15:55

transition from version 1.6 to version 1.7 is a bitter experience. I can not use a recompiled librairy, I can not run code contained in a dll compiled with an old version. I do not know what basically changed in the background. Can someone tell me?
MrSwiss
Posts: 3636
Joined: Jun 02, 2013 9:27
Location: Switzerland

Re: fb 1.07 tests

Postby MrSwiss » Aug 29, 2019 16:13

aloberoger wrote:I do not know what basically changed in the background. Can someone tell me?

Read: changelog.txt that lists all the changes 1.06.0/1.07.0.
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 29, 2019 20:03

changelog;txt does not explain why a dll compiled with a previous version does not works, or why compiled code works, while creating a static library the code no longer works.
srvaldez
Posts: 2550
Joined: Sep 25, 2005 21:54

Re: fb 1.07 tests

Postby srvaldez » Aug 29, 2019 20:20

hello aloberoger, can you post your code or download link ?
I have run into problems creating a static lib before, but calling a dll built with an older version of FB should work
here's a thought, instead of compiling to static lib, compile to objects and then build the lib with ar, see if that works, perhaps we may get clues as to what the problem is.
coderJeff
Site Admin
Posts: 3343
Joined: Nov 04, 2005 14:23
Location: Ontario, Canada
Contact:

Re: fb 1.07 tests

Postby coderJeff » Aug 29, 2019 22:27

aloberoger wrote:changelog;txt does not explain why a dll compiled with a previous version does not works, or why compiled code works, while creating a static library the code no longer works.


Most likely:
changelog.txt wrote:- sf.net #907: global overloaded operator procs need "_Z" mangling prefix


Does your pre-built static library have global overloaded procs?

I'm not sure how to explain this: to fix bugs or add features, a new release of fbc can't be exactly the same as every previous release. We try our best, but breaking stuff is unavoidable. Would be great if every feature added was bug free and never changed forever, but that's not reality, sorry.
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 30, 2019 15:11

coderjeff wrote

Does your pre-built static library have global overloaded procs?



yes I thing this is a problem.
my old dlls are simply compiled with freebasic(the default calling convention is stdcall i think ?)

you do not have to apologize. our role is to help you perfect as much as possible.
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 30, 2019 15:26

instead of compiling to static lib, compile to objects and then build the lib with ar, see if that works

I am working on a large, large project see and test this one: http://s000.tinyupload.com/?file_id=36213918904945475236.

If we can not create a static library directly, it means that we have made a mistake somewhere.
but, I tried with a small example and it works, for a big project, there is failure during the test.


compile a static library with the followiing:

Code: Select all

Declare Function pow OverLoad (ByVal v As Double) As Double
 Declare Function pow(ByVal v As Double,ByVal n As Integer) As Double
 
  Type TCLASS extends object
    Declare Function pow (ByVal v As Double) As Double
    Declare Function pow(ByVal v As Double,ByVal n As Integer) As Double
 End Type
 
 Function pow OverLoad(ByVal v As Double) As Double
    Return v^2
 End Function

 Function pow(ByVal v As Double,ByVal n As Integer) As Double
    Return v^n
 End Function
 
 
 Type TCLASS extends object
    Declare Function pow(ByVal v As Double) As Double
    Declare Function pow(ByVal v As Double,ByVal n As Integer) As Double
 End Type


Function TCLASS.pow(ByVal v As Double) As Double
    Return v^2
 End Function

 Function TCLASS.pow(ByVal v As Double,ByVal n As Integer) As Double
    Return v^n
 End Function

test this library works,
is the problem in the headers of a larger project?

#include once "windows.bi"
#Include once "vbcompat.bi"
#Include once "win\commctrl.bi"
#include Once "win\commdlg.bi"
#Include Once "Win/ShlObj.bi"
#Include Once "win\ole2.bi"
#INCLUDE ONCE "win\richedit.bi"
#include ONCE "crt/stdio.bi"
#INCLUDE ONCE "win/shellapi.bi"
#INCLUDE ONCE "win/uxtheme.bi"


#Ifdef __FB_64BIT__
#inclib "gdiplus"
#include once "win/gdiplus-c.bi"
#Else
#include once "win/gdiplus.bi"
using gdiplus
#EndIf
dodicat
Posts: 6727
Joined: Jan 10, 2006 20:30
Location: Scotland

Re: fb 1.07 tests

Postby dodicat » Aug 30, 2019 18:01

aloberoger
I keep getting from your link examples.
File not found, "Win/vssym32.bi" in '#Include Once "Win/vssym32.bi"'

fb 1.6 and fb 1.7 gives this.

In your code snippet you have the udt
Type TCLASS extends object
defined twice, don't know why.
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 30, 2019 20:16

remove the redundant code that slipped when copying. The two files you quoted do nothing in this project. nevertheless here they are.
vssym32.bi

Code: Select all

'//-------------------------------------------------------------------------//
'//  VisualStyle Core Win32/ComCtl32 symbols
'//-------------------------------------------------------------------------//
 
#ifnDef    VSSYM32_BI   
#Define    VSSYM32_BI   

#INCLUDE ONCE "VSStyle.bi"

'//
'//  enumerated property values
'//

' enum BGTYPE
CONST BT_IMAGEFILE  = 0
CONST BT_BORDERFILL = 1
CONST BT_NONE       = 2

'//
'//  enumerated property values
'//

' enum IMAGELAYOUT
CONST IL_VERTICAL   = 0
CONST IL_HORIZONTAL = 1

'//
'//  enumerated property values
'//

' enum BORDERTYPE
CONST BT_RECT      = 0
CONST BT_ROUNDRECT = 1
CONST BT_ELLIPSE   = 2

'//
'//  enumerated property values
'//

' enum FILLTYPE
CONST FT_SOLID          = 0
CONST FT_VERTGRADIENT   = 1
CONST FT_HORZGRADIENT   = 2
CONST FT_RADIALGRADIENT = 3
CONST FT_TILEIMAGE      = 4

'//
'//  enumerated property values
'//

CONST ST_TRUESIZE = 0
CONST ST_STRETCH  = 1
CONST ST_TILE     = 2

'//
'//  enumerated property values
'//

' enum HALIGN
CONST HA_LEFT   = 0
CONST HA_CENTER = 1
CONST HA_RIGHT  = 2

'//
'//  enumerated property values
'//

' enum CONTENTALIGNMENT
CONST CA_LEFT   = 0
CONST CA_CENTER = 1
CONST CA_RIGHT  = 2

'//
'//  enumerated property values
'//

' enum VALIGN
CONST VA_TOP    = 0
CONST VA_CENTER = 1
CONST VA_BOTTOM = 2

'//
'//  enumerated property values
'//

' enum OFFSETTYPE
CONST OT_TOPLEFT           = 0
CONST OT_TOPRIGHT          = 1
CONST OT_TOPMIDDLE         = 2
CONST OT_BOTTOMLEFT        = 3
CONST OT_BOTTOMRIGHT       = 4
CONST OT_BOTTOMMIDDLE      = 5
CONST OT_MIDDLELEFT        = 6
CONST OT_MIDDLERIGHT       = 7
CONST OT_LEFTOFCAPTION     = 8
CONST OT_RIGHTOFCAPTION    = 9
CONST OT_LEFTOFLASTBUTTON  = 10
CONST OT_RIGHTOFLASTBUTTON = 11
CONST OT_ABOVELASTBUTTON   = 12
CONST OT_BELOWLASTBUTTON   = 13

'//
'//  enumerated property values
'//

' enum ICONEFFECT {
CONST ICE_NONE   = 0
CONST ICE_GLOW   = 1
CONST ICE_SHADOW = 2
CONST ICE_PULSE  = 3
CONST ICE_ALPHA  = 4

'//
'//  enumerated property values
'//

' enum TEXTSHADOWTYPE {
CONST TST_NONE       = 0
CONST TST_SINGLE     = 1
CONST TST_CONTINUOUS = 2

'//
'//  enumerated property values
'//

' enum GLYPHTYPE
CONST GT_NONE       = 0
CONST GT_IMAGEGLYPH = 1
CONST GT_FONTGLYPH  = 2

'//
'//  enumerated property values
'//

' enum IMAGESELECTTYPE
CONST IST_NONE = 0
CONST IST_SIZE = 1
CONST IST_DPI  = 2

'//
'//  enumerated property values
'//

' enum TRUESIZESCALINGTYPE
CONST TSST_NONE = 0
CONST TSST_SIZE = 1
CONST TSST_DPI  = 2

'//
'//  enumerated property values
'//

' enum GLYPHFONTSIZINGTYPE
CONST GFST_NONE = 0
CONST GFST_SIZE = 1
CONST GFST_DPI  = 2

'//
'//  property symbol definitions
'//

CONST TMT_RESERVEDLOW             = 0
CONST TMT_RESERVEDHIGH            = 7999

CONST TMT_DIBDATA                 = 2
CONST TMT_GLYPHDIBDATA            = 8
CONST TMT_ENUM                    = 200
CONST TMT_STRING                  = 201
CONST TMT_INT                     = 202
CONST TMT_BOOL                    = 203
CONST TMT_COLOR                   = 204
CONST TMT_MARGINS                 = 205
CONST TMT_FILENAME                = 206
CONST TMT_SIZE                    = 207
CONST TMT_POSITION                = 208
CONST TMT_RECT                    = 209
CONST TMT_FONT                    = 210
CONST TMT_INTLIST                 = 211
CONST TMT_HBITMAP                 = 212
CONST TMT_DISKSTREAM              = 213
CONST TMT_STREAM                  = 214
CONST TMT_BITMAPREF               = 215
CONST TMT_COLORSCHEMES            = 401
CONST TMT_SIZES                   = 402
CONST TMT_CHARSET                 = 403
CONST TMT_NAME                    = 600
CONST TMT_DISPLAYNAME             = 601
CONST TMT_TOOLTIP                 = 602
CONST TMT_COMPANY                 = 603
CONST TMT_AUTHOR                  = 604
CONST TMT_COPYRIGHT               = 605
CONST TMT_URL                     = 606
CONST TMT_VERSION                 = 607
CONST TMT_DESCRIPTION             = 608
CONST TMT_FIRST_RCSTRING_NAME     = TMT_DISPLAYNAME
CONST TMT_LAST_RCSTRING_NAME      = TMT_DESCRIPTION
CONST TMT_CAPTIONFONT             = 801
CONST TMT_SMALLCAPTIONFONT        = 802
CONST TMT_MENUFONT                = 803
CONST TMT_STATUSFONT              = 804
CONST TMT_MSGBOXFONT              = 805
CONST TMT_ICONTITLEFONT           = 806
CONST TMT_HEADING1FONT            = 807
CONST TMT_HEADING2FONT            = 808
CONST TMT_BODYFONT                = 809
CONST TMT_FIRSTFONT               = TMT_CAPTIONFONT
CONST TMT_LASTFONT                = TMT_BODYFONT
CONST TMT_FLATMENUS               = 1001
CONST TMT_FIRSTBOOL               = TMT_FLATMENUS
CONST TMT_LASTBOOL                = TMT_FLATMENUS
CONST TMT_SIZINGBORDERWIDTH       = 1201
CONST TMT_SCROLLBARWIDTH          = 1202
CONST TMT_SCROLLBARHEIGHT         = 1203
CONST TMT_CAPTIONBARWIDTH         = 1204
CONST TMT_CAPTIONBARHEIGHT        = 1205
CONST TMT_SMCAPTIONBARWIDTH       = 1206
CONST TMT_SMCAPTIONBARHEIGHT      = 1207
CONST TMT_MENUBARWIDTH            = 1208
CONST TMT_MENUBARHEIGHT           = 1209
CONST TMT_PADDEDBORDERWIDTH       = 1210
CONST TMT_FIRSTSIZE               = TMT_SIZINGBORDERWIDTH
CONST TMT_LASTSIZE                = TMT_PADDEDBORDERWIDTH
CONST TMT_MINCOLORDEPTH           = 1301
CONST TMT_FIRSTINT                = TMT_MINCOLORDEPTH
CONST TMT_LASTINT                 = TMT_MINCOLORDEPTH
CONST TMT_CSSNAME                 = 1401
CONST TMT_XMLNAME                 = 1402
CONST TMT_LASTUPDATED             = 1403
CONST TMT_ALIAS                   = 1404
CONST TMT_FIRSTSTRING             = TMT_CSSNAME
CONST TMT_LASTSTRING              = TMT_ALIAS
CONST TMT_SCROLLBAR               = 1601
CONST TMT_BACKGROUND              = 1602
CONST TMT_ACTIVECAPTION           = 1603
CONST TMT_INACTIVECAPTION         = 1604
CONST TMT_MENU                    = 1605
CONST TMT_WINDOW                  = 1606
CONST TMT_WINDOWFRAME             = 1607
CONST TMT_MENUTEXT                = 1608
CONST TMT_WINDOWTEXT              = 1609
CONST TMT_CAPTIONTEXT             = 1610
CONST TMT_ACTIVEBORDER            = 1611
CONST TMT_INACTIVEBORDER          = 1612
CONST TMT_APPWORKSPACE            = 1613
CONST TMT_HIGHLIGHT               = 1614
CONST TMT_HIGHLIGHTTEXT           = 1615
CONST TMT_BTNFACE                 = 1616
CONST TMT_BTNSHADOW               = 1617
CONST TMT_GRAYTEXT                = 1618
CONST TMT_BTNTEXT                 = 1619
CONST TMT_INACTIVECAPTIONTEXT     = 1620
CONST TMT_BTNHIGHLIGHT            = 1621
CONST TMT_DKSHADOW3D              = 1622
CONST TMT_LIGHT3D                 = 1623
CONST TMT_INFOTEXT                = 1624
CONST TMT_INFOBK                  = 1625
CONST TMT_BUTTONALTERNATEFACE     = 1626
CONST TMT_HOTTRACKING             = 1627
CONST TMT_GRADIENTACTIVECAPTION   = 1628
CONST TMT_GRADIENTINACTIVECAPTION = 1629
CONST TMT_MENUHILIGHT             = 1630
CONST TMT_MENUBAR                 = 1631
CONST TMT_FIRSTCOLOR              = TMT_SCROLLBAR
CONST TMT_LASTCOLOR               = TMT_MENUBAR
CONST TMT_FROMHUE1                = 1801
CONST TMT_FROMHUE2                = 1802
CONST TMT_FROMHUE3                = 1803
CONST TMT_FROMHUE4                = 1804
CONST TMT_FROMHUE5                = 1805
CONST TMT_TOHUE1                  = 1806
CONST TMT_TOHUE2                  = 1807
CONST TMT_TOHUE3                  = 1808
CONST TMT_TOHUE4                  = 1809
CONST TMT_TOHUE5                  = 1810
CONST TMT_FROMCOLOR1              = 2001
CONST TMT_FROMCOLOR2              = 2002
CONST TMT_FROMCOLOR3              = 2003
CONST TMT_FROMCOLOR4              = 2004
CONST TMT_FROMCOLOR5              = 2005
CONST TMT_TOCOLOR1                = 2006
CONST TMT_TOCOLOR2                = 2007
CONST TMT_TOCOLOR3                = 2008
CONST TMT_TOCOLOR4                = 2009
CONST TMT_TOCOLOR5                = 2010
CONST TMT_TRANSPARENT             = 2201
CONST TMT_AUTOSIZE                = 2202
CONST TMT_BORDERONLY              = 2203
CONST TMT_COMPOSITED              = 2204
CONST TMT_BGFILL                  = 2205
CONST TMT_GLYPHTRANSPARENT        = 2206
CONST TMT_GLYPHONLY               = 2207
CONST TMT_ALWAYSSHOWSIZINGBAR     = 2208
CONST TMT_MIRRORIMAGE             = 2209
CONST TMT_UNIFORMSIZING           = 2210
CONST TMT_INTEGRALSIZING          = 2211
CONST TMT_SOURCEGROW              = 2212
CONST TMT_SOURCESHRINK            = 2213
CONST TMT_DRAWBORDERS             = 2214
CONST TMT_NOETCHEDEFFECT          = 2215
CONST TMT_TEXTAPPLYOVERLAY        = 2216
CONST TMT_TEXTGLOW                = 2217
CONST TMT_TEXTITALIC              = 2218
CONST TMT_COMPOSITEDOPAQUE        = 2219
CONST TMT_LOCALIZEDMIRRORIMAGE    = 2220
CONST TMT_IMAGECOUNT              = 2401
CONST TMT_ALPHALEVEL              = 2402
CONST TMT_BORDERSIZE              = 2403
CONST TMT_ROUNDCORNERWIDTH        = 2404
CONST TMT_ROUNDCORNERHEIGHT       = 2405
CONST TMT_GRADIENTRATIO1          = 2406
CONST TMT_GRADIENTRATIO2          = 2407
CONST TMT_GRADIENTRATIO3          = 2408
CONST TMT_GRADIENTRATIO4          = 2409
CONST TMT_GRADIENTRATIO5          = 2410
CONST TMT_PROGRESSCHUNKSIZE       = 2411
CONST TMT_PROGRESSSPACESIZE       = 2412
CONST TMT_SATURATION              = 2413
CONST TMT_TEXTBORDERSIZE          = 2414
CONST TMT_ALPHATHRESHOLD          = 2415
CONST TMT_WIDTH                   = 2416
CONST TMT_HEIGHT                  = 2417
CONST TMT_GLYPHINDEX              = 2418
CONST TMT_TRUESIZESTRETCHMARK     = 2419
CONST TMT_MINDPI1                 = 2420
CONST TMT_MINDPI2                 = 2421
CONST TMT_MINDPI3                 = 2422
CONST TMT_MINDPI4                 = 2423
CONST TMT_MINDPI5                 = 2424
CONST TMT_TEXTGLOWSIZE            = 2425
CONST TMT_FRAMESPERSECOND         = 2426
CONST TMT_PIXELSPERFRAME          = 2427
CONST TMT_ANIMATIONDELAY          = 2428
CONST TMT_GLOWINTENSITY           = 2429
CONST TMT_OPACITY                 = 2430
CONST TMT_COLORIZATIONCOLOR       = 2431
CONST TMT_COLORIZATIONOPACITY     = 2432
CONST TMT_GLYPHFONT               = 2601
CONST TMT_IMAGEFILE               = 3001
CONST TMT_IMAGEFILE1              = 3002
CONST TMT_IMAGEFILE2              = 3003
CONST TMT_IMAGEFILE3              = 3004
CONST TMT_IMAGEFILE4              = 3005
CONST TMT_IMAGEFILE5              = 3006
CONST TMT_GLYPHIMAGEFILE          = 3008
CONST TMT_TEXT                    = 3201
CONST TMT_CLASSICVALUE            = 3202
CONST TMT_OFFSET                  = 3401
CONST TMT_TEXTSHADOWOFFSET        = 3402
CONST TMT_MINSIZE                 = 3403
CONST TMT_MINSIZE1                = 3404
CONST TMT_MINSIZE2                = 3405
CONST TMT_MINSIZE3                = 3406
CONST TMT_MINSIZE4                = 3407
CONST TMT_MINSIZE5                = 3408
CONST TMT_NORMALSIZE              = 3409
CONST TMT_SIZINGMARGINS           = 3601
CONST TMT_CONTENTMARGINS          = 3602
CONST TMT_CAPTIONMARGINS          = 3603
CONST TMT_BORDERCOLOR             = 3801
CONST TMT_FILLCOLOR               = 3802
CONST TMT_TEXTCOLOR               = 3803
CONST TMT_EDGELIGHTCOLOR          = 3804
CONST TMT_EDGEHIGHLIGHTCOLOR      = 3805
CONST TMT_EDGESHADOWCOLOR         = 3806
CONST TMT_EDGEDKSHADOWCOLOR       = 3807
CONST TMT_EDGEFILLCOLOR           = 3808
CONST TMT_TRANSPARENTCOLOR        = 3809
CONST TMT_GRADIENTCOLOR1          = 3810
CONST TMT_GRADIENTCOLOR2          = 3811
CONST TMT_GRADIENTCOLOR3          = 3812
CONST TMT_GRADIENTCOLOR4          = 3813
CONST TMT_GRADIENTCOLOR5          = 3814
CONST TMT_SHADOWCOLOR             = 3815
CONST TMT_GLOWCOLOR               = 3816
CONST TMT_TEXTBORDERCOLOR         = 3817
CONST TMT_TEXTSHADOWCOLOR         = 3818
CONST TMT_GLYPHTEXTCOLOR          = 3819
CONST TMT_GLYPHTRANSPARENTCOLOR   = 3820
CONST TMT_FILLCOLORHINT           = 3821
CONST TMT_BORDERCOLORHINT         = 3822
CONST TMT_ACCENTCOLORHINT         = 3823
CONST TMT_TEXTCOLORHINT           = 3824
CONST TMT_HEADING1TEXTCOLOR       = 3825
CONST TMT_HEADING2TEXTCOLOR       = 3826
CONST TMT_BODYTEXTCOLOR           = 3827
CONST TMT_BGTYPE                  = 4001
CONST TMT_BORDERTYPE              = 4002
CONST TMT_FILLTYPE                = 4003
CONST TMT_SIZINGTYPE              = 4004
CONST TMT_HALIGN                  = 4005
CONST TMT_CONTENTALIGNMENT        = 4006
CONST TMT_VALIGN                  = 4007
CONST TMT_OFFSETTYPE              = 4008
CONST TMT_ICONEFFECT              = 4009
CONST TMT_TEXTSHADOWTYPE          = 4010
CONST TMT_IMAGELAYOUT             = 4011
CONST TMT_GLYPHTYPE               = 4012
CONST TMT_IMAGESELECTTYPE         = 4013
CONST TMT_GLYPHFONTSIZINGTYPE     = 4014
CONST TMT_TRUESIZESCALINGTYPE     = 4015
CONST TMT_USERPICTURE             = 5001
CONST TMT_DEFAULTPANESIZE         = 5002
CONST TMT_BLENDCOLOR              = 5003
CONST TMT_CUSTOMSPLITRECT         = 5004
CONST TMT_ANIMATIONBUTTONRECT     = 5005
CONST TMT_ANIMATIONDURATION       = 5006
CONST TMT_TRANSITIONDURATIONS     = 6000
CONST TMT_SCALEDBACKGROUND        = 7001
CONST TMT_ATLASIMAGE              = 8000
CONST TMT_ATLASINPUTIMAGE         = 8001
CONST TMT_ATLASRECT               = 8002


'//
'//  LINK class parts and states
'//
CONST VSCLASS_LINK   = "LINK"

' enum LINKPARTS {
CONST LP_HYPERLINK = 1

' enum HYPERLINKSTATES {
CONST HLS_NORMALTEXT = 1
CONST HLS_LINKTEXT   = 2

'//
'//  EMPTYMARKUP class parts and states
'//
CONST VSCLASS_EMPTYMARKUP   = "EMPTYMARKUP"

' enum EMPTYMARKUPPARTS {
CONST EMP_MARKUPTEXT = 1

' enum MARKUPTEXTSTATES
CONST EMT_NORMALTEXT = 1
CONST EMT_LINKTEXT   = 2


'//
'//  STATIC class parts and states
'//
CONST VSCLASS_STATIC   = "STATIC"

' enum STATICPARTS
CONST STAT_TEXT = 1


'//
'//  PAGE class parts and states
'//
CONST VSCLASS_PAGE   = "PAGE"

' enum PAGEPARTS
CONST PGRP_UP       = 1
CONST PGRP_DOWN     = 2
CONST PGRP_UPHORZ   = 3
CONST PGRP_DOWNHORZ = 4


'//
'//  MONTHCAL class parts and states
'//
CONST VSCLASS_MONTHCAL   = "MONTHCAL"

' enum MONTHCALPARTS
CONST MC_BACKGROUND            = 1
CONST MC_BORDERS               = 2
CONST MC_GRIDBACKGROUND        = 3
CONST MC_COLHEADERSPLITTER     = 4
CONST MC_GRIDCELLBACKGROUND    = 5
CONST MC_GRIDCELL              = 6
CONST MC_GRIDCELLUPPER         = 7
CONST MC_TRAILINGGRIDCELL      = 8
CONST MC_TRAILINGGRIDCELLUPPER = 9
CONST MC_NAVNEXT               = 10
CONST MC_NAVPREV               = 11

' enum GRIDCELLBACKGROUNDSTATES
CONST MCGCB_SELECTED           = 1
CONST MCGCB_HOT                = 2
CONST MCGCB_SELECTEDHOT        = 3
CONST MCGCB_SELECTEDNOTFOCUSED = 4
CONST MCGCB_TODAY              = 5

' enum GRIDCELLSTATES
CONST MCGC_HOT         = 1
CONST MCGC_HASSTATE    = 2
CONST MCGC_HASSTATEHOT = 3
CONST MCGC_TODAY       = 4

' enum GRIDCELLUPPERSTATES {
CONST MCGCU_HOT         = 1
CONST MCGCU_HASSTATE    = 2
CONST MCGCU_HASSTATEHOT = 3

' enum TRAILINGGRIDCELLSTATES {
CONST MCTGC_HOT         = 1
CONST MCTGC_HASSTATE    = 2
CONST MCTGC_HASSTATEHOT = 3
CONST MCTGC_TODAY       = 4

' enum TRAILINGGRIDCELLUPPERSTATES
CONST MCTGCU_HOT         = 1
CONST MCTGCU_HASSTATE    = 2
CONST MCTGCU_HASSTATEHOT = 3

' enum NAVNEXTSTATES
CONST MCNN_NORMAL   = 1
CONST MCNN_HOT      = 2
CONST MCNN_PRESSED  = 3
CONST MCNN_DISABLED = 4

' enum NAVPREVSTATES
CONST MCNP_NORMAL   = 1
CONST MCNP_HOT      = 2
CONST MCNP_PRESSED  = 3
CONST MCNP_DISABLED = 4

'//
'//  CLOCK class parts and states
'//
CONST VSCLASS_CLOCK   = "CLOCK"

' enum CLOCKPARTS
CONST CLP_TIME = 1

' enum CLOCKSTATES
CONST CLS_NORMAL  = 1
CONST CLS_HOT     = 2
CONST CLS_PRESSED = 3

'//
'//  TRAYNOTIFY class parts and states
'//
CONST VSCLASS_TRAYNOTIFY   = "TRAYNOTIFY"

' enum TRAYNOTIFYPARTS
CONST TNP_BACKGROUND     = 1
CONST TNP_ANIMBACKGROUND = 2

'//
'//  TASKBAR class parts and states
'//
CONST VSCLASS_TASKBAR   = "TASKBAR"

' enum TASKBARPARTS
CONST TBP_BACKGROUNDBOTTOM = 1
CONST TBP_BACKGROUNDRIGHT  = 2
CONST TBP_BACKGROUNDTOP    = 3
CONST TBP_BACKGROUNDLEFT   = 4
CONST TBP_SIZINGBARBOTTOM  = 5
CONST TBP_SIZINGBARRIGHT   = 6
CONST TBP_SIZINGBARTOP     = 7
CONST TBP_SIZINGBARLEFT    = 8

'//
'//  TASKBAND class parts and states
'//
CONST VSCLASS_TASKBAND   = "TASKBAND"

' enum TASKBANDPARTS
CONST TDP_GROUPCOUNT           = 1
CONST TDP_FLASHBUTTON          = 2
CONST TDP_FLASHBUTTONGROUPMENU = 3

'//
'//  STARTPANEL class parts and states
'//
CONST VSCLASS_STARTPANEL   = "STARTPANEL"

' enum STARTPANELPARTS
CONST SPP_USERPANE                  = 1
CONST SPP_MOREPROGRAMS              = 2
CONST SPP_MOREPROGRAMSARROW         = 3
CONST SPP_PROGLIST                  = 4
CONST SPP_PROGLISTSEPARATOR         = 5
CONST SPP_PLACESLIST                = 6
CONST SPP_PLACESLISTSEPARATOR       = 7
CONST SPP_LOGOFF                    = 8
CONST SPP_LOGOFFBUTTONS             = 9
CONST SPP_USERPICTURE               = 10
CONST SPP_PREVIEW                   = 11
CONST SPP_MOREPROGRAMSTAB           = 12
CONST SPP_NSCHOST                   = 13
CONST SPP_SOFTWAREEXPLORER          = 14
CONST SPP_OPENBOX                   = 15
CONST SPP_SEARCHVIEW                = 16
CONST SPP_MOREPROGRAMSARROWBACK     = 17
CONST SPP_TOPMATCH                  = 18
CONST SPP_LOGOFFSPLITBUTTONDROPDOWN = 19

' enum MOREPROGRAMSTABSTATES
CONST SPMPT_NORMAL   = 1
CONST SPMPT_HOT      = 2
CONST SPMPT_SELECTED = 3
CONST SPMPT_DISABLED = 4
CONST SPMPT_FOCUSED  = 5

' enum SOFTWAREEXPLORERSTATES
CONST SPSE_NORMAL   = 1
CONST SPSE_HOT      = 2
CONST SPSE_SELECTED = 3
CONST SPSE_DISABLED = 4
CONST SPSE_FOCUSED  = 5

' enum OPENBOXSTATES
CONST SPOB_NORMAL   = 1
CONST SPOB_HOT      = 2
CONST SPOB_SELECTED = 3
CONST SPOB_DISABLED = 4
CONST SPOB_FOCUSED  = 5

' enum MOREPROGRAMSARROWSTATES
CONST SPS_NORMAL  = 1
CONST SPS_HOT     = 2
CONST SPS_PRESSED = 3

' enum MOREPROGRAMSARROWBACKSTATES
CONST SPSB_NORMAL  = 1
CONST SPSB_HOT     = 2
CONST SPSB_PRESSED = 3

' enum LOGOFFBUTTONSSTATES
CONST SPLS_NORMAL  = 1
CONST SPLS_HOT     = 2
CONST SPLS_PRESSED = 3

'//
'//  MENUBAND class parts and states
'//
CONST VSCLASS_MENUBAND   = "MENUBAND"

' enum MENUBANDPARTS
CONST MDP_NEWAPPBUTTON = 1
CONST MDP_SEPERATOR    = 2

' enum MENUBANDSTATES
CONST MDS_NORMAL     = 1
CONST MDS_HOT        = 2
CONST MDS_PRESSED    = 3
CONST MDS_DISABLED   = 4
CONST MDS_CHECKED    = 5
CONST MDS_HOTCHECKED = 6


#EndIf

vsstyle.bi ...
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 30, 2019 20:17

vsstyle.bi

Code: Select all

 
#Define WSSTYLE_INC   1

'//
'//  property symbol definitions
'//

CONST TMTVS_RESERVEDLOW                 = 100000
CONST TMTVS_RESERVEDHIGH                = 19999

'//
'//  AEROWIZARDSTYLE class parts and states
'//
CONST VSCLASS_AEROWIZARDSTYLE           = "AEROWIZARDSTYLE"
CONST VSCLASS_AEROWIZARD                = "AEROWIZARD"

' enum AEROWIZARDPARTS
CONST AW_TITLEBAR                       = 1
CONST AW_HEADERAREA                     = 2
CONST AW_CONTENTAREA                    = 3
CONST AW_COMMANDAREA                    = 4
CONST AW_BUTTON                         = 5

' #define AEROWIZARDSTYLEPARTS AEROWIZARDPARTS;

' enum TITLEBARSTATES
CONST AW_S_TITLEBAR_ACTIVE              = 1
CONST AW_S_TITLEBAR_INACTIVE            = 2

' enum HEADERAREASTATES
CONST AW_S_HEADERAREA_NOMARGIN          = 1

' enum CONTENTAREASTATES
CONST AW_S_CONTENTAREA_NOMARGIN         = 1

'//
'//  BUTTONSTYLE class parts and states
'//
CONST VSCLASS_BUTTONSTYLE               = "BUTTONSTYLE"
CONST VSCLASS_BUTTON                    = "BUTTON"

' enum BUTTONPARTS
CONST BP_PUSHBUTTON                     = 1
CONST BP_RADIOBUTTON                    = 2
CONST BP_CHECKBOX                       = 3
CONST BP_GROUPBOX                       = 4
CONST BP_USERBUTTON                     = 5
CONST BP_COMMANDLINK                    = 6
CONST BP_COMMANDLINKGLYPH               = 7

' #define BUTTONSTYLEPARTS BUTTONPARTS;

' enum PUSHBUTTONSTATES
CONST PBS_NORMAL                        = 1
CONST PBS_HOT                           = 2
CONST PBS_PRESSED                       = 3
CONST PBS_DISABLED                      = 4
CONST PBS_DEFAULTED                     = 5
CONST PBS_DEFAULTED_ANIMATING           = 6

' enum RADIOBUTTONSTATES
CONST RBS_UNCHECKEDNORMAL               = 1
CONST RBS_UNCHECKEDHOT                  = 2
CONST RBS_UNCHECKEDPRESSED              = 3
CONST RBS_UNCHECKEDDISABLED             = 4
CONST RBS_CHECKEDNORMAL                 = 5
CONST RBS_CHECKEDHOT                    = 6
CONST RBS_CHECKEDPRESSED                = 7
CONST RBS_CHECKEDDISABLED               = 8

' enum CHECKBOXSTATES
CONST CBS_UNCHECKEDNORMAL               = 1
CONST CBS_UNCHECKEDHOT                  = 2
CONST CBS_UNCHECKEDPRESSED              = 3
CONST CBS_UNCHECKEDDISABLED             = 4
CONST CBS_CHECKEDNORMAL                 = 5
CONST CBS_CHECKEDHOT                    = 6
CONST CBS_CHECKEDPRESSED                = 7
CONST CBS_CHECKEDDISABLED               = 8
CONST CBS_MIXEDNORMAL                   = 9
CONST CBS_MIXEDHOT                      = 10
CONST CBS_MIXEDPRESSED                  = 11
CONST CBS_MIXEDDISABLED                 = 12
CONST CBS_IMPLICITNORMAL                = 13
CONST CBS_IMPLICITHOT                   = 14
CONST CBS_IMPLICITPRESSED               = 15
CONST CBS_IMPLICITDISABLED              = 16
CONST CBS_EXCLUDEDNORMAL                = 17
CONST CBS_EXCLUDEDHOT                   = 18
CONST CBS_EXCLUDEDPRESSED               = 19
CONST CBS_EXCLUDEDDISABLED              = 20

' enum GROUPBOXSTATES
CONST GBS_NORMAL                        = 1
CONST GBS_DISABLED                      = 2

' enum COMMANDLINKSTATES
CONST CMDLS_NORMAL                      = 1
CONST CMDLS_HOT                         = 2
CONST CMDLS_PRESSED                     = 3
CONST CMDLS_DISABLED                    = 4
CONST CMDLS_DEFAULTED                   = 5
CONST CMDLS_DEFAULTED_ANIMATING         = 6

' enum COMMANDLINKGLYPHSTATES
CONST CMDLGS_NORMAL                     = 1
CONST CMDLGS_HOT                        = 2
CONST CMDLGS_PRESSED                    = 3
CONST CMDLGS_DISABLED                   = 4
CONST CMDLGS_DEFAULTED                  = 5

'//
'// COMBOBOXSTYLE class parts and states
'//
CONST VSCLASS_COMBOBOXSTYLE = "COMBOBOXSTYLE"
CONST VSCLASS_COMBOBOX      = "COMBOBOX"

' enum COMBOBOXPARTS
CONST CP_DROPDOWNBUTTON                 = 1
CONST CP_BACKGROUND                     = 2
CONST CP_TRANSPARENTBACKGROUND          = 3
CONST CP_BORDER                         = 4
CONST CP_READONLY                       = 5
CONST CP_DROPDOWNBUTTONRIGHT            = 6
CONST CP_DROPDOWNBUTTONLEFT             = 7
CONST CP_CUEBANNER                      = 8

'#define COMBOBOXSTYLEPARTS COMBOBOXPARTS;

' enum COMBOBOXSTYLESTATES
CONST CBXS_NORMAL                       = 1
CONST CBXS_HOT                          = 2
CONST CBXS_PRESSED                      = 3
CONST CBXS_DISABLED                     = 4

' enum DROPDOWNBUTTONRIGHTSTATES
CONST CBXSR_NORMAL                      = 1
CONST CBXSR_HOT                         = 2
CONST CBXSR_PRESSED                     = 3
CONST CBXSR_DISABLED                    = 4

' enum DROPDOWNBUTTONLEFTSTATES
CONST CBXSL_NORMAL                      = 1
CONST CBXSL_HOT                         = 2
CONST CBXSL_PRESSED                     = 3
CONST CBXSL_DISABLED                    = 4

' enum TRANSPARENTBACKGROUNDSTATES
CONST CBTBS_NORMAL                      = 1
CONST CBTBS_HOT                         = 2
CONST CBTBS_DISABLED                    = 3
CONST CBTBS_FOCUSED                     = 4

' enum BORDERSTATES
CONST CBB_NORMAL                        = 1
CONST CBB_HOT                           = 2
CONST CBB_FOCUSED                       = 3
CONST CBB_DISABLED                      = 4

' enum READONLYSTATES
CONST CBRO_NORMAL                       = 1
CONST CBRO_HOT                          = 2
CONST CBRO_PRESSED                      = 3
CONST CBRO_DISABLED                     = 4

' enum CUEBANNERSTATES
CONST CBCB_NORMAL                       = 1
CONST CBCB_HOT                          = 2
CONST CBCB_PRESSED                      = 3
CONST CBCB_DISABLED                     = 4

'//
'// COMMUNICATIONSSTYLE class parts and states
'//
CONST VSCLASS_COMMUNICATIONSSTYLE = "COMMUNICATIONSSTYLE"
CONST VSCLASS_COMMUNICATIONS      = "COMMUNICATIONS"

' enum COMMUNICATIONSPARTS
CONST CSST_TAB                          = 1


'#define COMMUNICATIONSSTYLEPARTS COMMUNICATIONSPARTS;

' enum TABSTATES
CONST CSTB_NORMAL                       = 1
CONST CSTB_HOT                          = 2
CONST CSTB_SELECTED                     = 3

'//
'// CONTROLPANELSTYLE   class parts and states
'//
CONST VSCLASS_CONTROLPANELSTYLE = "CONTROLPANELSTYLE"
CONST VSCLASS_CONTROLPANEL      = "CONTROLPANEL"

' enum CONTROLPANELPARTS
CONST CPANEL_NAVIGATIONPANE             = 1
CONST CPANEL_CONTENTPANE                = 2
CONST CPANEL_NAVIGATIONPANELABEL        = 3
CONST CPANEL_CONTENTPANELABEL           = 4
CONST CPANEL_TITLE                      = 5
CONST CPANEL_BODYTEXT                   = 6
CONST CPANEL_HELPLINK                   = 7
CONST CPANEL_TASKLINK                   = 8
CONST CPANEL_GROUPTEXT                  = 9
CONST CPANEL_CONTENTLINK                = 10
CONST CPANEL_SECTIONTITLELINK           = 11
CONST CPANEL_LARGECOMMANDAREA           = 12
CONST CPANEL_SMALLCOMMANDAREA           = 13
CONST CPANEL_BUTTON                     = 14
CONST CPANEL_MESSAGETEXT                = 15
CONST CPANEL_NAVIGATIONPANELINE         = 16
CONST CPANEL_CONTENTPANELINE            = 17
CONST CPANEL_BANNERAREA                 = 18
CONST CPANEL_BODYTITLE                  = 19

'#define CONTROLPANELSTYLEPARTS CONTROLPANELPARTS;

' enum HELPLINKSTATES
CONST CPHL_NORMAL                       = 1
CONST CPHL_HOT                          = 2
CONST CPHL_PRESSED                      = 3
CONST CPHL_DISABLED                     = 4

' enum TASKLINKSTATES
CONST CPTL_NORMAL                       = 1
CONST CPTL_HOT                          = 2
CONST CPTL_PRESSED                      = 3
CONST CPTL_DISABLED                     = 4
CONST CPTL_PAGE                         = 5

' enum CONTENTLINKSTATES
CONST CPCL_NORMAL                       = 1
CONST CPCL_HOT                          = 2
CONST CPCL_PRESSED                      = 3
CONST CPCL_DISABLED                     = 4

' enum SECTIONTITLELINKSTATES
CONST CPSTL_NORMAL                      = 1
CONST CPSTL_HOT                         = 2

' //
' // DATEPICKERSTYLE     class parts and states
' //
CONST VSCLASS_DATEPICKERSTYLE = "DATEPICKERSTYLE"
CONST VSCLASS_DATEPICKER      = "DATEPICKER"

' enum DATEPICKERPARTS
CONST DP_DATETEXT                       = 1
CONST DP_DATEBORDER                     = 2
CONST DP_SHOWCALENDARBUTTONRIGHT        = 3

'#define DATEPICKERSTYLEPARTS DATEPICKERPARTS;

' enum DATETEXTSTATES
CONST DPDT_NORMAL                       = 1
CONST DPDT_DISABLED                     = 2
CONST DPDT_SELECTED                     = 3

' enum DATEBORDERSTATES
CONST DPDB_NORMAL                       = 1
CONST DPDB_HOT                          = 2
CONST DPDB_FOCUSED                      = 3
CONST DPDB_DISABLED                     = 4

' enum SHOWCALENDARBUTTONRIGHTSTATES
CONST DPSCBR_NORMAL                     = 1
CONST DPSCBR_HOT                        = 2
CONST DPSCBR_PRESSED                    = 3
CONST DPSCBR_DISABLED                   = 4

'//
'// DRAGDROPSTYLE class parts and states
'//
CONST VSCLASS_DRAGDROPSTYLE = "DRAGDROPSTYLE"
CONST VSCLASS_DRAGDROP      = "DRAGDROP"

' enum DRAGDROPPARTS
CONST DD_COPY                           = 1
CONST DD_MOVE                           = 2
CONST DD_UPDATEMETADATA                 = 3
CONST DD_CREATELINK                     = 4
CONST DD_WARNING                        = 5
CONST DD_NONE                           = 6
CONST DD_IMAGEBG                        = 7
CONST DD_TEXTBG                         = 8

'#define DRAGDROPSTYLEPARTS DRAGDROPPARTS;

' enum COPYSTATES
CONST DDCOPY_HIGHLIGHT                  = 1
CONST DDCOPY_NOHIGHLIGHT                = 2

' enum MOVESTATES
CONST DDMOVE_HIGHLIGHT                  = 1
CONST DDMOVE_NOHIGHLIGHT                = 2

' enum UPDATEMETADATASTATES
CONST DDUPDATEMETADATA_HIGHLIGHT        = 1
CONST DDUPDATEMETADATA_NOHIGHLIGHT      = 2

' enum CREATELINKSTATES
CONST DDCREATELINK_HIGHLIGHT            = 1
CONST DDCREATELINK_NOHIGHLIGHT          = 2

' enum WARNINGSTATES
CONST DDWARNING_HIGHLIGHT               = 1
CONST DDWARNING_NOHIGHLIGHT             = 2

' enum NONESTATES
CONST DDNONE_HIGHLIGHT                  = 1
CONST DDNONE_NOHIGHLIGHT                = 2


'//
'// EDITSTYLE           class parts and states
'//
CONST VSCLASS_EDITSTYLE = "EDITSTYLE"
CONST VSCLASS_EDIT      = "EDIT"

' enum EDITPARTS
CONST EP_EDITTEXT                       = 1
CONST EP_CARET                          = 2
CONST EP_BACKGROUND                     = 3
CONST EP_PASSWORD                       = 4
CONST EP_BACKGROUNDWITHBORDER           = 5
CONST EP_EDITBORDER_NOSCROLL            = 6
CONST EP_EDITBORDER_HSCROLL             = 7
CONST EP_EDITBORDER_VSCROLL             = 8
CONST EP_EDITBORDER_HVSCROLL            = 9

'#define EDITSTYLEPARTS EDITPARTS;

' enum EDITTEXTSTATES
CONST ETS_NORMAL                        = 1
CONST ETS_HOT                           = 2
CONST ETS_SELECTED                      = 3
CONST ETS_DISABLED                      = 4
CONST ETS_FOCUSED                       = 5
CONST ETS_READONLY                      = 6
CONST ETS_ASSIST                        = 7
CONST ETS_CUEBANNER                     = 8

' enum BACKGROUNDSTATES
CONST EBS_NORMAL                        = 1
CONST EBS_HOT                           = 2
CONST EBS_DISABLED                      = 3
CONST EBS_FOCUSED                       = 4
CONST EBS_READONLY                      = 5
CONST EBS_ASSIST                        = 6

' enum BACKGROUNDWITHBORDERSTATES
CONST EBWBS_NORMAL                      = 1
CONST EBWBS_HOT                         = 2
CONST EBWBS_DISABLED                    = 3
CONST EBWBS_FOCUSED                     = 4

' enum EDITBORDER_NOSCROLLSTATES
CONST EPSN_NORMAL                       = 1
CONST EPSN_HOT                          = 2
CONST EPSN_FOCUSED                      = 3
CONST EPSN_DISABLED                     = 4

' enum EDITBORDER_HSCROLLSTATES
CONST EPSH_NORMAL                       = 1
CONST EPSH_HOT                          = 2
CONST EPSH_FOCUSED                      = 3
CONST EPSH_DISABLED                     = 4

' enum EDITBORDER_VSCROLLSTATES
CONST EPSV_NORMAL                       = 1
CONST EPSV_HOT                          = 2
CONST EPSV_FOCUSED                      = 3
CONST EPSV_DISABLED                     = 4

' enum EDITBORDER_HVSCROLLSTATES
CONST EPSHV_NORMAL                      = 1
CONST EPSHV_HOT                         = 2
CONST EPSHV_FOCUSED                     = 3
CONST EPSHV_DISABLED                    = 4

'//
'// EXPLORERBARSTYLE class parts and states
'//
CONST VSCLASS_EXPLORERBARSTYLE = "EXPLORERBARSTYLE"
CONST VSCLASS_EXPLORERBAR      = "EXPLORERBAR"

' enum EXPLORERBARPARTS
CONST EBP_HEADERBACKGROUND              = 1
CONST EBP_HEADERCLOSE                   = 2
CONST EBP_HEADERPIN                     = 3
CONST EBP_IEBARMENU                     = 4
CONST EBP_NORMALGROUPBACKGROUND         = 5
CONST EBP_NORMALGROUPCOLLAPSE           = 6
CONST EBP_NORMALGROUPEXPAND             = 7
CONST EBP_NORMALGROUPHEAD               = 8
CONST EBP_SPECIALGROUPBACKGROUND        = 9
CONST EBP_SPECIALGROUPCOLLAPSE          = 10
CONST EBP_SPECIALGROUPEXPAND            = 11
CONST EBP_SPECIALGROUPHEAD              = 12

'#define EXPLORERBARSTYLEPARTS EXPLORERBARPARTS;

' enum HEADERCLOSESTATES
CONST EBHC_NORMAL                       = 1
CONST EBHC_HOT                          = 2
CONST EBHC_PRESSED                      = 3

' enum HEADERPINSTATES
CONST EBHP_NORMAL                       = 1
CONST EBHP_HOT                          = 2
CONST EBHP_PRESSED                      = 3
CONST EBHP_SELECTEDNORMAL               = 4
CONST EBHP_SELECTEDHOT                  = 5
CONST EBHP_SELECTEDPRESSED              = 6

' enum IEBARMENUSTATES
CONST EBM_NORMAL                        = 1
CONST EBM_HOT                           = 2
CONST EBM_PRESSED                       = 3

' enum NORMALGROUPCOLLAPSESTATES
CONST EBNGC_NORMAL                      = 1
CONST EBNGC_HOT                         = 2
CONST EBNGC_PRESSED                     = 3

' enum NORMALGROUPEXPANDSTATES
CONST EBNGE_NORMAL                      = 1
CONST EBNGE_HOT                         = 2
CONST EBNGE_PRESSED                     = 3

' enum SPECIALGROUPCOLLAPSESTATES
CONST EBSGC_NORMAL                      = 1
CONST EBSGC_HOT                         = 2
CONST EBSGC_PRESSED                     = 3

' enum SPECIALGROUPEXPANDSTATES
CONST EBSGE_NORMAL                      = 1
CONST EBSGE_HOT                         = 2
CONST EBSGE_PRESSED                     = 3

'//
'// FLYOUTSTYLE class parts and states
'//
CONST VSCLASS_FLYOUTSTYLE = "FLYOUTSTYLE"
CONST VSCLASS_FLYOUT      = "FLYOUT"

' enum FLYOUTPARTS
CONST FLYOUT_HEADER                     = 1
CONST FLYOUT_BODY                       = 2
CONST FLYOUT_LABEL                      = 3
CONST FLYOUT_LINK                       = 4
CONST FLYOUT_DIVIDER                    = 5
CONST FLYOUT_WINDOW                     = 6
CONST FLYOUT_LINKAREA                   = 7
CONST FLYOUT_LINKHEADER                 = 8

'#define FLYOUTSTYLEPARTS FLYOUTPARTS;

' enum LABELSTATES
CONST FLS_NORMAL                        = 1
CONST FLS_SELECTED                      = 2
CONST FLS_EMPHASIZED                    = 3
CONST FLS_DISABLED                      = 4

' enum LINKSTATES
CONST FLYOUTLINK_NORMAL                 = 1
CONST FLYOUTLINK_HOVER                  = 2

' enum BODYSTATES
CONST FBS_NORMAL                        = 1
CONST FBS_EMPHASIZED                    = 2

' enum LINKHEADERSTATES
CONST FLH_NORMAL                        = 1
CONST FLH_HOVER                         = 2

'//
'// HEADERSTYLE class parts and states
'//
CONST VSCLASS_HEADERSTYLE = "HEADERSTYLE"
CONST VSCLASS_HEADER      = "HEADER"

' enum HEADERPARTS
CONST HP_HEADERITEM                     = 1
CONST HP_HEADERITEMLEFT                 = 2
CONST HP_HEADERITEMRIGHT                = 3
CONST HP_HEADERSORTARROW                = 4
CONST HP_HEADERDROPDOWN                 = 5
CONST HP_HEADERDROPDOWNFILTER           = 6
CONST HP_HEADEROVERFLOW                 = 7

'#define HEADERSTYLEPARTS HEADERPARTS;

' enum HEADERSTYLESTATES
CONST HBG_DETAILS                       = 1
CONST HBG_ICON                          = 2

' enum HEADERITEMSTATES
CONST HIS_NORMAL                        = 1
CONST HIS_HOT                           = 2
CONST HIS_PRESSED                       = 3
CONST HIS_SORTEDNORMAL                  = 4
CONST HIS_SORTEDHOT                     = 5
CONST HIS_SORTEDPRESSED                 = 6
CONST HIS_ICONNORMAL                    = 7
CONST HIS_ICONHOT                       = 8
CONST HIS_ICONPRESSED                   = 9
CONST HIS_ICONSORTEDNORMAL              = 10
CONST HIS_ICONSORTEDHOT                 = 11
CONST HIS_ICONSORTEDPRESSED             = 12

' enum HEADERITEMLEFTSTATES
CONST HILS_NORMAL                       = 1
CONST HILS_HOT                          = 2
CONST HILS_PRESSED                      = 3

' enum HEADERITEMRIGHTSTATES
CONST HIRS_NORMAL                       = 1
CONST HIRS_HOT                          = 2
CONST HIRS_PRESSED                      = 3

' enum HEADERSORTARROWSTATES
CONST HSAS_SORTEDUP                     = 1
CONST HSAS_SORTEDDOWN                   = 2

' enum HEADERDROPDOWNSTATES
CONST HDDS_NORMAL                       = 1
CONST HDDS_SOFTHOT                      = 2
CONST HDDS_HOT                          = 3

' enum HEADERDROPDOWNFILTERSTATES
CONST HDDFS_NORMAL                      = 1
CONST HDDFS_SOFTHOT                     = 2
CONST HDDFS_HOT                         = 3

' enum HEADEROVERFLOWSTATES
CONST HOFS_NORMAL                       = 1
CONST HOFS_HOT                          = 2

'//
'// LISTBOXSTYLE class parts and states
'//
CONST VSCLASS_LISTBOXSTYLE = "LISTBOXSTYLE"
CONST VSCLASS_LISTBOX      = "LISTBOX"

' enum LISTBOXPARTS
CONST LBCP_BORDER_HSCROLL               = 1
CONST LBCP_BORDER_HVSCROLL              = 2
CONST LBCP_BORDER_NOSCROLL              = 3
CONST LBCP_BORDER_VSCROLL               = 4
CONST LBCP_ITEM                         = 5

'#define LISTBOXSTYLEPARTS LISTBOXPARTS;

' enum BORDER_HSCROLLSTATES
CONST LBPSH_NORMAL                      = 1
CONST LBPSH_FOCUSED                     = 2
CONST LBPSH_HOT                         = 3
CONST LBPSH_DISABLED                    = 4

' enum BORDER_HVSCROLLSTATES
CONST LBPSHV_NORMAL                     = 1
CONST LBPSHV_FOCUSED                    = 2
CONST LBPSHV_HOT                        = 3
CONST LBPSHV_DISABLED                   = 4

' enum BORDER_NOSCROLLSTATES
CONST LBPSN_NORMAL                      = 1
CONST LBPSN_FOCUSED                     = 2
CONST LBPSN_HOT                         = 3
CONST LBPSN_DISABLED                    = 4

' enum BORDER_VSCROLLSTATES
CONST LBPSV_NORMAL                      = 1
CONST LBPSV_FOCUSED                     = 2
CONST LBPSV_HOT                         = 3
CONST LBPSV_DISABLED                    = 4

' enum ITEMSTATES
CONST LBPSI_HOT                         = 1
CONST LBPSI_HOTSELECTED                 = 2
CONST LBPSI_SELECTED                    = 3
CONST LBPSI_SELECTEDNOTFOCUS            = 4

'//
'// LISTVIEWSTYLE class parts and states
'//
CONST VSCLASS_LISTVIEWSTYLE = "LISTVIEWSTYLE"
CONST VSCLASS_LISTVIEW      = "LISTVIEW"

' enum LISTVIEWPARTS
CONST LVP_LISTITEM                      = 1
CONST LVP_LISTGROUP                     = 2
CONST LVP_LISTDETAIL                    = 3
CONST LVP_LISTSORTEDDETAIL              = 4
CONST LVP_EMPTYTEXT                     = 5
CONST LVP_GROUPHEADER                   = 6
CONST LVP_GROUPHEADERLINE               = 7
CONST LVP_EXPANDBUTTON                  = 8
CONST LVP_COLLAPSEBUTTON                = 9
CONST LVP_COLUMNDETAIL                  = 10

'#define LISTVIEWSTYLEPARTS LISTVIEWPARTS;

' enum LISTITEMSTATES
CONST LISS_NORMAL                       = 1
CONST LISS_HOT                          = 2
CONST LISS_SELECTED                     = 3
CONST LISS_DISABLED                     = 4
CONST LISS_SELECTEDNOTFOCUS             = 5
CONST LISS_HOTSELECTED                  = 6

' enum GROUPHEADERSTATES
CONST LVGH_OPEN                         = 1
CONST LVGH_OPENHOT                      = 2
CONST LVGH_OPENSELECTED                 = 3
CONST LVGH_OPENSELECTEDHOT              = 4
CONST LVGH_OPENSELECTEDNOTFOCUSED       = 5
CONST LVGH_OPENSELECTEDNOTFOCUSEDHOT    = 6
CONST LVGH_OPENMIXEDSELECTION           = 7
CONST LVGH_OPENMIXEDSELECTIONHOT        = 8
CONST LVGH_CLOSE                        = 9
CONST LVGH_CLOSEHOT                     = 10
CONST LVGH_CLOSESELECTED                = 11
CONST LVGH_CLOSESELECTEDHOT             = 12
CONST LVGH_CLOSESELECTEDNOTFOCUSED      = 13
CONST LVGH_CLOSESELECTEDNOTFOCUSEDHOT   = 14
CONST LVGH_CLOSEMIXEDSELECTION          = 15
CONST LVGH_CLOSEMIXEDSELECTIONHOT       = 16

' enum GROUPHEADERLINESTATES
CONST LVGHL_OPEN                        = 1
CONST LVGHL_OPENHOT                     = 2
CONST LVGHL_OPENSELECTED                = 3
CONST LVGHL_OPENSELECTEDHOT             = 4
CONST LVGHL_OPENSELECTEDNOTFOCUSED      = 5
CONST LVGHL_OPENSELECTEDNOTFOCUSEDHOT   = 6
CONST LVGHL_OPENMIXEDSELECTION          = 7
CONST LVGHL_OPENMIXEDSELECTIONHOT       = 8
CONST LVGHL_CLOSE                       = 9
CONST LVGHL_CLOSEHOT                    = 10
CONST LVGHL_CLOSESELECTED               = 11
CONST LVGHL_CLOSESELECTEDHOT            = 12
CONST LVGHL_CLOSESELECTEDNOTFOCUSED     = 13
CONST LVGHL_CLOSESELECTEDNOTFOCUSEDHOT  = 14
CONST LVGHL_CLOSEMIXEDSELECTION         = 15
CONST LVGHL_CLOSEMIXEDSELECTIONHOT      = 16

' enum EXPANDBUTTONSTATES
CONST LVEB_NORMAL                       = 1
CONST LVEB_HOVER                        = 2
CONST LVEB_PUSHED                       = 3

' enum COLLAPSEBUTTONSTATES
CONST LVCB_NORMAL                       = 1
CONST LVCB_HOVER                        = 2
CONST LVCB_PUSHED                       = 3

'//
'// MENUSTYLE class parts and states
'//
CONST VSCLASS_MENUSTYLE = "MENUSTYLE"
CONST VSCLASS_MENU      = "MENU"

' enum MENUPARTS
CONST MENU_MENUITEM_TMSCHEMA            = 1
CONST MENU_MENUDROPDOWN_TMSCHEMA        = 2
CONST MENU_MENUBARITEM_TMSCHEMA         = 3
CONST MENU_MENUBARDROPDOWN_TMSCHEMA     = 4
CONST MENU_CHEVRON_TMSCHEMA             = 5
CONST MENU_SEPARATOR_TMSCHEMA           = 6
CONST MENU_BARBACKGROUND                = 7
CONST MENU_BARITEM                      = 8
CONST MENU_POPUPBACKGROUND              = 9
CONST MENU_POPUPBORDERS                 = 10
CONST MENU_POPUPCHECK                   = 11
CONST MENU_POPUPCHECKBACKGROUND         = 12
CONST MENU_POPUPGUTTER                  = 13
CONST MENU_POPUPITEM                    = 14
CONST MENU_POPUPSEPARATOR               = 15
CONST MENU_POPUPSUBMENU                 = 16
CONST MENU_SYSTEMCLOSE                  = 17
CONST MENU_SYSTEMMAXIMIZE               = 18
CONST MENU_SYSTEMMINIMIZE               = 19
CONST MENU_SYSTEMRESTORE                = 20

'#define MENUSTYLEPARTS MENUPARTS;

' enum BARBACKGROUNDSTATES
CONST MB_ACTIVE                         = 1
CONST MB_INACTIVE                       = 2

' enum BARITEMSTATES
CONST MBI_NORMAL                        = 1
CONST MBI_HOT                           = 2
CONST MBI_PUSHED                        = 3
CONST MBI_DISABLED                      = 4
CONST MBI_DISABLEDHOT                   = 5
CONST MBI_DISABLEDPUSHED                = 6

' enum POPUPCHECKSTATES
CONST MC_CHECKMARKNORMAL                = 1
CONST MC_CHECKMARKDISABLED              = 2
CONST MC_BULLETNORMAL                   = 3
CONST MC_BULLETDISABLED                 = 4

' enum POPUPCHECKBACKGROUNDSTATES
CONST MCB_DISABLED                      = 1
CONST MCB_NORMAL                        = 2
CONST MCB_BITMAP                        = 3

' enum POPUPITEMSTATES
CONST MPI_NORMAL                        = 1
CONST MPI_HOT                           = 2
CONST MPI_DISABLED                      = 3
CONST MPI_DISABLEDHOT                   = 4

' enum POPUPSUBMENUSTATES
CONST MSM_NORMAL                        = 1
CONST MSM_DISABLED                      = 2

' enum SYSTEMCLOSESTATES
CONST MSYSC_NORMAL                      = 1
CONST MSYSC_DISABLED                    = 2

' enum SYSTEMMAXIMIZESTATES
CONST MSYSMX_NORMAL                     = 1
CONST MSYSMX_DISABLED                   = 2

' enum SYSTEMMINIMIZESTATES
CONST MSYSMN_NORMAL                     = 1
CONST MSYSMN_DISABLED                   = 2

' enum SYSTEMRESTORESTATES
CONST MSYSR_NORMAL                      = 1
CONST MSYSR_DISABLED                    = 2

'//
'// NAVIGATION class parts and states
'//
CONST VSCLASS_NAVIGATION = "NAVIGATION"

' enum NAVIGATIONPARTS
CONST NAV_BACKBUTTON                    = 1
CONST NAV_FORWARDBUTTON                 = 2
CONST NAV_MENUBUTTON                    = 3

' enum NAV_BACKBUTTONSTATES
CONST NAV_BB_NORMAL                     = 1
CONST NAV_BB_HOT                        = 2
CONST NAV_BB_PRESSED                    = 3
CONST NAV_BB_DISABLED                   = 4

' enum NAV_FORWARDBUTTONSTATES
CONST NAV_FB_NORMAL                     = 1
CONST NAV_FB_HOT                        = 2
CONST NAV_FB_PRESSED                    = 3
CONST NAV_FB_DISABLED                   = 4

' enum NAV_MENUBUTTONSTATES
CONST NAV_MB_NORMAL                     = 1
CONST NAV_MB_HOT                        = 2
CONST NAV_MB_PRESSED                    = 3
CONST NAV_MB_DISABLED                   = 4

'//
'// PROGRESSSTYLE class parts and states
'//
CONST VSCLASS_PROGRESSSTYLE = "PROGRESSSTYLE"
CONST VSCLASS_PROGRESS      = "PROGRESS"

' enum PROGRESSPARTS
CONST PP_BAR                            = 1
CONST PP_BARVERT                        = 2
CONST PP_CHUNK                          = 3
CONST PP_CHUNKVERT                      = 4
CONST PP_FILL                           = 5
CONST PP_FILLVERT                       = 6
CONST PP_PULSEOVERLAY                   = 7
CONST PP_MOVEOVERLAY                    = 8
CONST PP_PULSEOVERLAYVERT               = 9
CONST PP_MOVEOVERLAYVERT                = 10
CONST PP_TRANSPARENTBAR                 = 11
CONST PP_TRANSPARENTBARVERT             = 12

'#define PROGRESSSTYLEPARTS PROGRESSPARTS;

' enum TRANSPARENTBARSTATES
CONST PBBS_NORMAL                       = 1
CONST PBBS_PARTIAL                      = 2

' enum TRANSPARENTBARVERTSTATES
CONST PBBVS_NORMAL                      = 1
CONST PBBVS_PARTIAL                     = 2

' enum FILLSTATES
CONST PBFS_NORMAL                       = 1
CONST PBFS_ERROR                        = 2
CONST PBFS_PAUSED                       = 3
CONST PBFS_PARTIAL                      = 4

' enum FILLVERTSTATES
CONST PBFVS_NORMAL                      = 1
CONST PBFVS_ERROR                       = 2
CONST PBFVS_PAUSED                      = 3
CONST PBFVS_PARTIAL                     = 4

'//
'// REBARSTYLE class parts and states
'//
CONST VSCLASS_REBARSTYLE = "REBARSTYLE"
CONST VSCLASS_REBAR      = "REBAR"

' enum REBARPARTS
CONST RP_GRIPPER                        = 1
CONST RP_GRIPPERVERT                    = 2
CONST RP_BAND                           = 3
CONST RP_CHEVRON                        = 4
CONST RP_CHEVRONVERT                    = 5
CONST RP_BACKGROUND                     = 6
CONST RP_SPLITTER                       = 7
CONST RP_SPLITTERVERT                   = 8

'#define REBARSTYLEPARTS REBARPARTS;

' enum CHEVRONSTATES
CONST CHEVS_NORMAL                      = 1
CONST CHEVS_HOT                         = 2
CONST CHEVS_PRESSED                     = 3

' enum CHEVRONVERTSTATES
CONST CHEVSV_NORMAL                     = 1
CONST CHEVSV_HOT                        = 2
CONST CHEVSV_PRESSED                    = 3

' enum SPLITTERSTATES
CONST SPLITS_NORMAL                     = 1
CONST SPLITS_HOT                        = 2
CONST SPLITS_PRESSED                    = 3

' enum SPLITTERVERTSTATES
CONST SPLITSV_NORMAL                    = 1
CONST SPLITSV_HOT                       = 2
CONST SPLITSV_PRESSED                   = 3

'//
'// SCROLLBARSTYLE class parts and states
'//
CONST VSCLASS_SCROLLBARSTYLE = "SCROLLBARSTYLE"
CONST VSCLASS_SCROLLBAR      = "SCROLLBAR"

' enum SCROLLBARPARTS
CONST SBP_ARROWBTN                      = 1
CONST SBP_THUMBBTNHORZ                  = 2
CONST SBP_THUMBBTNVERT                  = 3
CONST SBP_LOWERTRACKHORZ                = 4
CONST SBP_UPPERTRACKHORZ                = 5
CONST SBP_LOWERTRACKVERT                = 6
CONST SBP_UPPERTRACKVERT                = 7
CONST SBP_GRIPPERHORZ                   = 8
CONST SBP_GRIPPERVERT                   = 9
CONST SBP_SIZEBOX                       = 10

'#define SCROLLBARSTYLEPARTS SCROLLBARPARTS;

' enum ARROWBTNSTATES
CONST ABS_UPNORMAL                      = 1
CONST ABS_UPHOT                         = 2
CONST ABS_UPPRESSED                     = 3
CONST ABS_UPDISABLED                    = 4
CONST ABS_DOWNNORMAL                    = 5
CONST ABS_DOWNHOT                       = 6
CONST ABS_DOWNPRESSED                   = 7
CONST ABS_DOWNDISABLED                  = 8
CONST ABS_LEFTNORMAL                    = 9
CONST ABS_LEFTHOT                       = 10
CONST ABS_LEFTPRESSED                   = 11
CONST ABS_LEFTDISABLED                  = 12
CONST ABS_RIGHTNORMAL                   = 13
CONST ABS_RIGHTHOT                      = 14
CONST ABS_RIGHTPRESSED                  = 15
CONST ABS_RIGHTDISABLED                 = 16
CONST ABS_UPHOVER                       = 17
CONST ABS_DOWNHOVER                     = 18
CONST ABS_LEFTHOVER                     = 19
CONST ABS_RIGHTHOVER                    = 20

' enum SCROLLBARSTYLESTATES
CONST SCRBS_NORMAL                      = 1
CONST SCRBS_HOT                         = 2
CONST SCRBS_PRESSED                     = 3
CONST SCRBS_DISABLED                    = 4
CONST SCRBS_HOVER                       = 5

' enum SIZEBOXSTATES
CONST SZB_RIGHTALIGN                    = 1
CONST SZB_LEFTALIGN                     = 2
CONST SZB_TOPRIGHTALIGN                 = 3
CONST SZB_TOPLEFTALIGN                  = 4
CONST SZB_HALFBOTTOMRIGHTALIGN          = 5
CONST SZB_HALFBOTTOMLEFTALIGN           = 6
CONST SZB_HALFTOPRIGHTALIGN             = 7
CONST SZB_HALFTOPLEFTALIGN              = 8

'//
'// SPINSTYLE class parts and states
'//
CONST VSCLASS_SPINSTYLE = "SPINSTYLE"
CONST VSCLASS_SPIN      = "SPIN"

' enum SPINPARTS
CONST SPNP_UP                           = 1
CONST SPNP_DOWN                         = 2
CONST SPNP_UPHORZ                       = 3
CONST SPNP_DOWNHORZ                     = 4

'#define SPINSTYLEPARTS SPINPARTS;

' enum UPSTATES
CONST UPS_NORMAL                        = 1
CONST UPS_HOT                           = 2
CONST UPS_PRESSED                       = 3
CONST UPS_DISABLED                      = 4

' enum DOWNSTATES
CONST DNS_NORMAL                        = 1
CONST DNS_HOT                           = 2
CONST DNS_PRESSED                       = 3
CONST DNS_DISABLED                      = 4

' enum UPHORZSTATES
CONST UPHZS_NORMAL                      = 1
CONST UPHZS_HOT                         = 2
CONST UPHZS_PRESSED                     = 3
CONST UPHZS_DISABLED                    = 4

' enum DOWNHORZSTATES
CONST DNHZS_NORMAL                      = 1
CONST DNHZS_HOT                         = 2
CONST DNHZS_PRESSED                     = 3
CONST DNHZS_DISABLED                    = 4

'//
'// STATUSSTYLE class parts and states
'//
CONST VSCLASS_STATUSSTYLE = "STATUSSTYLE"
CONST VSCLASS_STATUS      = "STATUS"

' enum STATUSPARTS
CONST SP_PANE                           = 1
CONST SP_GRIPPERPANE                    = 2
CONST SP_GRIPPER                        = 3

'#define STATUSSTYLEPARTS STATUSPARTS;

'//
'// TABSTYLE class parts and states
'//
CONST VSCLASS_TABSTYLE = "TABSTYLE"
CONST VSCLASS_TAB      = "TAB"

' enum TABPARTS
CONST TABP_TABITEM                      = 1
CONST TABP_TABITEMLEFTEDGE              = 2
CONST TABP_TABITEMRIGHTEDGE             = 3
CONST TABP_TABITEMBOTHEDGE              = 4
CONST TABP_TOPTABITEM                   = 5
CONST TABP_TOPTABITEMLEFTEDGE           = 6
CONST TABP_TOPTABITEMRIGHTEDGE          = 7
CONST TABP_TOPTABITEMBOTHEDGE           = 8
CONST TABP_PANE                         = 9
CONST TABP_BODY                         = 10
CONST TABP_AEROWIZARDBODY               = 11

'#define TABSTYLEPARTS TABPARTS;

' enum TABITEMSTATES
CONST TIS_NORMAL                        = 1
CONST TIS_HOT                           = 2
CONST TIS_SELECTED                      = 3
CONST TIS_DISABLED                      = 4
CONST TIS_FOCUSED                       = 5

' enum TABITEMLEFTEDGESTATES
CONST TILES_NORMAL                      = 1
CONST TILES_HOT                         = 2
CONST TILES_SELECTED                    = 3
CONST TILES_DISABLED                    = 4
CONST TILES_FOCUSED                     = 5

' enum TABITEMRIGHTEDGESTATES
CONST TIRES_NORMAL                      = 1
CONST TIRES_HOT                         = 2
CONST TIRES_SELECTED                    = 3
CONST TIRES_DISABLED                    = 4
CONST TIRES_FOCUSED                     = 5

' enum TABITEMBOTHEDGESTATES
CONST TIBES_NORMAL                      = 1
CONST TIBES_HOT                         = 2
CONST TIBES_SELECTED                    = 3
CONST TIBES_DISABLED                    = 4
CONST TIBES_FOCUSED                     = 5

' enum TOPTABITEMSTATES
CONST TTIS_NORMAL                       = 1
CONST TTIS_HOT                          = 2
CONST TTIS_SELECTED                     = 3
CONST TTIS_DISABLED                     = 4
CONST TTIS_FOCUSED                      = 5

' enum TOPTABITEMLEFTEDGESTATES
CONST TTILES_NORMAL                     = 1
CONST TTILES_HOT                        = 2
CONST TTILES_SELECTED                   = 3
CONST TTILES_DISABLED                   = 4
CONST TTILES_FOCUSED                    = 5

' enum TOPTABITEMRIGHTEDGESTATES
CONST TTIRES_NORMAL                     = 1
CONST TTIRES_HOT                        = 2
CONST TTIRES_SELECTED                   = 3
CONST TTIRES_DISABLED                   = 4
CONST TTIRES_FOCUSED                    = 5

' enum TOPTABITEMBOTHEDGESTATES
CONST TTIBES_NORMAL                     = 1
CONST TTIBES_HOT                        = 2
CONST TTIBES_SELECTED                   = 3
CONST TTIBES_DISABLED                   = 4
CONST TTIBES_FOCUSED                    = 5

'//
'// TASKDIALOGSTYLE class parts and states
'//
CONST VSCLASS_TASKDIALOGSTYLE = "TASKDIALOGSTYLE"
CONST VSCLASS_TASKDIALOG      = "TASKDIALOG"

' enum TASKDIALOGPARTS
CONST TDLG_PRIMARYPANEL                 = 1
CONST TDLG_MAININSTRUCTIONPANE          = 2
CONST TDLG_MAINICON                     = 3
CONST TDLG_CONTENTPANE                  = 4
CONST TDLG_CONTENTICON                  = 5
CONST TDLG_EXPANDEDCONTENT              = 6
CONST TDLG_COMMANDLINKPANE              = 7
CONST TDLG_SECONDARYPANEL               = 8
CONST TDLG_CONTROLPANE                  = 9
CONST TDLG_BUTTONSECTION                = 10
CONST TDLG_BUTTONWRAPPER                = 11
CONST TDLG_EXPANDOTEXT                  = 12
CONST TDLG_EXPANDOBUTTON                = 13
CONST TDLG_VERIFICATIONTEXT             = 14
CONST TDLG_FOOTNOTEPANE                 = 15
CONST TDLG_FOOTNOTEAREA                 = 16
CONST TDLG_FOOTNOTESEPARATOR            = 17
CONST TDLG_EXPANDEDFOOTERAREA           = 18
CONST TDLG_PROGRESSBAR                  = 19
CONST TDLG_IMAGEALIGNMENT               = 20
CONST TDLG_RADIOBUTTONPANE              = 21

'#define TASKDIALOGSTYLEPARTS TASKDIALOGPARTS;

' enum CONTENTPANESTATES
CONST TDLGCPS_STANDALONE                = 1

' enum EXPANDOBUTTONSTATES
CONST TDLGEBS_NORMAL                    = 1
CONST TDLGEBS_HOVER                     = 2
CONST TDLGEBS_PRESSED                   = 3
CONST TDLGEBS_EXPANDEDNORMAL            = 4
CONST TDLGEBS_EXPANDEDHOVER             = 5
CONST TDLGEBS_EXPANDEDPRESSED           = 6

'//
'// TEXTSTYLE class parts and states
'//
'#define VSCLASS_TEXTSTYLE "TEXTSTYLE"

' enum TEXTSTYLEPARTS
CONST TEXT_MAININSTRUCTION              = 1
CONST TEXT_INSTRUCTION                  = 2
CONST TEXT_BODYTITLE                    = 3
CONST TEXT_BODYTEXT                     = 4
CONST TEXT_SECONDARYTEXT                = 5
CONST TEXT_HYPERLINKTEXT                = 6
CONST TEXT_EXPANDED                     = 7
CONST TEXT_LABEL                        = 8
CONST TEXT_CONTROLLABEL                 = 9

' enum HYPERLINKTEXTSTATES
CONST TS_HYPERLINK_NORMAL               = 1
CONST TS_HYPERLINK_HOT                  = 2
CONST TS_HYPERLINK_PRESSED              = 3
CONST TS_HYPERLINK_DISABLED             = 4

' enum CONTROLLABELSTATES
CONST TS_CONTROLLABEL_NORMAL            = 1
CONST TS_CONTROLLABEL_DISABLED          = 2

'//
'// TOOLBARSTYLE class parts and states
'//
CONST VSCLASS_TOOLBARSTYLE = "TOOLBARSTYLE"
CONST VSCLASS_TOOLBAR      = "TOOLBAR"

' enum TOOLBARPARTS
CONST TP_BUTTON                         = 1
CONST TP_DROPDOWNBUTTON                 = 2
CONST TP_SPLITBUTTON                    = 3
CONST TP_SPLITBUTTONDROPDOWN            = 4
CONST TP_SEPARATOR                      = 5
CONST TP_SEPARATORVERT                  = 6
CONST TP_DROPDOWNBUTTONGLYPH            = 7

'#define TOOLBARSTYLEPARTS TOOLBARPARTS;

' enum TOOLBARSTYLESTATES
CONST TS_NORMAL                         = 1
CONST TS_HOT                            = 2
CONST TS_PRESSED                        = 3
CONST TS_DISABLED                       = 4
CONST TS_CHECKED                        = 5
CONST TS_HOTCHECKED                     = 6
CONST TS_NEARHOT                        = 7
CONST TS_OTHERSIDEHOT                   = 8

'//
'// TOOLTIPSTYLE class parts and states
'//
CONST VSCLASS_TOOLTIPSTYLE = "TOOLTIPSTYLE"
CONST VSCLASS_TOOLTIP      = "TOOLTIP"

' enum TOOLTIPPARTS
CONST TTP_STANDARD                      = 1
CONST TTP_STANDARDTITLE                 = 2
CONST TTP_BALLOON                       = 3
CONST TTP_BALLOONTITLE                  = 4
CONST TTP_CLOSE                         = 5
CONST TTP_BALLOONSTEM                   = 6
CONST TTP_WRENCH                        = 7

'#define TOOLTIPSTYLEPARTS TOOLTIPPARTS;

' enum CLOSESTATES
CONST TTCS_NORMAL                       = 1
CONST TTCS_HOT                          = 2
CONST TTCS_PRESSED                      = 3

' enum STANDARDSTATES
CONST TTSS_NORMAL                       = 1
CONST TTSS_LINK                         = 2

' enum BALLOONSTATES
CONST TTBS_NORMAL                       = 1
CONST TTBS_LINK                         = 2

' enum BALLOONSTEMSTATES
CONST TTBSS_POINTINGUPLEFTWALL          = 1
CONST TTBSS_POINTINGUPCENTERED          = 2
CONST TTBSS_POINTINGUPRIGHTWALL         = 3
CONST TTBSS_POINTINGDOWNRIGHTWALL       = 4
CONST TTBSS_POINTINGDOWNCENTERED        = 5
CONST TTBSS_POINTINGDOWNLEFTWALL        = 6

' enum WRENCHSTATES
CONST TTWS_NORMAL                       = 1
CONST TTWS_HOT                          = 2
CONST TTWS_PRESSED                      = 3

'//
'// TRACKBARSTYLE class parts and states
'//
CONST VSCLASS_TRACKBARSTYLE = "TRACKBARSTYLE"
CONST VSCLASS_TRACKBAR      = "TRACKBAR"

' enum TRACKBARPARTS
CONST TKP_TRACK                         = 1
CONST TKP_TRACKVERT                     = 2
CONST TKP_THUMB                         = 3
CONST TKP_THUMBBOTTOM                   = 4
CONST TKP_THUMBTOP                      = 5
CONST TKP_THUMBVERT                     = 6
CONST TKP_THUMBLEFT                     = 7
CONST TKP_THUMBRIGHT                    = 8
CONST TKP_TICS                          = 9
CONST TKP_TICSVERT                      = 10

'#define TRACKBARSTYLEPARTS TRACKBARPARTS;

' enum TRACKBARSTYLESTATES
CONST TKS_NORMAL                        = 1

' enum TRACKSTATES
CONST TRS_NORMAL                        = 1

' enum TRACKVERTSTATES
CONST TRVS_NORMAL                       = 1

' enum THUMBSTATES
CONST TUS_NORMAL                        = 1
CONST TUS_HOT                           = 2
CONST TUS_PRESSED                       = 3
CONST TUS_FOCUSED                       = 4
CONST TUS_DISABLED                      = 5

' enum THUMBBOTTOMSTATES
CONST TUBS_NORMAL                       = 1
CONST TUBS_HOT                          = 2
CONST TUBS_PRESSED                      = 3
CONST TUBS_FOCUSED                      = 4
CONST TUBS_DISABLED                     = 5

' enum THUMBTOPSTATES
CONST TUTS_NORMAL                       = 1
CONST TUTS_HOT                          = 2
CONST TUTS_PRESSED                      = 3
CONST TUTS_FOCUSED                      = 4
CONST TUTS_DISABLED                     = 5

' enum THUMBVERTSTATES
CONST TUVS_NORMAL                       = 1
CONST TUVS_HOT                          = 2
CONST TUVS_PRESSED                      = 3
CONST TUVS_FOCUSED                      = 4
CONST TUVS_DISABLED                     = 5

' enum THUMBLEFTSTATES
CONST TUVLS_NORMAL                      = 1
CONST TUVLS_HOT                         = 2
CONST TUVLS_PRESSED                     = 3
CONST TUVLS_FOCUSED                     = 4
CONST TUVLS_DISABLED                    = 5

' enum THUMBRIGHTSTATES
CONST TUVRS_NORMAL                      = 1
CONST TUVRS_HOT                         = 2
CONST TUVRS_PRESSED                     = 3
CONST TUVRS_FOCUSED                     = 4
CONST TUVRS_DISABLED                    = 5

' enum TICSSTATES
CONST TSS_NORMAL                        = 1

' enum TICSVERTSTATES
CONST TSVS_NORMAL                       = 1

'//
'// TREEVIEWSTYLE class parts and states
'//
CONST VSCLASS_TREEVIEWSTYLE = "TREEVIEWSTYLE"
CONST VSCLASS_TREEVIEW      = "TREEVIEW"

' enum TREEVIEWPARTS
CONST TVP_TREEITEM                      = 1
CONST TVP_GLYPH                         = 2
CONST TVP_BRANCH                        = 3
CONST TVP_HOTGLYPH                      = 4

'#define TREEVIEWSTYLEPARTS TREEVIEWPARTS;

' enum TREEITEMSTATES
CONST TREIS_NORMAL                      = 1
CONST TREIS_HOT                         = 2
CONST TREIS_SELECTED                    = 3
CONST TREIS_DISABLED                    = 4
CONST TREIS_SELECTEDNOTFOCUS            = 5
CONST TREIS_HOTSELECTED                 = 6

' enum GLYPHSTATES
CONST GLPS_CLOSED                       = 1
CONST GLPS_OPENED                       = 2

' enum HOTGLYPHSTATES
CONST HGLPS_CLOSED                      = 1
CONST HGLPS_OPENED                      = 2

'//
'// WINDOWSTYLE class parts and states
'//
CONST VSCLASS_WINDOWSTYLE = "WINDOWSTYLE"
CONST VSCLASS_WINDOW      = "WINDOW"

' enum WINDOWPARTS
CONST WP_CAPTION                        = 1
CONST WP_SMALLCAPTION                   = 2
CONST WP_MINCAPTION                     = 3
CONST WP_SMALLMINCAPTION                = 4
CONST WP_MAXCAPTION                     = 5
CONST WP_SMALLMAXCAPTION                = 6
CONST WP_FRAMELEFT                      = 7
CONST WP_FRAMERIGHT                     = 8
CONST WP_FRAMEBOTTOM                    = 9
CONST WP_SMALLFRAMELEFT                 = 10
CONST WP_SMALLFRAMERIGHT                = 11
CONST WP_SMALLFRAMEBOTTOM               = 12
CONST WP_SYSBUTTON                      = 13
CONST WP_MDISYSBUTTON                   = 14
CONST WP_MINBUTTON                      = 15
CONST WP_MDIMINBUTTON                   = 16
CONST WP_MAXBUTTON                      = 17
CONST WP_CLOSEBUTTON                    = 18
CONST WP_SMALLCLOSEBUTTON               = 19
CONST WP_MDICLOSEBUTTON                 = 20
CONST WP_RESTOREBUTTON                  = 21
CONST WP_MDIRESTOREBUTTON               = 22
CONST WP_HELPBUTTON                     = 23
CONST WP_MDIHELPBUTTON                  = 24
CONST WP_HORZSCROLL                     = 25
CONST WP_HORZTHUMB                      = 26
CONST WP_VERTSCROLL                     = 27
CONST WP_VERTTHUMB                      = 28
CONST WP_DIALOG                         = 29
CONST WP_CAPTIONSIZINGTEMPLATE          = 30
CONST WP_SMALLCAPTIONSIZINGTEMPLATE     = 31
CONST WP_FRAMELEFTSIZINGTEMPLATE        = 32
CONST WP_SMALLFRAMELEFTSIZINGTEMPLATE   = 33
CONST WP_FRAMERIGHTSIZINGTEMPLATE       = 34
CONST WP_SMALLFRAMERIGHTSIZINGTEMPLATE  = 35
CONST WP_FRAMEBOTTOMSIZINGTEMPLATE      = 36
CONST WP_SMALLFRAMEBOTTOMSIZINGTEMPLATE = 37
CONST WP_FRAME                          = 38

'#define WINDOWSTYLEPARTS WINDOWPARTS;

' enum FRAMESTATES
CONST FS_ACTIVE                         = 1
CONST FS_INACTIVE                       = 2

' enum CAPTIONSTATES
CONST CS_ACTIVE                         = 1
CONST CS_INACTIVE                       = 2
CONST CS_DISABLED                       = 3

' enum MAXCAPTIONSTATES
CONST MXCS_ACTIVE                       = 1
CONST MXCS_INACTIVE                     = 2
CONST MXCS_DISABLED                     = 3

' enum MINCAPTIONSTATES
CONST MNCS_ACTIVE                       = 1
CONST MNCS_INACTIVE                     = 2
CONST MNCS_DISABLED                     = 3

' enum HORZSCROLLSTATES
CONST HSS_NORMAL                        = 1
CONST HSS_HOT                           = 2
CONST HSS_PUSHED                        = 3
CONST HSS_DISABLED                      = 4

' enum HORZTHUMBSTATES
CONST HTS_NORMAL                        = 1
CONST HTS_HOT                           = 2
CONST HTS_PUSHED                        = 3
CONST HTS_DISABLED                      = 4

' enum VERTSCROLLSTATES
CONST VSS_NORMAL                        = 1
CONST VSS_HOT                           = 2
CONST VSS_PUSHED                        = 3
CONST VSS_DISABLED                      = 4

' enum VERTTHUMBSTATES
CONST VTS_NORMAL                        = 1
CONST VTS_HOT                           = 2
CONST VTS_PUSHED                        = 3
CONST VTS_DISABLED                      = 4

' enum SYSBUTTONSTATES
CONST SBS_NORMAL                        = 1
CONST SBS_HOT                           = 2
CONST SBS_PUSHED                        = 3
CONST SBS_DISABLED                      = 4

' enum MINBUTTONSTATES
CONST MINBS_NORMAL                      = 1
CONST MINBS_HOT                         = 2
CONST MINBS_PUSHED                      = 3
CONST MINBS_DISABLED                    = 4

' enum MAXBUTTONSTATES
CONST MAXBS_NORMAL                      = 1
CONST MAXBS_HOT                         = 2
CONST MAXBS_PUSHED                      = 3
CONST MAXBS_DISABLED                    = 4

' enum RESTOREBUTTONSTATES
CONST RBS_NORMAL                        = 1
CONST RBS_HOT                           = 2
CONST RBS_PUSHED                        = 3
CONST RBS_DISABLED                      = 4

' enum HELPBUTTONSTATES
CONST HBS_NORMAL                        = 1
CONST HBS_HOT                           = 2
CONST HBS_PUSHED                        = 3
CONST HBS_DISABLED                      = 4

' enum CLOSEBUTTONSTATES
CONST CBS_NORMAL                        = 1
CONST CBS_HOT                           = 2
CONST CBS_PUSHED                        = 3
CONST CBS_DISABLED                      = 4
coderJeff
Site Admin
Posts: 3343
Joined: Nov 04, 2005 14:23
Location: Ontario, Canada
Contact:

Re: fb 1.07 tests

Postby coderJeff » Aug 30, 2019 23:44

aloberoger wrote:
coderjeff wrote

Does your pre-built static library have global overloaded procs?


yes I thing this is a problem.
my old dlls are simply compiled with freebasic(the default calling convention is stdcall i think ?)


1) There is a typo in my first question: I meant to ask about global overloaded operator procedures, like the changelog.txt message.
2) more detailed explanation of this specific change is at https://sourceforge.net/p/fbc/bugs/907/ for anyone interested
3) global overloaded procedures (procs) should have same name mangling (and same linking) as fbc 1.06 and earlier.
4) on 32-bit windows, default calling convention is stdcall.
5) in fbc 1.06 there were other name mangling/decoration/linking changes related to integer sizes (on windows) that make fb 1.06 different from fb 1.05.

More questions, hopefully to help narrow down the cause:

Do you get an error message when compiling or linking?
An error message at run-time?
Or just a crash?

I got your .rar file, and it looks like the DLL is from August 2018, so was probably compiled with fbc 1.05 (or older)?
Are you trying to use an old dll? Or just recompile old source code in to a dll?

Thanks.
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 31, 2019 14:43

To answer your questions straight away, I would say that with FB1.06 everything is going well. With FB1.07 the creation of the library is normal. but when using the error messages shows that some procedure are not recognized .


I had to do some tests with the conclusion that it's at the compiler level. It must be said that for the same project the number of errors is higher with the official version than with the version of stw builds.

look at the type of message returned when compiling using a library.


Command executed:
"C:\FreeBasic\fbc.exe" "C:\Users\Administrateur\Desktop\TREILLIS_2019\imagelisttreillis_test\imagelistTreillis.bas"

Compiler output:
C:\Users\Administrateur\Desktop\TREILLIS_2019\imagelisttreillis_test\imagelistTreillis.o:fake:(.text+0x63): undefined reference to `CFORM::CREATE(FBSTRING&, long, long, long, long)@24'

C:\FreeBasic\bin\win32\ld.exe: C:\Users\Administrateur\Desktop\TREILLIS_2019\imagelisttreillis_test\imagelistTreillis.o: bad reloc address 0x8 in section `.data'

Results:
Compilation failed

System:
FBIde: 0.4.6
fbc: FreeBASIC Compiler - Version 1.08.0 (08-26-2019), built for win32 (32bit)
OS: Windows NT 6.2 (build 9200)
Last edited by aloberoger on Sep 01, 2019 8:59, edited 1 time in total.
aloberoger
Posts: 495
Joined: Jan 13, 2009 19:23

Re: fb 1.07 tests

Postby aloberoger » Aug 31, 2019 14:57

I got your .rar file, and it looks like the DLL is from August 2018, so was probably compiled with fbc 1.05 (or older)?
Are you trying to use an old dll? Or just recompile old source code in to a dll?


I have not yet been tempted to create a dll with the new version, so I just wanted to test a dll created with FB1.06, here is the style of error returned.

C:\FreeBASIC\fbc -s gui "Treilliso.bas" "Treilliso.rc"
Treilliso.o:fake:(.text+0x17d9): undefined reference to `CDXFDRAWING::DRAWPOLYLINE(FBARRAY<double>&, int)@12'
Treilliso.o:fake:(.text+0x1987): undefined reference to `CDXFDRAWING::ADDLAYER(FBSTRING, int, int, FBSTRING)@36'

on the other hand I created a library successfully, but errors occurs during the linking of the library, note that the code used directly in a project is compiled and executed normally.
Last edited by aloberoger on Sep 01, 2019 8:58, edited 1 time in total.
angros47
Posts: 1753
Joined: Jun 21, 2005 19:04

Re: fb 1.07 tests

Postby angros47 » Aug 31, 2019 17:36

I remind that, for the DOS version of Freebasic, the file "makesymbr.bas" in the directory src/rtlib/dos should be compiled, then makesymbr.bas should be executed, and after that, the runtime library should be compiled again. It's the only way to keep dynamic linking symbols up to date for the DOS version
coderJeff
Site Admin
Posts: 3343
Joined: Nov 04, 2005 14:23
Location: Ontario, Canada
Contact:

Re: fb 1.07 tests

Postby coderJeff » Aug 31, 2019 23:03

aloberoger wrote:I have not yet been tempted to create a dll with the new version, so I just wanted to test a dll created with FB1.06, here is the style of error returned.

...

on the other hand I created a library successfully, but errors occurs during the linking of the library, note that the code used directly in a project is compiled and executed normally.


Thank-you for posting your results.

I'm fairly confident that the issue you are having is the mixing of different versions of fbc to build the executables. There are changes over last couple of releases that fix but also change how executables are linked together. Most specifically, how procedures are named in the linker's namespace.

If you use fbc 1.05, 1.06, or 1.07, you must use the same version to build everything: DLL, static library, executable.

Return to “Community Discussion”

Who is online

Users browsing this forum: No registered users and 6 guests