Combobox Diff with Style CBS_DROPDOWN and CBS_DROPDOWNLIST

[Rick Lipkin]

To All

I have built a Combobox from Resource and using the styles CBS_DROPDOWN ( preferred ) and CBS_DROPDOWNLIST ( do not want to use ) has profound font differences when you want to disable the control with this syntax :

Code: Select all  Expand view

REDEFINE COMBOBOX oCategory  var cCategory  ID 153 of oCont ;
         ITEMS { "Contact Person","Sales Rep" } ;
         when cMode <> "V" COLOR CLR_BLACK,14869218
 

Here is the snipit from the Resource file with the style definitions for each example :

Code: Select all  Expand view

COMBOBOX 153, 78, 21, 181, 33, CBS_DROPDOWN | WS_VSCROLL | WS_TABSTOP
 

Screen shot with CBS_DROPDOWN


and here is the same Resource with CBS_DROPDOWNLIST

Code: Select all  Expand view

COMBOBOX 153, 78, 21, 181, 33, CBS_DROPDOWNLIST | WS_VSCROLL | WS_TABSTOP
 

Screen shot with CBS_DROPDOWNLIST


I do not like the disabled font or appearance of the CBS_DROPDOWN however, I have chosen that style because I need to be able to Add or Edit a value not in the ITEM array.

Is there a way to work around on the disabled CBS_DROPDOWN to modify the text to look like the CBS_DROPDOWNLIST ?

I have tried to over-ride the font with oCategory:SetFont( oFont ) but it has no effect. Any help or advice would be appreciated.

Thanks
Rick Lipkin

[Enrico Maria Giordano]

Try assigning the system font

Code: Select all  Expand view

DEFINE FONT oFont NAME GetSysFont() SIZE 0, -12

to the combobox.

EMG

[Rick Lipkin]

Enrico

I have tried your suggestion and applied the font to the Dialog

Code: Select all  Expand view

DEFINE FONT oFont NAME GetSysFont() SIZE 0, -12
...
...
DEFINE DIALOG oCont RESOURCE "CONTVIEW" ;
       TITLE xTITLE FONT oFont
 

as well as to the Combobox with no effect .. when you redefine a combobox from resource there is no 'font' option in FiveWin.ch, however there is a 'font' option if you create from code.

Code: Select all  Expand view

 REDEFINE COMBOBOX oCategory  var cCategory  ID 153 of oCont ;
   ITEMS { "Contact Person","Sales Rep","Accounting", "Technical Support", "Shipping Dept" } ;
         when cMode <> "V" //COLOR CLR_BLACK,14869218
   oCategory:SetFont( oFont )
   oCategory:SetColor(nRgb(7,7,224))
 

Please compile this sample code and you will see what I mean .. notice the difference in the two results .. the top is a Dropdown and the second is Dropdownlist.

Thanks
Rick Lipkin

Code: Select all  Expand view

#include "FiveWin.ch"

//-------------------------

function Main()

   local oDlg, oCbx, cMode, cItem,oCbx1,cItem1

   cMode  := "V"
   cItem  := "Testing"
   cItem1 := "Testing"

   DEFINE DIALOG oDlg RESOURCE "TestCombo"

   REDEFINE COMBOBOX oCbx VAR cItem ITEMS { "Testing", "this", "ComboBox" } ;
      ID 110 OF oDlg when cMode <> "V"

   REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "Testing", "this", "ComboBox" } ;
      ID 111 OF oDlg


   REDEFINE BUTTON ID 200 OF oDlg;
            ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

TestCombo.rc

Code: Select all  Expand view

TestCombo DIALOG 49, 30, 124, 102
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Testing a ComboBox "
FONT 6, "MS Sans Serif"
{
 LTEXT "A ComboBox", -1, 10, 5, 43, 8
 COMBOBOX 110, 6, 16, 72, 31, CBS_DROPDOWN | WS_TABSTOP
 PUSHBUTTON "&End", 200, 86, 86, 33, 12
 COMBOBOX 111, 6, 45, 72, 31, CBS_DROPDOWNLIST | WS_TABSTOP
}
 

[Enrico Maria Giordano]

Code: Select all  Expand view

#include "FiveWin.ch"

//-------------------------

function Main()

   local oDlg, oCbx, cMode, cItem,oCbx1,cItem1

   local oFont

   cMode  := "V"
   cItem  := "Testing"
   cItem1 := "Testing"

   DEFINE FONT oFont NAME GetSysFont() SIZE 0, -12

   DEFINE DIALOG oDlg RESOURCE "TestCombo"

   REDEFINE COMBOBOX oCbx VAR cItem ITEMS { "Testing", "this", "ComboBox" } ;
      ID 110 OF oDlg when cMode <> "V"

   oCbx:oGet:SetFont( oFont )

   REDEFINE COMBOBOX oCbx1 VAR cItem1 ITEMS { "Testing", "this", "ComboBox" } ;
      ID 111 OF oDlg

   REDEFINE BUTTON ID 200 OF oDlg;
            ACTION oDlg:End()

   ACTIVATE DIALOG oDlg CENTERED

return nil

EMG

[Rick Lipkin]

Enrico

That worked .. never would have got that one without your help!!

Thanks
Rick Lipkin

[Enrico Maria Giordano]

You're welcome, my friend!

EMG