Beginner Questions ...

[tbohon]

Given a simple dialog:

CONST STATIC_1 = 1
CONST STATIC_2 = 2
CONST STATIC_3 = 3
CONST STATIC_4 = 4
CONST EDIT_5 = 5
CONST EDIT_6 = 6
CONST EDIT_7 = 7
DIALOG d1
CREATEDIALOG d1,0,0,409,256,0x80C80080,0,"Caption",&d1_handler
CONTROL d1,@STATIC,"HEADER",33,15,70,20,0x5000010B,STATIC_1
CONTROL d1,@STATIC,"Field 1",87,69,70,20,0x5000010B,STATIC_2
CONTROL d1,@STATIC,"Field 2",87,97,70,20,0x5000010B,STATIC_3
CONTROL d1,@STATIC,"Field 3",87,126,70,20,0x5000010B,STATIC_4
CONTROL d1,@EDIT,"Edit1",157,68,70,20,0x50800000,EDIT_5
CONTROL d1,@EDIT,"Edit2",159,96,70,20,0x50800000,EDIT_6
CONTROL d1,@EDIT,"Edit3",160,124,70,20,0x50800000,EDIT_7

SUB d1_handler
   SELECT @MESSAGE
      CASE @IDINITDIALOG
         CENTERWINDOW d1
         /* Initialize any controls here */
      CASE @IDCLOSEWINDOW
         CLOSEDIALOG d1,@IDOK
      CASE @IDCONTROL
         SELECT @CONTROLID
            CASE EDIT_5
            /* respond to edit notifications here */
            CASE EDIT_6
            /* respond to edit notifications here */
            CASE EDIT_7
            /* respond to edit notifications here */
         ENDSELECT
   ENDSELECT
RETURN
ENDSUB

How do I do the following?

1.  Set the 'HEADER' to one font while leaving the field labels at the default?

2.  Change the background of the dialog itself?

3.  Change the background of an individual edit control?

4.  Change the color of a static text box?


I've been beating my head into the desk for some time now trying to make these happen - I'm pretty sure they're possible from what I read in the documentation but I can't seem to get the right statements in the right locations.  My guess is that I'm just not putting the various pieces together correctly - old age is my excuse and I'm sticking to it ... !   

Thanks in advance.

Tom

[Ionic Wind Support Team]

Code Select Expand


CONST STATIC_1 = 1
CONST STATIC_2 = 2
CONST STATIC_3 = 3
CONST STATIC_4 = 4
CONST EDIT_5 = 5
CONST EDIT_6 = 6
CONST EDIT_7 = 7
DIALOG d1
CREATEDIALOG d1,0,0,409,256,0x80C80080,0,"Caption",&d1_handler
'a static control to cover the entire dialog
CONTROL d1,@STATIC,"",0,0,409,256,0x50000000,9999
'
CONTROL d1,@STATIC,"HEADER",33,15,70,20,0x5000010B,STATIC_1
CONTROL d1,@STATIC,"Field 1",87,69,70,20,0x5000010B,STATIC_2
CONTROL d1,@STATIC,"Field 2",87,97,70,20,0x5000010B,STATIC_3
CONTROL d1,@STATIC,"Field 3",87,126,70,20,0x5000010B,STATIC_4
CONTROL d1,@EDIT,"Edit1",157,68,70,20,0x50800000,EDIT_5
CONTROL d1,@EDIT,"Edit2",159,96,70,20,0x50800000,EDIT_6
CONTROL d1,@EDIT,"Edit3",160,124,70,20,0x50800000,EDIT_7

DOMODAL d1

SUB d1_handler
   SELECT @MESSAGE
      CASE @IDINITDIALOG
         CENTERWINDOW d1
         /* Initialize any controls here */
SETFONT d1,"Arial",12,800,0,STATIC_1
         SETCONTROLCOLOR d1,STATIC_2,RGB(0,0,0),RGB(255,0,0)
         SETCONTROLCOLOR d1,EDIT_5,RGB(0,0,0),RGB(255,255,0)
'set the background static color
SETCONTROLCOLOR d1,9999,RGB(0,0,255),RGB(0,0,255)
      CASE @IDCLOSEWINDOW
         CLOSEDIALOG d1,@IDOK
      CASE @IDCONTROL
         SELECT @CONTROLID
            CASE EDIT_5
            /* respond to edit notifications here */
            CASE EDIT_6
            /* respond to edit notifications here */
            CASE EDIT_7
            /* respond to edit notifications here */
         ENDSELECT
   ENDSELECT
RETURN
ENDSUB


[tbohon]

Thanks, Paul.  I was using SETCONTROLCOLOR but apparently not correctly ... or, more likely, not in the correct place in the code. 

Appreciate it!

Tom


Edit:  On further examination, I see the trick - a static control to cover the entire dialog.  Clever, very very clever ... 

Thanks again.