zskin.inc

Powerbasic 对GDI 的操作 很漂亮的代码!

FUNCTION SK_POPMENUTEXT() AS LONG
    FUNCTION = zPOPMENUTEXT(0,0)
END FUNCTION

FUNCTION zPOPMENUHILITE(BYVAL nColor AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasColor AS LONG
    IF RW THEN WasColor = nColor
    FUNCTION = WasColor
END FUNCTION
FUNCTION SK_POPMENUHILITE() AS LONG
    FUNCTION = zPOPMENUHILITE(0,0)
END FUNCTION

FUNCTION zACTIVEMENUBAR(BYVAL nColor AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasColor AS LONG
    IF RW THEN WasColor = nColor
    FUNCTION = WasColor
END FUNCTION
FUNCTION SK_ACTIVEMENUBAR() AS LONG
    FUNCTION = zACTIVEMENUBAR(0,0)
END FUNCTION

FUNCTION zINACTIVEMENUBAR(BYVAL nColor AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasColor AS LONG
    IF RW THEN WasColor = nColor
    FUNCTION = WasColor
END FUNCTION
FUNCTION SK_INACTIVEMENUBAR() AS LONG
    FUNCTION = zINACTIVEMENUBAR(0,0)
END FUNCTION

FUNCTION zCAPTIONFONT(BYVAL sCaptionFont AS STRING, BYVAL RW AS LONG) AS STRING
    STATIC sWasFont AS STRING
    IF RW THEN sWasFont = sCaptionFont
    FUNCTION = sWasFont
END FUNCTION
FUNCTION SK_CAPTIONFONT() AS STRING
    FUNCTION = zCAPTIONFONT("", 0)
END FUNCTION

FUNCTION zCAPTIONFONTHEIGHT(BYVAL N AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasN AS LONG
    IF RW THEN WasN = N
    FUNCTION = WasN
END FUNCTION
FUNCTION SK_CAPTIONFONTHEIGHT() AS LONG
    FUNCTION = zCAPTIONFONTHEIGHT(0,0)
END FUNCTION

FUNCTION zPUSHBUTFONTSIZE(BYVAL N AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasN AS LONG
    IF RW THEN WasN = N
    FUNCTION = WasN
END FUNCTION
FUNCTION SK_PUSHBUTFONTSIZE() AS LONG
    FUNCTION = zPUSHBUTFONTSIZE(0,0)
END FUNCTION

FUNCTION zICONSIZE(BYVAL N AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasN AS LONG
    IF RW THEN WasN = N
    FUNCTION = WasN
END FUNCTION
FUNCTION SK_ICONSIZE() AS LONG
    FUNCTION = zICONSIZE(0,0)
END FUNCTION

FUNCTION zTRACKHICOLOR(BYVAL nColor AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasColor AS LONG
    IF RW THEN WasColor = nColor
    FUNCTION = WasColor
END FUNCTION
FUNCTION SK_TRACKHICOLOR() AS LONG
    FUNCTION = zTRACKHICOLOR(0,0)
END FUNCTION

FUNCTION zPAINT_BORDER(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN WasMode = nMode
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_PAINT_BORDER() AS LONG
    FUNCTION = zPAINT_BORDER(0,0)
END FUNCTION

FUNCTION zPAINT_BACKGROUND(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN WasMode = nMode
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_PAINT_BACKGROUND() AS LONG
    FUNCTION = zPAINT_BACKGROUND(0,0)
END FUNCTION

FUNCTION zDRAG_BACKGROUND(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN WasMode = nMode
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_DRAG_BACKGROUND() AS LONG
    FUNCTION = zDRAG_BACKGROUND(0,0)
END FUNCTION

FUNCTION zTEXTFONT(BYVAL sTextFont AS STRING, BYVAL RW AS LONG) AS STRING
    STATIC sWasFont AS STRING
    IF RW THEN sWasFont = sTextFont
    FUNCTION = sWasFont
END FUNCTION
FUNCTION SK_TEXTFONT() AS STRING
    FUNCTION = zTEXTFONT("", 0)
END FUNCTION

FUNCTION zSHADOWCOLOR(BYVAL nColor AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasColor AS LONG
    IF RW THEN WasColor = nColor
    FUNCTION = WasColor
END FUNCTION
FUNCTION SK_SHADOWCOLOR() AS LONG
    FUNCTION = zSHADOWCOLOR(0,0)
END FUNCTION

FUNCTION zAEROEMULATE(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN WasMode = nMode
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_AEROEMULATE() AS LONG
    FUNCTION = zAEROEMULATE(0,0)
END FUNCTION

FUNCTION zAEROBLURLEVEL(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN WasMode = MIN&(MAX&(nMode, 0), 20)
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_AEROBLURLEVEL() AS LONG
    FUNCTION = zAEROBLURLEVEL(0,0)
END FUNCTION

FUNCTION zAEROCOLOR(BYVAL nColor AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasColor AS LONG
    IF RW THEN WasColor = nColor
    FUNCTION = WasColor
END FUNCTION
FUNCTION SK_AEROCOLOR() AS LONG
    FUNCTION = zAEROCOLOR(0,0)
END FUNCTION

FUNCTION zAEROTIMERDELAY(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN WasMode = MIN&(MAX&(nMode, 0), 1000)
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_AEROTIMERDELAY() AS LONG
    FUNCTION = zAEROTIMERDELAY(0,0)
END FUNCTION

FUNCTION zCOLORLABEL(BYVAL sColorLabel AS STRING, BYVAL RW AS LONG) AS STRING
    STATIC sWasColorLabel AS STRING
    IF RW THEN sWasColorLabel = sColorLabel
    FUNCTION = sWasColorLabel
END FUNCTION
FUNCTION SK_COLORLABEL() AS STRING
    FUNCTION = zCOLORLABEL("", 0)
END FUNCTION

FUNCTION zUSEVISTABLUR(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN
       IF WasMode AND nMode = 0 THEN CALL zSetBlurBehindMode(zMainWindow(0), %FALSE, 0)
       WasMode = nMode
    END IF
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_USEVISTABLUR() AS LONG
    FUNCTION = zUSEVISTABLUR(0,0)
END FUNCTION

FUNCTION zUSEVISTACRYSTAL(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN
       IF WasMode AND nMode = 0 THEN CALL zSetCrystalBehindMode(zMainWindow(0), %FALSE)
       WasMode = nMode
    END IF
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_USEVISTACRYSTAL() AS LONG
    FUNCTION = zUSEVISTACRYSTAL(0,0)
END FUNCTION

FUNCTION zTEXTRENDERING(BYVAL nMode AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasMode AS LONG
    IF RW THEN WasMode = nMode
    FUNCTION = WasMode
END FUNCTION
FUNCTION SK_TEXTRENDERING() AS LONG
    FUNCTION = zTEXTRENDERING(0,0)
END FUNCTION

'// Static function to save tooltip handle.
FUNCTION zToolTipData (BYVAL hTooltip AS LONG, BYVAL RW AS LONG) AS LONG
    STATIC WasTooltip AS LONG
    IF RW THEN WasTooltip = hTooltip
    FUNCTION = WasTooltip
END FUNCTION

'// Load the GDI+ Dll
FUNCTION zGdipStart() EXPORT AS LONG
    DIM GpInput AS GdiplusStartupInput
    GpInput.GdiplusVersion = 1
    IF GdiplusStartup(hGDIplus&, GpInput) = 0 THEN FUNCTION = hGDIplus&
END FUNCTION

'// GDIPLUS unload (unload the GDIPLUS.DLL)
SUB zGdipEnd(BYVAL hGDIplus&) EXPORT
  ' Unload the GDI+ Dll
    IF hGDIplus& THEN CALL GdiplusShutdown(hGDIplus&): hGDIplus& = 0
END SUB

'// Detect if Main window uses WS_EX_COMPOSITED extended style
FUNCTION zComposited() AS LONG
    IF (GetWindowLong(zMainWindow(0), %GWL_EXSTYLE) AND %WS_EX_COMPOSITED) = %WS_EX_COMPOSITED THEN FUNCTION = -1
END FUNCTION

'// Retrieve the current module instance.
FUNCTION zsInstance () AS LONG
    FUNCTION = GetModuleHandle("")
END FUNCTION

'// Full file detection.
FUNCTION zsExist (zFileSpec AS ASCIIZ) AS LONG
    LOCAL fd AS WIN32_FIND_DATA, hFind AS LONG
    IF LEN(zFileSpec) THEN
       hFind = FindFirstFile(zFileSpec, fd)
       IF hFind <> -1 THEN
          CALL FindClose(hFind&)
          FUNCTION = -1
       END IF
    END IF
END FUNCTION

' Changes the character being used as delimiter to read in a sequential text file.
FUNCTION zsSetBufinChar (BYVAL Char$) STATIC AS STRING
    IF LEN(Char$) THEN UserChar$ = Char$
    IF LEN(UserChar$) THEN
       FUNCTION = UserChar$
    ELSE
       FUNCTION = CHR$(13)
    END IF
END FUNCTION

' Generic open file function
FUNCTION zsFOpen (zFilName AS ASCIIZ, BYVAL AccessMode AS LONG, BYVAL ShareMode AS LONG, hFile AS LONG) AS LONG

    LOCAl AccessIs, ShareIs, FlagAndAttribute AS LONG

    AccessMode = MIN(MAX(AccessMode, 0), 2)  ' Coherce between 0-2
    IF AccessMode = 0 THEN                   ' 0 Open for read only.
       AccessIs = %GENERIC_READ
    ELSEIF AccessMode = 1 THEN               ' 1 Open for write only.
       AccessIs = %GENERIC_WRITE
    ELSE                                     ' 2 Open for read and write.
       AccessIs = %GENERIC_READ OR %GENERIC_WRITE
    END IF

    ShareMode = MIN(MAX(ShareMode, 1), 4)    ' Coherce between 1-4
    IF ShareMode = 1 THEN                    ' 1 Deny read/write access.
       ShareIs = 0
    ELSEIF ShareMode = 2 THEN                ' 2 Deny write access.
       ShareIs =  %FILE_SHARE_READ
    ELSEIF ShareMode = 3 THEN                ' 3 Deny read access.
       ShareIs =  %FILE_SHARE_WRITE
    ELSE                                     ' 4 Deny none (full share mode).
       ShareIs =  %FILE_SHARE_READ OR %FILE_SHARE_WRITE
    END IF

    IF hFile = -1 THEN
       FlagAndAttribute = %FILE_ATTRIBUTE_NORMAL OR %FILE_FLAG_WRITE_THROUGH
    ELSE
       FlagAndAttribute = %FILE_ATTRIBUTE_NORMAL
    END IF

    hFile = CreateFile(zFilName, Acce