does Fivewin have a Gradient ComboBox ?

[Jimmy]

hi,

while i can use Menu with Gradient i like to ask if Fivewin have Combobox with Gradient

i can change Foreground and Background Color into Dark-Mode but Highlight Bar ( COLOR_HIGHLIGHT ) have normal Color

btw. does Fivewin have a "Ownerdraw" Sample

[Antonio Linares]

Dear Jimmy,

Please review FWH\samples\ownerdra.prg

[Jimmy]

hi Antonio,

Please review FWH\samples\ownerdra.prg

aaah, i have to look into *.RC File too when search for Constant as "Keyword"
i´m not aware about Technique using "REDEFINE" ... is there a Readme for "Dummy" ?

---

bOwnerDraw -> Combobox
bDrawItem -> Listbox / Combobox (CodeBlock to evaluate to select a ownerdraw bitmap to paint)

Code: Select all  Expand view  RUN

METHOD DrawItem( nIdCtl, nPStruct ) CLASS TComboBox
   ...
      uVal  := LbxDrawItem( nPStruct, ::aBitmaps, ::aItems, ::nBmpWidth, ::bDrawItem )
   else
      uVal  := Eval( ::bOwnerDraw, Self, nIdCtl, TDrawItemStruct():New( nPStruct ), nPStruct )

but how does ::bOwnerDraw, look like

can i pass my "own" Method and use API Function to "paint" into TDrawItemStruct():hDC

[Jimmy]

hi,

have try ComboBox Ownerdraw and "fill" bOwnerDraw with Codeblock

Code: Select all  Expand view  RUN

     oCombo_left:bOwnerDraw := {|a,b,c,d| DoMyComBo(a,b,c,d) }

Code: Select all  Expand view  RUN

FUNCTION DoMyComBo()

   nCount := PCOUNT()
   FOR ii := 1 TO nCount
      xPara := PValue(ii)
      DO CASE
         CASE ii = 1 ; oSelf    := xPara
         CASE ii = 2 ; nIdCtl   := xPara
         CASE ii = 3 ; aStruc   := xPara
         CASE ii = 4 ; nPointer := xPara
      ENDCASE
   NEXT
   fwlog "DoMyComBo()",nCount, IF(VALTYPE(oSelf) = "O","Object",oSelf) , nIdCtl , VAR2CHAR( aStruc ), nPointer

RETURN 0

Parameter a,b,c,d between "Pipe" (|) come from

Code: Select all  Expand view  RUN

      uVal  := Eval( ::bOwnerDraw, Self, nIdCtl, TDrawItemStruct():New( nPStruct ), nPStruct )

Result

"DoMyComBo()" = "DoMyComBo()"

nCount = 4

IF(VALTYPE(oSelf) = "O","Object",oSelf) = "Object"

nIdCtl = 109

VAR2CHAR( aStruc ) = "__itemSetObj( {{CTLTYPE, 3}, {CTLID, 109}, {ITEMID, 0}, {ITEMACTION, 1}, {ITEMSTATE, 4096}, {HWNDITEM, 1770774}, {HDC, 1157698194}, {ARECT, {3, 3, 35, 70}}, {ITEMDATA, `ęƒ}}, {{TDRAWITEMSTRUCT,}} )"

nPointer = 1373540

it seems to have what is need for Ownerdraw ComboBox ... now work can begin

[Jimmy]

hi,

got 1st Result


but Cursor Highlight does only work when Mouse is over Listbox-Part of Combobox

Code: Select all  Expand view  RUN

  CASE itemAction = ODA_SELECT
   CASE itemAction = ODA_DRAWENTIRE
   CASE itemAction = ODA_FOCUS

it does work on ODA_FOCUS to Highlight Item
but when Highlight on ODA_SELECT than "all" Item will be Highlight when move Mouse ... hm

[Antonio Linares]

Dear Jimmy,

You are doing an outstanding work on your total commander version, congratulations

Where could we download it from to test it ?

many thanks

[Jimmy]

hi Antonio,

Where could we download it from to test it ?

i´m going to prepare next Release
but still have new Idea ... so i must clean-up again ...

i have now include System Icon from "\System32\imageres.dll" for Ownerdraaw Combobox

Code: Select all  Expand view  RUN

     cDLL := WinDir + "\System32\imageres.dll"

      DO CASE
         CASE acType[ itemID + 1 ] = DRIVE_UNKNOWN
            nResID := 75
         CASE acType[ itemID + 1 ] = DRIVE_NO_ROOT_DIR
            nResID := 32

         CASE acType[ itemID + 1 ] = DRIVE_REMOVABLE
            IF SUBSTR( acItem[ itemID + 1 ], 1, 1 ) $ "AB"
               nResID := 23
            ELSE
               cDLL := WinDir + "\System32\DDORes.dll"
               nResID := 2389
            ENDIF

         CASE acType[ itemID + 1 ] = DRIVE_FIXED
            IF SUBSTR( acItem[ itemID + 1 ], 1, 2 ) = "C:"
               nResID := 36
            ELSE
               nResID := 32
            ENDIF
         CASE acType[ itemID + 1 ] = DRIVE_REMOTE
            nResID := 33
         CASE acType[ itemID + 1 ] = DRIVE_CDROM
            nResID := 30
         CASE acType[ itemID + 1 ] = DRIVE_RAMDISK
            nResID := 34

      ENDCASE

      hModule := GetModuleHandle( cDLL )
      IF hModule == 0
         hModule := LoadLibrary( cDLL )
      ENDIF
      nIcoHandle := LOADIMAGERESICON( hModule, nResID, 32 )

      DrawIconEx( hDC, ;
                  nTop, ;
                  nLeft, ;
                  nIcoHandle, ;
                  nSize, ;
                  nSize, ;
                  0, ;                // _In_     UINT   istepIfAniCur,
                  0, ;                // _In_opt_ HBRUSH hbrFlickerFreeDraw,
                  nOr( DI_NORMAL ) )  // _In_     UINT   diFlags

      DestroyIcon( nIcoHandle )
      FreeLibrary( hModule )

now i must not provide Icon in *.RC

p.s. This Image show NO Highlight Bar as Mouse is not "over" Listbox-Part of Combobox ... something is missing ... hm

[Jimmy]

hi,

now Combobox look like Menu