Database Search

match allmatch any Look in all areasLook in current areas Check all datesPrevious dayPrevious 3 daysPrevious weekPrevious fortnightPrevious monthPrevious 2 monthsPrevious 3 monthsPrevious half-yearPrevious year

TechHome

	Boxes Examples from Users
	Progress Bars

• Awesome ListBox in Boxes example
• Box - progress bar
• Box Command Stack Full
• Box coordinates
• Box Text Resize Problem
• Box Window with No Caption
• BoxButtonDraw and Font Sizes
• BoxColor in 2nd Box not Full Size
• BoxDataClear and Stack Management
• BoxDrawText with Erase Flag Not Working
• BoxDrawText Wrap
• BoxesUp Width Limitation
• BoxShut and Iconized Name Change
• BoxText Last Error 12000
• Centering BoxesUp and Some General Explanation Too
• Checking Button Status before BoxButtonWait
• Clarification on BoxUpdates Function
• Dialog with Box Functions
• Display a Box While Processing in Background
• Dynamically Create a Box with more than 16 buttons
• FTP Example Script from User
• Green Color Choosing Example
• Have Child Script Update Parent Box
• IntControl 1008 Capture Close Request
• ListBox in BoxesUp - Cool!
• Mixed Screen Colors with Boxes Functions
• Multiple Items and the Boxes Functions Example
• Resize Box to Text Size
• Sample Drawing Program
• Scrolling Status Screen Box
• Scrolling Text
• Txt Alignment in BoxDrawText
• Using Courier Font in Boxes
• Using Other Fonts in Boxes
• Where are the docs for drawing those pretty boxes

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

Using Other Fonts in Boxes

Keywords: 	 fonts boxes

---

Question:

Is there a way to change the font and font size in a Box button. ?

Answer:

You can try the following script, assumes that the real buttons id start at 100, otherwise you need roboscripter to get the buttons id.

---

;font button change 
;Guido 02/02

;api functions
#DefineFunction GetStockObject(nIndex)
DLLName = StrCat(DirWindows(1), "gdi32.dll")
rslt = DLLCall(DLLName, long:"GetStockObject", long:nIndex)
Return rslt
#EndFunction

#DefineFunction GetDlgItem(hwndDlg, id)
sDLLName = StrCat(DirWindows(1), "USER32.dll")
hcontrol = DLLCall(sDLLName, long:"GetDlgItem", long:hwndDlg, long:id)
Return hcontrol
#EndFunction

#DefineFunction CreateFont(H, WI, E, O, WE, I, U, S, C, OP, CP, Q, PF, F)
sDLLName = StrCat(DirWindows(1), "gdi32.dll")
rslt = DLLCall(sDLLName, long:"CreateFontA", long:H, long:WI, long:E, long:O, long:WE, long:I, long:U, long:S, long:C, long:OP, long:CP, long:Q, long:PF, lpstr:F)
Return rslt
#EndFunction

;api constants
ANSI_FIXED_FONT = 12
SYSTEM_FONT = 14
;OEM_FIXED_FONT = 11 
WM_SETFONT = 48

;box handle
hwnd = dllhwnd("")

;get matisse font handle
hmat = CreateFont(20, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, "Matisse ITC")

;get system font handles
hansi = GetStockObject(ANSI_FIXED_FONT)
hsystem = GetStockObject(SYSTEM_FONT)
;hoem = GetStockObject(OEM_FIXED_FONT)

;;  sample code for BoxButtonDraw
bDraw1=1 ;real id 100
bDraw2=2 ;        101
bDraw3=3 ;        102

BoxDrawText(1, "0,210,1000,1000", "WinBatch Box Example - Font Change", @FALSE, 1)
BoxButtonDraw(1, bDraw1, "Matisse", "100,450,300,550")
BoxButtonDraw(1, bDraw2, "System", "400,450,600,550")
BoxButtonDraw(1, bDraw3, "Ansi", "700,450,900,550")

;get buttons handle based on buttons real ids
hb1 = GetDlgItem(hwnd, 100)
hb2 = GetDlgItem(hwnd, 101)
hb3 = GetDlgItem(hwnd, 102)

;set font
IntControl(22, hb1, WM_SETFONT, hmat, "")	  ;matisse
IntControl(22, hb2, WM_SETFONT, hsystem, "");system
IntControl(22, hb3, WM_SETFONT, hansi, "")  ;ansi

BoxesUp("100,100,900,900", @normal)

bWho=0
while bWho == 0
  for x =1 to 3
    if BoxButtonStat(1,x) then bWho=x
  next
endwhile        
Message("Excuse Me", "Please, don't push my buttons")
BoxDestroy(1)
;end script

---

Article ID:   W15115

File Created: 2002:09:05:13:49:44

Last Updated: 2002:09:05:13:49:44