Thread Rating:
  • 0 Vote(s) - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
SysTabControl32
#1
Im using " SysTabControl32 " and also using tabs! Now what i want to know is, is it possible to add font to the Indvidual tabs i got on SysTabControl32.

My ID is 3 and i add it to the font codes and it does not make the tabs into the font Sad.

Is this possible gin to do and if so, may i have a small example or code.
#2
Function dlg_multipage_with_tab_control2
Code:
Copy      Help
\Dialog_Editor
function# hDlg message wParam lParam
if(hDlg) goto messages

if(!ShowDialog("dlg_multipage_with_tab_control2" &dlg_multipage_with_tab_control2)) ret

;BEGIN DIALOG
;0 "" 0x10C80A44 0x100 0 0 265 163 "Form"
;1001 Static 0x44020000 0x4 94 60 48 13 "Page0"
;1101 Static 0x44020000 0x4 104 62 48 13 "Page1"
;1201 Static 0x44020000 0x4 110 70 48 13 "Page2"
;1 Button 0x54030001 0x4 142 146 48 14 "OK"
;2 Button 0x54030000 0x4 192 146 48 14 "Cancel"
;4 Button 0x54032000 0x4 242 146 18 14 "?"
;3 SysTabControl32 0x54000040 0x0 0 2 266 132 ""
;5 Static 0x54000010 0x20004 4 138 257 1 ""
;END DIALOG
;DIALOG EDITOR: "" 0x2010800 "" " "

ret
;messages
sel message
,case WM_INITDIALOG
,__Font-- f.Create("Tahoma" 16 2)
,f.SetDialogFont(hDlg "3")
,
,int htb=id(3 hDlg)
,TCITEM ti.mask=TCIF_TEXT
,ti.pszText="A"
,SendMessage htb TCM_INSERTITEMA 0 &ti
,ti.pszText="B"
,SendMessage htb TCM_INSERTITEMA 1 &ti
,ti.pszText="C"
,SendMessage htb TCM_INSERTITEMA 2 &ti
,
,goto g11
,case WM_DESTROY
,case WM_COMMAND goto messages2
,case WM_NOTIFY goto messages3
ret
;messages2
sel wParam
,case IDOK
,case IDCANCEL
ret 1
;messages3
NMHDR* nh=+lParam
sel nh.code
,case TCN_SELCHANGE
,_i=SendMessage(nh.hwndFrom TCM_GETCURSEL 0 0)
,;g11
,DT_Page hDlg _i
#3
Ah yes exactly what i needed! Thanks again gin. Appreciate it


Forum Jump:


Users browsing this thread: 1 Guest(s)