Announcement

Collapse
No announcement yet.

Code tags test..

Collapse
X
 
  • Filter
  • Time
  • Show
Clear All
new posts

  • #21
    Until the vBulletin issue is resolved, the following seems fine for me...

    [code]
    [noparse]

    [/noparse]
    [/code]
    Last edited by Pierre Bellisle; 21 Jan 2020, 10:57 PM.

    Comment


    • #22
      Since I mailed Adam about this vBulletin issue, he replied to me and gave me permission to share the info he sent me.
      Kind a workaround before vBulletin staff find the final solution.
      Thank to Adam.
      Here it is ...

      I have reported this bug directly to vBulletin and they have confirmed it. – For the moment – there is a “source mode” button you can switch to to insert code. Be careful though that if you switch back to regular mode, it will do what it did with pasting – but it seems that it won’t do that if you wrap the code in code tags in source mode (appears to be a plaintext editor):

      (the button that looks like greater than/less than signs):

      Click image for larger version  Name:	vBulletin.png Views:	20 Size:	3.3 KB ID:	788994
      Last edited by Pierre Bellisle; 22 Jan 2020, 11:25 PM.

      Comment


      • #23
        Testing with that new button
        a
        b
        c


        Code:
        '====================================================
        'Purpose: by calling SetWindowTheme with an empty
        ' string your control
        ' (button/checkbox/combo etc) will not be
        ' painted with the XP Theme.
        '
        'Example: LOCAL hButton AS DWORD
        ' hButton = GetDlgItem( CBHNDL, %IDOK )
        ' lRes = DisableXPThemeControl ( hbutton )
        ' InvalidateRect hButton,BYVAL %NULL,%TRUE
        FUNCTION DisableXPThemeControl(BYVAL hControl AS DWORD) AS LONG
        LOCAL hLib AS DWORD, pProc AS DWORD, lRes AS LONG
        hLib = LoadLibrary("UxTheme.dll")
        IF hLib THEN
        pProc = GetProcAddress(hLib, "SetWindowTheme")
        IF pProc THEN
        CALL DWORD pProc USING _
        SetWindowTheme(hControl, " ", " ") TO lRes
        FUNCTION = lRes
        END IF
        FreeLibrary hLib
        END IF
        END FUNCTION

        Comment


        • #24
          Code:
          '====================================================
          'Purpose: by calling SetWindowTheme with an empty
          '          string your control
          '         (button/checkbox/combo etc) will not be
          '         painted with the XP Theme.
          '
          'Example: LOCAL hButton AS DWORD
          '         hButton = GetDlgItem( CBHNDL, %IDOK )
          '         lRes = DisableXPThemeControl ( hbutton )
          '         InvalidateRect hButton,BYVAL %NULL,%TRUE
          FUNCTION DisableXPThemeControl(BYVAL hControl AS DWORD) AS LONG
              LOCAL hLib AS DWORD, pProc AS DWORD, lRes AS LONG
              hLib = LoadLibrary("UxTheme.dll")
              IF hLib THEN
                   pProc = GetProcAddress(hLib, "SetWindowTheme")
                   IF pProc THEN
                        CALL DWORD pProc USING _
                               SetWindowTheme(hControl, " ", " ")  TO lRes
                        FUNCTION = lRes
                   END IF
                   FreeLibrary hLib
              END IF
          END FUNCTION

          Works with new button first and then encompass your code with the code tags
          Thanks so much Pierre

          Comment


          • #25
            If you enclose your source code with [code] - Source code here - [/code] tags Before pasting into the BBS 'Advanced' editor all is well.
            Code:
               Indents
                 ARE
                   preserved!
            Rgds, Dave

            Comment

            Working...
            X